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..






![[PisCodev3] Begeni scripti :) Gördüklerinizi unutacaksınız.](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEihsp-dYHkfh8bJ9xjfaYpDGEekBtD40wRYuRjD4k_GxN_0y1BMny7XZgs4N84LvTt1pkQdaMgC-S4Y1u9cULtdnAQZc6SaVjQGw9s-PzXtR_47hgpyIaMp-KSTqRClJSRIrFZX08DT1TDo/s72-c/u4jjg.png)

![PisCode v5 [ Beğeni Scripti ]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhe2-hTSXCyKkV04LyypOKoNs4FZVPLKjF_31pkpobWGuor27__vzmU7qweRPcDObtdYf5Codxc66c7b5rRvkSFGibegKUT-bW3re2G7neStEQc_BYgtC_Pl_S2ClqY2ug0GsrprC5ftgwm/s72-c/ukur56.png)


Visual Basic 6 Videolu Ders için “0 yorum” bulunmaktadır.