Svenska ElektronikForumet

Kod: Markera allt

'*-----------------PIC 12F629 TEST-----------------*

LED0   var GPIO.0 
LED1   var GPIO.1 
LED2   var GPIO.2 

'*---------------------------------------------------------*
START:								

GOSUB	INIT   'Run Init.BAS


RUN:

LED0 = 1
LED1 = 0
LED2 = 0

PAUSE 250

LED0 = 0 
LED1 = 1
LED2 = 0

PAUSE 250

LED0 = 0 
LED1 = 0 
LED2 = 1		<--Detta är enda stället och enda utgången som blir hög.

PAUSE 250

GOTO RUN


'*---------------------------------------------------------*
'*Subroutine INIT
'*---------------------------------------------------------*
INIT:

OUTPUT GPIO.0 	
OUTPUT GPIO.1 			
OUTPUT GPIO.2 				

RETURN
'*---------------------------------------------------------*

END

Kod: Markera allt

'Använder interna oscillatorn.
'INTRC_OSC_NOCLKOUT ska vara satt i Project -> Edit -> Device Flags.
'MCLRE_ON ska också vara satt. (Datablad sid 52. sid 54 enligt Acrobat.)

'Fixar så att man skriva LED istället för GPIO
symbol LED0 = GPIO.0
symbol LED1 = GPIO.1
symbol LED2 = GPIO.2

sub procedure Init
   TRISIO = %00001000 ' Utgångar överallt, förutom GP3 är alltid ingång.
   IOC = %00000000 ' Interrupt on change - Disabled
   CMCON.CM2 = 1 ' Comparator OFF
   CMCON.CM1 = 1 ' Comparator OFF
   CMCON.CM0 = 1 ' Comparator OFF
   VRCON = 0 ' VoltRef (Comparator) off
   T1CON.TMR1ON = 0 ' Stoppar timern

   ANSEL.ANS3 = 0  ' Digital I/O
   ANSEL.ANS2 = 0  ' Digital I/O
   ANSEL.ANS1 = 0  ' Digital I/O
   ANSEL.ANS0 = 0  ' Digital I/O

   LED0 = 0
   LED1 = 0
   LED2 = 0
end sub


main:
  init

  while true
    LED2 = 1
    LED1 = 0
    LED0 = 0
    delay_ms(250)
    LED2 = 0
    LED1 = 1
    LED0 = 0
    delay_ms(250)
    LED2 = 0
    LED1 = 0
    LED0 = 1
    delay_ms(250)
  wend

end.