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

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. ..

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

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>