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:
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 ^^ !!! :laugh:
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.
Cita de: $Edu$ en 20 Agosto 2011, 18:37 PM
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
Cita de: $Edu$ en 20 Agosto 2011, 18:37 PM
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 ^^ !!
.net, .net EVERYWERE!
no se .net pero pdes hacerlo asi.
(venga el pseudocodigo)
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 :P
PD: haces doble comprovacion cosa que me parece raro, no puede haber dos radio buttons marcados al mismo tiempo :S
Cita de: Elemental Code en 20 Agosto 2011, 22:18 PM
.net, .net EVERYWERE!
no se .net pero pdes hacerlo asi.
(venga el pseudocodigo)
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 :P
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 ^^ !!
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
.
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!¡.
Cita de: BlackZeroX▓▓▒▒░░ en 20 Agosto 2011, 22:46 PM
@Elemental Code
Parece mas codigo de vbs que pseudocodigo.
Es Pseudopseudocodigo. :P
Ahora al pibe, no entendi.
lo que yo te decia es lo que hizo el capo black arriba.
Fijate
Cita de: $Edu$ en 20 Agosto 2011, 22:37 PM
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 ??
Un consejo.
Por seguridad, si te preocupa o le interesa, no digas mensajes de salida como contraseña del administrador incorrecta, mejor decir incorrecto, no si es un administrador o loque sea. Lo di en clases de programación. Es para no dar pistas a los infractores.
Un saludo.
Cita de: Meta en 21 Agosto 2011, 12:25 PM
Un consejo.
Por seguridad, si te preocupa o le interesa, no digas mensajes de salida como contraseña del administrador incorrecta, mejor decir incorrecto, no si es un administrador o loque sea. Lo di en clases de programación. Es para no dar pistas a los infractores.
Un saludo.
gracias por tu concejo ^^ .... ;-)