Mensajes

Sí cierto es que lo puse yo por que no venia en el tutorial y como siempre me aconsejan ponerlo pues lo puse...

Saludos y muchas gracias a todos por ayudarme

muchas gracias amigos esto me sirve muchisimo

mira aquí un amigo me resumio una cosa bastante interesante

si te gusta la programación sera facilisimo ahora si tomas la programación por una obligación sera dificil..

programación que te aconsejo:

visual basic 6 programación orientada a objetos jeje

Saludos

Si amigo es por lo que dices pero que raro es que me dice en el tutorial que no hace falta pero ya veo que sí

gracias amigo de veras

Gracias amigo

Bueno amigos voy a realizar una aplicación  que se realicen tantas tiradas de dado como nos indique el usuario dentro del TextBox

Listbox que tendra como nombre Dado.

un commandBotton que tendrá como nombre y caption: Tirada

un textbox que pondremos nombre: NumTiradas y borra el contenido que aparece por defecto dentro de ese objeto..
aqui será donde indiquemos cuentas tiradas queremos realizar.

y este sería el código:

Código [Seleccionar] Expandir

Private Sub Tirada_Click()
For Contador = 1 To NumTiradas.Text
Dado.AddItem (Int(6 * Rnd) + 1)
Next Contador
End Sub

y al poner en el textbox por ejemplo el numero 5 o el 4 o el 3 o el 2 o el 1 incluso vacío salta un mensaje diciendo:

Error de compilación variable no definida y me subraya el nombre CONTADOR

Saludos amigos

Bueno para que me entendáis abrid vb6 porfavor y poned un commandButton
y ahora denle doble clic al commando y escriban lo siguiente:

Código [Seleccionar] Expandir

Azul = "Arriba"
print Azul

Con eso dentro del formulario se muestra la palabra "Arriba"

entonces quiero saber como se borra todo lo que haya escrito en el form1 (en este caso "Arriba)

espero que me hallan entendido Saludos

Bueno amigos tengo una duda y es que en este tutorial http://foro.elhacker.net/tutoriales_documentacion/tutorial_como_traducir_un_programa-t33324.0.html explica detallada mente como hacerlo pero.. mi duda es la siguiente..

Solo se puede hacer eso en programadas programados en vb6 y en python?
me refiero a que si yo me bajo un programa de softonic por ejemplo y lo instalo y ese programa también es .exe y esta en ingles y quiero pasarlo a español ¿se podría con los programas eso que te ponen en ese tutorial?

Saludos y gracias

Muchas gracias y gracias por verificar lo de Else 

Saludos

Bueno vamos a aprender a usar If... empecemos

Abrimos vb6 y presionamos EXE estándar...

Bien entonces vamos hacer un proyecto y a medidas que vamos avanzando explicare cada linea..

El proyecto sera que vamos a poner un texto que al presionarlo muestre el precio dentro de un label(bastante básico pero bastante fácil de comprender y eso es lo que cuenta)...


Bueno colocamos un textBox y borramos el contenido dentro que esta en la propiedad text

colocamos 3 labels y los colocamos abajo del todo y quitamos su propiedad caption y ponemos los siguientes:

Caption label1: Balón     (Atención cuidado con las mañusculas ponedlo todo igual que yo)
Caption Label2: Raqueta
Caption Label3: Ordenador

Ahora colocamos un commandButton al lado del textBox y modificamos solo la propiedad caption poniendo:
Mostrar Precios

Luego abajo de Mostrar precios ponéis otro label y en la propiedad caption de dicho label la quitáis y no pongáis nada..

Bien, ahora llego la parte del código, para ello damos doble clic a Mostrar precios (CommandButton)
y escribimos lo siguiente:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1.Text = "Balón" Then
Label4.Caption = "Balón"
End If
If Text1.Text = "Raqueta" Then
Label4.Caption = "Raqueta"
End If
If Text1.Text = "Ordenador" Then
Label4.Caption = Ordenador
End If
End Sub
Bien ahora modifiquemos los 3 labels de abajo..osea los 3 labels con los caption = Balon,Raqueta y ordenador

Bueno empezamos con Balón:  Damos doble clic a Balón

Código [Seleccionar] Expandir

Private Sub Label1_Click()
Text1.Text = "Balón"
End Sub

Ahora con Raqueta:

Código [Seleccionar] Expandir

Private Sub Label2_Click()
Text1.Text = "Raqueta"
End Sub


Ahora con Ordenador:

Código [Seleccionar] Expandir

Private Sub Label3_Click()
Text1.Text = "Ordenador"
End Sub

Bien ahora amos hacer correr la aplicación dandole a tecla f5
denle clic a Balón  o raqueta o ordenador y veréis que pasa y luego denle a Mostrar precio...

Como veis funciona correctamente.

vamos a explicar los códigos..

Código [Seleccionar] Expandir

Private Sub Command1_Click

Aquí le estamos diciendo que al hacer click en command1 haga lo siguiente osea todo el código que viene a continuación... osea el objeto separado con _ del evento que en este caso es click

Código [Seleccionar] Expandir

If Text1.Text = "Balón" Then
Bueno aquí si lo traducimos seria asín: Si Text1.text = "Balon" Entonces... (y ahora continuamos con el siguiente trozo)

Código [Seleccionar] Expandir

Label4.Caption = "Balón"
Entonces atendiendo a la explicación anterior seria: If text1.text = "Balon" Entonces label4.caption = "Balon" entonces estamos diciendo que si text1.text tiene como text Balón pues se muestra en el label4.caption el nombre de Balón


Atención: Hay una cosa que no e puesto en el código y es ELSE esto sirve para cuando la condición sea falsa pues lo que haría si fuese Falsa..

y ya lo demás ya lo debéis de entender si no es asín decirmelo que lo pongo no hay problema..

Saludos y espero que os haya gustado en el próximo tema hablaremos de Select Case 

Bueno saludos y espero que os guste