Yazılım - Program 20 Kasım 2014, 10:25

Visual basic 5 ten geriye sayan ve işlem yapan fonksiyon

Private Sub Form_KeyDown(keycode As Integer, shift As Integer)
If keycode = vbKeyReturn Then
Call Command1_Click
End If

End Sub
Private Sub Command1_Click()
On Error Resume Next
Timer1.Interval = “1000″
Label1.Caption = “5″ ‘hangi dakikadan geriye saydıracaksanız onu yazınız
Timer1.Enabled = True

If Timer1.Enabled = True Then

Dim a As Integer
sayi1 = Text1.Text
a = sayi1
sayi2 = “123″

If a = sayi2 Then
MsgBox “Sisteme Hoşgeldiniz”
Label1.Visible = True
Timer1.Enabled = True

End

ElseIf a <> sayi2 Then

MsgBox (“Dostum şifre yalnış tekrar dene lütfen”)
End If

End If

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) – 1 ‘Timer çalıştığı zaman yazılan rakamdan her saniyede 1 çıkaracak
If Label1.Caption = “0″ Then ‘Label1 0 olduğunda mesaj kutusu bizi aşağıdaki örnekte olduğu gibi uyaracak

MsgBox “Süre Bitti”
‘Timer i kapatıyoruz
Text1.Visible = False

Timer1.Enabled = False
End If

Static c, a
a = 5
c = c + 1
a = a – c
Label1.Caption = a & ” ” & “saniye içinde parolayı girin”
If c >= 5 Then
Text1.Visible = False
MsgBox (“Üzgünüm,zamanınız doldu”)
Timer1.Enabled = False
End If

End Sub

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)

Yazar Bilgileri

admin sedat.hackerr@gmail.com
Yazar, henüz hakkında herhangi bir bilgi paylaşımında bulunmamış.

Benzer İçerikler

Yorum Yap

*
instagram takipçi programı instagram hesap yönetimi programı twitter takipçi kazanma sitesi twitter takipçi arttırma sitesi twitter takipçi sitesi twitter takipçi kazanma hilesi twitter takipçi kasma hilesi twitter favori hilesi,yükseltme,hilesi,twitter takipçi kasma, hilesi,twitter takipçi hilesi twitter takipçi arttırma hilesi, twitter takipçi kazan, twitterda takipçi arttırmak twitter takipçi instagram takipçi arttırma hilesi, instagram takipçi kazan, instagramda takipçi arttırmak instagram programı instagram web viewer dizi izle yabancı dizi izle