Bu kodları değerlendirebilirsiniz amaç pin puk yanlış doğru mu değil mesele burası değil kodu öğrenip daha güzel yerlerde kullanma askerdeyim direk proje atamıyorum
Vb6 yı acın forma bir buton ekleyin ve butona bu kodu ekleyin.
Vb6 yı acın forma bir buton ekleyin ve butona bu kodu ekleyin.
Kod:
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