JavaScript串口(通过vb的MSCOMM32.OCX控件)

来源:互联网 发布:手机清理缓存软件 编辑:程序博客网 时间:2024/05/16 01:44

我的电脑已经安装vb环境,主要是MSCOMM32.OCX文件已经存在

 

<html>  
<head>  
  <title>JavaScript串口(通过vb的MSCOMM32.OCX控件)</title>
   
  <SCRIPT   ID=clientEventHandlersJS   LANGUAGE=javascript>  
  <!--  
  //重写mscomm控件的唯一事件处理代码  
  function   MSComm1_OnComm()    
  {  
    var   len=0;
     //window.alert("happy"); 
    if(MSComm1.CommEvent==1)//如果是发送事件  
  {  
        window.alert("ok");//这句正常,说明发送成功了  
  }  
    else   if(MSComm1.CommEvent==2)//如果是接收事件  
    {  
   //window.alert(MSComm1.CommEvent);//!   ‘
   //window.alert(MSComm1.Input);//
       document.form1.txtReceive.value=document.form1.txtReceive.value + MSComm1.Input;
    }  
  
  return   false;  
 }  
 //-->  
  </SCRIPT> 
  
  <SCRIPT   LANGUAGE=javascript   FOR=MSComm1   EVENT=OnComm>  
  <!-- 
  // MSComm1控件每遇到OnComm事件就调用MSComm1_OnComm()函数
          MSComm1_OnComm()
   //-->  
  </SCRIPT>  
 
 
  <script   language="JavaScript"   type="text/JavaScript">  
  <!--
  //打开端口并发送命令程序   
  function   OpenPort()  
  {  
    if(MSComm1.PortOpen==false)  
    {  
   MSComm1.PortOpen=true;  
       MSComm1.Output="R";//发送命令
  }    
    else  
    {  
   window.alert   ("已经开始接收数据!");    
    }  
  }  
  -->  
  </script>  
 
</head>
  
  <OBJECT   CLASSID="clsid:648A5600-2C6E-101B-82B6-000000000014" id=MSComm1     codebase="MSCOMM32.OCX"   type="application/x-oleobject" 
     style="LEFT:   54px;   TOP:   14px"   >
   <PARAM   NAME="CommPort"   VALUE="1">  
     <PARAM   NAME="DTREnable"   VALUE="1">  
     <PARAM   NAME="Handshaking"   VALUE="0">  
     <PARAM   NAME="InBufferSize"   VALUE="1024">  
     <PARAM   NAME="InputLen"   VALUE="0">  
     <PARAM   NAME="NullDiscard"   VALUE="0">  
     <PARAM   NAME="OutBufferSize"   VALUE="512">  
     <PARAM   NAME="ParityReplace"   VALUE="?">  
     <PARAM   NAME="RThreshold"   VALUE="1">  
     <PARAM   NAME="RTSEnable"   VALUE="1">  
     <PARAM   NAME="SThreshold"   VALUE="2">  
     <PARAM   NAME="EOFEnable"   VALUE="0">  
     <PARAM   NAME="InputMode"   VALUE="0">  
   
     <PARAM   NAME="DataBits"   VALUE="8">  
     <PARAM   NAME="StopBits"   VALUE="1">  
     <PARAM   NAME="BaudRate"   VALUE="9600">  
     <PARAM   NAME="Settings"   VALUE="9600,N,8,1">
  </OBJECT>  
  <body>
   
  <form name="form1">  
    <input   type="submit"   name="Submit"   value="提交"   onClick="OpenPort()">
  <input   type="text"   name="txtReceive"   value="">   
  </form>    
</body>  
</html>  
 

原创粉丝点击