Doomsday is approaching
Ultra Üye
Basit bir Üye Olma programı yaptım, yaklaşık 7-8 dk mı aldı, bilmeyenler var ise programı aşağıya bırakıyorum.
Aceleye geldi
V.B ile yapıldı.
Videodan bakarak yaptım, genelde benim tasarımlar kötü olduğu için.
İndirme Linki
Bağlantıları görmek için lütfen
Giriş Yap
VirusTotal Linki
Bağlantıları görmek için lütfen
Giriş Yap
VirüsTotal da virüs zanneden arkadaşlar,sonuç da kodlama yapıyoruz, her kodlamada illa ki 1 virüs olarak algılar, virüs kesinlikle yoktur.
Visual Basic:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = My.Settings.id And TextBox2.Text = My.Settings.sifre Then
Form3.Show()
Me.Close()
Else
MsgBox("Girilen Şifre veya Kullanıcı Adı Hatalı", MsgBoxStyle.Critical, "HATA")
TextBox1.Text = ""
TextBox2.Text = ""
End If
End Sub
End Class
Public Class Form2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Settings.adsoy = TextBox1.Text
My.Settings.id = TextBox2.Text
My.Settings.sifre = TextBox3.Text
My.Settings.Save()
MsgBox("Başarılı bir şekilde üye oldunuz. " & vbNewLine & "Aramıza Hoşgeldin ;) ")
Form1.Show()
Me.Close()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class
Public Class Form3
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.Text = "Ailemize Hoşgeldin Seni Aramızda Görmekten Mutluluk Duyarız ;) "
Label2.Text = "İsmin " & vbNewLine &
vbNewLine &
My.Settings.adsoy
Label3.Text = "Bilgilerin " & vbNewLine &
vbNewLine &
"Kullanıcı Adın : " & My.Settings.id & vbNewLine &
"Şifren : " & My.Settings.sifre
End Sub
Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
End
End Sub
Son düzenleme: