smallbasicでRS232C

シリアル

rs232cです。
エクステンションが必要です。
エクステンションは、LitDevがあります。
このコードは、自前のエクステンションです。

コード

class1.OpenPort("COM5", 9600)
TextWindow.WriteLine(">open com5")
while a <> "H"
  a = TextWindow.readkey()
  class1.TXString(a)
  Program.Delay(100)
  s = Class1.RXAll()
  TextWindow.WriteLine(s)
endwhile
TextWindow.WriteLine(">end")