209.htm

一些简单的编程例子 都是网页的形式

<p>用VB定制合路器</p>
<p></p>
<p></p>
<p>Option Explicit</p>
<p>　　Dim StrInComm1 As String 注释：定义从串口1接收数据变量</p>
<p>　　Dim StrInComm2 As String 注释：定义从串口2接收数据变量</p>
<p>　　Dim StrOut As String 注释：定义发送数据变量 </p>
<p></p>
<p></p>
<p>　　代码段1、</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>　　Text3.Text = 1</p>
<p>　　注释：清零</p>
<p>　　StrInComm1 = ""</p>
<p>　　StrInComm2 = ""</p>
<p>　　StrOut = ""</p>
<p>　　注释：打开端口</p>
<p>　　MSComm1.PortOpen = True</p>
<p>　　MSComm2.PortOpen = True</p>
<p>End Sub</p>
<p></p>
<p></p>
<p>代码段2、</p>
<p></p>
<p>Private Sub Form_Unload(Cancel As Integer)</p>
<p>　注释：关闭端口</p>
<p>　MSComm1.PortOpen = False</p>
<p>　MSComm2.PortOpen = False</p>
<p>End Sub</p>
<p></p>
<p></p>
<p></p>
<p>代码段3、</p>
<p></p>
<p>Private Sub Timer1_Timer()</p>
<p>　　Text3.Text = Text3.Text + 1</p>
<p>　　注释：每100毫秒从串口接收一次数据</p>
<p>　　Dim IntPositionD As Integer 注释：定义“0D”位置变量"</p>
<p>　　StrOut = ""</p>
<p></p>
<p>　　StrInComm1 = StrInComm1 + MSComm1.Input 注释：得到串口1数据</p>
<p></p>
<p>　　StrInComm2 = StrInComm2 + MSComm2.Input 注释：得到串口2数据</p>
<p></p>
<p>　　IntPositionD = InStr(StrInComm1, Chr(13)) 注释：判断从跟串口1中得到的数据是否有回车</p>
<p>　　If IntPositionD > 0 Then 注释：如果有</p>
<p>　　　StrOut = StrOut + Left(StrInComm1, IntPositionD) 注释：取出左边的数据</p>
<p>　　　StrInComm1 = Right(StrInComm1, Len(StrInComm1) - IntPositionD) 注释：取出右边的数据</p>
<p>　　End If</p>
<p>　　IntPositionD = InStr(StrInComm2, Chr(13)) 注释：注释：判断从跟串口1中得到的数据是否有回车</p>
<p>　　If IntPositionD > 0 Then</p>
<p>　　　StrOut = StrOut + Left(StrInComm2, IntPositionD)</p>
<p>　　　StrInComm2 = Right(StrInComm2, Len(StrInComm2) - IntPositionD)</p>
<p>　　End If</p>
<p>　　Text2.Text = StrOut 注释：求出发送数据</p>
<p>　　Text1.Text = Text1.Text + Text2.Text</p>
<p>End Sub </p>
<p> </p>