Código de juego simple VB, no demasiado complicado, ¡sólo del tipo piedra, papel o tijera! Código de juego VB simple, no demasiado complicado, ¡solo tipo piedra, papel o tijera!
Simple Three Kingdoms
Crea 9 comandos, 1 cronómetro, tiempo 20000, 9 textos, 6 granjas.
El diseño es como se muestra en la figura
El código es el siguiente
Private?Sub?Form_Load()
Text1. =?"100"? 'Nuestros soldados restantes
Text2.Text?=?"170"?'Los soldados restantes de la otra parte
Text3.Text?=?" 180"? 180"?'Los soldados restantes del otro lado Soldados
Text4.Text?=?"?200"?'Los soldados restantes del oponente
Text5.Text?=??"500" ?'Dinero
Text6.Text?=?"?170"?'La sangre del general
Text7.Text?=??"120"?'La sangre del general
Text8.Text?=? ?"150"?'Sangre del general
Text9.Text?=??"151"?'Volumen de sangre del general
End?Sub
¿Privado? Sub?command1_click()
Si?Text1.Text?
¿MsgBox? "¡No se puede atacar!"
De lo contrario:
Hacer
Text1.Text?=?Text1.Text?-?5
Text2 .Text?=?Text2.Text? -?10
Text6.Text?=?Text6.Text?-?10? "Su ataque está establecido temporalmente en 200
Text7. Text?=?Text7.Text?- ? 5? "Su ataque está configurado temporalmente en 200
¿Bucle?Until?Text2.Text?=?0"? p>MsgBox?" ¡El ataque redondo gana! "
Text5.Text?=?Text5.Text?+?500
End?If
End?Sub
¿Privado?Sub?command2_click()
Si?0 "o Text6.Text?0"? Entonces
MsgBox?"¡No se puede atacar!"
De lo contrario:
Hacer
Texto1.Text?=?Text1.Text?-?10
Texto3.Text?=?Text3. Text?-?10
Text6.Text?=?Text6.Text?-?10?' Su ataque está tentativamente establecido en 200
Text8.Text?=?Text8.Text ?-?10
¿Bucle?Until?Text3.Text?=?"0"?Or?Text7.Text?=?0"
MsgBox?"Esta ronda de ataque gana ! "
Texto5.Text?=?Texto5.Text?+?300
¿Fin?Si
Fin?Sub
¿Privado? Sub?command3_click()
Si?Text1.Text?
MsgBox?"¡No se puede atacar "
Si no:
Hacer
Texto1.Texto?=?Texto1.Texto?-?20
Texto4.Texto?=?Texto4.Texto ?-?10
Text6.Text?=?Text6.Text?-?10? "Tu ataque es tentativamente 200
Text9.Text?=?Text9.Text? -? 10
¿Bucle?hasta?Texto4.Texto?
=?"0"?Or?Text7.Text?=?0"
MsgBox?"¡Esta ronda de ataque gana! "
Texto5.Text?=?Texto5.Text?+?700
¿Fin?Si
Fin?Sub
¿Privado? Sub?command4_click()
Texto1.Texto?=?Texto1.Texto?+?100
Texto5.Texto?=?Texto5.Texto?-?50
Si?Text5.Text?=?0"?0" Entonces
MsgBox?"¡Sin dinero! "
Si?Text1.Text?=?0"?Entonces
MsgBox?"¡No más soldados
Fin
¿Fin?Si
Fin?Si
Fin?Sub
Privado?Sub?command5_click()
Texto6.Texto?=? Text1.Text?+?300
Text5.Text?=?Text5.Text?-?100
Si?Text5.Text?=?"?0" Entonces
MsgBox?"¡Sin dinero!"
Si Text6.Text="?0"? Entonces
MsgBox?"¡Sin sangre!" p>Fin
Fin?Si
Fin?Si
Fin?Sub
Privado?Sub?command6_click()
Texto6.Texto?=?Texto1.Texto?+?1000
Texto5.Texto?=?Texto5.Texto?-?500
Si?Texto5.Texto? =?"?0" Entonces
MsgBox?"¡Sin dinero!"
Si Text6.Text="?0"?Entonces
MsgBox?" No dinero para comprarlo! "
Fin
Fin?Si
Fin?Si
Fin?Sub
¿Privado?Sub?command7_click()
MsgBox?"Nombre de la ciudad; ¿Luoyang? ¿Oro 500? ¿Soldados 170? ¡Guardia Zhang Fei!"
Fin?Sub
Privado?Sub?command8_click()
MsgBox?"Nombre de la ciudad; ¿Chang'an? 400 de oro, 180 soldados, guardia Sun Quan
¿Fin?
End?Sub
Privado?Sub?command9_click()
MsgBox?"Nombre de la ciudad; ¿Hefei? ¿Oro 700? ¿Soldados 200? ¡Guardia Jiang Wei!"
Fin?0" Entonces
MsgBox?"¡Se acerca el tifón! "
Texto1.Texto =?Texto1.Texto -?100
Texto5.Texto =?Texto5.Texto -?100
Fin?