⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 计算机世界网-vb mscomm控件应用.htm

📁 计算机世界网-VB Mscomm控件应用二
💻 HTM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
  <TBODY>
  <TR>
    <TD class=a14>MSComm1.Output = “AT＃CID=1” ＋ vbCr</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'检查Modem命令是否完成</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Call CHK_MODEM </TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>MSComm1.Output = “ATS0=0” ＋ vbCr</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>End Sub</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>　　</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'检查Modem命令是否完成</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Private Sub CHK_MODEM()</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Dim T As Single</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Dim L As Integer</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>T = Timer</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Do</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>COMBUF = COMBUF ＋ MSComm1.Input</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>L = InStr(1, COMBUF,“OK”)</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Loop Until L &lt;&gt; 0 Or Timer － T &gt; 
1</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If L = 0 Then</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Line1.Visible = True</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Line2.Visible = True</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Form1.Show</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>MsgBox 
“MODEM未联机”,vbOKOnly＋vbCritical,“测试MODEM”</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Else</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Line1.Visible = False</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Line2.Visible = False</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>End If</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>End Sub</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>　　</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'串行口接收事件处理</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Private Sub MSComm1_OnComm()</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Dim CH, ST As String</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Dim LC As Integer</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Select Case MSComm1.CommEvent</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'接收到Rthreshold个字符</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Case comEvReceive </TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>COMBUF = COMBUF ＋ MSComm1.Input</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'读取串口数据</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Do </TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>LC = InStr(1, COMBUF, Chr(10))</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If LC = 0 Then Exit Do</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>COMLIN = Left(COMBUF, LC)</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>COMBUF = Mid(COMBUF, LC ＋ 1)</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>CH = Left(COMLIN, 1)</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If “ ” &lt; CH And CH &lt; Chr(127) And DEBFLG = 1 
  Then</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Text5.Text = Text5.Text ＋ COMLIN</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Text5.SelStart = Len(Text5.Text)</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>End If</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'截取来电号码,并显示</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If InStr(1, COMLIN“NMBR=”)&lt;&gt; 0 
Then</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>ST = Mid(COMLIN, 8)</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Text2.Text=“ ”＋Left＄(ST,Len (ST) －2) ＋ “ 
”</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Form1.WindowState = 0</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Timer1.Enabled = True</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Call BEEP_NO</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'截取来电日期,并显示</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>ElseIf InStr(1, COMLIN, “DATE = ”) &lt;&gt; 0 
  Then</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Text3.Text = Str(Year(DATE)) ＋ “.”＋ Mid(COMLIN, 8, 2) ＋ “.” 
      ＋ Mid(COMLIN, 10, 2) ＋ “ ”</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'截取来电时间,并显示</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>ElseIf InStr(1, COMLIN, “TIME = ”) &lt;&gt; 0 
  Then</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Text4.Text = “ ” ＋ Mid(COMLIN, 8, 2) ＋ “:” ＋ Mid(COMLIN, 10, 
      2)</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'检测振铃个数</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>ElseIf InStr(1, COMLIN, “RING”) &lt;&gt; 0 
Then</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Call BEEP_NO</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If HANGUP = 1 Or BEEPNO = 15 Then Call 
HANG_UP</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'检测是否停止振铃</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>ElseIf Left(COMLIN, 3) = “000” Then</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>BEEPNO = 0</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Timer1.Enabled = False</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Form1.WindowState = 1</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>ProgressBar1.Value = 0</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Frame3.Caption = “振铃数”</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>End If</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Loop</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'其他事件处理</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Case comEvCTS</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Case comEvDSR</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Case comEvCD</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Case comEvRing</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Case comEventBreak</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Call INIT_MODEM</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Case Else</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>MsgBox “串口接收事件号：” ＆ MSComm1.CommEvent ＆ “ ”, vbOKOnly ＋ 
  </TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>vbCritical, “测试串行口”</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>End Select</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>End Sub</TD></TR></TBODY></TABLE><BR>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD align=right>（网页编辑：<A 
  href="mailto:app@ccw.com.cn">徐向阳</A>）</TD></TR></TBODY></TABLE><BR>
<CENTER>
<P>共2页，这是第2页&nbsp;&nbsp;<A 
href="http://www.ccw.com.cn/htm/app/aprog/01_2_26_3.asp">上一页</A> 
</P></CENTER><BR>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>相关文章</TD></TR>
  <TR>
    <TD>
      <UL>
        <LI><A 
        href="http://www.ccw.com.cn/htm/app/aprog/01_2_21_4.asp">VB6.0调用Excel制作任意表格</A> 

        <LI><A 
        href="http://www.ccw.com.cn/htm/app/aprog/01_2_16_2.asp">一个小巧的数据库压缩算法</A> 

        <LI><A 
        href="http://www.ccw.com.cn/htm/app/aprog/01_2_15_2.asp">利用VB更改WIN98状态栏时间显示方式</A> 

        <LI><A 
        href="http://www.ccw.com.cn/htm/app/aprog/01_1_11_3.asp">七段数码管显示控件的制作与应用</A> 

        <LI><A href="http://www.ccw.com.cn/htm/app/aprog/001228_6.asp">使用Visual 
        Basic操纵XML文档</A> </LI></UL></TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD align=right>
      <FORM id=form1 name=form1 onsubmit="JavaScript: return chkField(this)" 
      action=/pub/subMail.asp method=post><INPUT type=hidden value=5746 
      name=rec> 您的姓名：<INPUT size=10 name=myName>&nbsp; 您朋友的E-mail：<INPUT size=10 
      name=friendMail>&nbsp; <INPUT type=submit value=推荐给好友> </FORM></TD></TR>
  <TR>
    <TD align=right><B>[<A href="javascript:window.close()">关闭窗口</A>]</B> 
  </TD></TR></TBODY></TABLE>
<SCRIPT language=javascript>function chkField(fmObj)
{if (!fmObj.friendMail.value){
	alert("请输入您朋友的E-mail！");
	fmObj.friendMail.focus();
	return false;
}
	return true;
}
</SCRIPT>

<TABLE width=680 align=center>
  <TBODY>
  <TR>
    <TD>
      <HR width=660 color=#f46240 SIZE=1>
    </TD></TR></TBODY></TABLE><BR>
<P align=center>Copyright(C) ccw.com.cn,All rights reserved</P>
<P align=center><B>中国计算机世界出版服务公司版权所有</B></P></CENTER></BODY></HTML>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -