viernes, 23 de marzo de 2012

2º BTO: Semáforo

Para apagaluz :tiempoespera
 espera :tiempoespera
 poncl 16
 rellena
fin

Para colorealuz :equis :ygriega :color
 sl
 ponx :equis
 pony :ygriega
 bl
 poncl :color
 repite 12 [avanza 4 giraderecha 360/12]
 giraderecha 90
 avanza 5
 rellena
 giraizquierda 90
fin

Para grafico
 rectangulo
 activa [1 2]
 muestratortugas
 activa 2
 colorealuz 80 72 10 ; semáforo 2 color rojo
 activa 1
 colorealuz -20 72 10 ;semaforo 1 rojo
 apagaluz 300
 colorealuz -20 16 47 ;semaforo 1 verde
 apagaluz 300
 colorealuz -20 44 12 ;semaforo 1 amarillo
 apagaluz 300
 colorealuz -20 72 10 ; semaforo 1 rojo
  activa 2
 colorealuz 80 72 10 ;semaforo 2 rojo
 apagaluz 300
 colorealuz 80 16 47 ;semaforo 2 verde
 apagaluz 300
 colorealuz 80 44 12 ;semaforo 2 amarillo
 apagaluz 300
 colorealuz 80 72 10 ;semaforo 2 rojo
  si tecla? [borrapantalla alto]
 grafico
fin

Para rectangulo
 activa [1 2]
 muestratortugas
 sl
 activa 1
 ponx 0
 pony 0
 bl
 activa 2
 ponx 100
 pony 0
 activa [1 2]
 bl
 poncl 1
 repite 2 [avanza 90 giraizquierda 90 avanza 25 giraizquierda 90]
fin

jueves, 22 de marzo de 2012

viernes, 16 de marzo de 2012

4º ESO: crear un efecto de lluvia con GIMP

Hay que seguir las instrucciones que aparecen en esta web:

http://mirincon-misaani.blogspot.com/2009/06/el-gimp-foto-con-efecto-de-lluvia.html

jueves, 12 de enero de 2012

EXAMEN VISUAL BASIC (1º BTO)

EJERCICIOS PARA EL EXAMEN

1. Programa que sume, reste, multiplique dos 2 números
2. Programa que divida dos números, detectando en qué casos no se puede realizar la división.
3. Programa del semáforo.
4. Programa que compare dos números
5. Programa que calcule raíces cuadradas, detectando antes cuándo no se puede realizar dicho cálculo.
6. Programa que calcule el área de un círculo o de un rectángulo
7. Programa que pase de kilómetros a metros y viceversa.

En el examen:
· Se os va a pedir programar una condición (If o Select Case).
· Tendréis que definir variables (Dim).
· El programa deberá funcionar.
· Podéis consultar cualquier información que tengáis en la memoria USB, pero no de Internet.