basic de sayı tahmin oyunu

Dim SAYI As Integer
Dim TAHMINLER(19 1) As Integer
Dim SAYAC As Integer
Private Function PUANLAMA(say1 As Integer say2 As Integer) As Integer
PUANLAMA = 0
ASILSAYI = Right("000" & CStr(say2) 4)
TAHMINSAYI = Right("000" & CStr(say1) 4)

Private Sub TAHMIN()
Dim URETILENSAYI As Integer KONTROL As Integer
URETILENSAYI = CStr(CInt(Rnd * 9999))
KONTROL = URETILENSAYI
Do
SAYIDOGRU = True
URETILENSAYI = (URETILENSAYI + 1) Mod 10000
For i = 0 To SAYAC - 1
c = PUANLAMA(URETILENSAYI TAHMINLER(i 0))
If c <> TAHMINLER(i 1) Then SAYIDOGRU = False
Next
If URETILENSAYI = KONTROL Then
MsgBox "BEKLENMEYEN HATA"
Exit Sub
End If
Loop Until SAYIDOGRU = True
TAHMINLER(SAYAC 0) = URETILENSAYI
Text1.Text = URETILENSAYI
End Sub

Private Sub Command1_Click()
On Error Resume Next
SAYI = CInt(Text2.Text)
If Err.Number <> 0 Then
MsgBox "Tminde bulunduğunuz sayı hatalı..."
Exit Sub
ElseIf SAYI > 40 Then
MsgBox "Puantaj değeri 40 dan büyük olz..."
Exit Sub
End If
TAHMINLER(SAYAC 1) = SAYI
SAYAC = SAYAC + 1
TAHMIN
End Sub
Private Sub Form_Load()
SAYAC = 0
TAHMIN
End Sub

inşallah bunlardan çıkmaz

inş çıkmaz çıkarsa yandığımızın resmidir yada bunlardan çıksın en azından aşinayız ya başka bi oyun sorarsa

en güzel oyunu hoca oynadı bu kadar da olmaz ki çileden çıkarıyolar insanı

evet en güzel oyunu profesyonel.........çocuğu oynadı oynasın bakalım gün olur devran dönerrrrrr

(Yakında banlanacam) Yöneticilerden seven varmıydı bu hocayı

en banlama meraklısı benim hiç şakam yok

Hiç Şakası Yok Anında Yapar gözü karadır
Güzel bi Oyun ama Kodlardan anlamayan arkadaşlar vardır illaki Açıklama Yapıp Onlarıda Aydınlatmak Gerek Benceee..

bizde anlamıyoruz çoğu kodları nasıl açıklayacağız

banlama işide istediğini yapsın zararı kendisine bulamaz bu site ben gibisini :y03:sırf bu yüzden banlayacaksa buyursun

KenanizM demiş ki:

Hiç Şakası Yok Anında Yapar gözü karadır
Güzel bi Oyun ama Kodlardan anlamayan arkadaşlar vardır illaki Açıklama Yapıp Onlarıda Aydınlatmak Gerek Benceee..

şekerim sen anlamazsın bunlar ince işler sen git elektronik devre yap transistörlere bak falan ....

açıklama satırı yok kodlar bu yaz çalıştır anlarsın

çıkmadı canım çıkmadı ama daha beterinden çıktı.. bakalım internet sınavında bizleri ne gibi sürprizler beklior..