Bom dia
Estou a desenvolver um trabalho para a escola e quero fazer um form inicial que peça o nome e a palavra passe do usuario
-Para criar um usuario e preciso entrar na conta de administrador ja definido na programação
O que fiz ate agora foi isto:
PARTE DE CRIAÇÃO DE UM USUARIO
Structure utilizador
Dim nome As String
Dim pass As Char
End Structure
Public dados(1001) As utilizador
Public i As Integer = 0
Private Sub bt_create_Click(sender As Object, e As EventArgs) Handles bt_create.Click
If tb_nomeut.Text <> dados(i).nome And tb_pwadmin.Text = "32132164749169" Then
For i = 0 To 1000
dados(i).nome = tb_nomeut.Text
dados(i).pass = tb_passut.Text
Next
MsgBox("Criado com sucesso")
F_home.Show()
Me.Hide()
Else
MsgBox("Esse nome ja existe")
End If
End Sub
PARTE DE VERIFICAÇÃO DE USUARIO(AREA DE LOGIN)
Private Sub bt_check_Click(sender As Object, e As EventArgs) Handles bt_check.Click
If tb_nome.Text = "Administrador" And tb_pw.Text = "32132164749169" Then
f_programa.Show()
Me.Hide()
End If
If tb_nome.Text <> "Administrador" And tb_pw.Text <> "32132164749169" Then
For f_create.i = 0 To 1000
If tb_nome.Text = f_create.dados(f_create.i).nome And tb_pw.Text = f_create.dados(f_create.i).pass Then
f_programausers.Show()
Me.Hide()
End If
Next
If tb_nome.Text <> f_create.dados(f_create.i).nome And tb_pw.Text <> f_create.dados(f_create.i).pass Then
MessageBox.Show("Dados incorretos", "Menssagem", MessageBoxButtons.OK)
End If
End If
End Sub
Nao me esta a correr muito bem, podem-me ajudar?
ainda agora comecei e ja estou com problemas ahahh
Cumprimentos a todos
Login de usuario
