Programalama > VISUAL BASIC

Sub a()
Randomize Timer
For I = 0 To 3
Text3(I) = Hex(Int(Rnd * 123456))
Label2 = Text3(0) & Text3(1) & Text3(2) & Text3(3)
Label1 = 0
Next
End Sub

Private Sub Command1_Click()
For s = 4 To 7
For g = 0 To 3
Next
Next
If Text3(7) = Hex(Val(Text3(0)) * 1000 / 8) Then
MsgBox "Doğru Şifre "
Else
MsgBox "Yanlış Şifre"
Label1 = Label1 + 1
If Label1.Caption = 3 Then
MsgBox "Şifreyi 3 Kez Yanlış Girdiniz"
End
End If
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
a
End Sub

Private Sub Text3_Click(Index As Integer)
Select Case Index
Case 0
Text3(7) = Hex(Val(Text3(0)) * 1000 / 8)
Case 1
Text3(6) = Hex(Val(Text3(1)) * 1000 / 8)
Case 2
Text3(5) = Hex(Val(Text3(2)) * 1000 / 8)
Case 3
Text3(4) = Hex(Val(Text3(3)) * 1000 / 8)
End Select
End Sub
 


by programmer =&gt&gt mesut alemdar yıldırım
seninle_olmakvarya_7@hotmail.com