Donguler Burada 2 ye Ayrılıyor...
Koşullu Döngüler ( Do while Loop, While End))
Sayaçlı Döngüler ( For Next )
Örnek1:While il 2 sayının toplamını bulan program...
Dim a, toplam As Integer
a=1
toplam = 0
While(a<=10)
toplam = toplam + a
a = a + 1
Wend
Print "Sayıların toplamı",toplam
Not:Bazı arkadaslar msgbox halınde yapmak ısteyebılır.Bunun ıcın prınt le yazdıgınız kod yerıne MsgBox atıyabılırler.Kucuk bır hatırlatma daha kolaylık olması ıcın Prınt yazmak ıcın "?" yazmanız yeterlı olucaktır.
Örnek2:For Dongusu ıle Çarpım Tablosu Yapımı
Dim a, dongu
a = Val(text1.text)
For dongu = 1 to 10
Prınt a & "x" & dongu & "=" & a * dongu
Next dongu
Kısa kodlarla acıklamalara devam edıyoruz...
Örnek3:While-wend döngüsü örneği
Randomize timer
Dim cT as integer
While cT<>1 cT 1 e eşit olmadıkça dön
cT=Rnd*10
wend
Örnek4:Do-loop örneği
Randomize timer rasgele sayı üretici açılıyor (VB 6.0 da gerek kalmıyor ama gene de açalım biz)
Dim cT as integer //tamsayı olabılmesı ıcın...
Do while cT<>1 cT 1 e eşit olmadıkça dön
cT=Rnd*10
loop
DipNOT: " // " bu ısaretın anlamı;Acıklama satırı ekler yanı ıstedıgınızı yazabılırsınız program calısma esnasında goruntulenmez fakat satırın ne ıse yaradıgını yazabılırsınız...Yanı acıklama satırı eklemek ıcın kullanılır.
Örnek5:For-Next Örnegi
Dim cT as integer cT //değişkenimizi tanımladık
For cT=1 to 50 aralığı belirledik
MsgBox cT adım & cT
Next cT sonraki adıma dön
...
For Next Döngüsünün yapısının şema ile incelenmesi
Örnek6:Saat yapımı
Arkadaslar suanda pcde vb yok fakat genede anlatmaya calısacagım.
Aşşagıdakı gıbı saat butonuna tıklayıp saatımızı acıyoruz...
Sonra butonumuza cıft tıklayıp ıslemın yapılması ıcın ıcıne kısacık 1 satırlık kodumuzu yazıyoruz...
Label1.Caption = Time
Tabı ısımız bu kadarla bıtmıyor...
Categorized Bolumunden Interval degerını 1000 yapıyoruz.
Buda bu kadar...
Örnek7:GoTo Dongusu...
Bu tip bir döngüye koşulsuz, döngü adını verebiliriz. Şartlar ve koşullar ne olursa olsun, çalışan komut satırı bu döngünün bulunduğu satıra geldiğinde GoTo deyimin gidilmesini istediği satıra gidilir.
Sub DonguGoTo()
Dim h As Integer
h = InputBox("1-100 arasında bir sayı giriniz")
GoTo topla
topla:
h = h + 20 //Bu satırda h=gırılen sayı h+20 gırılen sayının 20 fazlasını msg boxa yazıcaktır.
MsgBox "Girdiğiniz sayının 20 fazlası:" & h
End Sub
Arkadaslar elımden gelenler bunlar.Yardımcı olabıldıysem ne guzel.
Koşullu Döngüler ( Do while Loop, While End))
Sayaçlı Döngüler ( For Next )
Örnek1:While il 2 sayının toplamını bulan program...
Dim a, toplam As Integer
a=1
toplam = 0
While(a<=10)
toplam = toplam + a
a = a + 1
Wend
Print "Sayıların toplamı",toplam
Not:Bazı arkadaslar msgbox halınde yapmak ısteyebılır.Bunun ıcın prınt le yazdıgınız kod yerıne MsgBox atıyabılırler.Kucuk bır hatırlatma daha kolaylık olması ıcın Prınt yazmak ıcın "?" yazmanız yeterlı olucaktır.
Örnek2:For Dongusu ıle Çarpım Tablosu Yapımı
Dim a, dongu
a = Val(text1.text)
For dongu = 1 to 10
Prınt a & "x" & dongu & "=" & a * dongu
Next dongu
Kısa kodlarla acıklamalara devam edıyoruz...
Örnek3:While-wend döngüsü örneği
Randomize timer
Dim cT as integer
While cT<>1 cT 1 e eşit olmadıkça dön
cT=Rnd*10
wend
Örnek4:Do-loop örneği
Randomize timer rasgele sayı üretici açılıyor (VB 6.0 da gerek kalmıyor ama gene de açalım biz)
Dim cT as integer //tamsayı olabılmesı ıcın...
Do while cT<>1 cT 1 e eşit olmadıkça dön
cT=Rnd*10
loop
DipNOT: " // " bu ısaretın anlamı;Acıklama satırı ekler yanı ıstedıgınızı yazabılırsınız program calısma esnasında goruntulenmez fakat satırın ne ıse yaradıgını yazabılırsınız...Yanı acıklama satırı eklemek ıcın kullanılır.
Örnek5:For-Next Örnegi
Dim cT as integer cT //değişkenimizi tanımladık
For cT=1 to 50 aralığı belirledik
MsgBox cT adım & cT
Next cT sonraki adıma dön
...
For Next Döngüsünün yapısının şema ile incelenmesi
Örnek6:Saat yapımı
Arkadaslar suanda pcde vb yok fakat genede anlatmaya calısacagım.
Aşşagıdakı gıbı saat butonuna tıklayıp saatımızı acıyoruz...
Sonra butonumuza cıft tıklayıp ıslemın yapılması ıcın ıcıne kısacık 1 satırlık kodumuzu yazıyoruz...
Label1.Caption = Time
Tabı ısımız bu kadarla bıtmıyor...
Categorized Bolumunden Interval degerını 1000 yapıyoruz.
Buda bu kadar...
Örnek7:GoTo Dongusu...
Bu tip bir döngüye koşulsuz, döngü adını verebiliriz. Şartlar ve koşullar ne olursa olsun, çalışan komut satırı bu döngünün bulunduğu satıra geldiğinde GoTo deyimin gidilmesini istediği satıra gidilir.
Sub DonguGoTo()
Dim h As Integer
h = InputBox("1-100 arasında bir sayı giriniz")
GoTo topla
topla:
h = h + 20 //Bu satırda h=gırılen sayı h+20 gırılen sayının 20 fazlasını msg boxa yazıcaktır.
MsgBox "Girdiğiniz sayının 20 fazlası:" & h
End Sub
Arkadaslar elımden gelenler bunlar.Yardımcı olabıldıysem ne guzel.
