|
| |||||||
| Forum Arşivi Gereksiz,Yanlış konular bu alanda toplanır. |
| |
| |
| | LinkBack | Konu Araçları | Stil |
09-08-2010, 02:15
| #1 (permalink) |
| Banned  |  İf Komutu Kullanımı İf Komutunun Anlamı = Eğer dir .. Bir Butonumuz Olsun Koxp Yapıyoruz Diyelim. Check Kontrolü Değilde Buton Kullanmak istiyoruz. Bu Butonumuz a Tıkladığımızda Attack Başlayacaktır Ve Aynı Zamanda Caption Özelliğinde Attack Durdur Yazacaktır.Bir Daha Tıkladığımızda Attack Duracak Ve Butonumuzun Caption Özelliği Attack Başlat Olacaktır.. Forma 1 Buton Ekleyelim.. Caption Özelliğini (Adını ) Atack Başlat Diyelim Kodlama Mantığı Şu Olacaktır.. Komut1 Butonu Tıklandığında EĞER Komut1 Butonunun Adı Attack Başlat İse O ZAMAN Komut1 Butonunun Adını Attack Durdur Yap DEĞİLSE Komut1 Butonunun adını Attack Başlat Yap KOŞULU BİTİR Şimdi Bunu Programımızın Diline Çevirelim.. Private Sub Command1_Click() If Command1.Caption = "Atak Başlat" Then Command1.Caption = "Atak Durdur" Else Command1.Caption = "Atak Başlat" End If End Sub Kodları Yazarken Dikkat Edilmesi Gereken En Önemli Şey Capiton Özelliklerini Kıyaslarken.. Büyük Küçük Harf Duyarlılığıdır .. Eğer Kodumuzu Şu Şekilde Yazarsak If Command1.Caption = "Atak başlat" Then Command1.Caption = "Atak Durdur" Else Command1.Caption = "Atak Başlat" End If End Sub Bu Sefer Kodlarımız Çalışmayacaktır.. Diğer Bir Örnek.. Mesala Bir Program Yaptık Ama Kimsenin İzinsiz Kullanmasını İstemiyoruz.. Napalım Napalım Diye Düşünürken Aklımıza Birden Şifre Koruması Koyalım Dedi Tmm Güzel Fikir Hadi Yapalım Hemen Yeni Bir Form Ekliyoruz.. Formumuza Bir Tane TextBox1 Koyuyoruz..ve Birde Command1 Butonu Ekliyoruz.. Form1 formumuzun Caption Özelliğini Şifreyi Giriniz Yapıyoruz... Ve ya Ne İsterseniz.. bir tane label1 ekliyoruz (Burda şifremizi Koyucaz) bir tane daha form ekliyoruz. Kodlamada ki Mantık Şu Olacaktır. Eğer Text1 kutusunun içerisinde Text ler Label1 in Capitonuna Eşitse O Zmn Devam Et.. Eğer Şifre Yanlışsa O Zaman Programı KApat.. Hadi Bağalım... Text1 Ekledik Command1 Butonun Capiton Özelliğini "Giriş Yap" Yapıyoruz. Label1' in caption özelliğini Şifremiz İle Değiştiriyoruz.. Mesala 1234 Yaptım ben. Label1' in Visible Özelliğini False Yapıyoruz Ki Labeldeki Şifremiz Görünmesin Artık Kodlamaya Geçelim Private Sub Command1_Click() If Text1.Text = Label1.Caption Then Unload Me Form2.Show Else MsgBox ("girdiğiniz şifre hatalıdır..Program Kapatılıyor..") Unload Me End If End Sub Şimdi Diyeceksiniz Ki Neden Label Kullandın Ne Gerek Vardı Direk İf Text1.text = "1234" Yapmadım uğraştırdın Bizi Neden Mi Label Kullanımı Bir Şeye Bağladık Label Yerine Bir Dosya İçindeki Yazıyı Okutalım.. MEsala c:\Windows\Koxpsifrem.xxx Dosyasındaki Textler Şifrem Olsun Ki Yeri Geldiğinde Proje Kodlarım Olmadanda Şifremi Değiştirebileyim Diye.. Bu Konuyu Özel Olarak Açıcam Orda Daha Güzel Bir Şekilde Anlıtıcam ... Kodların Hiç Biri Alıntı Değildir.. Parmaklarımın Ağrısını Hissetmeye Başladım  |
|
| Etiket |
| komutu, kullanımı |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Konu Araçları | |
| Stil | |
| |
Normal
