COM1仪表度数问题，急，在线等

Question

<SCRIPT   ID=clientEventHandlersJS   LANGUAGE=javascript>   
            
            function   MSComm1_OnComm()   {   
                var fldWeight   = document.getElementById("ScreenValue"); 
                var WeiUnit=document.getElementById("WeiUnit");
                var strInput; 
                var result;
                var DStartBit=OutMeasure.DStartBit.value;
                var DStopBit=OutMeasure.DStopBit.value;
                var Ynfx=OutMeasure.Ynfx.value;
                var strA;
                var strB;               strInput   =   MSComm1.Input;  
               //document.OutMeasure.Test.value=strInput;
                if(strInput!=""&&strInput.length>4)
                    {
                       
                       result=strInput.substring(DStartBit,DStopBit);
                       if("是" == Ynfx){
                           strA = result.split("");
                           strB = strA.reverse();
                           result=strB.join("");
                           
                           result=parseFloat(result);
                           
                       }else
                       result=parseFloat(result);
                    
                    if((isNaN(result)) || (""==result)){
                        OpenPort(OutMeasure);
                    }
                    
                    if(WeiUnit.value=="公斤"){
                        result=result;
                    }else{
                    result=result/1000;
                }                fldWeight.value=result; 
                return   false;  
            }
            
        } 
        </SCRIPT>   

Answer 1

 <SCRIPT   LANGUAGE="VBScript">         
            Sub   OpenPort(formtag) 
            ClosePort()
            if len(trim(formtag.ComNo.value))=0  then 
            formtag.ScreenValue.value=0.0
            Exit Sub
            end if
            //MsgBox   "Port   already   opened   !"+formtag,   vbOKOnly,   "Warning"  
            comNo=right(formtag.ComNo.value,1)
            //MsgBox   "Port   already   opened   !"+comNo,   vbOKOnly,   "Warning"   
            bitRate=formtag.BitRate.value
            oddEven=formtag.OddEven.value
            dataBit=formtag.DateBit.value
            stopBit=formtag.StopBit.value
            ynfx=formtag.Ynfx.value
            
            sets=bitRate+","+oddEven+","+dataBit+","+stopBit
            //MsgBox   "Port   already   opened   !"+sets,   vbOKOnly,   "Warning"   
            MSComm1.CommPort = right(formtag.ComNo.value,1)
            MSComm1.Settings=sets
            
            if   Not   MSComm1.PortOpen   Then     
            
            MSComm1.PortOpen   =True   
            End   if   
            
            End   Sub   
            Sub   ClosePort()   
            if   MSComm1.PortOpen   Then     
            MSComm1.PortOpen   =   False  
            End   if   
            End   Sub   
        </SCRIPT>   
        <SCRIPT   LANGUAGE=javascript   FOR=MSComm1   EVENT=OnComm>   
            //<!--   
            MSComm1_OnComm()   
            //-->   
        </SCRIPT>     

Answer 2

com口仪表读数？
通讯协议编程？

Answer 3

这是一个反转仪表读数问题 "是" == Ynfx时 反转显示仪表读数 ，现在的问题是 "是" ！= Ynfx时仪表显示正常，("是" == Ynfx时，仪表显示 ‘NaN’读不出来 ，麻烦各位大侠帮我看看。