小吳 VBQA 程式設計討論

1.有一台三菱ROBOT之前用DOS系統CPU p133傳還蠻順 用CPU PIII 1G
傳送或接收一直出問題 因為DOS畫面會出亂碼 因此想該成用VB寫
可是資料超過15行左右就會出問題 好像PLC與PC傳輸也有這樣的問題
2.把RS232的2.3腳短路由txtSend.text傳 txtReceive.text收
資料較多時後面資料部分無法收到 應該是MSComm1 buffer 的問題
不知各位前輩如何解決 thanks 1,2問題程式如下:
Private Sub CmdSend_Click()
Comm1.Output = Trim(UCase(txtSend.Text)) & vbCr
TimeDelay 2000
txtReceive.Text = Comm1.Input
End Sub
Private Sub Form_Load()
Dim buf
Comm1.PortOpen = True
Comm1.RTSEnable = True
TimeDelay 1000
End Sub