Foro de elhacker.net

Estas son las pantallas de los ejercicios 3 y 4

La verdad soy nuevo, quisiera saber si se puede ver el codigo de estos pantallazos y de todos los ejercicios ya que son muy interesantes para practicar

Donde puedo ver los codigos de estos pantallazos 3 y 4 ya que se ven muy interesantes

[u]Buneo  yo creo que deberian poner el codigo...para que los que no sabemos tengamos en cuenta el codigo o la manera de  hacerlo

Donde puedo ver el codigo fuente de estos ejemplos.................

la contraseña como tiene q ser string integer o de los dos??

saludos

Hola!

Bueno, yo quería saber si se puede ver el codigo de los ejercicios de visual basic.

Ya que soy nueva en este tema, asi que me gustaria ver el código. asi puedo avanzar.

Si me pueden ayudar, les agradecería.

Gracias..

Enseguida lo hago :)


Mandenme un mp y les paso el codigo... La idea es q los otros aprendan tambien por si solo  ;)

Un saludo, :D

Bueno pues la verdad he intentado averiguar como se realiza el ejercicio 3, pero no he podido realizarlo, te pido el favor que me colabores con esto, diciendome como se hacen estos cuadros y cuales son los codigos, te lo agradeceria muchisimo pues la verdad lo quiero implementar en un trabajo que tengo para presentar.

Mi email: johnfreortiz@yahoo.es
              johnfreortiz@hotmail.com

Gracias  ;D

Buenas, me gustaria saber como hago para que me envies el codigo correspondiente sobre el ejercicio de usuario y clave.
Muchas gracias!.-

Yo pongo mi code:
FORM1

Private Sub Command1_Click()
If Text2.Text = "" Then
MsgBox ("No has escrito la clave")
Else
GoTo Capture
End Sub

Private Sub Form_Load()
Text1.Text = "Escribe aqui el nombre de usuario"
Text2.Text = "Escribe aqui tu contraseña"
End Sub

Public Function Capture()
Dim Clave As String
Clave = Text2.Text
End Function


FORM2
Private Sub Command1_Click()
If Text1.Text = Clave Then
MsgBox ("La Clave es correcta")
Else
MsgBox ("La Clave NO es correcta")
End Sub

Private Sub Form_Load()
Label1.Caption = "Introduce de nuevo la clave:"
End Sub

Y el segundo. Solo hay que añadir los TextBox y pegar esto en el código:

Private Sub Form_Load()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
List1.AddItem Text5.Text
List1.AddItem Text6.Text
List1.AddItem Text7.Text
List1.AddItem Text8.Text
List1.AddItem Text9.Text
List1.AddItem Text10.Text
End Sub

Siento decirlo pero yo solo tengo 15 años i justo acabo aora el temario de visual basic en la academia megasystem (con mi profe jaime) i ia lo veo un poquillo chapuza

para empezar pork escribes el texto de los textbox en codigo pudiendolo hacer en las propiedades k es mas facil?

despues as declarado la variable clave dentro de un formulario asi k en el segundo no te va afuncionar, pork no la declaras komo global en un modulo?

i no digo mas pork no tengo ganas de ir dejando mal a la gente

bieeeen isiiii!! beo k dpues d un buen tiempo de estar el post posteado te as dado kuenta d k estaba mal y lo dices! XD.
Suerte que me dijiste en informatica "aver si enkuentras el fallo, si lo encuentras me kemo la xaketa" jaajaj
venga tio nos vemos en clase
cidate

 ;Dgarx por el aporte man

Que tal soplo, soy nuevo en esto de programacion en VB6.0, estoy aprendiendo de forma autodidacta, ya resolvi el ejercicio 3, segun yo ya funciona como lo pides en el ejercicio, lo que no supe poner es: despues de ingresar la contraseña que prosiga el programa si el usuario presiona enter, sin pasar a el boton aceptar, se que el codigo ascii para el enter es CHR(13), como le puedo hacer para que lo acepte.
saludos

Buenos Días

Este es mi codigo para el pantallaso 4(estoy aprendiendo a programar de forma Autodidacta), espero este bien y le sea util a alguien :

Private Sub CmdSalir_Click()
    End
End Sub

Private Sub Form_Load()
    MsgBox "Ingrese los nombres de las Personas"
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Txt10P_LostFocus()
    List1.AddItem Txt10P.Text
End Sub

Private Sub Txt1P_LostFocus()
   List1.AddItem Txt1P.Text
End Sub

Private Sub Txt2P_LostFocus()
    List1.AddItem Txt2P.Text
End Sub

Private Sub Txt3P_lostFocus()
    List1.AddItem Txt3P.Text
End Sub


Private Sub Txt4P_LostFocus()
    List1.AddItem Txt4P.Text
End Sub

Private Sub Txt5P_LostFocus()
    List1.AddItem Txt5P.Text
End Sub

Private Sub Txt6P_LostFocus()
     List1.AddItem Txt6P.Text
End Sub

Private Sub Txt7P_LostFocus()
      List1.AddItem Txt7P.Text
End Sub

Private Sub Txt8P_LostFocus()
    List1.AddItem Txt8P.Text
End Sub

Private Sub Txt9P_LostFocus()
    List1.AddItem Txt9P.Text
End Sub