inputbox ile ilgili

[eskli]

mesela bilgisayar bir sayı tuttu ve ben o sayıyı inputbox ile tahmin etmek istiyorum bir döngü kuracağım ancak inputbox ı nasıl konumlandıracağım.
döngünün içine koymalıyım ki sayıyı bulamadığım her turda bana tekrar sorsun inputbox ile.
while wend döngüsünü nasıl oluştururum
örneğin tuttuğum sayı k
n = InputBox("sayı giriniz")
while n=k
....
wend
nasıl yapacağım yardımlar için teşekkürler

 

[eskli]

soru anlaşılmıştır inşallah
eksik olan bir şey varsa daha açıklayıcı olabilirim
yardımlarınızı bekliyorum
iyi çalışmalar

 

[Levent Menteşoğlu]

Sayı bulma oyunu ile ilgili olarak aşağıdaki kodu deneyin. 0-999 arası sayılar içindir.

[vb:1:081123d739]Sub sayitahmini()
sayi = Int(Rnd() * 1000)
10 sor = InputBox("Sayı tahmin ediniz.", "Sayı Tahmini")
c = c + 1
If sayi = sor * 1 Then GoTo 20
If sayi < sor * 1 Then MsgBox "AŞAĞI"
If sayi > sor * 1 Then MsgBox "YUKARI"
GoTo 10
20 MsgBox "TEBRİKLER..." & c & " Hamlede buldunuz."
End Sub
[/vb:1:081123d739]

 

[eskli]

sayın leventm

verdiğin örnek için teşekkür ederim ama kendim denediğim kodlarda aklım bazı yerlere takıldı

kitap1 de benim tuttuğum sayıyı bigisayar tahmin etmeye çalışıyor bu kod çalışıyor problem yok
kitap2 de ise ben bilgisayarın iki kutudaki sayılar arasında rassal olarak seçtiği sayıyı tahmin etmeye çalışıyorum ancak bir yerde yanlış yapıyorum inputbox a değer girdikten sonra doğru tahmin etmeme rağmen devam ediyor ve sonra çıkmak isterken hata veriyor çıkmıyor
yardım edersen sevinirim

 

[eskli]

pardon dosyalar

 

[eskli]

özür dilerim çünkü aynı anda iki dosyayı aynı anda göndermeyi bilmiyorum onu da söylerseniz sevinirim