Visual Basic Giriş Sistemi

[Carizmatic]

Gerekenler:

2 Tane TextBox
2 Tane Label
1 Tane Button

istediğiniz şekilde yerleştiriyoruz bunları

Form1'e bu kodları giriyoruz :

Private Sub Command1_Click() 
If Text1 = "Kullanıcı Adı" And Text2 = "Şifre" Then 
Me.Hide 
Form2.Show 
MsgBox " Giriş Başarılı" 
Else 

If Text1 = "Kullanıcı Adı" And Text2 = "Şifre" Then 
Me.Hide 
Form1.Show 
Else 
If Text1 = "" And Text2 = "" Then 
MsgBox "Kullanıcı adı ve şifreyi girin" 
End If 
End If 
End If 
End Sub

Sonra bir form daha açıyoruz form2 oluyor

Sonrada exe yapıyoruz

Mantık:
Kullanıcı adı ve şifreyi girince form2'yi açıyor form1 kapanıyor form1'i istediğiniz gibi düzenleyin orasi giriş yapılmış kısım

 

[Hurricane]

Üyelik alınınanı söyle düzenleye bilirsiniz.:

Eklenecekler:

Form1:Giriş ve üyelik ekranı
Form2: Programımız


Form1'e Eklenecekler:

Frame1
Frame2


Frame1'e Eklenecekler:

Label1
Label2
Text1
Text2
Command1
Shape1
Shape2


Frame2'ye Eklenecekler:

Label3
Label4
Text3
Text4
Command2


Kod:
Private Sub Command1_Click()
If Text1.Text = Text3.Text And Text2.Text = Text4.Text Then
MsgBox "Giriş onaylandı.", vbOKOnly, "Başarılı!"
Form1.Hide
Form2.Show
Else
MsgBox "Kullanıcı Adı/Şifre Hatalı", vbCritical, "Başarısız!"
End If
End Sub

Private Sub Command2_Click()
MsgBox "Kayıt olundu", vbApplicationModal, "Başarılı!"
Frame2.Visible = False
Form1.Width = 3030
End Sub

Private Sub Text1_Change()
If Text1.Text = Text3.Text Then
Shape1.FillColor = &HFF00&
Else
Shape1.FillColor = &HFF&
End If
End Sub

Private Sub Text2_Change()
If Text2.Text = Text4.Text Then
Shape2.FillColor = &HFF00&
Else
Shape2.FillColor = &HFF&
End If
End Sub

Private Sub Form_Load()
'frame 1 özellikler
Frame1.Height = 1695
Frame1.Width = 2535
Frame1.Left = 120
Frame1.Top = 240
Frame1.Caption = "Giriş Yap"
'frame 2 özellikler
Frame2.Height = 1695
Frame2.Width = 2535
Frame2.Left = 2880
Frame2.Top = 240
Frame2.Caption = "Kayıt Ol"
'form 1 özellikler
Form1.Height = 2760
Form1.Width = 5790
'label 1 özellikler
Label1.Height = 255
Label1.Width = 855
Label1.Left = 120
Label1.Top = 240
Label1.Caption = "Kullanıcı Adı"
'label 2 özellikler
Label2.Height = 255
Label2.Width = 975
Label2.Left = 120
Label2.Top = 600
Label2.Caption = "Şifre"
'text 1 özellikler
Text1.Height = 255
Text1.Width = 975
Text1.Left = 1080
Text1.Top = 240
Text1.Text = none
'text 2 özellikler
Text2.Height = 255
Text2.Width = 975
Text2.Left = 1080
Text2.Top = 600
Text2.Text = none
Text2.PasswordChar = "*"
'command 1 özellikler
Command1.Height = 615
Command1.Width = 975
Command1.Left = 1200
Command1.Top = 960
Command1.Caption = "Giriş Yap"
'label 3 özellikler
Label3.Height = 255
Label3.Width = 975
Label3.Left = 120
Label3.Top = 240
Label3.Caption = "Kullanıcı Adı"
'label 4 özellikler
Label4.Height = 255
Label4.Width = 975
Label4.Left = 120
Label4.Top = 600
Label4.Caption = "Şifre"
'text 3 özellikler
Text3.Height = 255
Text3.Width = 1335
Text3.Left = 1080
Text3.Top = 240
Text3.Text = none
'text 4 özellikler
Text4.Height = 255
Text4.Width = 1335
Text4.Left = 1080
Text4.Top = 600
Text4.Text = none
Text4.PasswordChar = "*"
'command 2 özellikler
Command2.Height = 615
Command2.Width = 975
Command2.Left = 1200
Command2.Top = 960
Command2.Caption = "Kayıt Ol"
'shape 1 özellikler
Shape1.FillStyle = 0
Shape1.FillColor = &HFF&
Shape1.Height = 255
Shape1.Width = 255
Shape1.Left = 2160
Shape1.Top = 240
'shape 2 özellikler
Shape2.FillStyle = 0
Shape2.FillColor = &HFF&
Shape2.Height = 255
Shape2.Width = 255
Shape2.Left = 2160
Shape2.Top = 600
End Sub