您的位置：关键词：VB
要求：用VB编写一个小软件，采集电子数显千分表的数据
数显表接口参数：数显表的专用接口可与PC机的RS232（9针）相接，其波特率4800，无奇偶校检，8位数据位，1位停止位，以AcsII码发送数据
窗体设计：1个listbox,1个textbox，1个MSComm控件，2个CommandButton
程序设计：
Dim indata As Variant
Dim data(100) As Single
Private Sub Command1_Click()
Static i
i = i + 1
data(i) = Text1.Text
List1.AddItem data(i)
End Sub ‘...按键一次，采集一个数据，并存入List1中
Private Sub Command2_Click()
MSComm1.PortOpen = False '….关端口
Unload Me
End Sub '...退出
Private Sub Form_Load()
MSComm1.CommPort = 1 '...使用Com1口
MSComm1.Settings = "4800,n,8,1" '...设置通讯参数
MSComm1.RThreshold = 10
MSComm1.streshold = 10
MSComm1.PortOpen = True '...打开串口
Text1.Text = ""
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive '...有接收事件发生
indata = MSComm1.Input
Text2.Text = (indata / 10) ‘…text1实时显示数显表的数据
MSComm1.InBufferCount = 0 '...清空输入寄存器
End Select
End Sub