Visual Basic Pin-Puk Sorgulama Örneği

Visual Basic için örnek bir uygulama ile sizlerleyiz pin-puk sorgulama örneği geliştirilerek güzel bir hale gelebilir...

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