IDC资讯中心
假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读
表单画面
表单部分
————————————————————-
Form.Name=”Form1″
Caption=”Form1″
CommandButton.Name=Command2
Caption=”停止测试”
CommandButton.Name=Command1
Caption=”开始测试”
TextBox.Name=Text1
MSComm.Name=MSComm1
DTREnable=-1True
Label.Name=Label1
AutoSize=-1True
Caption=”欲送出的资料-按下[Enter]送出”
Label.Name=Label3
BorderStyle=1单线固定
Label.Name=Label2
AutoSize=-1True
Caption=”折返显示”
程式部分
————————————————————-
OptionExplicit
设一个此表单的区域变数，来作终止读取通讯埠的指标
DimbStopAsBoolean
设一个区域变数，来作读取通讯埠的暂存区
DimInStringAsString
PrivateSubCommand1_Click()
bStop=False
Text1.SetFocus
WithMSComm1
设定通讯埠号，可依照您的需求更改
.CommPort=2
设定传输速率等，可依照您的需求更改
.Settings=”14400,N,8,1″
将通讯埠打开
.PortOpen=True
EndWith
假如使用者未按下「停止测试」钮(bStop=False),则继续读取
DoWhileNotbStop
IfMSComm1.InBufferCountThen
通讯埠中假如有资料的话,则读取进来
InString=InString&MSComm1.Input
如果资料中有Chr(13)和Chr(10)的话,则显示出来
IfInStr(InString,vbCrLf)Then
Label3.Caption=Label3.Caption&InString
InString=””
暂时把系统资源让出来给其它的程式使用
DoEvents
EndIf
EndIf
DoEvents
Loop
EndSub
PrivateSubCommand2_Click()
按下「停止测试」钮时,把bStop设为「真」(True)
如此程式才会停止等待(或读取)通讯埠所收到的资料
bStop=True
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
bStop=True
把通讯埠关闭,才不会影响其它程式的使用通讯埠
MSComm1.PortOpen=False
End
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
当按下[Enter]时,把Text1文字框中的资料送至通讯埠
IfKeyAscii=13Then
MSComm1.Output=Text1.Text&vbCrLf
Text1.Text=””
KeyAscii=0
EndIf
EndSub->
