intikal

İ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 Dedik
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:)

Chaliyus

Sağol işime yaradı :)

__________________
__________________________________________________ _______________________________

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
UYARI:
Aksini söylemedikçe konularım ALNITIDIR.


2008-.... KT

Eski Nick: CarismaLord

olcak061

Tşkkürler Güzel Paylaşım... :)