?? 計算機世界網(wǎng)-vb mscomm控件應(yīng)用.htm
字號:
<!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>計算機世界網(wǎng)-VB Mscomm控件應(yīng)用</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="計算機世界網(wǎng)-VB Mscomm控件應(yīng)用.files/ccwlogo.gif"></TD></TR>
<TR>
<TD vAlign=top height=27><IMG height=27
src="計算機世界網(wǎng)-VB Mscomm控件應(yīng)用.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="計算機世界網(wǎng)-VB Mscomm控件應(yīng)用.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="計算機世界網(wǎng)-VB Mscomm控件應(yīng)用.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('計算機世界網(wǎng)首頁')"><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日】 </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">技
術(shù)</A> /</TD>
<TD class=V12><A href="http://www.ccw.com.cn/center/prod.asp">產(chǎn)
品</A> /</TD>
<TD class=V12><A href="http://www.ccw.com.cn/center/app.asp">應(yīng)
用</A> /</TD>
<TD class=V12><A href="http://www.ccw.com.cn/center/net.asp">網(wǎng)
絡(luò)</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控件應(yīng)用</FONT></H2><BR><B>江蘇戚墅堰機車車輛廠設(shè)計處(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產(chǎn)生OnComm事件。Modem送出的信息格式為“DATE =
月日回車換行TIME = 時分回車換行NMBR =
電話號碼回車換行”。在OnComm事件處理程序中對讀入信息進行截取,截取電話號碼后,以該電話號碼為關(guān)鍵字,查詢并顯示數(shù)據(jù)庫中有關(guān)信息。</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>'正常運行程序,關(guān)閉右側(cè)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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -