Bienvenido: ( Identificarse | Registrarse )      
Foros de Trucos Windows
Closed TopicStart new topicStart Poll

Outline · [ Estándar ] · Lineal+

> Ejercicios Visual Basic 6.0

Mr.X
post Dec 3 2006, 12:43 AM
Publicado: #1


Unregistered









Bueno Robbie como te prometi aqui esta la primera ronda mañana o pasado mañana ago la segunda porque tengo q leer la guia del Guille.

Ronda1: Descargar

PD: Para no ocupar mas lugar cuando termine las otras rondas las voy a ir postenado aca Saludos!


Go to the top of the page
+Quote Post
Mr.X
post Dec 5 2006, 02:08 AM
Publicado: #2


Unregistered









Holas... bueno hoy lunes una hora antes de comer me sente a hacer el ejercicio 1 de la 2 ronda y tengo 1 problema miren a lo q quiero llegar es q al programa lo hice pero no como yo quiero!!

Este es el codigo de mi programa (no como yo lo quiero):

CODE

Private Sub Command1_Click()
   If UCase(Text1) = "TRUCOSWINDOWS" And UCase(Text2) = "PROGRAMACION" Then
   Label4 = "Bienvenido a la programacion de TrucosWindows.net."
   Else
   Label4 = "Los datos puestos son incorrectos, verifique que esten bien."
   End If
End Sub

Private Sub Form_Load()
   Label1 = "Escribe tu username y password para identificarte en TrucosWindows.net."
   Label2 = "Username:"
   Label3 = "Password:"
   Label4 = ""
   Text1 = ""
   Text2 = ""
End Sub


Este programa lo q hace es esto:

El password y el username bien: bienvenida.
El password bien y el username mal: revisa los dos texbox
El password mal y el username bien: revisa los dos texbox
El password y el username mal: revisa los dos texbox

lo q yo quiero q llegue a hacer:

El password y el username bien: bienvenida.
El password bien y el username mal: revisa el username
El password mal y el username bien: revisa lel password
El password y el username mal: revisa los dos texbox

estube un rato tratando de hacerlo y llegue a este codigo:

CODE

Private Sub Command1_Click()
   If UCase(Text1) = "TRUCOSWINDOWS" Then
   If UCase(Text2) = "PROGRAMACION" Then
   Label4 = "Bienvenido a la programacion de TrucosWindows.net."
   Else
   Label4 = "El password es incorrecto, verifique que este bien."
   End If
   Else
   Label4 = "El username es incorrexto, verifique que este bien."
   End If
End Sub

Private Sub Form_Load()
   Label1 = "Escribe tu username y password para identificarte en TrucosWindows.net."
   Label2 = "Username:"
   Label3 = "Password:"
   Label4 = ""
   Text1 = ""
   Text2 = ""


y no quedo como yo queria.. quedo haci:

El password y el username bien: bienvenida.
El password bien y el username mal: revisa el username
El password mal y el username bien: revisa el password
El password y el username mal: revisa el password confused.gif confused.gif (porque vas a revisar el password si los dos texbox estan mal?????) tendria q aparece: revisa los dos texbox

bueno espero me puedan dar una mano

saludos!!


Go to the top of the page
+Quote Post
RadicalEd
post Dec 5 2006, 02:13 PM
Publicado: #3


Desocupado Programando
Group Icon

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



CODE
Private Sub CommandButton1_Click()
If UCase(tx1.Text) = "LEROLERO" Then
  If UCase(tx2.Text) = "SOLOCODIGO" Then
    MsgBox "Bienvenido"
  Else
    MsgBox "Password mal"
  End If
Else
  MsgBox "usuario mal"
End If
End Sub

A mi me funciona de esta manera, nota que lo único que cambie fue agregar la propiedad .Text de los TextBox.


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mr.X
post Dec 5 2006, 08:30 PM
Publicado: #4


Unregistered









RadicalEd:

a tu programa le pasa lo mismo q al mio...

proba hacer esto con tu programa.. despues de poner el codigo apreta F5 y en los 2 texbox pone los datos mal!! mira q es lo q te aparece!! bueno a mi con tu codigo me aparece q lo q esta mal es el username y lo q tendria q aparecer es q los dos texbox estan mal...

bueno yo voy a seguir probando!!

gracias de todos modos saludos!!
Go to the top of the page
+Quote Post
Mr.X
post Dec 5 2006, 08:42 PM
Publicado: #5


Unregistered









haber si con este codigo entendes lo q quiero hacer.... pero tampoco me sale porque cuando pongo el password mal y el username mal me aparece q esta el "username mal" mientras q me tendria q aparecer "todo mal"

CODE

Private Sub Command1_Click()
  If UCase(Text1) = "TW" Then
  If UCase(Text2) = "TW2" Then
  If UCase(Text1) = "TW" And UCase(Text2) = "TW2" Then
  Label4 = "bienvendio"
  Else
  Label4 = "todo mal"
  End If
  Else
  Label4 = "password mal"
  End If
  Else
  Label4 = "username mal"
  End If
End Sub


EDIT: Otra pregunta para q el programa quede mejor... como ago para q mientras escriba en un texbox en ves de aparecer las letras aparescan asteriscos (*)??
Go to the top of the page
+Quote Post
RadicalEd
post Dec 6 2006, 02:50 PM
Publicado: #6


Desocupado Programando
Group Icon

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



A mi me funciona a la perfección por que dudas de mí ranting.gif ranting.gif nono.gif por que crees que lo, puse por que primero lo probe, para la segunda hay una propiedad en los TextBox que se llama PasswordChar, le colocas el asterisco como caracter y listo.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mr.X
post Dec 6 2006, 05:22 PM
Publicado: #7


Unregistered









No. no me malinterpretes no dudo de ti ese programa tuyo anda bien... no me etiendes pero no hace lo q yo quiero q aga..

Igual gracias por ayudarme.. eso despues lo veo ya tengo toda la 2 ronda hecha y la voy a postear despues de subirla... a y gracias tmb por el PasswordChar!!!
Go to the top of the page
+Quote Post
Mr.X
post Dec 6 2006, 05:55 PM
Publicado: #8


Unregistered









Bueno.. Como no puedo editar el primer post q hice.. posteo las descargas aca:

Ronda1: Descargar
Ronda2: Descargar

Bueno.. ahora a seguir con el manual del guille para la 3er ronda! clap.gif
Go to the top of the page
+Quote Post
rob1104
post Dec 7 2006, 09:11 PM
Publicado: #9


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

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



Excelente me avisan cuando terminen los de la 3a ronda para ir preparando la cuarta, espero que Jack regrese tmb y elranix jeje,

Saludos
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

 
Closed TopicTopic OptionsStart new topic

Collapse

> Topicos similares

Reinstalar Vista Basic OEM sin disco vemv91 158 4 Sep 26 2008, 08:15 PM
By: vemv91
Visual Basic 6.0 Se Cierra... :( Lizeth22 132 3 Sep 25 2008, 09:06 PM
By: vitrox2007
Problema Visual Basic 6 y XML Lizeth22 59 3 Sep 24 2008, 07:22 AM
By: rob1104
Windows Vista Home Basic de 32 bits SteveMorrison 160 1 Sep 13 2008, 08:42 AM
By: jbex
Sobre Windows Vista Home Basic SteveMorrison 183 2 Aug 31 2008, 03:45 PM
By: SteveMorrison