Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

IE client script sa mscomm kontrolom

[es] :: Visual Basic 6 :: IE client script sa mscomm kontrolom

[ Pregleda: 3122 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu



+104 Profil

icon IE client script sa mscomm kontrolom26.08.2004. u 07:40 - pre 239 meseci
Nasao sam ovaj kod
Code:

    
    <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
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: IE client script sa mscomm kontrolom26.08.2004. u 10:16 - pre 239 meseci
Probaj ovo.
http://www.experts-exchange.co...ware/Authoring/Q_10326271.html

Ovo je Accepted Answer - znaci da radi ;)
Blue Man Group
 
Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu



+104 Profil

icon Re: IE client script sa mscomm kontrolom26.08.2004. u 11:07 - pre 239 meseci
Da ali moram da se registrujem, tj. da platim 9.95US. pošto nemam uslova da platim (nemam karticu i sl.), a i da imam ne verujem da bih platio moze li neko da mi pošalje rešenje koje tamo piše?
Može mail ([email protected]), PP, post na ovu temu ili kako god hoćete
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: IE client script sa mscomm kontrolom26.08.2004. u 11:17 - pre 239 meseci
Evo ga kod

Code:

<HTML>
<HEAD>
<TITLE>New Page</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim Rec

Const comEventBreak = 1001
Const ComEventCDTO = 1007
Const ComEventCTSTO = 1002
Const ComEventDSRTO = 1003
Const ComEventFrame = 1004
Const ComEventOverrun = 1006
Const ComEventRxOver = 1008
Const ComEventRxParity = 1009
Const ComEventTxFull = 1010
Const ComEventDCB = 1011
Const ComEvCD = 5
Const ComEvCTS = 3
Const ComEvDSR = 4
Const ComEvRing = 6
Const ComEvReceive = 2
Const ComEvSend = 1
Const ComEvEOF = 7
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="X">
<SCRIPT LANGUAGE="VBScript">
<!--
Sub MSComm1_OnComm()

   Dim Z

   Select Case document.X.MSComm1.CommEvent

   Case comEventBreak     ' A Break was received.
   Case comEventCDTO     ' CD (RLSD) Timeout.
   Case comEventCTSTO     ' CTS Timeout.
   Case comEventDSRTO     ' DSR Timeout.
   Case comEventFrame     ' Framing Error
   Case comEventOverrun     ' Data Lost.
   Case comEventRxOver     ' Receive buffer overflow.
   Case comEventRxParity     ' Parity Error.

   Case comEventTxFull     ' Transmit buffer full.
   Case comEventDCB     ' Unexpected error retrieving DCB]

   Case comEvCD     ' Change in the CD line.
   Case comEvCTS     ' Change in the CTS line.
   Case comEvDSR     ' Change in the DSR line.
   Case comEvRing     ' Change in the Ring Indicator.
   Case comEvReceive     ' Received RThreshold # of  chars.

   While document.X.MsComm1.InbufferCount > 0
      Z = document.X.MsComm1.Input
      Rec = Rec & Z
   WEnd
   Document.X.REC.value = Rec

   Case comEvSend     ' There are SThreshold number of  characters in the transmit buffer.
   Case comEvEof     ' An EOF charater was found in the input stream

   End Select
  
End sub

Sub SendData()
   If Not document.X.MSComm1.PortOpen Then
      MsgBox "The Port is not open. Please open the port before sending data.",vbCritical
      Exit Sub
   End If
   If Len(document.X.SEND.value) = 0 Then
      MsgBox "There is nothing to send. Please enter a send string first.",vbCritical
      Exit Sub
   End If
   document.X.MsComm1.Output = document.X.SEND.value
End Sub

Sub OpenPort()

   On Error Resume Next

   Dim S

   Err = 0
   If document.X.MsComm1.PortOpen Then
      document.X.MsComm1.PortOpen = False
      document.X.Open.value = "Open Port"
      Exit Sub
   End If
   document.X.MSComm1.CommPort = document.X.PORT.options(document.X.PORT.selectedIndex).value
   document.X.MSComm1.Settings = document.X.SPEED.options(document.X.SPEED.selectedIndex).text & ",n,8,1"
   document.X.MSComm1.PortOpen = True
   if Err<> 0 Then
      MsgBox "The Port could not be opened (" & Err.Description & "). Please try again.",vbCritical
      Exit Sub
   end if
   document.X.Open.value = "Close Port"
   document.X.PORT.enabled = False
   document.X.SPEED.enabled = False
   S = "The Port has been opened. The Settings are:" & vbcrlf
   S = S & "CommPort : " & document.X.MSComm1.CommPort & vbcrlf
   S = S & "Settings : " & document.X.MSComm1.Settings
   MsgBox S,vbInformation
     
End Sub



-->
</SCRIPT>
<OBJECT ID="MSComm1" WIDTH=39 HEIGHT=39
 CLASSID="CLSID:648A5600-2C6E-101B-82B6-000000000014"
 CODEBASE="http://activex.microsoft.com/controls/vb5/MSComm32.cab">
 <PARAM NAME="_ExtentX" VALUE="1005">
 <PARAM NAME="_ExtentY" VALUE="1005">
 <PARAM NAME="_Version" VALUE="327681">
 <PARAM NAME="CommPort" VALUE="3">
 <PARAM NAME="RThreshold" VALUE="1">
</OBJECT>
<TABLE BORDER=0>
<TR><TD>Comms Port:</TD><TD><SELECT NAME="PORT"><OPTION VALUE=1>COM 1<OPTION VALUE=2>COM 2<OPTION VALUE=3>COM 3<OPTION SELECTED VALUE=4>COM 4</SELECT>
<TR><TD>Baud Rate :</TD><TD><SELECT NAME="SPEED"><OPTION>9600<OPTION>19200<OPTION>38400<OPTION SELECTED>57600</SELECT>
<TR><TD>Action:</TD><TD><INPUT TYPE=BUTTON NAME="Open" VALUE="Open Port" onclick="OpenPort()"></TD></TR>
</TD></TR><TR><TD>Data to Send:</TD><TD><TEXTAREA ROWS=3 COLS=20 NAME="SEND"></TEXTAREA><BR><INPUT TYPE=BUTTON VALUE="Send Data" onclick="SendData()"></TD></TR>
<TR><TD>Data Received:</TD><TD><TEXTAREA ROWS=3 COLS=20 NAME="REC"></TEXTAREA><BR><INPUT TYPE=BUTTON VALUE="Clear RX Buffer" onclick="document.X.REC=''"></TD></TR>
</TABLE>
</FORM>
</BODY>
</HTML>
Blue Man Group
 
Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.telekom.yu



+104 Profil

icon Re: IE client script sa mscomm kontrolom26.08.2004. u 11:37 - pre 239 meseci
nešto opet ne radi. Moraću kući da detaljno pregledam kod jer ne verujem da ni ovaj ne radi. Hvala u svakom slučaju
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

marockee
student
Beograd

Član broj: 9961
Poruke: 67
*.beotel.net

ICQ: 157840905
Sajt: galeb.etf.bg.ac.yu/~om000..


Profil

icon Re: IE client script sa mscomm kontrolom26.08.2004. u 18:06 - pre 239 meseci
Skroluj, bre, dole na Experts-exchange.Uopšte mi nije jasno zašto piše da mora da se sajnapuje?
znam da ovde je s*****, al' meni je do yaya...
 
Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.scnet.yu



+104 Profil

icon Re: IE client script sa mscomm kontrolom26.08.2004. u 19:37 - pre 239 meseci
Kod je proradio kuci. Ostaje mi da vidim zasto ne radi na drugom racunaru
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

[es] :: Visual Basic 6 :: IE client script sa mscomm kontrolom

[ Pregleda: 3122 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.