RS-323Cによる送受信 (ID:85631)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつも教えていただきありがとうございます。 また、質問があります。 今、ボタンを押したら「ABC」という文字を送信し、返ってきたデータを「indata」に入れてテキストボックスに表示したいのですがうまくできません。以下にソースを書きます。 訂正箇所がありましたら教えてください。よろしくお願い致します。 Private Sub Form1_Load AxMSComm1.CommPort = 6 AxMSComm1.Settings = "9600,n,8,1" AxMSComm1.Handshaking = AxMSComm1.Handshaking.comNone AxMSComm1.RTSEnable = False AxMSComm1.RThreshold = 1 AxMSComm1.SThreshold = 1 AxMSComm1.InputMode = 0 End Sub Private Sub Button1_Click AxMSComm1.PortOpen = True Dim Buffer As String Dim indata As String Buffer = "ABC" AxMSComm1.Output = Buffer indata = AxMSComm1.Input TextBox1.Text = indata AxMSComm1.PortOpen = False End Sub