Foro de elhacker.net

salu2 peña

Ola a todos  :D,vereis,soi un principiante en esto de lenguajes de programacion, :(, pero algo se....(lo minimo,pero es algo no? ;D)
y haciendo "programas" k solo daban MsgBox me e decidio a acer otras cosas como programillas asi tipo chulos....vosotros me entendeis...
por ejemplo,keria krear un autentificador de contraseñas y puse esto en la linea de codigos:
Dim a, b As Integer
Private Sub Command1_Click()
a = Text1
b = Text2
If a = b Then Label3 = "Contraseña valida enhorabuena, no eres un cabezahueca"
If a <> b Then Label3 = "La contraseña no es correcta"
End Sub

pero me sale k esta mal,k tengo k cambiar Text2  ???, y claro lo k quiero acer simplemente es poner en text1 y text2 lo mismo es un programa "tonto" pero abrá kien se coma al coco averiguandolo,ejemplo de lo k puse en cada cosa

Text1 puse dentro La contraseña es incorrecta
Text2 lo dejé en blanco
asi para descubrirla tienes k copiar lo del texto1 y darle al boton validar,pero al poner eso de arriba me salen errores  ???

k puedo acer¿? gracias a to dios  ;D

Aca van algunas observaciones:
1º Tener en cuenta que va tener en cuenta las minusculas de las mayusculas ;D
2º No te recomiendo declarar todas las variables en una sola linea...
3º Estas declarando variables de texto como Intege. Estas variables son para numeros enteros, asike estate seguro de que solo pones numeros en los TxtBox. Para declarar variables de Texto tenes que cambiar este

por este

4º Estas usando mal los If
La sintaxis seria asi:
5º No hace falta declarar las variables como A y B... Podes usar directamente la propiedad 'Text1.Text' en vez de A
6º Estate seguro de que tenes el Label3 creado xD

y te recomiendo leer un manual de VB... son cosas muy basicas las q preguntas ;)

un saludo y te dejo como kedaria tu codigo:

G0nz4

Para compara cadenas es mejor utilizar StrComp.


Saludos.

:O
no conocia esa funcion  :D

gracias ;)

OK gracias por la ayuda  ;)
pero ahora tengo otro problema  ;D
vereis vi ace poco en la web www.boinasnegras.com un nivel k era poner una contraseña pero k era así: <b>negrita</b>
keria acer lo mismo mas bien personalicado pero igual para bisual basic y puse esto:

Dim A As String
Dim B As String
Dim C As String
Private Sub Command1_Click()
A = Text1.Text
B = Label4
C = Label5
If A <> B Then
Label3 = "La contraseña es incorrecta"
If A = B Then
Label3 = "Lo visible y lo invisible"
If A = C Then
Label3 = "Enhorabuena, has pasado el nivel 2, el codigo de autentificación es 3210"
End If

End Sub


pero me sale error y me señala Private Sub Command1_Click()

tambien me sale una ventana emergente diciendo esto:
compile error:
Block If without End if

a k se debe esto??? ???

4º Estas usando mal los If
La sintaxis seria asi ..............

no leiste el post q te puse ?? tenes q poner un END IF por cada IF que hallas pusto


que error te tira exactamente ??

y te recomiendo q te vayas buscando un buen manual de VB pq sino no vas a llegar a ningun lado...

salu2