VISUAL BASIC / Pin-Puk Sorgulama

HZ.CİN

Cin Terbiyecisi
Ultra Member
Joined
Dec 22, 2019
Topics
243
Messages
385
Reaction score
62
Location
Cehennem
VISUAL BASIC / Pin-Puk Sorgulama
Yeni Başlayanlar İçin...Derste Uygulama Olarak Yaptım Bende Yeni Yaptım Bunu.Yanlışım Varsa Lütfen Yazın :)


Code:
Private Sub Command1_Click()
Dim pin As Integer
Dim puk As Integer
Dim tekrar As Integer
tekrar = 0
pin = InputBox("pin numaranızı giriniz")
Do Until pin = "1995"
tekrar = tekrar + 1
If tekrar = 3 Then
MsgBox "deneme hakkın doldu bile"
Exit Do
End If
MsgBox "yanlıs pin girdiniz lutfen tekrar gırınız"
pin = InputBox("pin giriniz")
If pin = 1995 Then
End
End If
Loop
tekrar = 0
puk = InputBox("puk giriniz")
Do Until puk = "1357"
tekrar = tekrar + 1
If tekrar = 3 Then
MsgBox "uzgunuz sisteminiz bloke olmuştur"
End
Exit Do
End If
MsgBox "yanlıs puk numarası girdiniz"
puk = InputBox("puk giriniz")
If puk = 1357 Then
End
End If
Loop
End Sub
 

Top