Ayuda con un Login !!

[llAudioslavell]

salu2 a todos  ^^ !!   bueno tengo un pequeño problema, talves alguien me pueda ayudar se lo agradecere mucho  ^^ !!

estoy realizando un sistema de login en visualbasic y mi code:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


       If rbtnadmin.Checked = True And rbtncon.Checked = False And txtpass.Text = "administrador" Then
           MsgBox("Hola Administrador Bienvenidos al internet", MsgBoxStyle.Information, "CyberControl v1.0")
       Else
           MsgBox("Contraseña del Administrador Incorrecta")
       End If

       If rbtnadmin.Checked = False And rbtncon.Checked = True And txtpass.Text = "controlador" Then
           MsgBox("Hola Controlador Bienvenidos al Interner ", MsgBoxStyle.Information, "CyberControl v1.0")
       Else
           MsgBox("Contraseña del Controlador Incorrecta")
       End If


   End Sub


bueno el resultado que tengo con estos codes no es lo que estaba esperando, yo quisiera que al selecionar al radioboton administrador y al ingresar la contraseña administrador en el texbox pass, me aparezca  un mensaje dandome la bienvenida, si se digita otro texto, me tiene que saltar un mensaje informandome que la contraseña es incorrecta.
Lo mismo para cuando seleccionen el radioboton controlador, al digitar la contraseña "controlador" y al darle click en el boton ingresar, me tiene que dar la bienvenida, de lo contrario si se digita otro texto lo mismo que en el caso anterior.....
recien estoy comenzando a practicar en visualbasic.... quisieera un poco de ayuda, se los agradeceria bastante ^^ !!!

[$Edu$]

Agregale un Exit Sub debajo de cada msgbox.
Eso hara que no lea el siguiente if si ya entro en uno, porque saldra del procedimiento.

[llAudioslavell]

Agregale un Exit Sub debajo de cada msgbox.
Eso hara que no lea el siguiente if si ya entro en uno, porque saldra del procedimiento.

        If rbtnadmin.Checked = True And rbtncon.Checked = False And txtpass.Text = "administrador" Then
            MsgBox("Hola Administrador Bienvenidos al internet", MsgBoxStyle.Information, "CyberControl v1.0")
        Else
            MsgBox("Contraseña del Administrador Incorrecta")
        End If
        Exit Sub

        If rbtnadmin.Checked = False And rbtncon.Checked = True And txtpass.Text = "controlador" Then
            MsgBox("Hola Controlador Bienvenidos al Interner ", MsgBoxStyle.Information, "CyberControl v1.0")
        Else
            MsgBox("Contraseña del Controlador Incorrecta")
        End If
        Exit Sub

esto fue lo que hize como me dijistes....  activado el radioboton administrador e insertando la contraseña correcta me funciona bien de igual forma ingresando una contraseña incorrecta, me sale el mensaje que quiiero. Pero el problema esta en el 2do radioboton, aun que digite la contraseña correcta que es controlador, me sale el mensaje "Contraseña del Administrador Incorrecta"  de la misma forma me sale el mismo mensaje al digitar otro texto osea una contraseña incorrecta,

espero que me allas entendido ^^ espero tu ayuda .. gracias

[llAudioslavell]

Agregale un Exit Sub debajo de cada msgbox.
Eso hara que no lea el siguiente if si ya entro en uno, porque saldra del procedimiento.

prove tambien con esto:

        If rbtnadmin.Checked = True And rbtncon.Checked = False And txtpass.Text = "administrador" Then
            MsgBox("Hola Administrador Bienvenidos al Interner Jozic", MsgBoxStyle.Information, "CyberControl v1.0")
            frm_administrador.Show()

        ElseIf rbtncon.Checked = True And rbtnadmin.Checked = False And txtpass.Text = "controlador" Then
            MsgBox("Hola Controlador Bienvenidos al Interner Jozic", MsgBoxStyle.Information, "CyberControl v1.0")
            frm_administrador.Show()

        End If

pero tambien lo unico que falta aqui es que me muestre un mensaje, informandome que si digita una contraseña incorrecta, que la contraseña es incorrecta....

