04.htm

vb功能实例介绍。详细、很好的实例说明。

<p>MsComm 文字传输</p>
<p></p>
<p></p>
<p>假如您对 MSComm 的基本属性还不了解, 建议请先至MSComm 基本介绍一文中详读</p>
<p></p>
<p>表单画面</p>
<p></p>
<p>' 表单部分</p>
<p>'-------------------------------------------------------------</p>
<p>Form.Name = "Form1"</p>
<p>Caption = "Form1"</p>
<p>CommandButton.Name = Command2</p>
<p>Caption = "停止测试"</p>
<p>CommandButton.Name = Command1</p>
<p>Caption = "开始测试"</p>
<p>TextBox.Name = Text1</p>
<p>MSComm.Name = MSComm1</p>
<p>DTREnable = -1'True</p>
<p>Label.Name = Label1</p>
<p>AutoSize = -1'True</p>
<p>Caption = "欲送出的资料 - 按下[Enter]送出"</p>
<p>Label.Name = Label3</p>
<p>BorderStyle = 1'单线固定</p>
<p>Label.Name = Label2</p>
<p>AutoSize = -1'True</p>
<p>Caption = "折返显示"</p>
<p></p>
<p>' 程式部分</p>
<p>'-------------------------------------------------------------</p>
<p>Option Explicit</p>
<p>' 设一个此表单的区域变数，来作终止读取通讯埠的指标</p>
<p>Dim bStop As Boolean</p>
<p>' 设一个区域变数，来作读取通讯埠的暂存区</p>
<p>Dim InString As String</p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p>bStop = False</p>
<p>Text1.SetFocus</p>
<p>With MSComm1</p>
<p>' 设定通讯埠号，可依照您的需求更改</p>
<p>.CommPort = 2</p>
<p>' 设定传输速率等，可依照您的需求更改</p>
<p>.Settings = "14400,N,8,1"</p>
<p>' 将通讯埠打开</p>
<p>.PortOpen = True</p>
<p>End With</p>
<p>' 假如使用者未按下「停止测试」钮(bStop = False), 则继续读取</p>
<p>Do While Not bStop</p>
<p>If MSComm1.InBufferCount Then</p>
<p>' 通讯埠中假如有资料的话, 则读取进来</p>
<p>InString = InString & MSComm1.Input</p>
<p>' 如果资料中有 Chr(13) 和 Chr(10) 的话, 则显示出来</p>
<p>If InStr(InString, vbCrLf) Then</p>
<p>Label3.Caption = Label3.Caption & InString</p>
<p>InString = ""</p>
<p>' 暂时把系统资源让出来给其它的程式使用</p>
<p>DoEvents</p>
<p>End If</p>
<p>End If</p>
<p>DoEvents</p>
<p>Loop</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command2_Click()</p>
<p>' 按下「停止测试」钮时, 把 bStop 设为「真」(True) </p>
<p>' 如此程式才会停止等待(或读取)通讯埠所收到的资料 </p>
<p>bStop = True</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)</p>
<p>bStop = True</p>
<p>' 把通讯埠关闭, 才不会影响其它程式的使用通讯埠 </p>
<p>MSComm1.PortOpen = False</p>
<p>End</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Text1_KeyPress(KeyAscii As Integer)</p>
<p>' 当按下 [Enter] 时, 把 Text1 文字框中的资料送至通讯埠</p>
<p>If KeyAscii = 13 Then</p>
<p>MSComm1.Output = Text1.Text & vbCrLf</p>
<p>Text1.Text = ""</p>
<p>KeyAscii = 0</p>
<p>End If</p>
<p>End Sub</p>
<p></p>
<p></p>
<p>　</p>
<p></p>
<p></p>