Dersizle Forumlarý

[font=Arial] ewet arkadaþlar cep telefonlarýmýzdaki gibi 3kere puk kodunu soran, yenliþ girilirse de 10 defaya mahsus olmak üzere puk kodunu soran,þifre dogru girildiginde hosgeldiniz,yanlis girildiginde ise lütfen müsteri hizmetlerine basvurunuz kartýnýza el konuldu yazan kodlarý girelim...

Private Sub Command1_Click()
1: ssifre = "1234"
2: puk = "123456789"
3: s = 1
4: p = 1
5: If s > 3 Then
GoTo 10:
Else
GoTo 6:
End If
6: ksifre = InputBox("açýlýs þifrenizi giriniz")
7: If ksifre = ssifre Then
GoTo 15:
Else
GoTo 8:
End If
8: s = s + 1
GoTo 5:
9: If p > 10 Then
GoTo 14:
Else
GoTo 11:
End If
10: MsgBox "Puk kodunuzu Giriniz"
GoTo 11:
11: kpuk = InputBox("puk kodu giriniz")
12: If kpuk = puk Then
GoTo 16:
Else
GoTo 13:
End If
13: p = p + 1
GoTo 9:
14: MsgBox "kartiniza el konuldu lütfen müsteri hizmetlerine basvurunuz"
End
15: MsgBox "hoþgeldiniz"
End
16: MsgBox "hoþgeldiniz"
17: End Sub