<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[SDS PLC/PAC: Měření Energie & OnlineTechnology.cz - Prosba o pomoc s user.html ( JAVA script )]]></title>
	<link rel="self" href="https://forum.sds.an-d.cz/extern.php?action=feed&amp;tid=504&amp;type=atom" />
	<updated>2013-12-22T09:46:27Z</updated>
	<generator>PunBB</generator>
	<id>https://forum.sds.an-d.cz/viewtopic.php?id=504</id>
		<entry>
			<title type="html"><![CDATA[Re: Prosba o pomoc s user.html ( JAVA script )]]></title>
			<link rel="alternate" href="https://forum.sds.an-d.cz/viewtopic.php?pid=4057#p4057" />
			<content type="html"><![CDATA[<p>Pěkné,dík. Funkci sdsc_S(sysn) stačí upravit na začátku o&nbsp; if(!sub) { getSub(); };<br />a nemusí tam být ta opakující se příkazy v Else.</p>]]></content>
			<author>
				<name><![CDATA[Simi]]></name>
				<uri>https://forum.sds.an-d.cz/profile.php?id=12</uri>
			</author>
			<updated>2013-12-22T09:46:27Z</updated>
			<id>https://forum.sds.an-d.cz/viewtopic.php?pid=4057#p4057</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: Prosba o pomoc s user.html ( JAVA script )]]></title>
			<link rel="alternate" href="https://forum.sds.an-d.cz/viewtopic.php?pid=4048#p4048" />
			<content type="html"><![CDATA[<p>Trochu jsem na sobě zapracoval a výsledek mého &quot;zapracování&quot; snad usnadní prácí všem začínajícím majitelům tohoto příjemného kousku hardwaru. Nedělám si iluze, že by to snad nešlo napsat optimálněji a lépe, ale je to funkční.<br /> Děkuji za pozornost <img src="https://forum.sds.an-d.cz/img/smilies/big_smile.png" width="15" height="15" alt="big_smile" /></p><p><a href="http://postimg.org/image/es4yjahcd/"><span class="postimg"><img src="http://s14.postimg.org/es4yjahcd/sds.jpg" alt="http://s14.postimg.org/es4yjahcd/sds.jpg" /></span></a></p><p><strong><span class="bbu">USER PROGRAM</span></strong><br /></p><div class="codebox"><pre><code>#define REL1 sys[231]
#define REL2 sys[232]
#define D0   sys[301]

var day, tmp, i, itmp, imin, imax, num;
minimax
{
  if ( sys[64] ) return;
  i = 0;
  label for:
  itmp = 310 + i; imin = 140 + i; imax = 143 + i;
  tmp = sys[itmp];
  if ( tmp &lt; 8500 )
  {
      if ( day != sys[5] )
      {
        sys[imin] = tmp;
        sys[imax] = tmp;
      }
      if ( tmp &lt; sys[imin] ) { sys[imin] = tmp; }
      if ( tmp &gt; sys[imax] ) { sys[imax] = tmp; }
  i++;
  if ( i &lt; 3 ) goto for;
  day = sys[5];
  }
  sys[64] = 60;
}
ptime
{
  i = 8;
  label loop:
  num = sys[i];
  if ( num &lt; 10 ) { echoinline(&#039;0&#039;); } echoinline(num); i++;
  if ( i &lt; 11 ) { echoinline(&#039;:&#039;); goto loop; }
  echoinline( &#039; &#039;,sys[5],&#039;.&#039;,sys[6],&#039; &#039;,sys[7] );
}
init
{
  sys[147]=0; sys[148]=0; sys[149]=0; sys[150]=1; sys[196]=2; sys[197]=2;
}
main
{
  minimax();
  if ( sys[147] ) {
    if ( REL1 == 0 ) { REL1 = 1; ptime(); echo(&#039; rele1 ZAP&#039;); }
  }
  else {
    if ( REL1 != 0 ) { REL1 = 0; ptime(); echo(&#039; rele1 VYP&#039;); }
  }
  if ( sys[148] ) {
    if ( REL2 == 0 ) { REL2 = 1; ptime(); echo(&#039; rele2 ZAP&#039;); }
  }
  else {
    if ( REL2 != 0 ) { REL2 = 0; ptime(); echo(&#039; rele2 VYP&#039;); }
  }
  if ( sys[149] ) {
    if ( D0 == 0 ) { D0 = 1; ptime(); echo(&#039; D0 out ZAP&#039;); }
  }
  else {
    if ( D0 != 0 ) { D0 = 0; ptime(); echo(&#039; D0 out VYP&#039;); }
  }
}</code></pre></div><p><strong><span class="bbu">USER WEB PAGE</span></strong><br /></p><div class="codebox"><pre><code>&lt;!DOCTYPE HTML&gt;
&lt;html lang=&quot;cs&quot;&gt;
&lt;head&gt;
    &lt;TITLE&gt;SDS-MICRO&lt;/TITLE&gt;
    &lt;META HTTP-EQUIV=&quot;CONTENT-TYPE&quot; CONTENT=&quot;TEXT/HTML; CHARSET=WINDOWS-1250&quot;&gt;
    &lt;META HTTP-EQUIV=&quot;CACHE-CONTROL&quot; CONTENT=&quot;NO-CACHE&quot;&gt;
    &lt;META HTTP-EQUIV=&quot;EXPIRES&quot; CONTENT=&quot;0&quot;&gt;
    &lt;style type=&quot;text/css&quot;&gt;
body{
    background:black;
    color:white;
    font-family:Verdana;
    font-size:18px;
    margin:0 auto;
    width:450px;
}
div{
    background-image:-moz-linear-gradient(top, #404040 0%, #000 100%);
    background-image:-o-linear-gradient(top, #404040 0%, #000 100%);
    background-image:-ms-linear-gradient(top, #404040 0%, #000 100%);
    background-image:-webkit-linear-gradient(top, #404040 0%, #000 100%);
    width:100%;
    height:2.6em;
    border:5px ridge DimGrey;
    text-align:center;
    padding:2px;
    margin:0px 0px 10px;
    border-radius: 20px 0px 20px;
}
.opt, .adi, .tem, .tin, .tax, .btn{
    padding:5px;
    margin:4px;
    float:left;
    border-radius:10px 0px 10px;
}    
.opt, .adi, .tem, .tin, .tax{
    border:1px solid DimGrey;
    width:5.1em;
}
.btn{
    background:DimGrey;
    color:white;
    font-size:18px;
    width:7.85em;
}
.tin{ color:DeepSkyBlue;
}
.tax{ color:Yellow;
}
    &lt;/style&gt;
    &lt;script type=&quot;text/javascript&quot;&gt;
        var i, r, t;
        var val = new Array(0, 0, 0);
        var reqA = false;
        var reqO = false;
        var reqT = false;
        var reqR = false;
        var reqU = false;
        var sub = false;

        function reqAc() {
            if (reqA.readyState === 4) {
                if (reqA.status === 200) {
                    var rE = reqA.responseText.split(&quot;|&quot;);
                    for (i = 1; i &lt;= 4; i++) {
                        r = rE[i - 1] / 34.5;
                        if ( ! ( isNaN(r) )) {            
                            document.getElementById(&quot;adi&quot; + i).innerHTML = r.toFixed(1) + &quot; V&quot;;
                        }
                    }
                }
            }
        }

        function reqOc() {
            if (reqO.readyState === 4) {
                if (reqO.status === 200) {
                    var rE = reqO.responseText.split(&quot;|&quot;);
                    for (i = 1; i &lt;= 4; i++) {
                        if (rE[i - 1] == 0) {
                            document.getElementById(&quot;opt&quot; + i).style.background = &quot;Lime&quot;;
                        } else {
                            document.getElementById(&quot;opt&quot; + i).style.background = &quot;DarkGreen&quot;;
                        }
                    }
                }
            }
        }

        function reqTc() {
            if (reqT.readyState === 4) {
                if (reqT.status === 200) {
                    var rE = reqT.responseText.split(&quot;|&quot;);
                    btnSts(3, (rE[0] == 0) ? 0 : 1);
                    for (i = 1; i &lt;= 3; i++) {
                        r = rE[i + 8] / 100;
                        document.getElementById(&quot;tem&quot; + i).innerHTML = r.toFixed(1) + &quot; \u00b0C&quot;;
                    }
                }
            }
        }

        function reqRc() {
            if (reqR.readyState == 4) {
                if (reqR.status == 200) {
                    var rE = reqR.responseText.split(&quot;|&quot;);
                    btnSts(1, (rE[0] == 0) ? 0 : 1);
                    btnSts(2, (rE[1] == 0) ? 0 : 1);
                }
            }
        }

        function reqUc() {
            if (reqU.readyState === 4) {
                if (reqU.status === 200) {
                    var rE = reqU.responseText.split(&quot;|&quot;);
                    for (i = 1; i &lt;= 3; i++) {
                        r = rE[i - 1] / 100;
                        document.getElementById(&quot;tin&quot; + i).innerHTML = r.toFixed(1) + &quot; \u00b0C&quot;;
                        r = rE[i + 2] / 100;
                        document.getElementById(&quot;tax&quot; + i).innerHTML = r.toFixed(1) + &quot; \u00b0C&quot;;
                    }
                }
            }
        }

        function sdsps() {
            reqA = false;
            reqO = false;
            reqT = false;
            reqR = false;
            reqU = false;
            if (window.XMLHttpRequest) {
                reqA = new XMLHttpRequest;
                reqO = new XMLHttpRequest;
                reqT = new XMLHttpRequest;
                reqR = new XMLHttpRequest;
                reqU = new XMLHttpRequest;
            } else if (window.ActiveXObject) {
                reqA = new ActiveXObject(&quot;Microsoft.XMLHTTP&quot;);
                reqO = new ActiveXObject(&quot;Microsoft.XMLHTTP&quot;);
                reqT = new ActiveXObject(&quot;Microsoft.XMLHTTP&quot;);
                reqR = new ActiveXObject(&quot;Microsoft.XMLHTTP&quot;);
                reqU = new ActiveXObject(&quot;Microsoft.XMLHTTP&quot;);
            }
            if (reqA) {
                reqA.open(&quot;GET&quot;, &quot;get_sys[431]?rn=4&amp;rand=&quot; + Math.random(), true);
                reqA.onreadystatechange = reqAc;
                reqA.send(null);
            }
            if (reqO) {
                reqO.open(&quot;GET&quot;, &quot;get_sys[151]?rn=4&amp;rand=&quot; + Math.random(), true);
                reqO.onreadystatechange = reqOc;
                reqO.send(null);
            }
            if (reqT) {
                reqT.open(&quot;GET&quot;, &quot;get_sys[301]?rn=14&amp;rand=&quot; + Math.random(), true);
                reqT.onreadystatechange = reqTc;
                reqT.send(null);
            }
            if (reqR) {
                reqR.open(&quot;GET&quot;, &quot;get_sys[231]?rn=2&amp;rand=&quot; + Math.random(), true);
                reqR.onreadystatechange = reqRc;
                reqR.send(null);
            }
            if (reqU) {
                reqU.open(&quot;GET&quot;, &quot;get_sys[140]?rn=6&amp;rand=&quot; + Math.random(), true);
                reqU.onreadystatechange = reqUc;
                reqU.send(null);
            }
            t = setTimeout(&quot;sdsps()&quot;, 2000);
        }
        
        function getSub() {
            sub = false;
            if (window.XMLHttpRequest) {
                sub = new XMLHttpRequest;
            } else {
                if (window.ActiveXObject) {
                    sub = new ActiveXObject(&quot;Microsoft.XMLHTTP&quot;);
                }
            }
        }
        
        function sdsc_S(sysn) {
            r = sysn - 147;
            val[r] = (val[r] == 0) ? 1 : 0;
            if(!sub) { getSub(); };
            if (sub) {
                sub.open(&quot;GET&quot;, &quot;sdscep?sys&quot; + sysn + &quot;=&quot; + val[r], true);
                sub.onreadystatechange = reqRc;
                sub.send(null);
            }
        }
        
        function btnSts(id, sw) {
            val[id-1] = sw;
            if (sw) {
                document.getElementById(&quot;btn&quot; + id).style.background = &quot;Red&quot;;
                document.getElementById(&quot;btn&quot; + id).value = &quot;ON&quot;;
            } else {
                document.getElementById(&quot;btn&quot; + id).style.background = &quot;DarkGreen&quot;;
                document.getElementById(&quot;btn&quot; + id).value = &quot;OFF&quot;;
            }
        }
    &lt;/script&gt;
&lt;/head&gt;

&lt;body onLoad=&quot;sdsps();&quot;&gt;
    &lt;div&gt;
        &lt;label class=opt id=&quot;opt1&quot;&gt;1&lt;/label&gt;
        &lt;label class=opt id=&quot;opt2&quot;&gt;2&lt;/label&gt;
        &lt;label class=opt id=&quot;opt3&quot;&gt;3&lt;/label&gt;
        &lt;label class=opt id=&quot;opt4&quot;&gt;4&lt;/label&gt;
    &lt;/div&gt;
    &lt;div&gt;
        &lt;label class=adi id=&quot;adi1&quot;&gt;00.0 V&lt;/label&gt;
        &lt;label class=adi id=&quot;adi2&quot;&gt;00.0 V&lt;/label&gt;
        &lt;label class=adi id=&quot;adi3&quot;&gt;00.0 V&lt;/label&gt;
        &lt;label class=adi id=&quot;adi4&quot;&gt;00.0 V&lt;/label&gt;
    &lt;/div&gt;
    &lt;div&gt;
        &lt;label class=tem id=&quot;tem0&quot;&gt;temp&lt;/label&gt;
        &lt;label class=tem id=&quot;tem1&quot;&gt;00.0 °C&lt;/label&gt;
        &lt;label class=tem id=&quot;tem2&quot;&gt;00.0 °C&lt;/label&gt;
        &lt;label class=tem id=&quot;tem3&quot;&gt;00.0 °C&lt;/label&gt;
    &lt;/div&gt;
    &lt;div&gt;
        &lt;label class=tin id=&quot;tin0&quot;&gt;t min&lt;/label&gt;
        &lt;label class=tin id=&quot;tin1&quot;&gt;00.0 °C&lt;/label&gt;
        &lt;label class=tin id=&quot;tin2&quot;&gt;00.0 °C&lt;/label&gt;
        &lt;label class=tin id=&quot;tin3&quot;&gt;00.0 °C&lt;/label&gt;
    &lt;/div&gt;
    &lt;div&gt;
        &lt;label class=tax id=&quot;tax0&quot;&gt;t max&lt;/label&gt;
        &lt;label class=tax id=&quot;tax1&quot;&gt;00.0 °C&lt;/label&gt;
        &lt;label class=tax id=&quot;tax2&quot;&gt;00.0 °C&lt;/label&gt;
        &lt;label class=tax id=&quot;tax3&quot;&gt;00.0 °C&lt;/label&gt;
    &lt;/div&gt;
    &lt;div&gt;
        &lt;input type=&quot;button&quot; id=&quot;btn1&quot; value=&quot;...&quot; class=&quot;btn&quot; onclick=&quot;javascript:sdsc_S(147);&quot;&gt;
        &lt;input type=&quot;button&quot; id=&quot;btn2&quot; value=&quot;...&quot; class=&quot;btn&quot; onclick=&quot;javascript:sdsc_S(148);&quot;&gt;
        &lt;input type=&quot;button&quot; id=&quot;btn3&quot; value=&quot;...&quot; class=&quot;btn&quot; onclick=&quot;javascript:sdsc_S(149);&quot;&gt;
    &lt;/div&gt;
&lt;/body&gt;
&lt;/html&gt;</code></pre></div>]]></content>
			<author>
				<name><![CDATA[rikitan]]></name>
				<uri>https://forum.sds.an-d.cz/profile.php?id=11496</uri>
			</author>
			<updated>2013-12-20T15:17:18Z</updated>
			<id>https://forum.sds.an-d.cz/viewtopic.php?pid=4048#p4048</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: Prosba o pomoc s user.html ( JAVA script )]]></title>
			<link rel="alternate" href="https://forum.sds.an-d.cz/viewtopic.php?pid=4022#p4022" />
			<content type="html"><![CDATA[<p>jj v pohodě. když tak ještě dále poradím. jen se předem omlouvám za případný časový výpadek. je toho nějak moc <img src="https://forum.sds.an-d.cz/img/smilies/hmm.png" width="15" height="15" alt="hmm" /></p>]]></content>
			<author>
				<name><![CDATA[j@m]]></name>
				<uri>https://forum.sds.an-d.cz/profile.php?id=5</uri>
			</author>
			<updated>2013-12-12T15:23:26Z</updated>
			<id>https://forum.sds.an-d.cz/viewtopic.php?pid=4022#p4022</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: Prosba o pomoc s user.html ( JAVA script )]]></title>
			<link rel="alternate" href="https://forum.sds.an-d.cz/viewtopic.php?pid=4019#p4019" />
			<content type="html"><![CDATA[<p>Děkuji za snahu. Já zase nejsem &quot;až tak úplně blbej&quot;, snažil jsem se prohledávat fórum ale informace jsou bohužel extrémě roztříštěné, někdy si i protiřečí. Nějak to sjednotit a učesat by byla ovšem Sisifovská práce. Zkrátka pro mě platí nasledujicí: &gt;&gt; Dejte mi pár cihel, pytlík cementu a písku a já si ten dům už postavím sám :-) &lt;&lt;</p>]]></content>
			<author>
				<name><![CDATA[rikitan]]></name>
				<uri>https://forum.sds.an-d.cz/profile.php?id=11496</uri>
			</author>
			<updated>2013-12-12T15:09:51Z</updated>
			<id>https://forum.sds.an-d.cz/viewtopic.php?pid=4019#p4019</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: Prosba o pomoc s user.html ( JAVA script )]]></title>
			<link rel="alternate" href="https://forum.sds.an-d.cz/viewtopic.php?pid=4017#p4017" />
			<content type="html"><![CDATA[<p>http://forum.merenienergie.cz//viewtopic.php?pid=996#p996</p>]]></content>
			<author>
				<name><![CDATA[j@m]]></name>
				<uri>https://forum.sds.an-d.cz/profile.php?id=5</uri>
			</author>
			<updated>2013-12-12T15:02:34Z</updated>
			<id>https://forum.sds.an-d.cz/viewtopic.php?pid=4017#p4017</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: Prosba o pomoc s user.html ( JAVA script )]]></title>
			<link rel="alternate" href="https://forum.sds.an-d.cz/viewtopic.php?pid=4016#p4016" />
			<content type="html"><![CDATA[<p>Kdysi jsem to tu na fóru popisoval. Pohledám...</p>]]></content>
			<author>
				<name><![CDATA[j@m]]></name>
				<uri>https://forum.sds.an-d.cz/profile.php?id=5</uri>
			</author>
			<updated>2013-12-12T14:58:11Z</updated>
			<id>https://forum.sds.an-d.cz/viewtopic.php?pid=4016#p4016</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Prosba o pomoc s user.html ( JAVA script )]]></title>
			<link rel="alternate" href="https://forum.sds.an-d.cz/viewtopic.php?pid=3991#p3991" />
			<content type="html"><![CDATA[<p>Jsem čerstvý majitel tohoto modulu ( SDS-MICRO light E RS232 ). Po počátečním seznamování jsem poněkud zklamán mojí neschopností. Dokážu napsat program v SDS-C a jsem schopen napsat uživatelskou WEB-ovou stránku. Co ale nezvládám, je vzájemný přenost dat.&nbsp; Našel by se nějaký šikovný a ochotný člověk který by sem dal jednoduchý příklad JAK NA TO. Úplně stačí načtení a zobrazení teploty z jednoho čidla a načtení, zobrazení stavu a ovládání změny stavu jednoho relé. Já už se pak chytnu. Pokoušel jsem se uvedené &quot;vyseparovat&quot; z příkladu na přiloženém CD ale poněkud se v tom ztrácím. Děkuji.</p>]]></content>
			<author>
				<name><![CDATA[rikitan]]></name>
				<uri>https://forum.sds.an-d.cz/profile.php?id=11496</uri>
			</author>
			<updated>2013-12-09T14:16:35Z</updated>
			<id>https://forum.sds.an-d.cz/viewtopic.php?pid=3991#p3991</id>
		</entry>
</feed>
