***ESCENA 
800 x 700   escalar

****EWSPACIOS
En todos fondo transparete SIN ejes, red
E1   area-trabajo  dibujar si f=2
E2   presentacion  dibujar si f=1
E3   nota          dibujar si f=3

*****CONTROLES
SIGUIENTE
E1   dibujar (preguntar<N)&(c1+c2=1)
expresion   (260,540,200,50)
fuente 22
imagen centro+-centro
accion calcular    preguntar=(preguntar<N)?preguntar+1:preguntar;f=(preguntar=N)?f+1:f;c1=0;c2=0;

estilo  borderRadius=15|border=1|borderColor=ffffff|overColor=669999|downColor=cccc78|font=sansSerif|shadowTextColor=000000|shadowBoxColor=808080
tooltip   Pulse Siguiente para continuar

COMIENZO
nombre Comenzar
E2  dibujar             f=1
expresion (260,300,200,50)
fuente 22
imagen centro+-centro
			accion calcular    f=f+1

estilo extra  borderRadius=15|border=1|borderColor=ffffff|overColor=669999|downColor=cccc78|font=sansSerif|shadowTextColor=000000|shadowBoxColor=808080
tooltip Pulse Comenzar para iniciar el ejercicio

ERROR
E1
activo si  c1+c2=0
accion calcular
parametro  responde=0;buenas=buenas+(responde=Rp[preguntar])

OK
E1
activo si  c1+c2=0
accion calcular
parametro  responde=1;buenas=buenas+(responde=Rp[preguntar])

****DEFINICIONES
id  contar()
inicio   c=0;N=0
hacer  	c:=c+1
	N=(Pr[c]!=0)?N+1:N
	f=1
mientras c<500

****PROGRAMA  INICIO
hacer
		contar()
		preguntar=1
		f=1

****GRAFICOS
TITULO1
E2   (370,80)  azul
texto Compruebe lo aprendido  CENTYRO-CENTRO
fuente 30
sombra 2  2

TITULO2 azul
E2   (370,140)
texto respondiendo estas [N] preguntas. CENTYRO-CENTRO
fuente 30
sombra 2  2

TITULO-PREGUNTA
E1  (370,40)  azul
texto Pregunta [preguntar] de [N]  CENTYRO-CENTRO
fuente 30
sombra 2  2


RESULTADO1  azul
dibujar si f=3
E3  (170,200)
texto  Ha tenido [buenas] respuestas correctas  ARRIBAIZQUIEDO
ancho 700
fuente 30
sombra 2  2

RESULTADO2
dibujar si f=3
E3  (230,260)
texto  que equivalen al [buenas/N*100] %    ARRIBAIZQUIEDO
ancho 700
fuente 30
sombra 2  2

OK
E1 (290,330)
dibujar si   (responde=Rp[preguntar])&(c1+c2!=0)  ARRIBAIZQUIEDO
texto ¡Excelente!
fuente 28
sombra 3  3

ERROR
E1 (255,330)
dibujar si   (responde=Rp[preguntar])&(c1+c2!=0)  ARRIBAIZQUIEDO
texto ¡No es correcto!
fuente 28
sombra 3  3

PREGUNTA
negrita
E1  (20,80)
ancho 700
fuente 22

CORRECCION
negrita
E1 (20,370)
dibujar si  (responde!=Rp[preguntar])&(c1+c2!=0)
texto  [Co[preguntar]] 
fuente 22


 







