Arkadaşlar Eski Sürümlerden Başlayıp Visual Basic de Ders Vermek İstedim Bunun İçin Bu Yazıyı Yazıyorum :).O Yüzden İlk Olarak VB6 dan başlayıp C# a Kadar Gidicez :).
Kod:
Dim a
Private Sub Command1_Click()
If Text1.Text = "ßy_Zed" And Text2.Text = "admin" Then
Form1.Hide
Form2.Show
Else
a = a + 1
MsgBox "Kullanıcı Adı Ve Şifreyi Kontrol Edin", , "Zed Error"
End If
If a = 3 Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox "3 Kere Hatalı Giriş Yaptınız", , "Uyarı!!!"
MsgBox "Kapatılıyor", , "LogOut"
Form1.Hide
Form2.Hide
End If
End Sub
Dim a
Private Sub Command1_Click()
If Text1.Text = "ßy_Zed" And Text2.Text = "admin" Then
Form1.Hide
Form2.Show
Else
a = a + 1
MsgBox "Kullanıcı Adı Ve Şifreyi Kontrol Edin", , "Zed Error"
End If
If a = 3 Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox "3 Kere Hatalı Giriş Yaptınız", , "Uyarı!!!"
MsgBox "Kapatılıyor", , "LogOut"
Form1.Hide
Form2.Hide
End If
End Sub
Bu yazıyı sitenizde/forumunuzda paylaşmak için aşağıdaki linkleri kullanabilirsiniz..
Etiketler: Ders Genel Webmaster Konuları
Yazar Hakkında - Barış Ertaş
Bizi Facebook ve Twitter Üzerinden De Takip Edebilirsiniz..
Visual Basic 6 Videolu Ders için “0 yorum” bulunmaktadır.