ＰＩＣ同士の接続については、１、２、３線シリアル・インターフェースが解りやすい。
このうちの、２線式２種類(ＲＳ２３２Ｃ、Ｉ２Ｃ)の接続例図を示す。
ピン名称については、ＲＳ２３２Ｃでは、Tx、Rx であり、Ｉ２Ｃでは、SCL、SDA である。
３線式のＳＰＩでは、SCK、SDI、SDO で、１線では、DQ と呼ぶ。もちろん、もう１線 基準電位の GND を忘れてはいけない。
ちなみに、ＰＳ／２では、CL、DT で、ＵＳＢでは、D+、D- である。
これらは、GND とさらに +5V ラインも必要だから４線式？
で、通信プログラムの、サンプルコーディングを示す。
ＲＳ２３２Ｃ通信のコーディング例 ３つ(mikro BASIC、Great Cow BASIC、Swordfish BASIC)
対向はＰＣでもＰＩＣでも同じである。
(段付けのために、先頭に2B空白がある)
---------------- ＜mikro BASIC＞ ----- 16F/18F ----------
dim received_byte as byte ' Declare variable
Usart_Init(115200) ' Initialize USART module
if Usart_Data_Ready = 1 then ' If data is received
received_byte = Usart_Read ' Read received data
end if
Usart_Write(received_byte) ' Send data via USART
' ----------
Forum → Contributors → Hardware USART Library と辿って得られた「usart.h」を流用している。
---------------- ＜Great Cow BASIC＞ ---- 16F -----------
dim received_byte ' Declare variable
initusart ' Initialize USART module 19200bps
received_byte=HserIn ' Read received data
HserTX(received_byte) ' Send data via USART
' ----------
(段付けのために、先頭に2B空白がある)
---------------- ＜Swordfish BASIC＞ -- 18F -------------
Include "USART.bas" ' Declare module
Include "ISRRX.bas"
Dim received_byte As Byte ' Declare variable
SetBaudrate(br115200) ' Initialize USART module
If ISRRX.DataAvailable Then ' If data is received
received_byte=USART.ReadByte() ' Read received data
End If
USART.WriteByte(received_byte) ' Send data via USART
' ----------
コンパイラ付属のサンプルそのままかも。
お手数をおかけします。２クリック(投票を)お願いします ⇒
