'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : Bob Merens.                                       *
'*  Notice  : Copyright (c) 2010 Opabob                         *
'*          : All Rights Reserved                               *
'*  Date    : 12/02/2010                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
 
; Aangepast programma voor opa_bob.
 
 
DEVICE 16F628A               ; processor type 16F628A
 
CONFIG INTRC_OSC_NOCLKOUT,_  ; Interne oscillator geen clocksignaal naar buiten
       WDT_OFF,_             ; WatchDog Timer uitgeschakeld
       PWRTE_ON,_            ; Power-up Timer Enable ingeschakeld
       LVP_OFF,_             ; Low Voltage Programming uitgeschakeld
       MCLRE_OFF             ; Externe Master Reset Enable uitgeschakeld
 
ALL_DIGITAL TRUE             ; Alle ingangen digitaal
 
SYMBOL ON  = 1               ; On is hoog
SYMBOL off = 0               ; Off is laag                              
 
'Ingangen declareren
 
SYMBOL sw1      = PORTA.0
SYMBOL sw2      = PORTA.1
SYMBOL sw3      = PORTA.2
SYMBOL sw4      = PORTA.3
;Symbol sw5      = PORTA.4
;Symbol sw6      = PORTA.5
;Symbol sw7      = PORTA.6
;Symbol sw8      = PORTA.7
 
'Uitgangen declareren
 
SYMBOL led1     = PORTB.0
SYMBOL led2     = PORTB.1
SYMBOL led3     = PORTB.2
SYMBOL led4     = PORTB.3
SYMBOL led5     = PORTB.4
SYMBOL led6     = PORTB.5
SYMBOL led7     = PORTB.6
SYMBOL led8     = PORTB.7
 
SYMBOL tijd = 500            ; Waarde wachttijd
 
; Alleen de waarde achter tijd veranderen als het sneller of langzamer moet.
 
CLEAR                        ; Wis alle ram geheugen
 
DELAYMS 1000                 ; Stabilisering
 
        ;76543210            ; Hulpregel poort_A
PORTA = %00000000            ; Alle niveaus van Poort_A eerst laag maken
TRISA = %11111111            ; PortA0 - PortA7 allemaal ingangen 
        ;76543210            ; Hulpregel poort_B
PORTB = %00000000            ; Alle niveaus van Po0rt_B eerst laag maken
TRISB = %00000000            ; PortB0 - PortB7 allemaal uitgangen 
 
'****************************************************************    
'Decraraties voor programma:   
'****************************************************************
 
'Hoofdprogramma 
 
menu:
WHILE ON = ON
    led1 = 0
    led2 = 0
    led3 = 0
    led4 = 0
 
IF sw1 = ON THEN
    led1 = ON
    DELAYMS tijd
    led1 = off  
    led2 = ON
    DELAYMS tijd
    led2 = off  
    led3 = ON
    DELAYMS tijd
    led3 = off  
    led4 = ON
    DELAYMS tijd
    led4 = off
ENDIF

IF sw2 = ON THEN
    led4 = ON
    DELAYMS tijd
    led4 = off  
    led3 = ON
    DELAYMS tijd
    led3 = off  
    led2 = ON
    DELAYMS tijd
    led2 = off  
    led1 = ON
    DELAYMS tijd
    led1 = off
ENDIF

IF sw3 = ON THEN
    led5 = ON
    DELAYMS tijd
    led5 = off  
    led6 = ON
    DELAYMS tijd
    led6 = off  
    led7 = ON
    DELAYMS tijd
    led7 = off  
    led8 = ON
    DELAYMS tijd
    led8 = off
ENDIF

IF sw4 = ON THEN
    led8 = ON
    DELAYMS tijd
    led8 = off  
    led7 = ON
    DELAYMS tijd
    led7 = off  
    led6 = ON
    DELAYMS tijd
    led6 = off  
    led5 = ON
    DELAYMS tijd
    led5 = off
ENDIF

WEND
 
END