Re: Using the Arduino Ethernet shield with AMICUS18 (Joint forum project?)
hello henrik
thanks you for help and the pbp source code,
i was modifie your code for proton basic , and i was use 18F4620 , now wprking very stabile.
my web server
- ping it is ok!
- web server it is ok
- send get ang command it is ok
- response and data it is ok
but i have any problem,
it is my html code,
how to use scrip in to do code?
index:
Buffer = "<html>" : GoSub PutStringInTXBuffer
Buffer = "<body>" : GoSub PutStringInTXBuffer
Buffer = "<title>my server</title>" : GoSub PutStringInTXBuffer
Buffer = "<h3>My Mini Web Server Alive</h3>" : GoSub PutStringInTXBuffer
Buffer = "<img src=http://www.enkatechnology.com/12.jpg >" : GoSub PutStringInTXBuffer
Buffer = "<p>Thenk you Henrik Olsson 2014</p>" : GoSub PutStringInTXBuffer
Buffer = "<form name=input action=/ method=get>" : GoSub PutStringInTXBuffer
Buffer = "<input type=submit align=center name=tst1 value=3 />" : GoSub PutStringInTXBuffer
Buffer = "</form>" : GoSub PutStringInTXBuffer
Buffer = "<form name=input action=/ method=get>" : GoSub PutStringInTXBuffer
Buffer = "<input type=submit align=center name=tst2 value=5 />" : GoSub PutStringInTXBuffer
Buffer = "</form>" : GoSub PutStringInTXBuffer
Buffer = "<a href=http://www.google.com>Go To Google</a>" : GoSub PutStringInTXBuffer
'Buffer = "<p> toplam request = " + Str$(Dec RequestCount) + "</p>" : GoSub PutStringInTXBuffer
Buffer ="<p>AN2 Data= </p>" : GoSub PutStringInTXBuffer
Buffer ="<script src=/s></script>" : GoSub PutStringInTXBuffer
Buffer ="<p><script>document.write(AN2)</script></p>" : GoSub PutStringInTXBuffer
Buffer = "</body></html>" : GoSub PutStringInTXBuffer
Return
i wat to use <script src=/s></script> and turn the back "<p><script>document.write(AN2)</script></p>" AN2 = 27 for exp. what you thing about?
i was receive "s" and portc.2 led is blinking but, i dont send the AN2 data to back.
my data receive code,
data_kontrol:
'----------------------------------
If Buffer[11] = "3" Then
PORTC.2 = 1'led aç
'END
EndIf
'----------------------------------
If Buffer[11] = "5" Then
PORTC.2 = 0'led kapat
'END
EndIf
'----------------------------------
If Buffer[5] = "s" Then
PORTC.2 =1
DelayMS 500
PORTC.2 =0
EndIf
Return
Bookmarks