Ojo: en la 2da condicion abro nuevamente el frm_administrador, por que todavia no tengo listo el frm_controlador....  ^^ espero que me entiendas .. gracias d ante mano ^^ !!

[Elemental Code]

.net, .net EVERYWERE!

no se .net pero pdes hacerlo asi.
(venga el pseudocodigo)

Código [Seleccionar] Expandir

if elbotondeadmin = true and elbotondeuser = false then
if contraceña = correctadeadmin then
  mostrar entraste macho
sino
  mostrar sos un queso
else (podes usar tambien "elseif botondeadmin = false and botondeuser = true then")
if contraceña = correctauser then
  mostrar sos groso,sabelo
else
  mostrar le erraste macho
endif
endif

Ahora traducilo

PD: haces doble comprovacion cosa que me parece raro, no puede haber dos radio buttons marcados al mismo tiempo :S

[llAudioslavell]

.net, .net EVERYWERE!

no se .net pero pdes hacerlo asi.
(venga el pseudocodigo)

Código [Seleccionar] Expandir

if elbotondeadmin = true and elbotondeuser = false then
if contraceña = correctadeadmin then
  mostrar entraste macho
sino
  mostrar sos un queso
else (podes usar tambien "elseif botondeadmin = false and botondeuser = true then")
if contraceña = correctauser then
  mostrar sos groso,sabelo
else
  mostrar le erraste macho
endif
endif

Ahora traducilo

PD: haces doble comprovacion cosa que me parece raro, no puede haber dos radio buttons marcados al mismo tiempo :S

talves una parte me entendistes mal... alo que yo quiero decir es que si marca la opcion del ardiobuton administrador ingresa a un formulario frmadministrador con un mensaje de que ingreso, de la misma manera para el radioboton de controlador... bueno provare como tu me dices...  al rato te cuent0o como me fue ^^ !!

[$Edu$]

Lee bien que puse, dije debajo de los msgbox, no debajo de todo ni nada, sino debajo de la linea de msgbox en cada uno

[BlackZeroX]

.

Código (vbnet) [Seleccionar] Expandir



If rbtnadmin.Checked and txtpass.Text = USER_ADMIN then
    if (txtpass.Text = USER_ADMIN_PASS) then
        'lo que tenga que ver con el USER_ADMIN, por ejemplo mostrar un Form.
        'Podemos aqui habilitar mas opciones o que se yo.
        return ' Creo que era return...
    end if
else
    if (txtpass.Text = USER_NOMARL_PASS and txtpass.Text = USER_NORMAL) then
        'lo que tenga que ver con USER_NORMAL, por ejemplo mostrar un form
        'Podemos aqui deshabilitar mas opciones o que se yo.
        return ' Creo que era return...
    end if
end if

'MsgBox "Contraseña Incorrecta, vuelva a intentar" ' mejor usar messagebox
MessageBox.Show("Contraseña Incorrecta, vuelva a intentar", "!¡")



@Elemental Code
Parece mas codigo de vbs que pseudocodigo.

Dulces Lunas!¡.

[Elemental Code]

@Elemental Code
Parece mas codigo de vbs que pseudocodigo.

Es Pseudopseudocodigo. 

Ahora al pibe, no entendi.
lo que yo te decia es lo que hizo el capo black arriba.
Fijate

[llAudioslavell]

Lee bien que puse, dije debajo de los msgbox, no debajo de todo ni nada, sino debajo de la linea de msgbox en cada uno

jeje disculpa amigo ^^  tambien me funciono de esa manera.. muchas gracias  les agradezco mucho !!!!

ahora ya estoy dentro de mi formulario principal y tengo otra duda  .....

tngo el 1er formulario frm_administrador y el 2do  frm_edicionnuevo, en el 1er formulario  tngo  un listbox con el nombre lst_codcab y en el 2do formulario  tengo un texbox con el nombre txt_codcab y un boton con el nombre btn_guardar, al activar el boton click en guardar se tendra que guardar, lo que digitaron en el texbox como por ejemplo "001", en el listbox del 1er formulario..... si me ayudaran un poco xfavor te agradeceria mas ^^ !!  o tengo que hacer un nuevo post ??