Kullanıcı:Mustafaavci25

Vikipedi, özgür ansiklopedi



Function f(x) f = x ^ 2 + 12125 * x - 13458 End Function

Private Sub Command1_Click()

 If Text2.Text <> Hex(Text1.Text / 2 * 3) Then
      MsgBox "Yanlış Şifre girdiniz.", , "HATALI ŞİFRE"
 Else
      MsgBox "Şifre doğrulandı.", , "ŞİFRE"
 End If

End Sub

Private Sub Form_Load() Randomize Timer x = Rnd * 15785 Dim Parametre Parametre = Text2.Text Text1 = Int(f(x)) End Sub