Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales
 Autor
|
Tema: Ayuda con un Login !! (Leído 1,132 veces)
|
Audioslave™
 Desconectado
Mensajes: 114
|
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 ^^ !!! 
|
|
|
|
« Última modificación: 21 Agosto 2011, 00:21 por raul338 »
|
En línea
|
|
|
|
$Edu$
Desconectado
Mensajes: 1.409
|
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.
|
|
|
|
|
En línea
|
Estado en el MSN:  |
|
|
Audioslave™
Desconectado
Mensajes: 114
|
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
|
|
|
|
|
En línea
|
|
|
|
Audioslave™
Desconectado
Mensajes: 114
|
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 ^^ !!
|
|
|
|
|
En línea
|
|
|
|
Elemental Code
Desconectado
Mensajes: 499
Im beyond the system
|
.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  PD: haces doble comprovacion cosa que me parece raro, no puede haber dos radio buttons marcados al mismo tiempo :S |
|
|
|
|
En línea
|
|
|
|
Audioslave™
Desconectado
Mensajes: 114
|
.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 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 ^^ !!
|
|
|
|
|
En línea
|
|
|
|
$Edu$
Desconectado
Mensajes: 1.409
|
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
|
|
|
|
|
En línea
|
Estado en el MSN: |
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.830
I'Love...!¡.
|
.
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!¡. |
|
|
|
« Última modificación: 20 Agosto 2011, 22:51 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
Elemental Code
Desconectado
Mensajes: 499
Im beyond the system
|
@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
|
|
|
|
|
En línea
|
|
|
|
Audioslave™
Desconectado
Mensajes: 114
|
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 ??
|
|
|
|
|
En línea
|
|
|
|
|
Meta
|
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.
|
|
|
|
|
En línea
|
|
|
|
Audioslave™
Desconectado
Mensajes: 114
|
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 ^^ .... 
|
|
|
|
|
En línea
|
|
|
|
|
 |
