Programalama > VISUAL BASIC

Dim TutulanSayi As String
Dim TahminSayisi As Integer
Private Sub Command1_Click(Index As Integer)
Select Case Index
    Case 3: Unload Me
    Case 2:
    Text1.SetFocus
    If Val(Text1.Text) < 1000 Then GoTo HataVar
    For i = 1 To 4
    For j = i + 1 To 4
    If Mid(Text1.Text, i, 1) = Mid(Text1.Text, j, 1) Then GoTo HataVar
    Next j
    Next i
    ArtiSayac = 0
    EksiSayac = 0
    
    For i = 1 To 4
    For j = 1 To 4
    If Mid(Text1.Text, i, 1) = Mid(TutulanSayi, j, 1) And i = j Then ArtiSayac = ArtiSayac + 1
    If Mid(Text1.Text, i, 1) = Mid(TutulanSayi, j, 1) And i <> j Then EksiSayac = EksiSayac + 1
    Next j
    Next i
    Label5 = "+" & ArtiSayac
    Label6 = "-" & EksiSayac
    TahminSayisi = TahminSayisi + 1
    Combo1.AddItem Text1.Text & " " & Label5.Caption & "  " & Label6.Caption
    If ArtiSayac = 4 Then
       Label7.Caption = "Tebrikler " & TahminSayisi & ". Aşamada Bildiniz"
       Label1.Visible = True
       Label2.Visible = True
       Label3.Visible = True
       Label4.Visible = True
       End If
    If TahminSayisi = Val(Text2.Text) Then
       TahminSayisi = 0
       Command1(2).Enabled = False
       Label1.Visible = True
       Label2.Visible = True
       Label3.Visible = True
       Label4.Visible = True
       Label7.Caption = "Üzgünüm Oyunu Kaybettin...."
       End If
    Case 1: Command1(0).Visible = True
            Command1(0).SetFocus
            Timer1.Enabled = False
            Command1(1).Visible = False
            Command1(2).Enabled = True
            Label1.Visible = False
            Label2.Visible = False
            Label3.Visible = False
            Label4.Visible = False
            Label7.Caption = "Tahmin Edilen Sayı Nedir ?"
            Text1.SetFocus
    
    Case 0: Command1(0).Visible = False
            Label1.Visible = True
            Label2.Visible = True
            Label3.Visible = True
            Label4.Visible = True
            Label5.Caption = ""
            Label6.Caption = ""
            Label7.Caption = "Sayi Tutuluyor"
            Timer1.Enabled = True
            Command1(1).Visible = True
            Command1(1).SetFocus
            Command1(2).Enabled = False
            Text1.Text = ""
            Combo1.Clear
End Select
Exit Sub
HataVar:
Dim Cevap
Cevap = MsgBox("Girilen sayıda Bir Hata Var", vbInformation, "Hata Bildirimi")
End Sub
Private Sub Form_Load()
Me.BackColor = RGB(187, 173, 208)
Text1.BackColor = RGB(187, 173, 208)
With Command1(1)
     .Left = Command1(0).Left
     .Top = Command1(0).Top
     .Visible = False
End With
Command1(2).Enabled = False
Label7.Caption = "Oyunu Başlatmak İçin Bir Sayı Tutturunuz"
Text2.Text = 20
End Sub

Private Sub MnCetele_Click()
If MnCetele.Checked = True Then
   MnCetele.Checked = False
   Combo1.Visible = False
   Else
   MnCetele.Checked = True
   Combo1.Visible = True
End If
End Sub

Private Sub MnKapat_Click()
Unload Me
End Sub

Private Sub MnTahminSayisi_Click()
If MnTahminSayisi.Checked = True Then
   MnTahminSayisi.Checked = False
   Label8.Visible = False
   Text2.Visible = False
   Else
   MnTahminSayisi.Checked = True
   Label8.Visible = True
   Text2.Visible = True
End If
End Sub

Private Sub Timer1_Timer()
Randomize
Sayi1 = Int(Rnd * 10)
Label1.Caption = Sayi1
Sayi2 = Int(Rnd * 10)
Label2.Caption = Sayi2
Sayi3 = Int(Rnd * 10)
Label3.Caption = Sayi3
Sayi4 = Int(Rnd * 10)
Label4.Caption = Sayi4
SAYITUT:
If Sayi1 = 0 Or Sayi1 = Sayi2 Or Sayi1 = Sayi3 Or Sayi1 = Sayi4 Then
   Sayi1 = Int(Rnd * 10)
   Label1.Caption = Sayi1
   GoTo SAYITUT
   End If
If Sayi2 = Sayi3 Or Sayi2 = Sayi4 Then
   Sayi2 = Int(Rnd * 10)
   Label2.Caption = Sayi2
   GoTo SAYITUT
   End If
If Sayi3 = Sayi4 Then
   Sayi3 = Int(Rnd * 10)
   Label3.Caption = Sayi3
   GoTo SAYITUT
   End If
TutulanSayi = Label1 & Label2 & Label3 & Label4
End Sub
rem bu oyun için gerekliolan label text combo ve command butınlarini olusturunuz