Dados moderno (7 / 7 paso)

Paso 7: Vamos a echar un vistazo al código

INTCON = % 10001000 ' reloj de interrupción de cambio de Puerto
OPTION_REG = % 11000111 ' habilitar el timer0 con 1:256 prescalar
GPIO = 0 ' apagar todos los LEDs
TRISIO = % 101000 ' GP3 y GP5 se introducen otros son salida
IOC = % 100000 ' ver cambio GP5
Dim número como Byte
Dim ledoff como palabra
Dim gpioval como Byte
Final ' entrar en modo de baja potencia
En la interrupción
Salvar sistema
Si INTCON. GPIF = %1 Then ' si se presiona el botón
Si GP5 = %0 Entonces
GPIO = 0
número de TMR0 Mod 6 = 1 ' hacer un número aleatorio según timer0
Si número = 1 entonces gpioval = % 000001
Si número = 2 entonces gpioval = % 010000
Si número = 3 entonces gpioval = % 010001
Si número = 4 entonces gpioval = % 010100
Si número = 5 entonces gpioval = % 010101
Si número = 6 entonces gpioval = % 010110
ledoff = 0 ' apagar todos los LEDs por un momento
INTCON. T0IE = %1
Endif
INTCON. GPIF = %0
Endif
Si INTCON. T0IF = %1 Then ' interrupción del timer0
ledoff = ledoff + 1
Si ledoff = 1000 Then ' apagar todos los LEDs después de unos minutos
GPIO = 0
ledoff = 0
INTCON. T0IE = %0
Endif
Si ledoff = 15 entonces GPIO = gpioval ' muestra el número de
INTCON. T0IF = %0
Endif
Curriculum Vitae