pic ke pic 16f84 rs485 rutin

[mbyka]

Aku menulis dengan picbasic pro kode ini
Maaf, tapi Anda harus login untuk melihat lampiran

 

[mbyka]

RS485_RX.bas

'************************************************* **
'***** Mbyka - (c) Copyright 2002 **********
'************************************************* **
'RS485 comminications
'TX

termasuk "modedefs.bas"

datap var porta.0
var dir porta.1 'dir = 1 maka output, dir = 0 maka masukan
led1 var portb.0
led2 var portb.1
veri var byte
baud con 84'9600, N, 8,1mulai:
trisa = 1
trisb = 0
led1 = 0
led2 = 0
utama:
dir = 0
serin2 datap, baud, 100, utama, [veri]
led1 = 1
jeda 150
led1 = 0
'
jika veri = "X" maka
led2 = 1
jeda 150
led2 = 0
endif
goto utama

 

[mbyka]

RS485_TX.bas

'************************************************* **
'***** Mbyka - (c) Copyright 2002 **********
'************************************************* **
'RS485 commminications
'TX

termasuk "modedefs.bas"

datap var porta.0
var dir porta.1 'dir = 1 maka output, dir = 0 maka masukan
Buton var portb.0
dipimpin var portb.1
veri var byte
baud con 84'9600, N, 8,1mulai:
trisa = 0
trisb = 1
dipimpin = 0
utama:
Buton jika = 1 maka
panggilan rs485_send
endif
jeda 150
goto utamars485_send:
dipimpin = 1
dir = 1
serout2 datap, baud, [ "X"]
dipimpin = 0
kembali

************************************************** ***

SHIFTOUT.bas'************************************************* **
'***** Mbyka - (c) Copyright 2002 **********
'************************************************* **
'74HC595 Kullanımı

termasuk "modedefs.bas"

oe var portc.0
sclk var portc.1
sdat var portc.2
veri var byte

Mulai:
trisc = 0
portc = 0
Utama:
veri = $ 12
shiftout sdat, sclk, LSBFIRST, [veri]
oe = 0
oe = 1
oe = 0
selesai:
@ Tidur
goto done