Dim mesaj as String
mesaj="Hello World"
label1.Text=mesaj
İki Sayıyı Toplamak;
Dim sayi1 as Integer
Dim sayi2 as Integer
Dim sonuc as Integer
sonuc=sayi1+sayi2
label1.Text=sonuc
Vb'nin en güzel tarafıda noktalama ve büyük-küçük düzeltmesini yapmasıdır.
İF KULLANIMI
If Textbox1.Text=3 then ' TextBox'a girilen sayının 3'e eşit olup olmama durumunu kontrol eder.
MsgBox("Sayı 3 'e eşit")
Else
MsgBox("Sayı 3'e eşit değildir")
(İç-içe if kullanımı mevcuttur)
FOR DÖNGÜSÜ
Dim i as Integer
For i=0 to 10
label1.Text=i
Next
MsgBox(i)
For döngüsünü daha kısa kullanımı olarak;
For i as Integer=0 to 10
.
.(İşlemler)
.
.
Next
Do While
1.Kullanım
Dim sayi as Integer=1
Do While sayi<5
.
.
.
Loop
2.Kullanım
Dim sayi as Integer=1
Do
sayi+=1
Loop While sayi<5
3.Kullanım
Dim sayi as Integer=1
Do Until sayi>=5
sayi+=1
Loop
4.Kullanım
Dim sayi as Integer=1
Do
sayi+=1
Loop Until sayi>=5
NESNE OLUŞTURMA
Form üzerinde kullandığımız bütün nesneleri kod ile kendimiz oluşturabiliriz. Kolay bir örnek olarak;
Dim btn as Button
btn=new Button
me.Controls.add(btn)
Değişken tanımlar gibi btn nesnesi tanımlayıp Button classından türettik ve yeni bir buton oluştur. Bunun gibi istediğimiz nesneyi kod ile oluşturabiliriz. İleri de daha ayrıntılı örnekler vereceğim.

Hiç yorum yok:
Yorum Gönder