Contraseñas....

Iniciado por AdReNaLiNe, 28 Septiembre 2005, 00:17 AM

0 Miembros y 1 Visitante están viendo este tema.

AdReNaLiNe

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

NYlOn

#1
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

Dim a, b As Integer


por este

Dim A As String
Dim B As String


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

If A = B Then
Label3.Caption = "Contraseña Valida..."
End iF

'Tambien podes cambiar eso de "A<>B" con la linea 'Else'
'Asi:

If A = B then Label3 = "Contraseña.." Then
Label3.Caption = "Contraseña Valida...
Else
Label3.Caption = "Contraseña Invlaida"
End iF

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:

Dim A as string
Dim B as string
Private Sub COmmand1_Click ()
A = text1.text
B = text2.text
If A = B then
Label3.Caption = "Contraseña Correcta"
Else
Label3.Caption = "Contraseña Incorrecta"
End If

End Sub


G0nz4

Slasher-K

Para compara cadenas es mejor utilizar StrComp.


If StrComp(A,B,vbBinaryCompare)=0 Then
  'La contraseña es correcta.
  '
Else
  'Las contraseñas no son las mismas.
  '
End If


Saludos.



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*

NYlOn

:O
no conocia esa funcion  :D

gracias ;)

AdReNaLiNe

#4
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??? ???

NYlOn

CitarBlock If without End if

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

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

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