visual basic 6

Visual Basic 6 If-Else-Then Kodlar ve Kullanımı

vb6

Merhaba bu konumda elimde geldiğince okuyucularıma visualbasic 6 üzerinden if-then-else kodlarinin kulannımını anlatacağim ,başlayalim hemen.
Amaçladığımız koşulun yapılması ve yapılmaması halinde herhangi bir komutu aktifleştirebiliyoruz.
Örnek olarak yaparsak :

Visual Basic 6 If-Else-Then Kodlar ve Kullanımı

Amacımız textboxa girilen sayıları msgbox(mesajkutusu) ile göstermek.

Adet  CommandButton(command1)
Adet Textbox(text1)

Form’a çift tıklayıp kod alanını temizleyin ve verdiğim kodu aynen oraya yapıştırın.

Private Sub Command1_Click()
a = Text1.Text ‘ kolaylık sağlayalım kod kalabaliği olmasın
–more–
If a = 1 Then ‘eğer a yani textboxa 1 rakamıgirilirse
MsgBox “1 sayısını girdiniz”, , Form1.Caption ‘ bize mesajkutusu ile uyarı verilecek
Else ‘ diğer ihtimallerde
MsgBox “Başka bir rakam giridinz”, , Form1.Caption ‘mesaj kutusu ile uyarı alacağız
End If ‘ koşul kodunu bitirmek için
End Sub

Bir sürü ifthenelse kodunu kullanmaktansa vereceğim kod ile sadeleştirip tek kod içinde toplayabiliriz.

Private Sub Form_Load()
Form1.Caption = “Berkantkonac.com ” ‘silebilirsiniz
Command1.Caption = “Tıkla” ‘silebilirsiniz
End Sub

Private Sub Command1_Click()
a = Text1.Text ‘kod kalabaliği yapmaması için yazıyoruz.
a = Val(a) ‘bu kod kullanıslı bir kod bununla textboxtaki harfleri ayıklayıp sayıyı algılıyor program.
‘yani textboxa 1dsfdsf girilirse 1 sayısını algılayacak.
If a = 1 Then ‘ 1 yazarsak
MsgBox “1 sayısını girdiniz”
ElseIf a = 2 Then ‘ 2 yazarsak
MsgBox “2 sayısını girdiniz”
ElseIf a = 3 Then ‘ 3 yazarsak
MsgBox “3 sayısını girdiniz”
ElseIf a = 4 Then ‘ 4 yazarsak
MsgBox “4 sayısını girdiniz”
ElseIf a = 5 Then ‘ 5 yazarsak
MsgBox “5 sayısını girdiniz”
End If ‘ koşul cümlemizi bitirir
End sub

Dersimiz bu kadar arkadaşlar yaptıklarımızı özetlemek gerekirse ;

If koşul Then ‘yapısı eğer koşul yapılırsa

komut ‘koşul gerçekleşirse yapılacak komut

Else ‘gerçekleşmezse veya başka bir şey gerçekleşirse <span style=”color: #ff0000;”>Bu bölüm gerekli değildir If Then End If yapılabilir.</span>

komut ‘koşul gerçekleşmese veya başka bir şey gerçekleşirse yapılacak komut

End If ‘bu koşul kodumuz sonudur.

veya tek bir kodda toplanılacaksa çok koşul ;

If koşul then

komut

ElseIf  koşul then

Else If koşul then

End If

şeklinde yapilabilir.

Bugünlük dersimiz bu kadar herhangi bir sorunuzu yorum atarak danışabilirsiniz , aklınıza takılan herhangi bir şeyi elimden geldiğince kısa sürede cevaplayacağim.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir