| 投稿日 | ： 2003/11/19(Wed) 09:31 |
| 投稿者 | ： 雅 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: RS232Cのシリアル通信（MSComm） |
これで自分のCom1からCom2に送信できると思います。
後はエラーの設定とかイベントを追加していって…^^
Private Sub From_Load()
MSComm1.CommPort = 1
MSComm1.Setting = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm2.CommPort = 2
MSComm2.Setting = "9600,n,8,1"
MSComm2.PortOpen = True
End Sub
Private Sub Command1_click()
MSComm1.Output = Text1.Text
End Sub
Private Sub Command2.Click()
Text2.Text = MSComm2.Input
End Sub