作者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