Programación Sgg
Tu profesor idiota definitivamente necesita algo de tiempo para aprender.
Función guardar()
Abre la aplicación. Caminos y caminos. " \save\ " &Hüser&".sav" salida como #1
Imprimir número 1, xUser
Imprimir número 1, xUserGold
Cerrar #1 p>
Función final
Función carga()
si directorio(aplicación.ruta con ruta." \save\" & er&".sav ")<> ""Entonces
Abre la aplicación. Caminos y caminos. " \save\ " & amphuser& amp".sav" Ingrese como #1
Ingrese #1, xUser
Ingrese #1, xUserGold
Cerre #1
Otro
xUserGold = 10000
Terminará si...
Finalizar función
Función oPPBet( )
Si xXysgGold & lt entonces = 0
labXysg. Caption = "?ù֯:"&Chr(10)"С×֣??ֽ֪֯ȥ×????" "
MsgBox ε??ʹ ʺš?",vbOKOnly,"? ”
Guardar llamada
Fin
Otros
xXysgBet = Int(xXysgGold * 0.5 * Rnd())
labXysgBet.caption = "Apuesta:" &xXysgBet
xXysgGold = xXysgGold - xXysgBet
labXysgG = Int(1 + 2 * Rnd())
Si xoppy = 1, entonces
labXysgY. ó"
Otros
labXysgY.caption = "с"
Terminará si...
Terminará si. ..
p>Función final
Sub cmdChat_Click()
Si xChatIndex = 1, entonces
use picUser
. = LoadPicture(App.path." \pic\user.gif ")
. Superior = i. picUser izquierda = 0.
Terminó con
.Carga de llamadas
Usa labUserG
title = "gold:" &Hüsselgold
.Height = 500
.Left = picUser .
.Altura.
p>Usar labUserBet
Izquierda = labUserG Arriba = labUserG. Utilice labUserY
. Izquierda = labUserG. Arriba = labUserBet. Finalice con...
Rutas y caminos.
" \data\user.t "Ingrese como #1
Para i = 1 a 100
Si no es EOF(1), entonces
Ingrese #1 , String(I)
Terminará si...
Entonces
Cierre #1
Usar labUser
. Izquierda = picUser. Ancho
. Arriba = yo. Altura - picUser. Altura
. xUser & ampChr(10)str(1 + Int(3 * Rnd()))
Termina con...
cmdChat. izquierda = usuariolaboratorio. izquierda + usuariolaboratorio. ancho
cmdChat. Arriba = usuariolaboratorio. Arriba
xChatIndex = xChatIndex + 1
Conector de salida
Terminará si...
Si xChatIndex = 2, entonces p >
labUser. xUser & ampChr(10)"??àˣǿ?ʼ ɡ?"
cmdChat. visible = falso
cmdShake. visible = verdadero
imgSalir. visible = verdadero
xChatIndex = xChatIndex + 1
labXysgG. Izquierda = picXysg.
labXysgG a la izquierda. Arriba = picXysg. Altura
xXysgGold = 10000
labXysgG. title = "oro:" & ampxXysgGold
labXysgBet. Izquierda = labXysgG.
labXysgBet a la izquierda. Arriba = labXysgG. Top + 400
labXysgY. Izquierda = labXysgG.
labXysgY a la izquierda. Arriba = labXysgBet. Top + 400
Conector de salida
Terminará si...
Conector final
Sub privado cmdShake_Click()
cmdAgitar. visible=false
Resultado de laboratorio. title = " "
labUserBet. title = " "
labUserY. title = " "
labXysgBet. título = " "
labXysgY. Title = " "
Llamar a oPPBet
Formia. Mostrar
Conector final
Subform_Load() privado
i. Arriba = 0
i. izquierda = 0
i. altura = pantalla. altura
i. ancho = pantalla. Ancho
xuser $ = inputbox("ĵò" & amp;Chr(10)"֮ɫ×֣??۴óС."& ampChr(10)"˭uddle×á10%."& ampChr(10) "??×֣ ɫ×??ù?ó,× ?ִó?"& ampChr(10)Chr(10)"?ʿֹٹó?ִó:", " ?")
Si está permitido se = " "Entonces
Fin
Terminará si...
Usa cmdShake
. izquierda = yo. Ancho / 2 - 1000
. Arriba = yo. Ancho / 2 - 500
. Visible = Falso
Termina con...
Usa imgExit
. Arriba = cmdShake. Arriba + cmdAgitar. Altura
.
Izquierda = cmdShake. Izquierda + 150
. Visible = Falso
Termina con
Resultados de laboratorio. Arriba = Imagen1Arriba + Imagen1. Estatura
Resultados de laboratorio. izquierda = pantalla. Ancho * 0,45
Foto 1. Ancho = 3000
Imagen 2. ancho = imagen1. Ancho
Imagen 3. ancho = imagen1. Ancho
Imagen 1. Izquierda = 4000
Imagen 2. izquierda = Imagen1. Izquierda + Imagen 1. Ancho
Imagen 3. Izquierda = Imagen 2. Izquierda + Imagen 1. Ancho
Usa picXysg
. Imagen = LoadPicture(App.Path y ruta." \pic\xysg.jpg ")
. Arriba = 0
. izquierda = yo. ancho - picXysg. Ancho
Termina en...
Abre la aplicación. Caminos y caminos. " \data\xysg.t "Ingrese como #1
Para i = 1 a 100
Si no es EOF(1), entonces
Ingrese #1 , String(I)
Terminará si...
Entonces
Cierre #1
Usa labXysg
. Título = "?ù֯"&Chr(10)str(1 + Int(4 * Rnd()))
. altura = 1500
. ancho = 5000
. izquierda = yo. ancho - picXysg. ancho. Ancho
. Arriba = 0
Termina con...
xChatIndex = 1
cmdChat. Izquierda = labXysg.
cmdChat a la izquierda. Arriba = labXysg. Alto
Conector final
Sub privado imgExit_Click()
Guardar llamada
Fin
Conector final p>
p>