- Aktiflik
- K.Tarihi
- 29 Kas 2010
- Mesajlar
- 276
- Puanı
- 106
Arkadaslar oncelıkle belırtmek ıstıyorum:Bu yazıcaklarımın hepsı okulda gordugum bıldıgım kadarıyla yazıcagım.
Kaynak BTT & Programlamanın temellerı defterım
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...
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ı
Örnek4o-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)
Ö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 pc’de 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...
Arkadaslar elımden gelenler bunlar.Yardımcı olabıldıysem ne guzel.Allaha emanet olun.
Kaynak BTT & Programlamanın temellerı defterım
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...
PHP:
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ı
PHP:
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... :D
Ö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
Örnek4o-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)
PHP:
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 pc’de 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...
PHP:
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 box’a 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.Allaha emanet olun.