<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Exprires" content="-1">
<title>Picbasic Web Server</title>
<style type="text/css">
.aff
{
BACKGROUND-COLOR:black;
COLOR:lime;
font-weight:bold;
}
.led1
{
BACKGROUND-COLOR:red;
COLOR:black;
font-weight:bold;
}
.led0
{
BACKGROUND-COLOR:silver;
COLOR:black;
font-weight:bold;
}
.LCD
{
BACKGROUND-COLOR:#6AD500;
COLOR:black;
font-weight:bold;
}
td
{
width:150
}
</style>
<script type="text/javascript">
function t(obj)
{
if(obj.value.length>32)
obj.value=obj.value.substring(0,32);
}
function env()
{
var a="";
var b=document.forms.F2;
for (i=0;i<4;i++) if (document.forms.F1.elements['O'+i].checked==true) a=a+1; else a=a+0;
b.elements['O'].value=a;
var T=b.elements['T'].value;
if (T.length<32)
{
for (i=T.length;i<32;i++) T=T+" ";
b.elements['T'].value=T;
}
b.submit();
}
</script>
</head>
<body>
<center><h1>Picbasic Web Server</h1>
<table cellpadding=10 border=1>
<tr>
<td>
<B>EntrΓ©es analogiques</B><br><br>
A0 = <input type=text name=A0 value=" $A0" size=5 class=aff readonly> v<br>
A1 = <input type=text name=A1 value=" $A1" size=5 class=aff readonly> v<br>
A2 = <input type=text name=A2 value=" $A2" size=5 class=aff readonly> v<br>
A3 = <input type=text name=A3 value=" $A3" size=5 class=aff readonly> v<br>
</td>
<td>
<B>EntrΓ©es logiques</B><br><br>
I0 = <input type=text name=I0 value=" $I0" size=1 class=led$I0 readonly><br>
I1 = <input type=text name=I1 value=" $I1" size=1 class=led$I1 readonly><br>
I2 = <input type=text name=I2 value=" $I2" size=1 class=led$I2 readonly><br>
I3 = <input type=text name=I3 value=" $I3" size=1 class=led$I3 readonly><br>
</td>
</tr>
<tr valign=top>
<td>
<form name=F1>
<B>Sorties logiques</B><br><br>
<script type="text/javascript">
var v=new Array("$O0","$O1","$O2","$O3");
for (n=0; n<v.length; n++)
{
if (v[n]=="1") s=" checked"; else s="";
document.write("O"+n+" = <input type='checkbox' name='O"+n+"' value='1'"+s+"><br>");
}
</script>
</td>
<td>
</form>
<B>Ecran LCD</B><br><br>
<form name=F2 method=get><input type=hidden name=O value="">
<textarea name=T rows=2 cols=16 class=LCD OnkeyUp="t(this)" OnkeyDown="t(this)">$T0</textarea>
</td>
</tr>
</table>
<small>$CP connexion(s) depuis la dernière remise à zéro du serveur.<br>
<br>
<input type=button name=ENV value="ENVOYER" OnClick="env()">
</form>
<a href="
http://www.rdelectronique.com" target="_blank">www.RDElectronique.com</a>
</body>
</html>