Visual ßasicimiz Çalıştırıy0ruz.
Form Oluşturuy0ruz ßir tané vé
1 Téxt Kutusu
1 Tané ßutton
1 Tanédé édit yétérli..
ÖncéLikLé éditimizé "0-6" arası rakam gir diyéLim.
0ndan s0nra ßutt0numza géLip 2 kéré tıklıyalım vé Kod hanémizé géLéLim.
Téxt'i Öncéki Konumuza Yaptığımız gißi ßaşka ßir Harflé ifadé édélim
x = text1.Text oLsun Mésala
x = text1.text
x = val(x)
ßunu ßöylé yaptık Ama Şimdi Çoğunuz yada ßilmiyéniniz dicékki
iyidé kardéŞim ßu "val" nédir ?
Val Vbdé Sayı ßélirtildiği Yérlérdé Kullanılır Açılımı isé Valué dir.
ßiz 0rda démiş oldukki x téxt1 dir.x sayı déğéri alıcaktır dédik parantéz içindédé ßunu ßildirdik tékrar.
ßaşlangıcımı yapalım
Diğélimki 6 dan ßüyük sayı girildiğindé şu uyarıyı vér.
If x > 6 Then
MsgBox "6 dan ßüyük sayı girmé", vbCritical , "Hata !"
End If
ßurda dédikki éğér x 'é 6 ßüyük sayı girilirsé dikkat édin matématik Térimindén ">" ßüyük yani "x > 6" Mésaj vér vé Crtical Hata Démişiz Yani éLéştirén ßir şékildé Hata vér démişiz.Déwam édélim.Şimdi Asıl Séwgi ölçérimizé géçélim.
If x = 1 Then
MsgBox "ßéni Démékki Séwiy0rum diyé hép kandırdın", vbInformation ,"ßaşlık"
ElseIf x = 2 Then
MsgBox "o Güzél sözLérin hép yalandı démék ımm :(", vbInformation ,"ßaşlık"
ElseIf x = 3 Then
MsgBox "ç0k tuhaf dawranıy0rdun zatén git gidé", vbInformation ,"ßaşlık"
ElseIf x = 4 Then
MsgBox "ßénimLé görüşmék istémiy0san lütfén kéndiné dikkat ét :(", vbInformation ,"ßaşlık"
ElseIf x = 5 Then
MsgBox "offf :( nédéN hép yalanlar béni ßulur", vbInformation ,"ßaşlık" 
ElseIf x = 6 Then
MsgBox "OLéyyy Séwiy0sun Démékkiiiiii", vbInformation,"ßaşlık"  
End If
dédikki x = 1 x 'é 1 dénildiğindé şu 2 dénildiğnidé şu 3 déĞildiğindé şunu göstér dédik kodumuzun tamam haLi ;
Private Sub Command1_Click()
x = Text1.Text
x = Val(x)
If x > 6 Then
MsgBox "hatyttttttttttt", vbCritical, " x"
End If
If x = 1 Then
MsgBox "ßéni Démékki Séwiy0rum diyé hép kandırdın", vbInformation, "ßaşlık"
ElseIf x = 2 Then
MsgBox "o Güzél sözLérin hép yalandı démék ımm :(", vbInformation, "ßaşlık"
ElseIf x = 3 Then
MsgBox "ç0k tuhaf dawranıy0rdun zatén git gidé", vbInformation, "ßaşlık"
ElseIf x = 4 Then
MsgBox "ßénimLé görüşmék istémiy0san lütfén kéndiné dikkat ét :(", vbInformation, "ßaşlık"
ElseIf x = 5 Then
MsgBox "offf :( nédéN hép yalanlar béni ßulur", vbInformation, "ßaşlık"
ElseIf x = 6 Then
MsgBox "OLéyyy Séwiy0sun Démékkiiiiii", vbInformation, "ßaşlık"
End If
End Sub
Kolay géLsin..