Autor
|
Tema: Ayuda con un Login !! (Leído 7,560 veces)
|
llAudioslavell
Desconectado
Mensajes: 177
|
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:](https://foro.elhacker.net/Smileys/navidad/laugh.gif)
|
|
« Última modificación: 21 Agosto 2011, 00:21 am por raul338 »
|
En línea
|
|
|
|
$Edu$
Desconectado
Mensajes: 1.842
|
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
|
|
|
|
llAudioslavell
Desconectado
Mensajes: 177
|
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
|
|
|
|
llAudioslavell
Desconectado
Mensajes: 177
|
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: 622
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 ![:P](https://foro.elhacker.net/Smileys/navidad/tongue.gif) PD: haces doble comprovacion cosa que me parece raro, no puede haber dos radio buttons marcados al mismo tiempo :S
|
|
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
llAudioslavell
Desconectado
Mensajes: 177
|
.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](https://foro.elhacker.net/Smileys/navidad/tongue.gif) 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.842
|
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
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
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 pm por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
@Elemental Code Parece mas codigo de vbs que pseudocodigo.
Es Pseudopseudocodigo. ![:P](https://foro.elhacker.net/Smileys/navidad/tongue.gif) Ahora al pibe, no entendi. lo que yo te decia es lo que hizo el capo black arriba. Fijate
|
|
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
llAudioslavell
Desconectado
Mensajes: 177
|
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 ![:-\](https://foro.elhacker.net/Smileys/navidad/undecided.gif) ..... 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
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
ayuda con login
PHP
|
DJmixmancar
|
0
|
1,718
|
14 Octubre 2008, 04:08 am
por DJmixmancar
|
|
|
ayuda con mi login
PHP
|
General Dmitry Vergadoski
|
2
|
2,183
|
6 Marzo 2014, 00:41 am
por #!drvy
|
|
|
Ayuda con este login
.NET (C#, VB.NET, ASP)
|
migyn12
|
1
|
1,990
|
16 Mayo 2015, 06:22 am
por ThunderCls
|
|
|
Ayuda con login en java
« 1 2 »
Java
|
robertoht
|
10
|
6,558
|
15 Agosto 2015, 06:49 am
por robertoht
|
|
|
ayuda con login php
PHP
|
xavidenia
|
6
|
5,106
|
18 Noviembre 2016, 11:28 am
por xavidenia
|
|