none
Login de usuario RRS feed

  • Pergunta

  • 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

    sexta-feira, 16 de maio de 2014 09:05

Todas as Respostas

  • Olá,

    você não disse o que está acontecendo de errado. Nos fale seu problema ou dúvida.


    Wennder Santos

    Se solucionou seu problema ou dúvida, não esqueça de marcar como resposta. Se foi util, não esqueça de marcar como util.

    • Sugerido como Resposta Giovani Cr segunda-feira, 19 de maio de 2014 18:56
    sexta-feira, 16 de maio de 2014 11:50
  • ja foi resolvido, obrigado por tentar ajudar, devia ter dito o que estava errado
    sexta-feira, 1 de agosto de 2014 10:42