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

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

📁 计算机世界网-VB Mscomm控件应用二
💻 HTM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0051)http://www.ccw.com.cn/htm/app/aprog/01_2_26_3_2.asp -->
<HTML><HEAD><TITLE>计算机世界网-VB Mscomm控件应用</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE>.a14 {
	FONT-SIZE: 14px; TEXT-INDENT: 25px; LINE-HEIGHT: 20px
}
.f {
	FONT-SIZE: 18px; COLOR: #0f3ccd
}
IMG {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
TD {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
P {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
INPUT {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
A:link {
	COLOR: black; TEXT-DECORATION: none
}
A:visited {
	COLOR: #80006f; TEXT-DECORATION: none
}
A:hover {
	COLOR: black; TEXT-DECORATION: underline
}
</STYLE>

<META content="MSHTML 6.00.2800.1400" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=2>
<CENTER>
<STYLE>.v12 {
	FONT-WEIGHT: bold; FONT-SIZE: 10pt; COLOR: #ffffff
}
.v14 {
	FONT-SIZE: 14px; TEXT-INDENT: 25px; LINE-HEIGHT: 20px
}
IMG {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
TD {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
P {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
INPUT {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
SELECT {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
A:link {
	COLOR: black; TEXT-DECORATION: none
}
A:visited {
	COLOR: #80006f; TEXT-DECORATION: none
}
A:hover {
	COLOR: black; TEXT-DECORATION: underline
}
</STYLE>

<STYLE>.v13 {
	FONT-WEIGHT: bold; FONT-SIZE: 10pt; COLOR: #ffffff
}
.v12 {
	FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #4c029c
}
.v14 {
	FONT-SIZE: 14px; TEXT-INDENT: 25px; LINE-HEIGHT: 20px
}
IMG {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
TD {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
P {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
INPUT {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
SELECT {
	FONT-SIZE: 12px; font-fammily: verdana,宋体
}
A:link {
	COLOR: black; TEXT-DECORATION: none
}
A:visited {
	COLOR: #80006f; TEXT-DECORATION: none
}
A:hover {
	COLOR: black; TEXT-DECORATION: underline
}
</STYLE>
<!--头-->
<TABLE cellSpacing=0 cellPadding=0 width=767 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=bottom>
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR>
          <TD vAlign=top><IMG 
        src="计算机世界网-VB Mscomm控件应用.files/ccwlogo.gif"></TD></TR>
        <TR>
          <TD vAlign=top height=27><IMG height=27 
            src="计算机世界网-VB Mscomm控件应用.files/knowledge.gif" 
        width=207></TD></TR></TBODY></TABLE></TD>
    <TD vAlign=bottom width=556 bgColor=#4c029c height=96>
      <TABLE height=96 cellSpacing=0 cellPadding=0 width=556 bgColor=#4c029c 
      border=0>
        <TBODY>
        <TR>
          <TD vAlign=bottom bgColor=#ffffff colSpan=2 height=25><IMG 
            src="计算机世界网-VB Mscomm控件应用.files/top.gif" useMap=#F></TD></TR>
        <TR vAlign=center>
          <TD vAlign=center align=middle height=60><!-- <a href="/search/" target=_blank><img src="/img2/esearch.GIF" border=0 width=468 height=60></a> --><A 
            href="http://www.ccw.com.cn/html/search/thememail/" 
            target=_blank><IMG height=60 
            src="计算机世界网-VB Mscomm控件应用.files/topbanner_thememail.gif" width=468 
            border=0></A> </TD>
          <TD align=middle width="15%">
            <TABLE width="95%">
              <TBODY>
              <TR>
                <TD><A href="mailto:center@ccw.com.cn?subject=我要投稿:" 
                  target=_blank><FONT class=v13>我要投稿</A><BR><A 
                  href="mailto:center@ccw.com.cn?subject=编读往来"><FONT 
                  class=v13>编读往来</A><BR><A 
                  href="javascript:AddBookMark('计算机世界网首页')"><FONT 
                  class=v13>加入收藏</A></FONT></FONT></FONT></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD bgColor=#ffffff colSpan=2 height=1></TD></TR>
        <TR>
          <TD bgColor=#b4aafc colSpan=2 height=2></TD></TR></TBODY></TABLE><MAP 
      name=F><AREA shape=RECT target=_blank coords=29,3,61,18 
        href="http://www.ccw.com.cn/"><AREA shape=RECT target=_blank 
        coords=72,3,143,18 href="http://www.ccw.com.cn/news1/"><AREA shape=RECT 
        target=_blank coords=155,2,216,18 
        href="http://www.ccw.com.cn/center/"><AREA shape=RECT target=_blank 
        coords=225,2,299,18 href="http://www.ccw.com.cn/work/"><AREA shape=RECT 
        target=_blank coords=310,3,364,19 
        href="http://www.ccw.com.cn/search/"><AREA shape=RECT target=_blank 
        coords=372,2,412,19 href="http://www3.ccw.com.cn/"><AREA shape=RECT 
        target=_blank coords=424,2,550,18 
  href="http://www2.ccw.com.cn/"></MAP></TD></TR>
  <TR>
    <TD bgColor=#b4aafc colSpan=2>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD align=middle width="26%"><FONT 
            class=v12>【2004年11月13日】&nbsp;&nbsp;&nbsp;</FONT></TD>
          <TD class=V12><A href="http://www.ccw.com.cn/center/topic.asp">专 
            题</A>　/</TD>
          <TD class=V12><A href="http://www.ccw.com.cn/center/tech.asp">技 
            术</A> /</TD>
          <TD class=V12><A href="http://www.ccw.com.cn/center/prod.asp">产 
            品</A>　/</TD>
          <TD class=V12><A href="http://www.ccw.com.cn/center/app.asp">应 
            用</A>　/</TD>
          <TD class=V12><A href="http://www.ccw.com.cn/center/net.asp">网 
            络</A>　/</TD>
          <TD class=V12><A href="http://www.ccw.com.cn/center/prog.asp">编 
            程</A>　/</TD>
          <TD class=V12><A href="http://www.ccw.com.cn/center/skill.asp">技 
            巧</A> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE width=680 align=center>
  <TBODY>
  <TR>
    <TD align=middle><BR>
      <H2><FONT color=#0f3ccd>VB 
      Mscomm控件应用</FONT></H2><BR><B>江苏戚墅堰机车车辆厂设计处(213011) 李秉璋</B> <BR>
      <HR width=660 color=#f46240 SIZE=1>
    </TD></TR></TBODY></TABLE><BR>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14><I>3．程序功能</I></TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD 
      class=a14>程序首先初始化Modem，然后等待来电。当有来电时，MSComm产生OnComm事件。Modem送出的信息格式为“DATE = 
      月日回车换行TIME = 时分回车换行NMBR = 
      电话号码回车换行”。在OnComm事件处理程序中对读入信息进行截取，截取电话号码后，以该电话号码为关键字，查询并显示数据库中有关信息。</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14><I>4．主要方法与事件代码</I></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>Const DEBFLG = 1</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Public COMX, BEEPNO, HANGUP,PNLOC As 
Integer</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Public COMBUF, COMLIN As String</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Private Sub Form_Load()</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>Dim I, C As Integer </TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>COMX = 0</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>COMBUF = “”</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>COMLIN = “”</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>HANGUP = 0</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>'正常运行程序，关闭右侧Text5</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If DEBFLG= 0 Then</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Form1.Width = Form1.Width － Text5.Width</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Text5.Enabled = False</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Text5.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>On Error GoTo ERROR_FORM_LOAD</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>For C = 1 To 4 </TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If MSComm1.PortOpen Then MSComm1.PortOpen = 
  False</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>MSComm1.CommPort = C</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If Not MSComm1.PortOpen Then </TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>MSComm1.PortOpen = True</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If MSComm1.PortOpen Then MSComm1.PortOpen = 
  False</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If COMX = 0 Then COMX = C</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>FORM_LOAD_1:</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Next C</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If COMX = 0 Then End</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>On Error GoTo 0</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Option1(COMX － 1).Value = True</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Exit Sub</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>ERROR_FORM_LOAD:</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Option1(C － 1).Enabled = False</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>Resume FORM_LOAD_1</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 Option1_Click(Index As 
Integer)</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>COMX = Index ＋ 1</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>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 INIT_MODEM()</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If MSComm1.PortOpen Then MSComm1.PortOpen = 
  False</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>MSComm1.CommPort = COMX</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>If Not MSComm1.PortOpen Then MSComm1.</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
  <TBODY>
  <TR>
    <TD class=a14>PortOpen = True</TD></TR></TBODY></TABLE>
<TABLE width=620 align=center>
12

⌨️ 快捷键说明

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