[Code=’VB.NET’]Private Sub Command1_Click()
Dim rsayi, tahmin, den As Integer
Randomize Timer
rsayi = Int((Rnd * 50) + 1) ‘1 ile 50 arasında rastgele sayı üretiliyor
den = 1 ‘İlk denemesine 1 değerini atıyoruz
Do
tahmin = Val(InputBox(“(0-50 arası)Tahminiz??”))
Select Case tahmin ‘eğer tahmin edilen sayı
Case rsayi ‘üretilen sayi ise
MsgBox “Tebrikler, ” & den & ” seferde bildiniz!” ‘mesajı göster
Exit Sub ‘döngüden çık
Case Is > rsayi ‘tahmin edilen sayi üretilen sayıdan büyükse
MsgBox “Daha küçük bir sayi!” ‘mesajı göster
den = den + 1 ‘denemesini 1 artır
Case 0 ‘eğer hiçbir değer girilmemişse bitir..
Exit Sub
Case Is < rsayi 'tahmin edilen sayi üretilen sayıdan küçükse
MsgBox "Daha büyük bir sayı!" 'mesajı göster
den = den + 1 'denemesini 1 artır
End Select
Loop Until tahmin = 0
End Sub[/Code]
Projeyi İNDİR