8
Text2Text“”LeftSTLe
ST2“”
Form1Wi
dowState0
Timer1E
abledTrue
CallBEEP_NO
截取来电日期并显示
ElseIfI
Str1COMLIN“DATE”0The
Text3TextStrYearDATE“”
MidCOMLIN82“”MidCOMLIN102“”
截取来电时间并显示
ElseIfI
Str1COMLIN“TIME”0The
Text4Text“”MidCOMLIN82“”MidCOMLIN102
检测振铃个数
ElseIfI
Str1COMLIN“RING”0The
CallBEEP_NO
IfHANGUP1OrBEEPNO15The
CallHANG_UP
检测是否停止振铃
ElseIfLeftCOMLIN3“000”The
BEEPNO0
Timer1E
abledFalse
Form1Wi
dowState1
ProgressBar1Value0
Frame3Captio
“振铃数”
E
dIf
Loop
其他事件处理
CasecomEvCTS
CasecomEvDSR
CasecomEvCD
CasecomEvRi
g
CasecomEve
tBreak
CallINIT_MODEM
CaseElse
fMsgBox“串口接收事件号”MSComm1CommEve
t“”vbOKO
ly
vbCritical“测试串行口”
E
dSelect
E
dSub、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
VB控件MSComm串口通讯实例
vb20070404212646阅读150评论0字号大中小订阅
声明本文摘自httpwww51xi
shoucom新手单片机编程技术网对此文具有解释权
现有电子秤一台使用串口与计算机进行通讯。编写VB程序来访问串口达到读取电子秤上显示的数据。该电子秤为BE01型仪表输出为RS232C标准接口波特率为3009600、偶校验、7个数据位、2个停止位。所有字符均发送11位ASCII码一个起始位。在VB中与串口通讯需要引入控件MSComm串口通讯控件在MicrosoftCommCo
trol60中。具体程序
如下控件简称MSC
DimOut12AsByte接收var中的值
DimvarAsVaria
t接收MSCi
put中的数值
Dim
ReceAsI
teger计算MSCi
putbuffer的个数
DimiAsI
tegerjAsI
teger随即变量计算循环
PrivateSubForm_Load
ClearText
WithMSC
CommPort1设置Com1为通信端口
Setti
gs