Cevap:
TextWindow.Title="Sayı Bulmaca (0-100)"
TextWindow.BackgroundColor = "Blue"
TextWindow.ForegroundColor = "White"
TextWindow.Top = 99
TextWindow.Left = 99
basla:
TextWindow.Clear()
TextWindow.WriteLine("0 ile 100 arasında bir sayı tuttum. 10 hakkın var. Kolaysa bul bakalım :)")
TextWindow.WriteLine("")
TextWindow.WriteLine("Sayı Gir:")
Sound.PlayBellRing()
Sayi=Math.GetRandomNumber(100)
For x = 1 To 10
girilen = TextWindow.ReadNumber()
If (Sayi=girilen) Then
goto tebrik
EndIf
If (Sayi>girilen) Then
TextWindow.WriteLine("Daha büyük bir sayı girmelisin. " + (10-x) + " hakkın kaldı")
Else
TextWindow.WriteLine("Daha küçük bir sayı girmelisin. " + (10-x) + " hakkın kaldı")
EndIf
TextWindow.WriteLine("Sayı Gir:")
EndFor
TextWindow.WriteLine("Üzgünüm bilemedin. Enter tuşuna basıp yeniden oynayabilirsin")
TextWindow.Read()
Goto basla
tebrik:
TextWindow.WriteLine("Tebrikler! Bildiniz...")
TextWindow.WriteLine("Sayımız:" + Sayi + " idi")
TextWindow.WriteLine("Tekrar oynamak için Enter tuşuna basınız")
For z = 0 To 5
Sound.PlayBellRing()
Program.Delay(1000)
EndFor
TextWindow.Read()
Goto basla
Açıklama:
.
