Programalama > VISUAL BASIC

VISUAL BASIC / Güzel Bir Şifre Verme Proğramı

Forma 2 Adet Command Buton 1 Adet Timer Ve 1 Adet Text &Amp&Amp#3541Textleri Ben Indexledim Ve 8 Adet Kullandım.Isterseniz Siz Indexlemedende Yapabilirsiniz.&Amp&Amp#3540Ekleyelim

Etiketler: güzel, bir, şifre, verme, proğramı

Ort. 0

Puan ver:

hazirkod 19 June 19:33 0

0 kişiden 0 puan aldı

5780

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