Bienvenido: ( Identificarse | Registrarse )      
Foros de Trucos Windows
1 2 3 4 5 6 7 8 
Reply to this topicStart new topicStart Poll

Outline · [ Estándar ] · Lineal+

> Dudas Ejercicios Visual Basic, Y demas lenguajes

rob1104
post Aug 29 2006, 01:01 AM
Publicado: #61


Xbox Live... The best thing ever happened around videogames
Group Icon

Grupo: Moderadores
Mensajes: 1.624
Registrado: 7-March 05
Desde: Matamoros, Tamaulipas, Mexico
Miembro nº: 93.342



sssssssssss todo sea por salir de la maldicion wacko.gif

Bueno mira vamos a hacerlo mas legible, tienes 2 textbox, txtNombre y txtEdad ok?, lo que quieres es repetir el contenido de txtNombre el numero de veces especificado en txtEdad, entonces, el bucle for tendria como minBucle a 1 y maxBucle el valor de txtEdad.. hasta ahi bien?

el codigo que debe ir entre el for debe ser que la etiqueta sea igual al contenido del txtNombre y el salto de linea vbcrlf, pero para ello tienes que igualarlo al anterior para que se vaya incrementando, es decir la etiqueta debe ser igual al contenido de la etiqueta mas el contenido de txtNombre mas el retorno de varro (VbCrLf), asi de simple, ya luego next i incrementa i en una, y asi sucesivamente hasta que i llegue a valer lo especificado en el valor de txtEdad y el bucle llegara a su fin

thumbsup.gif


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 29 2006, 01:32 AM
Publicado: #62


Unregistered









Una duda sobre el ejercicio 4, el de guille lo dejare para el final, y asi voy repasando conceptos.

Mi duda es:

Ya he conseguido hacerlo, pero kiero k el usuario tambien sea reconocido, quiero k la condicion sea , k cuando usuario y contraseña sean verdad , bienvenido ....
y cuando este mal verifike los datos....
Eso ya lo hize, pero sin el usuario... me expliko? aunke yo pongo flauta, o trompeta, si pongo la contraseña bien lo da por valido igualmente...
Esa es mi pekeña duda.

Un saludo.




Go to the top of the page
+Quote Post
ZeroFinished
post Aug 29 2006, 04:45 AM
Publicado: #63


Estudiante Otra Vez
Group Icon

Grupo: Miembros Vitalicios
Mensajes: 534
Registrado: 28-September 04
Desde: Copiapó - Chile
Miembro nº: 21.706



Eso lo haces con una condición (IF-END IF) jack.
Tienes que plantearte la lógica de la operación:
"Si lo que yo coloqué en el txt_usuario es distinto a la cuenta 'Administrador', entonces en la etiqueta de mensaje se mostrará: 'El usuario no existe' "

Ejemplo de lo anterior
CODE

If Trim(UCase(Txt_usuario.Text)) <> "ADMINISTRADOR" Then
   Label3.Caption = "Usuario no existe"
endif



El código de arriba presenta algunas reglas de validación como tu ya sabrás.

TRIM = Quita los espacios

Ejemplo: Si escribo en el Textbox " Administrador " lo considera como "Administrador".

UCase= Transforma todo a Mayúsculas.

Ejemplo: Si escribo en el Textbox "AdMinisTradoR" lo considera como "ADMINISTRADOR". Esto crea una uniformidad con la condición.

Espero que esto te ayude. Ahora tendrías que ser algo parecido en la password.

DATO SABROSO biggrin20jy.gif : Ubica la propiedad "Passwordchar" en el textbox que vas a utilizar para la clave. Agregale un asterisco y verás lo que pasa en tiempo de ejecución.

Saludos y que viva el estudio!!!


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 29 2006, 12:16 PM
Publicado: #64


Unregistered









