Device 16F877A               
Config HS_OSC, WDT_OFF, PWRTE_ON, LVP_OFF
ALL_DIGITAL TRUE                 
XTAL 20   

;        76543210
PORTA = %00000000 ;0 = LAAG   1 = HOOG
PORTB = %00000000 ;Alle niveaus van PORTB laag, behalve PORTB.2, deze is als voorbeeld hoog 
portc = %00000000
portd = %00000000
TRISA = %00000111 ;0 = uit   1 = IN
TRISB = %00000000 ;Alle PORTB poorten omschakelen als uitgang
TRISC = %00000000
trisd = %00000000
ADCON1 = %10000000

symbol AAN = 1
symbol UIT = 0
symbol Begin = 450
symbol Eind  = 2050
symbol Midden = 1350 
symbol LAMPa = portd.1
symbol LAMPv = portd.0
symbol Serv  = porta.3

DIM WaardeL      as float
dim WaardeR      as float 

Clear    
DelayMS 500
Cls

print "hoi"
lampv = aan
lampa = uit
portc.1 = 0, portc.2 = 0                          ; PORTC.2 = HPWM 1 (==>RECHTS)     PORTC.1 = HPWM 2 (==>LINKS)
delayms 1000

While 1 = 1                   ;Oneindige lus 
lampa = aan
WaArdeR = ADIN 1                                  ; De rechter potmeter (blauwe) zit aan porta.1 (ADIN 1)
waardeR = waardeR * 0.004888 * 40
waardel = adin 2                                  ; De linker  potmeter (witte) zit aan porta.2 (ADIN 2)
waardel = waardel  * 0.004888 * 40
PRINT AT 1, 1, "Waarde L:"
PRINT AT 1, 11, "      "
PRINT AT 1, 11, DEC1 WaardeL 
print at 1, 19, " V"

PRINT AT 2, 1, "Waarde R:"
PRINT AT 2, 11, "      "
PRINT AT 2, 11, DEC1 Waarder 
print at 2, 19, " V"

hpwm 1, waarder, 3000                             ; HPWM 1 = MOTOR RECHTS 
hpwm 2, waardel, 3000                             ; HPWM 2 = MOTOR LINKS
        
delayms 200
        
Wend

End                           ;Einde programma