User manual
mikroPascal PRO for PIC32
MikroElektronika
421
‘<meta http-equiv=”refresh” content=”3;url=http://192.168.20.60”>’ +
‘<HTML><HEAD></HEAD><BODY>’+
‘<h1>PIC32 + ENC28J60 Mini Web Server</h1>’+
‘<a href=/>Reload</a>’+
‘<script src=/s></script>’+
‘<table><tr><td valign=top><table border=1 style=”font-size:20px
;font-family: terminal ;”>’+
‘<tr><th colspan=2>ADC</th></tr>’+
‘<tr><td>AN0</td><td><script>document.write(AN0)</script></td></
tr>’+
‘<tr><td>AN1</td><td><script>document.write(AN1)</script></td></
tr>’+
‘</table></td><td><table border=1 style=”font-size:20px ;font-family:
terminal ;”>’+
‘<tr><th colspan=2>PORTB</th></tr>’+
‘<script>’+
‘var str,i;’+
‘str=””;’+
‘for(i=2;i<10;i++)’+
‘{str+=”<tr><td bgcolor=pink>BUTTON #”+i+”</td>”;’+
‘if(PORTB&(1<<i)){str+=”<td bgcolor=red>ON”;}’+
‘else {str+=”<td bgcolor=#cccccc>OFF”;}’+
‘str+=”</td></tr>”;}’+
‘document.write(str);’+
‘</script>’;
const indexPage2 : string[466] =
‘</table></td><td>’+
‘<table border=1 style=”font-size:20px ;font-family: terminal
;”>’+
‘<tr><th colspan=3>PORTD</th></tr>’+
‘<script>’+
‘var str,i;’+
‘str=””;’+
‘for(i=0;i<8;i++)’+
‘{str+=”<tr><td bgcolor=yellow>LED #”+i+”</td>”;’+
‘if(PORTD&(1<<i)){str+=”<td bgcolor=red>ON”;}’+
‘else {str+=”<td bgcolor=#cccccc>OFF”;}’+
‘str+=”</td><td><a href=/t”+i+”>Toggle</a></td></tr>”;}’+
‘document.write(str);’+
‘</script>’+
‘</table></td></tr></table>’+
‘This is HTTP request #<script>document.write(REQ)</script></BODY></
HTML>’;
var getRequest : array[15] of byte; // HTTP request buffer
dyna : array[30] of char; // buffer for dynamic response
httpCounter : word; // counter of HTTP requests
{*******************************************
* user dened functions
*}