Başlangıç > Dökümanlar > Visual Basic (For, Do, While, Select, If)

Visual Basic (For, Do, While, Select, If)

For döngüsü:

For benim = 0 To 3 'Benim değişkeni için 0 dan 3'e kadar tekrarla

MsgBox "for " & benim 'Benim değişkenin değişen değerlerini yazdır

Next benim 'Benim döngüsüne devam et

MsgBox "for tamamlandı" 'Döngü bitti

 

 

 

Do while döngüsü:

bitti = False 'Değişkenimize değer atıyoruz

Do 'Burada emir veriyoruz, for gibi döngü sonu yok

Do While ToplamDeger < 3 'Ne yapmak istiyoruz, amacı buraya giriyoruz

ToplamDeger = ToplamDeger + 1 'ToplamDeger değişkeni her seferinde +1 artırılıyor

If ToplamDeger = 10 Then 'İstediğimiz koşul buysa

MsgBox "Bitti"

bitti = True 'bitti değişkenini True yapıyoruz

Exit Do 'Döngüdende çıkıyoruz

End If 'Koşulumuzu bitirdik

Loop

Loop Until bitti = True 'bitti değişkeni true olunca döngüyü sonlandır

 

 

 

While döngüsü:

While deger < 10 'deger hala 10'dan küçükse

deger = deger + 1 'her seferinde degerimize +1 ekliyoruz

Wend 'Döngü tekrarı

MsgBox deger 'Değer 10'dan küçük olmadığı için döngüden çıktı

 

 

 

Select case karar yapısı:

notunuz = InputBox("Notunuzu girin?", "") 'Değişkene değer atıyoruz

Select Case notunuz 'İşlem yapılacak değişkeni seçiyoruz

Case "1" 'İşlem yapılacak değişkenin değeri buysa işlem yapıyoruz

MsgBox ":("

Case "2"

MsgBox ":|"

Case "3"

MsgBox ":)"

Case "4"

MsgBox ":D"

Case "5"

MsgBox "xD"

Case Else 'İşlem yapılacak değişkenin değeri bulunamadıysa

MsgBox "^^"

End Select

 

 

 

If karar yapısı:

notunuz = InputBox("Notunuzu girin?", "TD Software") 'Değişkene değer atıyoruz

If notunuz = "" Then 'Hiçbirşey girilmişse

MsgBox "0-100 arası sayı girin"

ElseIf notunuz < 50 Then 'Girilen 2 den küçükse

MsgBox ":("

Else ' 50 den küçük değilse

MsgBox ":)"

End If

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: