<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<SCRIPT LANGUAGE="VBScript">
'Sub Window_OnLoad()
' MSComm1.PortOpen =True
'end sub
Sub OpenPort()
if Not MSComm1.PortOpen Then
MSComm1.PortOpen =True
Else
MsgBox "Port already opened !", vbOKOnly, "Warning"
End if
End Sub
Sub ClosePort()
if MSComm1.PortOpen Then
MSComm1.PortOpen = False
Else
MsgBox "Port already closed !", vbOKOnly, "Warning"
End if
End Sub
</SCRIPT>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function MSComm1_OnComm() {
var fldWeight = frmView.txtWeight
var strInput
strInput = MSComm1.Input;
window.alert (strInput);
fldWeight.Value == strInput;
fldWeight.focus();
return false;
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=MSComm1 EVENT=OnComm>
<!--
MSComm1_OnComm()
//-->
</SCRIPT>
</HEAD>
<BODY>
<OBJECT classid=clsid:648A5600-2C6E-101B-82B6-000000000014 id=MSComm1
style="LEFT: 54px; TOP: 14px">
<PARAM NAME="_ExtentX" VALUE="1005">
<PARAM NAME="_ExtentY" VALUE="1005">
<PARAM NAME="_Version" VALUE="393216">
<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="63">
<PARAM NAME="RThreshold" VALUE="14">
<PARAM NAME="RTSEnable" VALUE="0">
<PARAM NAME="BaudRate" VALUE="9600">
<PARAM NAME="ParitySetting" VALUE="0">
<PARAM NAME="DataBits" VALUE="7">
<PARAM NAME="StopBits" VALUE="0">
<PARAM NAME="SThreshold" VALUE="0">
<PARAM NAME="EOFEnable" VALUE="-1">
<PARAM NAME="InputMode" VALUE="0"></OBJECT>
<FORM action="" method=post id=frmView name=frmView>
<P>
<INPUT id=txtWeight name=txtWeight style="LEFT: 50px; TOP: 17px"></P>
<P> </P>
<P>
<BUTTON OnClick="OpenPort()" value="Open Port">Open COM Port</BUTTON>
<BUTTON onclick="ClosePort()" value="Close Port">Close COM Port</BUTTON>
</P>
<P>
</P>
</FORM>
</BODY>
</HTML>
ali ne radi :( Prikazuje mi gresku kad pokušam da otvorim port "Object doesn't suport this property or method: Mscomm1.Port open". Pokušavam već neko vreme da ovo sredim, ali ne ulazi mi u glavu zašto ne radi
Da je važnije biti ljubazan nego biti u pravu