Sustituir numeros por imagenes

Cerrado
fabiola - 3 abr 2010 a las 00:21
 fabiola - 3 abr 2010 a las 00:23
SI HOLA QUISIERA APRENDER A CODIFICAR SOY ESTUDIANTE DE PREPARATORIA :)
Y LA VERDAD ESTE PROGRAMA NO SE ME DA Y LOS EXAMENES VALEN UN BUEN DE VERDAD
SI ALGUIEN ME PUDIERA PROPORCIONAR INFORMACION O AYUDA
LE ESTARE AGRADECIDA POR EJEMPLO TENGO ESTA TAREA: ALGUIEN QUE ME PUEDA AYUDAR POR FAVOR.

TENGO QUE SUSTITUIT LOS NUMEROS EN LAS CAJAS DE TEXTO POR IMAGENES Y LA VERDAD NO SE ES COMO UN TIPO DE JUEGO :D el dibujito y viene la siguiente codificacion.

BUENO PRIMERO DESCRIBIRE EL OBJETO VIENE
ASI

TEXT 1 TEXT 2 TEXT 3



A JUGAR ------------- este es un command 1
LIMPIAR------------------este e sotro comand 2


DESPUES VIENE UNA CODIFICACION HELP ME :D

GENERAL
PRIVATE LIMSUP,LIMING AS INTEGER
PRIVATE CAJA1,CAJA2,CAJA3 AS INTEGER
PRIVATE VUELTA AS INTEGER
------------------------------------------------------------------------------------------------------------

PRIVATE SUB COMMAND1_CLICK
CAJA1=INT(LIMSUP-LIMINF +1)*Rnd+Liminf)
CAJA2=INT(LIMSUP-LIMINF +1)*Rnd+Liminf)
CAJA3=INT(LIMSUP-LIMINF +1)*Rnd+Liminf)

TEXT1.TEXT=STR(CAJA1)
TEXT2.TEXT=STR(CAJA2)
TEXT3.TEXT=STR(CAJA3)

IF CAJA1=CAJA2 AND CAJA2=CAJA3 THEN
MSGBOX ¨GANASTE¨
ELSE
MSGBOX ¨PERDISTE INTENTA DE NUEVO
END IF
END SUB

----------------------------------------------------------------------------------------------------------
PRIVATE SUB FORM_LOAD()
LIMSUP=3
LIMINF=1
RANDOMIZE
END SUB
------------------------------------------------------------------------

PRIVATE SUB COMMAND2_CLICK
TEXT1.TEXT=¨ ¨
TEXT2.TEXT=¨ ¨
TEXT3.TEXT=¨ ¨
END SUB
-------------------------------------------

PFF ME CANSEE BUENOO ESPERO SUS RESPUESTAS PORFAA ME URGEN :D si son tan amables
de ayudarme graciasssssss

1 respuesta

ES VISUAL BASIC 2006 EL PROGRAMA
0