Download pubblicare

Demo 8: Listato Basic
TEMP
TEMPLOW
DATOIN
DATOOUT
INDIRIZZO
FLAGOK
TEMPERATURA
TRIMMER
var
var
var
var
var
var
var
var
word
TEMP.byte0
byte
byte
byte
bit
byte
byte
Include “modedefs.bas”
‘LED
SYMBOL
SYMBOL
SYMBOL
SYMBOL
SYMBOL
SYMBOL
SYMBOL
SYMBOL
LED1
LED2
LED3
LED4
LED5
LED6
LED7
LED8
=
=
=
=
=
=
=
=
PORTC.0
PORTC.1
PORTC.2
PORTC.3
PORTC.4
PORTC.5
PORTC.6
PORTC.7
‘DIP
SYMBOL
SYMBOL
SYMBOL
SYMBOL
SYMBOL
SYMBOL
SYMBOL
SYMBOL
DIP1
DIP2
DIP3
DIP4
DIP5
DIP6
DIP7
DIP8
=
=
=
=
=
=
=
=
PORTB.0
PORTB.1
PORTB.2
PORTB.3
PORTB.4
PORTB.5
PORTB.6
PORTB.7
INPUT
INPUT
INPUT
‘Portb coi pull up interni
OPTION_REG.7 = 0
INPUT
Porta.0
INPUT
Porta.1
INPUT
INTSP
Output CCP1
START:
Gosub SEND20
TEMP = 0
Pause 50
‘Settaggio timer TMR2 per PWM
Gosub
TIMER2CONFIG
Gosub
CCPCONFIG
Gosub
PR2CONFIG
Pause 50
‘Settaggi PWM
CCPR1L = 0
Pause 50
CCP1CON = %00001100
CCP1 = 0
Pause 100
START0:
START00
‘Comunicazione con il Site Player
SYMBOL TX232 = PORTA.2
SYMBOL RX232 = PORTA.5
‘Interrupt dal Site Player
SYMBOL INTSP = PORTA.4
‘Pilotaggio PWM
symbol
CCP1 = Portc.2
‘Definizione I/O
‘Dip
50
DIP6
DIP7
DIP8
ASM
BTFSC Porta.4
Goto START00
ENDASM
INDIRIZZO = 5
Gosub SENDREADREQUEST
Pauseus 50
Gosub READDATO
If FLAGOK = 1 then
TEMP= DATOIN*255
TEMP = TEMP/100
CCPR1L = TEMPLOW
Gosub SCRIVI
Endif
Pause 100
Goto START0
ADCON1=%00000100
ADCON0=%10000001
OUTPUT LED1
OUTPUT LED2
OUTPUT LED3
OUTPUT LED4
OUTPUT LED5
OUTPUT LED6
OUTPUT LED7
OUTPUT LED8
OUTPUT TX232
INPUT
RX232
‘Routine di invio di 20 byte 0
‘per inzializzazione
INPUT
INPUT
INPUT
INPUT
INPUT
WRITEDATO:
Pause 10
Serout TX232,T9600,[128]
Pause 5
Serout TX232,T9600,[INDIRIZZO]
DIP1
DIP2
DIP3
DIP4
DIP5
SEND20:
For TEMP = 1 to 20
Serout TX232,T9600,[0]
Pause 5
Next TEMP
Return
‘Routine di scrittura di un byte
‘Invia : Comando di write (128),
‘INDIRIZZO, DATOOUT
aprile 2004 - Elettronica In
CORSO SITE PLAYER
;File DEMO8.BAS