Yardım edebilicek varmı

[BigHomie^]

Uygulamayı açtığımız da bi kayıt olma paneli gelicek kayıt olunca giriş yapma paneli gelicek. Bunu kodlayabilicek varmı?

 

[ShouldIDie]

Yaparım dc'den ulaş UunknowTR#5108

 

[W0RZ0NE]

buyrun :
if textbox1.text = "belirliceğin kullanıcı adı" and textbox2.text = "belirliceğin şifre"
msgbox(GİRİŞ BAŞARILI)
else
msgbox(YANLIŞ ŞİFRE)

 

[BigHomie^]

buyrun :
if textbox1.text = "belirliceğin kullanıcı adı" and textbox2.text = "belirliceğin şifre"
msgbox(GİRİŞ BAŞARILI)
else
msgbox(YANLIŞ ŞİFRE)

kanka o kadar bilgim var ben kayit olma falan istiyoeum

 

[dear Dai]

form2.show :d?

 

[BigHomie^]

form2.show :d?

güldük eğlendik

 

[eskadem]

güldük eğlendik

sajdsadsad

 

[EasyyHax]

bir form olustur
Sol üstten projeye tikla en altta uygulama adi + ozellikler yazar onu ac sol taraftaki ayar butonuna tikla ve k.adi ve sifre yaz
1 button 2 textbox ekle
textbox1 k.adi
textbox2. sifre
button1 kayit ol
button1 tikla icine sunlari yaz
My.settings.kullanici = textbox1.text
My.settings.sifre = textbox2.text
My.settings.save()

 

[sefa37]

kardeşim mantığı şu form açılırken sorgu yap kayıtlıysa girişe yölendir örneği şu şekilde
settings oluştur kadı.pass,kayıtlıkullanıcı diye
form loada
if my.settings.kayıtlıkullanıcı = "kayıtlı" Then
giris.show
else
kayıt.show
end if

kayıt ol buttonunada şu şekilde
my.settings.kadı=textbox1.text
mysettings.pass=textbox2.text
my.settings.kayıtlıkullanıcı = "kayıtlı"
my.settings.save

 

[Cromeflex]

Eğer internetten veri alarak yapmak veya insert etmek istiyosan mysql ogren youtubede türk kaynaklı anlatıcı çok işe yarar bilgiler var yada program lodinda c ye hesaplar adında not defteri oluşturursun verileri oraya kaydeder giriş kısmındada çekerek giriş yaptirabilirsin

Post automatically merged: 2 Kas 2019

Eğer dahala yapamadıysan özel mesaj yolla sana proje yaparım müsait olursam

 

[halobaba63]

#ÜYE OLMA KODLARI

        Dim ad As Byte
        Dim şif As Byte
        ad = Len(TextBox1.Text)
        şif = Len(TextBox2.Text)
        If TextBox1.Text = "" Then
            MsgBox("lütfen Giriş yapabilmek için bir Rumuz belirleyiniz", MsgBoxStyle.Critical)
        ElseIf TextBox2.Text = "" Then
            MsgBox("lütfen Giriş yapabilmek için bir Şifre oluşturunuz", MsgBoxStyle.Critical)
        ElseIf TextBox3.Text = "" Then
            MsgBox("lütfen Şifre tekrar kısmına aynı şifrenizi giriniz", MsgBoxStyle.Critical)
        Else
            If ad <= 2 Then
                MsgBox("Lütfen en az 3 en fazla 20 harfli bir Rumuz oluşturunuz.", MsgBoxStyle.Critical)
            ElseIf şif <= 3 Then
                MsgBox("Lütfen en az 4 en fazla 8 harfli bir Şifre oluşturunuz.", MsgBoxStyle.Critical)
            ElseIf TextBox2.Text = TextBox3.Text Then
                My.Settings.id = TextBox1.Text
                My.Settings.sifre2 = TextBox2.Text
                My.Settings.Save()
                MessageBox.Show("Rumuzunuz : " & TextBox1.Text + Environment.NewLine + "Şifreniz : " & TextBox2.Text + Environment.NewLine + "Kayıt işleminiz tamamlanmıştır.", "KAYIT BAŞARILI", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Form2.Show()
                Me.Close()
            Else
                MsgBox("Girilen Şifreler birbiriyle eşleşmiyor lütfen tekrar deneyiniz.", MsgBoxStyle.Critical)
                TextBox2.Clear()
                TextBox3.Clear()
            End If
        End If
        

#GİRİŞ YAP KODLARI

        Dim ad As Byte
        Dim şif As Byte
        ad = Len(TextBox1.Text)
        şif = Len(TextBox2.Text)
        If TextBox1.Text = "" Then
            MsgBox("lütfen Giriş yapabilmek kullanıcı adı belirleyiniz!", MsgBoxStyle.Critical)
        ElseIf TextBox2.Text = "" Then
            MsgBox("lütfen Giriş yapabilmek için bir şifre oluşturunuz", MsgBoxStyle.Critical)
        Else
            If ad <= 2 Then
                MsgBox("Lütfen en az 3 en fazla 20 harfli bir Rumuz oluşturunuz.", MsgBoxStyle.Critical)
            ElseIf şif <= 3 Then
                MsgBox("Lütfen en az 4 en fazla 8 harfli bir Şifre oluşturunuz.", MsgBoxStyle.Critical)
            ElseIf TextBox1.Text = My.Settings.id And TextBox2.Text = My.Settings.sifre Then
            Else
                Me.Hide()
                Form1.Show()
            End If
        End If

 

[Cromeflex]

neyine yardım edek kankam

 

[kamaci4444]

Bilen biri yardım eder hocam beklemede kalın

 

[mowen1]

Senin icin arastiracagim