Visual Basic - como explicar este codigo por favor ayuda...

Life is soft - evento anual de software empresarial
 
Vista:

como explicar este codigo por favor ayuda...

Publicado por jose (1 intervención) el 10/08/2007 16:39:39
Como les explicar este codigo en visual basic necesito ayuda, pues tengo una presentacion de este trabajo para el lunes me ayudaron a hacer este programa y ahora lo debo explicar en clase

Option Explicit
Dim Palabra As String
Dim Errores As Byte
Private Sub cmdNuevo_Click()
NuevoJuego
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
JugarLetra UCase(Chr(KeyAscii))
End Sub
Private Sub Form_Load()
lblLetrasJugadas = ""
lblBienvenida = "¡Bienvenido!"
End Sub
Sub NuevoJuego()
Palabra = InputBox("Ingrese su palabra (10 letras max.):", "Palabra")
Palabra = UCase(Palabra)

lblLetrasJugadas = ""
Errores = 0
lblErrores = Errores

CargarPalabra
End Sub
Sub CargarPalabra()
Dim i As Integer

For i = 0 To lblLetras.UBound
lblLetras(i).Visible = False
Next i

For i = 1 To Len(Palabra)
lblLetras(i - 1).Tag = Mid(Palabra, i, 1)
lblLetras(i - 1).Caption = "_"
lblLetras(i - 1).Visible = True
Next i

End Sub
Sub JugarLetra(Letra As String)
Dim Termino As Boolean
Dim i As Integer
If InStr(Palabra, Letra) <> 0 Then
Termino = True

For i = 1 To Len(Palabra)
If lblLetras(i - 1).Tag = Letra Then
lblLetras(i - 1).Caption = Letra
End If

If lblLetras(i - 1).Caption = "_" Then
Termino = False
End If
Next i
Else
Errores = Errores + 1
lblLetrasJugadas = lblLetrasJugadas & Letra
lblErrores = Errores
End If
If Errores = 6 Then
Call MsgBox("Perdiste", vbInformation, "Perdiste")
NuevoJuego
End If
If Termino Then
Call MsgBox("Ganaste", vbInformation, "Ganaste")
NuevoJuego
End If
End Sub
Sub SS()
If MsgBox("¿De veras desea salir?", vbYesNo, "Salir") = vbYes Then
End
End If
End Sub
Private Sub cmdSalir_Click()
Call SS
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como explicar este codigo por favor ayuda...

Publicado por ivan (1039 intervenciones) el 10/08/2007 20:12:16
te ayudaron a hacer el programa, o te lo hicieron entero, o lo copiaste de algun lado?

porque si no sabes explicar lo que tu mismo has hecho.... muhhh

estudia un poco mas y no seas tan vago. todavia tienes un fin de semana entero, dedicate a estudiar y no a las juergas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:como explicar este codigo por favor ayuda...

Publicado por P. J. (173 intervenciones) el 10/08/2007 20:23:12
!!!!!!!!!
NO SEAS SINVERGUENZA, ta que te pasas de pendejo! encima que no sabes como funciona, pretendes que alguien te enseñe.

Vaya a estudiar no mas,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar