Pozdrav.
Imal neko voljan pomoći.S obzirom da sam skoro počeo učit o mikrokontrolerima molio bih vas da proučite ovaj kod nemogu ga kompajlirati u hex,MCS izbacuje grešku.Kod je vezan za komunikaciju dva pic-a sa 12 ledica ,sa stranice
http://320volt.com/pic-basic-p...lari-ile-ornek-uygulamalar/12/
evo kod pa ako se nekom ne spava nek izvoli.Unaprijed se zahvaljujem...
DEFINE OSC 4
TRISA=%00011110
TRISB=%11111111
OPTION_REG.7=0
BILGI VAR BYTE
SYMBOL VERIOUT=PORTA.0
MAIN: BILGI=255
GOSUB PORTA_BAK
IF PORTB<255 THEN
BILGI=PORTB
GOSUB VER
while portb<255:wend
ENDIF
pause 10
GOTO MAIN
VER:
serout2 VERIOUT,813,[REP$AA5,REP$005,REP$FF5]
serout2 VERIOUT,813,["E","T","E",BILGI]
serout2 VERIOUT,813,["E","T","E",BILGI]
serout2 VERIOUT,813,["E","T","E",BILGI]
serout2 VERIOUT,813,["E","T","E",BILGI]
RETURN
PORTA_BAK:
BILGI=PORTA & %00011110
IF BILGI<30 THEN
GOSUB VER
' PAUSE 100
ENDIF
WHILE PORTA<30 : WEND
RETURN
END
Imal neko voljan pomoći.S obzirom da sam skoro počeo učit o mikrokontrolerima molio bih vas da proučite ovaj kod nemogu ga kompajlirati u hex,MCS izbacuje grešku.Kod je vezan za komunikaciju dva pic-a sa 12 ledica ,sa stranice
http://320volt.com/pic-basic-p...lari-ile-ornek-uygulamalar/12/
evo kod pa ako se nekom ne spava nek izvoli.Unaprijed se zahvaljujem...
DEFINE OSC 4
TRISA=%00011110
TRISB=%11111111
OPTION_REG.7=0
BILGI VAR BYTE
SYMBOL VERIOUT=PORTA.0
MAIN: BILGI=255
GOSUB PORTA_BAK
IF PORTB<255 THEN
BILGI=PORTB
GOSUB VER
while portb<255:wend
ENDIF
pause 10
GOTO MAIN
VER:
serout2 VERIOUT,813,[REP$AA5,REP$005,REP$FF5]
serout2 VERIOUT,813,["E","T","E",BILGI]
serout2 VERIOUT,813,["E","T","E",BILGI]
serout2 VERIOUT,813,["E","T","E",BILGI]
serout2 VERIOUT,813,["E","T","E",BILGI]
RETURN
PORTA_BAK:
BILGI=PORTA & %00011110
IF BILGI<30 THEN
GOSUB VER
' PAUSE 100
ENDIF
WHILE PORTA<30 : WEND
RETURN
END