Me ha kedado claro, pero sigo sin saber unirlo en un mismo Label.
Si yo pongo uno de los datos mal, k directamente me diga, k verifike los datos, etc, k cuando vuelva a pulsar el boton (cuando ya haya puesto mi contraseña bien, kiero k se borre el contenido del label k indica k estan mal los datos y k me me salga bienvenido...

CODE


Option Explicit


Private Sub Command1_Click()

If Trim(UCase(TxtContra.Text)) = "TW" Then

LblVerdad.Caption = "Bienvenido al sistema " & Trim(UCase(TxtUsuario))

Else

LblErroneo.Caption = "Los datos introducidos son incorrectos, por favor, verífiquelos. "

End If

If Trim(UCase(TxtUsuario.Text)) <> "ADMINISTRADOR" Then
  LblErroneo.Caption = "El usuario no existe"
End If
End Sub

{El ultimo párrafo me lo dijiste tu, zerofinished}




Se entiende lo k kiero hacer?

Un saludo.
Go to the top of the page
+Quote Post
RadicalEd
post Aug 29 2006, 06:40 PM
Publicado: #65


Desocupado Programando
Group Icon

Grupo: Moderadores
Mensajes: 634
Registrado: 7-February 05
Desde: SoloCodigo
Miembro nº: 76.900



QUOTE(JaCk_ZgZ @ Aug 29 2006, 02:32 AM)
Una duda sobre el ejercicio 4, el de guille lo dejare para el final, y asi voy repasando conceptos.

Mi duda es:

Ya he conseguido hacerlo, pero kiero k el usuario tambien sea reconocido, quiero k la condicion sea , k cuando usuario y contraseña sean verdad , bienvenido ....
y cuando este mal verifike los datos....
Eso ya lo hize, pero sin el usuario... me expliko? aunke yo pongo flauta, o trompeta, si pongo la contraseña bien lo da por valido igualmente...
Esa es mi pekeña duda.

Un saludo.
*


Esto lo puedes hacer con los operadores logicos, en este caso el operador AND 'Y' en español.
Un ejemplo seria:
SI me das un besito Y tu gastas ENTONCES' sons.gif sons.gif
Nena te invito a salir
SINO
Pos no hay plata pa' salir
FINSI
En VB seria así:

CODE
'Utilizemos las variables ya que estamos en esto
Dim sDesi1 as String
Dim sDesi2 as String
sDesi1 = txtDesicion1.Text
sDesi2 = txtDesicion2.Text
If sDesi1 = "me das un besito" And sDesi2 = "tu gastas" Then
   MsgBox ("Nena te invito a salir")
Else
   MsgBox ("Pos no hay plata pa' salir")
End If

Ves que facil, si fuera una desición con 2 posibles respuestas puedes usar el operador logico 'OR' o 'O' en español.
SI me das un besito OR tu gastas ENTONCES' sons.gif sons.gif
Nena te invito a salir
SINO
Pos no hay plata pa' salir
FINSI
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mr.X
post Aug 29 2006, 07:14 PM
Publicado: #66


Unregistered









Lo q me falta hacerle al ejercicio es esto:

Cuando pongan mal el usuario o la contraseña aparesca que estan mal en un mismo label es decir esto:

[Todo en un mismo Label]

ejemplo con el usuario mal:
El usuario es incorrecto verifique que este bien

ejempolo con la contraseña mal:
La contraseña es incorrecta verifique es este bien

-----------------------------------------------------------------------------------

En resumes es que si se equivocan en alguna opcion aparesca en un label pero q diga q es lo q esta mal y no q diga q verifique los dos texbox!

Saludos!

PD: Creo q era la duda que tenia JaCk_ZgZ
Go to the top of the page
+Quote Post
Mr.X
post Aug 29 2006, 09:49 PM
Publicado: #67


Unregistered









Miren por ahora voy haci:

CODE

Private Sub Command1_Click()
If Text1 = "Programacion" Then
Label4.Caption = "Bienvenido a TrucosWindow.net"
Else
Label4.Caption = "El usuario es incorrecto. Verifique que este bien"
End If
If Text2 = "Ejercicios" Then
Label5.Caption = ""
Else
Label5.Caption = "La contraseña es incorrecta. Verifique que este bien."
End If
End Sub

Private Sub Form_Load()
Label1 = "Escribe tu usuario y contraseña para identificarte en TrucosWindows.net"
Labe2 = "Usuario"
Label3 = "Contraseña"
Label4 = ""
Text1 = ""
Text2 = ""
End Sub


pero si ponen la contraseña mal queda mal porque dice bienvenido..... y abajo la contraseña es incorrecta....

Espero me puedan explicar mi duda!!

Edit:

CODE

Label2 = "Usuario"
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 29 2006, 10:03 PM
Publicado: #68


Unregistered









No esta mal, para k no te rayes te aviso.

Casi abajo del todo en el Form_Load Pone Labe2 = "Usuario" y supongo k sera Label2.

Tengo k confesar k mi programa al principio era muy parecido al de Mrx, pero yo keria poner en un mismo Label k estan mal los datos... pero vamos si kieren lo pongo tipo Mrx, jeje.

Weno Radicaled, te entendi muy bien, ahora voy probar el asuntillo.


Go to the top of the page
+Quote Post
Mr.X
post Aug 29 2006, 10:09 PM
Publicado: #69


Unregistered









ups!! me falto un !L! ya la voy a modificar!! gracias por el detalle

Edit: yo tambien quiero q aparesca en un solo Label pero nu se como.. ya pregunte (arriba) y toy esperando alguna respuesta smile.gif
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 29 2006, 10:34 PM
Publicado: #70


Unregistered









Ahora cuando lo intente te ayudo va?

Saludos
Go to the top of the page
+Quote Post
RadicalEd
post Aug 29 2006, 11:07 PM
Publicado: #71


Desocupado Programando
Group Icon

Grupo: Moderadores
Mensajes: 634
Registrado: 7-February 05
Desde: SoloCodigo
Miembro nº: 76.900



QUOTE(Mr.X @ Aug 29 2006, 08:14 PM)
Lo q me falta hacerle al ejercicio es esto:

Cuando pongan mal el usuario o la contraseña aparesca que estan mal en un mismo label es decir esto:

[Todo en un mismo Label]

ejemplo con el usuario mal:
El usuario es incorrecto verifique que este bien

ejempolo con la contraseña mal:
La contraseña es incorrecta verifique es este bien

-----------------------------------------------------------------------------------

En resumes es que si se equivocan en alguna opcion aparesca en un label pero q diga q es lo q esta mal y no q diga q verifique los dos texbox!

Saludos!

PD: Creo q era la duda que tenia JaCk_ZgZ
*


A ver si te entiendo Mr.X tú lo que quieres es comparar 2 cadenas y si alguna de las 2 es falsa 'tonces te diga en el label cual de ellas fallo ¿Es así o no?.
Si es así puedes utilizar una desición anidada:

CODE
If txtNombre = "RadicalEd" Then
    If txtPassword = "no les doy mi password de TW solo lo sabe uno de los jefes" Then
               label1.Caption = "Bienvenido al sistema"
   Else
               label1.Caption = "Password incorrecto"
   End If
Else
   label1.Caption = "Usuario incorrecto"
End If

Una cosa es que puedes anidar tantos If como quieras, pero si son muchos en ese caso deberias usar el Case.

Ojala te sirva Chao.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 29 2006, 11:58 PM
Publicado: #72


Unregistered









Intente esto pero va a ser k no es lo correcto, probe con or, con and, pero na. les dejo el Code.

CODE

Option Explicit

Private Sub Command1_Click()
Dim Decla1 As String
Dim Decla2 As String
Decla1 = TxtUsser.Text
Decla2 = TxtPass.Text

If Trim(UCase(Decla1)) = "jack" Or Trim(UCase(Decla2)) = "tw" Then

LblVerdad = "Bievenido " & Trim(UCase(Decla1)).Text

Else

LblMentira = "Los datos introducidos son incorrectos, por favor, verífiquelos."

End If

End Sub

Go to the top of the page
+Quote Post
Mr.X
post Aug 30 2006, 12:18 AM
Publicado: #73


Unregistered









Bueno ya lio hice pero no como yo queria!!

CODE

If Text2 = "Ejercicios" Then
Label4.Caption = "Bienvenido a TrucosWindows.net."
Else
Label4.Caption = "Error: Los datos puestos son incorrectos. Verifique que esten bien."
End If
Else
Label4.Caption = "Error: Los datos puestos son incorrectos. Verifique que esten bien."
End If
End Sub

Private Sub Form_Load()
Label1 = "Escribe tu usuario y contraseña para identificarte en TrucosWindows.net"
Label2 = "Usuario"
Label3 = "Contraseña"
Label4 = ""
Text1 = ""
Text2 = ""
End Sub


Esta todo bien???

a y como ago para q cuando se cierre el programa aparesca un nuevo cartel q fue creado por mi!! :D
Go to the top of the page
+Quote Post
ZeroFinished
post Aug 30 2006, 03:02 AM
Publicado: #74


Estudiante Otra Vez
Group Icon

Grupo: Miembros Vitalicios
Mensajes: 534
Registrado: 28-September 04
Desde: Copiapó - Chile
Miembro nº: 21.706



Bueno chicos, la idea es que vayamos practicando todos y me incluyo. Como ya dijimos esto se puede hacer de muchas formas así que acá les paso el codigo que valida todo dentro del mismo label, o sea lo que querían ustedes:

CODE

Private Sub cmd_comprobar_Click()
Dim mensaje1 As String, mensaje2 As String

If Trim(UCase(txt_nombre.Text)) = "ADMINISTRADOR" Then
   mensaje1 = "El usuario está correcto"
Else
   mensaje1 = "El usuario está incorrecto"
End If
If Trim(UCase(txt_passwd.Text)) = "ESMICONTRASEÑA" Then
   mensaje2 = "La contraseña está Correcta"
Else
   mensaje2 = "La contraseña está incorrecta"
End If

If mensaje1 = "El usuario está correcto" And mensaje2 = "La contraseña está Correcta" Then
   lb_mensaje.Caption = "Bienvenido a Trucoswindows.net"
Else
   lb_mensaje.Caption = mensaje1 & " y " & mensaje2
End If
End Sub


Declaro dos variables mensaje1 y mensaje 2 que me servirán como las combinaciones posibles que se pueden formar entre dos textbox. Al final pregunto si el usuario y la contraseña es correcto que aparezca el mensaje de bienvenida; o si no los mensajes combinados.

Juzguen ustedes mismos si andan cerca, si lo hicieron mejor o si no tenían idea... La idea(valga la redundancia) es que vayamos tomando conciencia de como utilizar la lógica en estos casos.

Saludos.

ZeroFinished. thumbsup.gif

PD: El proximo ejercicio no va con tanta ayuda jejejeje.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 30 2006, 01:58 PM
Publicado: #75


Unregistered









No funciona como debe...

CODE

Option Explicit

Private Sub Cmd_Verificar_Click()
Dim Decla1 As String, Decla2 As String
TxtUsser.Text = Decla1
TxtContra.Text = Decla2

If Trim(UCase(Decla1)) = "jack" Then

LblUsserBien.Caption = "Usuario correcto"

Else

LblUsserMal.Caption = "Usuario incorrecto"

End If

If Trim(UCase(Decla2)) = "tw" Then

LblContraBien = "La contraseña es correcta"

Else

LblContraMal = "Contraseña incorrecta"

End If

If LblUsserBien.Caption = "Usuario correcto" And LblContraBien.Caption = "La contraseña es correcta" Then
LblTw = "Bienvenido a TrucosWindows," & Trim(UCase(Decla1))

Else
LbltwNo = "Aún no te has registrado."

End If

End Sub
Go to the top of the page
+Quote Post

 
1 2 3 4 5 6 7 8
Reply to this topicTopic OptionsStart new topic

Collapse

> Topicos similares

Sobre Windows Vista Home Basic SteveMorrison 137 2 Aug 31 2008, 03:45 PM
By: SteveMorrison
Visual C 6.0 con Windows Vista edysol 63 1 Aug 30 2008, 05:03 PM
By: elranix
DUDAS SOBRE "DAEMON TOOLS" lordrein 105 1 Aug 29 2008, 12:49 PM
By: rioj
DUDAS SOBRE "DAEMON TOOLS" lordrein 0 0 Aug 29 2008, 12:35 PM
By: lordrein
dudas para jugar en red Elvio 68 1 Aug 29 2008, 01:22 AM
By: RedPhoenix

Google
Web www.trucoswindows.net