作者abcpptw (abcpptw)
看板Visual_Basic
標題[VB6 ] RS232傳送至電腦的問題
時間Tue Jan 4 23:32:53 2011
最近寫了一段程式，主要是用RS232讓模組板跟電腦做連接
電腦透過VB寫的RS232傳輸接收程式把模組板做處理過後的數值
在VB的上顯示出來，再用寫好的VB程式按下接收鍵存放至電腦裡面
可是當RS232將數值傳送給VB的時候，text卻沒有顯示出任何數值
但是按下接收鍵的時候存下來的檔案上卻能夠顯示出剛剛模組板處理過後的數值
想請問一下要怎麼樣才能讓模組板在用RS232傳送的同時
VB上自己寫的text也能夠同步顯示呢？
設計架構大概如圖
http://ppt.cc/fjFC
左上角是text1，在設計的時候希望可以在模組板傳送資料的時候同步將內容
自動顯示出來
右上角text2則是在接收的時候可以顯示出內容
目前text2沒有問題可以顯示，可是text1就是沒辦法自動顯示出模組板透過RS232
傳到電腦的內容，希望能得到解答，謝謝各位
以下是我寫的程式碼...(因為是剛接觸...寫的不好請多包含)
Dim f As String
Private Sub Command1_Click() '將RS232傳送至text1資料接收並在text2顯示
出資料內容
Text2.Text = MSComm1.Input
End Sub
Private Sub Command2_Click() '將接收的資料存檔
CommonDialog1.Filter = "TextFile(*.txt)|*.txt"
CommonDialog1.ShowSave
f = CommonDialog1.FileName
Text3.Text = f
n = FreeFile()
Open f For Append As #n
s = Text2.Text
Print #n, s
Close #n
MsgBox "存檔成功!", vbInformation, "資料存檔"
End Sub
Private Sub Command3_Click() '結束
End
End Sub
Private Sub Command4_Click() ←這裡想做個可以在text1上面顯示出要丟的資料
然後按下command4之後可以傳送至text2
MSComm1.Output = Text1.Text
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 '使用Com1
MSComm1.Settings = "115200,n,8,1" '串列通訊四要項
MSComm1.PortOpen = True '程式開始便打開通訊埠
MSComm1.RThreshold = 1 '每收到一筆資料便產生乙次OnComm事件
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case MScomEvReceive
Text1.Text = Trim(MSComm1.Input)
End Select
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.240.222.154