Knoppen + Weerstandsnetwerk

DEVICE 16F628A                ;Gebruik een 16F628A type
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE              ;Alle ingangen digitaal
DECLARE LCD_LINES=4

;Logische constanten
SYMBOL AAN          = 0       ;Geinverteerd AAN
SYMBOL OFF          = 0       ;UIT
SYMBOL ON           = 1       ;AAN

;Poortnamen
SYMBOL Toets        = PORTA.1 ;Toetsen zitten aan PORTA.1 via een weerstandsnetwerk
SYMBOL LED_Groen    = PORTA.2 ;De groene LED zit op PORTA.2 aangesloten
SYMBOL LED_Rood     = PORTA.3 ;De rode LED zit op PORTA.3 aangesloten

;Variabele declareren
DIM Weerstand AS WORD         ;WORD variabele, bevat straks waarden van de toetsindrukken 

;        76543210
TRISA = %11110011             ;PORTA.3 en PORTA.2 omschakelen als uitgang voor de LED's

CLEAR                         ;Wis alle RAM geheugen
DELAYMS 500                   ;LCD stabilisering


;Hoofdprogramma
CLS                           ;LCD scherm wissen

WHILE 1 = 1                   ;Oneindig door blijven meten
  IF Toets = AAN THEN         ;Als er op een toets wordt gedrukt dan...
    PRINT AT 1, 1, "Toets "   ;Zet het woordje 'Toets' alvast op de eerste display regel

    HIGH Toets                ;Condensator ontladen
    DELAYMS 1                 ;Even wachten zodat condensator helemaal leeg is
    Weerstand = RCIN Toets, HIGH ;Geef RC oplaadtijd aan WORD variabele 'Weerstand'

    

    PRINT AT 2, 1, DEC5 Weerstand ;Zet waarde van 'Weerstand' op regel 2 van het display

    WHILE Toets = AAN : WEND  ;Wacht hier tot toets(en) wordt losgelaten
  ENDIF
WEND                          ;Terug naar WHILE