diseño del curso vb~~~El código ha sido explicado~~~~Cuanto más detallado mejor~~Aquí vienen los maestros~~~~~~~~~~~~~~ ~~~~~~~ ~~~~~~~~~
Dim bln1 como booleano
Dim bln2 como booleano
Dim bln3 como booleano
Dim bln4 como booleano
Dim blnstoptuzi como booleano
Dim blnstopwugui como booleano
Dim int1 como entero
Dim int2 como entero
Dim int3 como entero
Dim m As Integer
Dim n As Integer
Dim k As Integer 'Las anteriores son todas variables declaradas
Private Sub HScroll1_change( ) 'cambiar evento cuando cambia el contenido del control
k = CInt(HScroll1.Value) 'la función de redondeo cint asigna el contenido a la variable k
Picture1.SetFocus 'Cambiar el foco a el control de imagen
End Sub
Subcomando privado1_Click()
Llamar a Inicio'Llamar al proceso "Iniciar"
Fin de Sub< / p>
Submenú privadoaboutjog_Click() 'Esto debería ser para el menú...
Dim intresponse As Integer
intresponse = MsgBox("Versión 1.01", & Chr ( 10) & Chr(13) & "¡Bienvenido a darnos cualquier consejo!", 48, "Acerca de la tortuga y la liebre") 'la función msgbox muestra el contenido y lo asigna a la variable intresponse
End Sub
Private Sub menuesc_Click()
Dim intresponse As Integer
intresponse = MsgBox("¿Está seguro de salir?", 289, "Nota ")
Si intresponse = 1 Entonces 'Descargar el formulario FORM1 cuando el usuario presione "OK"
Descargar Form1
Finalizar si
End Sub
Submenú privadoselffile_Click ()
Shell "E:\5 Game Design\26 Tortoise and the Hare\readme.txt", 1 'la función Shell llama al texto txt
Finalizar sub
Sub menú privadostart_Click()
Inicio de llamada
Fin Sub
Sub privado Imagen1_keypress(keyascii As Integer) 'evento de teclado de la imagen
Dim blnxidongtuzi As Boolean
Dim interresponse As Integer
Dim a As Integer
Si blnstoptuzi = Verdadero Entonces 'if declaración cuando blns
Cuando toptuzi es verdadero
Si bln1 o bln2 = False Entonces 'Cuando bln1 o bln2 es falso
bln1 = False
bln2 = False "bln1 y Bln2 son false
End If
End If
If Image2.Left >= Picture1.Width - Image2.Width Then 'Cuando el atributo izquierdo de image2 es mayor que o igual a Cuando el ancho de la imagen menos el ancho de la imagen2
blnstoptuzi = True 'blnstoptuzi es verdadero
End If
Si keyascii = 97 Then bln1 = Verdadero 'Cuando el usuario presiona Cuando se ingresa chr (97), bln1 es igual a verdadero. El 97 aquí es el valor ascii. No recuerdo mucho. Puede verificar chr (el valor ascii) usted mismo. qué clave es.
Si keyascii = 115 Entonces bln2 = True
Si bln1 = False Entonces bln2 = False
Si bln1 y bln2 = True Entonces
blnxidongtuzi = True
Si blnxidongtuzi = True Entonces
Imagen2.Left = Imagen2.Left + k 'la izquierda de la imagen2 se basa en la izquierda de la 'image2 más la variable k
blnxidongtuzi = False
p>bln1 = False
bln2 = False
Finalizar si
If (keyascii = 97 O keyascii = 115) And int1 <= 7 Entonces
Image2.Left = 0
intresponse = MsgBox("El jugador conejo saltó adelante, ¡inténtalo de nuevo!", 16, "¡Falta!")
Si intresponse = 1 Entonces
Timer1.Enabled = False
Label5.Caption = ""
Fin If
End If
End If
End Sub
Sub privado form_keypress(keyascii como entero)
Dim blnxidongwugui como booleano
Dim interrespuesta como entero
Si blnstopwugui = Verdadero entonces
Si bln3 o bln4 = Falso entonces
bln3 = Falso
bln4 = Falso
Fin si
Fin si
Si Imagen3.Izquierda >= Imagen2.Ancho - Imagen3.Ancho Entonces
blnstopwugui = True
Finalizar si
Si keyasc
ii = 59 Entonces bln3 = True
Si keyascii = 39 Entonces bln4 = True
Si bln3 = False Entonces bln4 = False
Si bln3 y bln4 = True Entonces
blnxidongwugui = True
Si blnxidongwugui = True Entonces
Imagen3.Left = Imagen3.Left + k
blnxidongwugui = False
bln3 = False
bln4 = False
Finalizar si
Si (keyascii = 59 o 39) y int1 <= 7 Entonces
Image3.Left = 0
intresponse = MsgBox("El jugador tortuga se adelantó, ¡inténtalo de nuevo!", 16, "¡Falta!")
If intresponse = 1 Entonces
Timer1.Enabled = False
Label5.Caption = ""
Finalizar si
Finalizar si
Fin si
End Sub
Private Sub Timer1_Timer()
int1 = int1 + 1
Si intl <= 6 And int1 Mod 2 = 0 Entonces
Label5.Caption = "¡Listo!"
Finalizar si
Si int1 <= 6 And int1 Mod 2 = 1 Entonces
Label5.Caption = ""
Finalizar si
Si int1 = 7 Entonces
Label5.Caption = "¡Comenzar!"
Finalizar si
Si int1 >= 8 Entonces
Label5.Caption = ""
Timer1.Enabled = False
Timer2.Enabled = True
Timer3.Enabled = True
Finalizar si
Fin Sub
Sub Timer2_Timer privado( )
Atenuar a como entero
Atenuar b como entero
a = int2 / 60
b = int2 Mod 60
int2 = int2 + 1
Si int2 < 60 entonces
Si int2 < 10 entonces
Text1.Text = "00:00:0 " & int2
Else
Text1.Text = "00:00:" & int2
Finalizar si
Else
Si b < 10 Entonces
Texto1.Text = "00
:00:0" & a
Else
Text1.Text = "00:00:" & a
Finalizar si
Fin si
Si blnstoptuzi = True Then
Timer2.Enabled = False
Timer4.Enabled = True
m = int2
Finalizar si
End Sub
Private Sub Timer3_Timer()
Atenuar c como entero
Atenuar d como entero
c = int3 / 60
d = int3 Mod 60
int3 = int3 + 1
Si int3 < 60 entonces
p>
Si int3 < 10 Entonces
Text2.Text = "00:00:0" & int3
Si no
Text2.Text = " 00:00:" & int3
Finalizar si
Else
Si d < 10 Entonces
Text2. Texto = "00: 00:0" & c
Else
Text2.Text = "00:00:" & c
Finalizar si
Finalizar si
Si blnstopwugui = True Then
Timer3.Enabled = False
Timer4.Enabled = True
n = int3
End If
End Sub
Private Sub start()
Si int1 <> 0 o int2 <> 0 Entonces
Imagen2.Left = 0
Imagen3.Left = 0
Temporizador1.Enabled = Falso
Temporizador2.Enabled = Falso
Timer3.Enabled = False
Texto1.Text = "00:00:00"
Texto2.Text = "00:00:00"
Etiqueta5. /p>
n = 0
blnstoptuzi = False
blnstopwugui = False
Imagen1.SetFocus
Finalizar si
Timer1.Enabled = True
End Sub
Private Sub Timer4_Timer()
Atenuar blnjs como booleano
Si m <> 0 y n <> 0 entonces
blnj
s = True
End If
Si blnjs = True Then
If m < n Then
intresponse = MsgBox("Reproductor Conejo ¡Gana! ", 48, "La tortuga y la liebre")
intresponse = 1
Timer2.Enabled = False
Timer3.Enabled = False
int2 = 0
int3 = 0
blnjs = False
Finalizar si
Si m > n Entonces< / p>
intresponse = MsgBox("¡La tortuga ganó!", 48, "La tortuga y la liebre")
intresponse = 1
Timer2.Enabled = False
Timer3.Enabled = False
int2 = 0
int3 = 0
blnjs = False
Fin si
Fin si
Si blnjs = False Entonces
Timer4.Enabled = False
Fin si
Fin Sub
rme básicamente significa lo mismo, puedes comprobarlo tú mismo