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

RadicalEd
post Aug 30 2006, 04:49 PM
Publicado: #76


Desocupado Programando
Group Icon

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



QUOTE(JaCk_ZgZ @ Aug 30 2006, 02:58 PM)
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

*


Aquí estas equivocado, como le vas a asignar a un TextBox una variable no inicializada, yo creo que debe ser al revez matlingua5bi.gif
Decla1 = TxtUsser.Text
Decla2 = TxtContra.Text

Ahí si ya te puede hacer la desición por que las variables String están iniciadas con un valor dado por los TextBox.



User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mr.X
post Aug 30 2006, 05:49 PM
Publicado: #77


Unregistered









Bueno pues ya lo termine como yo queria!!

ahora a seguir con los otros!

Mi codigo del programa para ver si todo esta bien?? haci lo subo y lo posteo en ejercicios!

CODE

Private Sub Command1_Click()
If Text1 = "Programacion" Then
If Text2 = "Ejercicios" Then
Label4.Caption = "Bienvenido a TrucosWindows.net"
Else
Label4.Caption = "La contraseña es incorrecta. Verifique que este bien."
End If
Else
Label4.Caption = "El usuario es incorrecto. Verifique que este 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 = ""
Label5 = "By Mr.X - Ejercicios TrucosWindows.net"
Text1 = ""
Text2 = ""
End Sub


Saludos a todos!


Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 30 2006, 06:10 PM
Publicado: #78


Unregistered









No me funciono, radicaled.

Un saludete.


Go to the top of the page
+Quote Post
RadicalEd
post Aug 30 2006, 07:04 PM
Publicado: #79


Desocupado Programando
Group Icon

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



QUOTE(JaCk_ZgZ @ Aug 30 2006, 07:10 PM)
No me funciono, radicaled.

Un saludete.
*


ranting.gif Utiliza el if anidado ranting.gif
read.gif

sons.gif sons.gif sons.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 30 2006, 08:53 PM
Publicado: #80


Unregistered









Joe... no piensen k soy tonto...
¡¡¡¡k ya he entendido el problema, k rayaooooo,!!! cambiando una sola cosa he descubierto como hacer el programa de muchas maneras, cuando termine los demas , les pongo varias... alternativas.

Gracias a todos,

Me permitis dirgirme a un miembro un momento?

Radicaled, k se puede hacer if anidado o no, funciona, ya os dire cual fue el fallo...

Graciasss

Un saludo.

Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 30 2006, 11:43 PM
Publicado: #81


Unregistered









Tengo one duda con el 5 pero kiero k me ayuden en algo.

Con poner k es positivo o negativo no hay problema, pero cuando es el numero 0 si... porke me dice k es otra cosa.

Un saludo.

P.d : Se llevaran una grata sorpresa tongue.gif smile.gif
Go to the top of the page
+Quote Post
rob1104
post Aug 31 2006, 01:06 AM
Publicado: #82


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

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



basicamente solo tienes que hacer 3 comparaciones ahi te va el pseudocodigo
CODE
si el numero es mayor que cero
    entonces el numero es positivo
de lo contrario si el numero es menor que cero
    entonces el numero es negativo
de lo contrario
    el numero es cero
fin de si


thumbsup.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 31 2006, 02:13 AM
Publicado: #83


Unregistered









poz no furula bien, sigue fayando algun detalle. confused.gif
QUOTE
si el numero es mayor que cero
    entonces el numero es positivo
de lo contrario si el numero es menor que cero
    entonces el numero es negativo
de lo contrario
    el numero es cero
fin de si


Lo entiendo pero aplicarlo al visual se ve k no muy bien.

Un saludo.

Alguna pistilla pekeñita pekeñita? mas k nada kiero k me digais ...
"de lo contrario" pero no es un Else?¿
Go to the top of the page
+Quote Post
Mr.X
post Aug 31 2006, 02:38 AM
Publicado: #84


Unregistered









q es lo q esta mal de esto

CODE

Private Sub Command1_Click()
If Text1.Text = "Programacion" And Text2.Text = "Ejercicios" And Text3.Text >= 18 Then
Label5.Caption = "Bienvenido a la zona para adultos."
Else
Label5.Caption = "No tienes acceso a esta zona. Verifica tus datos esten bien."
End If
End Sub


porque esta todo bien ya lo probe pero si dejo un texbox sin llenar me salta un error
Go to the top of the page
+Quote Post
ZeroFinished
post Aug 31 2006, 02:55 AM
Publicado: #85


Estudiante Otra Vez
Group Icon

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



Es que estas tratando de comparar un string con un valor númerico.

Acá está la corrección:
CODE

Private Sub Command1_Click()
If Text1.Text = "Programacion" And Text2.Text = "Ejercicios" And Val(Text3.Text) >= 18 Then
Label5.Caption = "Bienvenido a la zona para adultos."
Else
Label5.Caption = "No tienes acceso a esta zona. Verifica tus datos esten bien."
End If
End Sub


Un saludo victory.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mr.X
post Aug 31 2006, 03:05 AM
Publicado: #86


Unregistered









Gracias me falto ese detallito :x

Bueno haber si todo esta bien!!

saludos

CODE

Private Sub Command1_Click()
If Text1.Text = "Programacion" And Text2.Text = "Ejercicios" And Val(Text3.Text) >= 18 Then
Label5.Caption = "Bienvenido a la zona para adultos."
Else
Label5.Caption = "No tienes acceso a esta zona. Verifica tus datos esten bien."
End If
End Sub

Private Sub Form_Load()
Label1 = "Para acceder a la zona de adultos tienes q tener 18 o más años."
Label2 = "Usuario:"
Label3 = "Contraseña:"
Label4 = "Edad:"
Label5 = ""
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Go to the top of the page
+Quote Post
rob1104
post Aug 31 2006, 03:15 AM
Publicado: #87


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

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



Oye jack imagino que etsas usando la funcion val en los textbox, mira puedes hacerlo de otra forma si se te hace mas simple:
CODE
si numero es mayor que cero entonces
   el numero es positivo
fin si
si numero es menor que cero entonces
   el numero es negativo
fin si
si numero es igual a cero entonces
   el numero es cero
fin si


thumbsup.gif

Edito: Ya vi la duda, donde digo "de lo contrario si" no es un else, es un elseif, solo en el ultimo caso si es un else

Saludos

Mensaje modificado por robbie110487 el Aug 31 2006, 03:18 AM
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 31 2006, 03:41 AM
Publicado: #88


Unregistered









robbie robbie, jeje, justamente es lo k utilize en el programa k ya hize y k esta proyectos, y no me funcioba el = 0, miradlos, haber k os parecen.

Elseif? ahora lo pruebo, gracias.

Un saludo.
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 31 2006, 04:29 AM
Publicado: #89


Unregistered









Yasta, ya lo conseguí, el problema era que yo ponía >= en vez de simplemente > weno, ya podeis verlos.

Saludete.

Go to the top of the page
+Quote Post
JaCk_ZgZ
post Sep 13 2006, 03:10 AM
Publicado: #90


Miembro Elite
****

Grupo: Members
Mensajes: 104
Registrado: 31-August 06
Miembro nº: 179.484



Ola!

Estaba leyendome la edicion sexta de la pagina de guille y k se imaginan, pues k tengo un par de dudas...

Si hablo de While Wend tengo una dudilla, copiare la cosa k no me aclara.

CODE

10 A = 1
20 While A <= 10
30    Print A
40    A = A + 1
50 Wend


hasta k yo se y he leido el while whend es un tipo If con Goto, si?

Primera línea : 10 A = 1 La fila 10, a =1
Segunda linea: Si A es menor o igual k 10 entonces...
Tercera linea: imprimira A en pantalla
Cuarta linea: Esto es un tipo de bucle?
Quinta linea: Wend. Fin de condicion.

K se pretende hacer ahi?


Luego...

Eso de Do Loop , lo k he entendido es que se puede utilizar junto al while wend, k cuando se utiliza con while wend es como un ''If Then'' sin ''Else''
.el until sirve para k hasta k no se cumpla algo, se kedara haciendo otra cosa o incluso nada... pero eso de poner el while loop?? Esperosu ayuda, y muchas gracias smile.gif

bye1.gif
User is offlineProfile CardPM
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

Visual C 6.0 con Windows Vista edysol 20 0 Hoy, 12:15 AM
By: edysol
DUDAS SOBRE "DAEMON TOOLS" lordrein 48 1 Ayer, 12:49 PM
By: rioj
DUDAS SOBRE "DAEMON TOOLS" lordrein 0 0 Ayer, 12:35 PM
By: lordrein
dudas para jugar en red Elvio 49 1 Ayer, 01:22 AM
By: RedPhoenix
dudas para la compra de porcesador arkus 107 4 Aug 25 2008, 10:54 PM
By: arkus

Google
Web www.trucoswindows.net