Hello,
I'm using the following configuration:
1 PIC 16F876A
PIC Basic PRO 3 (demo)
Why does the uC only runs this code one time. It does not loops it:
Code:
Include "modedefs.bas"
Define OSC 20
STATUSLED VAR PORTC.4 ' Rode LED
BUZZER VAR PORTC.7 ' Buzzer
ReedContact VAr PORTC.0 ' Reed contact voor starten dot
Power_On VAR PORTC.1 ' Overname contact power
Power_XBEE VAR PORTB.0
Power_RFID VAR PORTB.3
XBEE_RX VAR PORTB.2 ' Serial data vanaf XBEE
XBEE_TX VAR PORTB.1 ' Serial data naar XBEE
RFID_RX VAR PORTB.4 ' Seriele data vanaf de RFID lezer
RFID_TX VAR PORTB.5 ' Seriele data naar de RFID lezer
i VAr BYTE ' Globale teller
received_date VAR BYTE[16]
x var BYTE[20]
y VAR BYTE
CRC VAR BYTE ' CRC over RFID data
CRC_TOT VAR BYTE ' CRC over totale data
'===============================================================================
' Init
'===============================================================================
Init:
HIGH Power_On
high Power_XBEE
for x = 0 to 20
serout XBEE_TX, T9600,["X2 = ",#x,13,10] '9600 inverted
pause 500
next x
Goto Main
'*******************************************************************************
' Main:
'*******************************************************************************
Main:
HIGH STATUSLED
pause 500
Serout2 RFID_TX,16416,[$AA,$BB,$02,$20,$22] ' Read Card Command
SERIN2 RFID_RX,16416,100,Check_data,[received_date[0]] ' Receive data
Goto Main
'*******************************************************************************
' Check_Data:
' 1. Controle op gelezen data
' 2. Controle of kaart anders is dan vorige keer
' 3. Indien nieuwe kaart schrijf deze in Temp Card Data
'*******************************************************************************
Check_Data:
serout XBEE_TX, T9600,["CHECK DATA",13,10] '9600 inverted
LOW STATUSLED
pause 500
RETURN
Bookmarks