Eureka, het is gelukt.
Heb poort A.0 en A.1 werkend.
Heb het programma van Lambiek aangepast.(Lambiek excuus daarvoor)
Heb aan het programma contact dender toegevoegd omdat de teller af en toe toch doorloopt.
Na veel uit proberen blijf ik dit probleem toch houden.
Zou dit te maken kunnen hebben met soort drukknop.
Drukknop wordt met de tijd vervangen voor potentiaal vrij maakcontact.
Device 16F628A
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
All_Digital True
Declare LCD_DTPin PORTB.0
Declare LCD_ENPin = PORTA.3
Declare LCD_RSPin = PORTA.4
Symbol SW1 = PORTA.0
Dim TELLER As Word
Dim TEL_BIT As Bit
Cls
DelayMS 500
Clear
; poortinstellingen.......
; 76543210
PORTA = %00000000
TRISA = %00000001
PORTB = %00000000
TRISB = %00000000
TELLER = 0
Print At 2,1,"TELLER"
RUN:
If SW1 = 1 Then
TEL_BIT = 1
GoSub TEL_OP
EndIf
GoTo RUN
TEL_OP:
If TEL_BIT = 1 Then
DelayMS 100 ;contact dender
TELLER = TELLER + 1
Print At 2,8,Dec4 TELLER,
EndIf
TEL_BIT = 0
If TELLER > 255 Then
TELLER = TELLER - 1
EndIf
If SW1 = 0 Then
DelayMS 100 ;contact dender
If TEL_BIT = 0 Then
Return
EndIf
EndIf
GoTo TEL_OP
End