RN-XV WiFly Modul von Sparkfun

[radbruch]

Hallo

Print Empf + Chr(13)


Print sendet automatisch ein CR, mit deinem zusätzlich eingefügten Chr(13) erzeugst du eine zweite Zeile. Entweder Chr(13) weglassen oder die Zeile mit ; beenden.

Ich hoffe, das passt.

Gruß

mic

[Christian H]

danke radbruch,

habe sofort Deinen Tip ausprobiert. Auch mit Print Empf das gleiche Problem. Habe bereits vorher einige Varianten mit cr crlf lf, auch auf Seiten des Terminalprogramms ausprobiert und es funktioniert nicht. Verrückt, dass es bei jedem reset funktioniert aber nicht nach Durchlaufen der Schleife

[Christian H]

Hallo,

habe die Ursache doch noch gefunden. In dem Tera Term Pro muss bei den Einstellungen vor dem Verbindungsaufbau bei Service nicht Telnet sondern Other angelickt sein. Dann klappt´s.

Christian

[engineer]

Darf ich fragen, was Du an Bruttobandbreite damit hinbekommst?

[Christian H]

Die Datenrate über wlan ist einstellbar von 1Mbit/s bis 54Mbit/s
UART Baud rate von 2400 bis 921600

Die Einstellung 54 Mbit/s funktioniert auch bei niedrigster Transmit power über 2 Stockwerke bei relativ ungünstigen Verhältnissen zwischen router und Wifly. Die Transmit power kann man noch um 12 dbm erhöhen. Da ist also noch etwas Luft nach oben.

Der Flaschenhals ist wohl eher die Dateneingabe. Mit dem o.g. Basic Programm komme ich nur bis 19200 baud. Was aber wohl an dem Attiny2313 liegt. Hohe UART Baud raten konnte ich nur behelfsmäßig wie folgt testen:

$regfile = "ATTINY2313.dat"
  Config Pind.0 = Input                            
  Config Pind.1 = Output
Do
    Portd.1 = Pind.0
Loop

So kommen alle Eingaben bis 460800 korrekt retour.
Bei 921600 kommt überwiegend Schrott. Dies liegt wohl am zu langsamen Attiny (8 MHz) und nicht am WiFly.
(Nachtrag: warum einfach wenn´s auch kompliziert geht. habe eben am Wifly einfach Tx und Rx kurzgeschlossen und schon gehn auch 921600 baud)

Alles hängt sicher auch noch davon ab, wie ausgelastet das Netz ist. Habe keine Ahnung was bei der Übertragung wirklich passiert. Ich brauche auch keine hohe Raten und gehe lieber auf 1 Mbit/sec runter, wodurch die Reichweite steigt. Einen Vergleich mit dem Easyradio kann ich erst im Frühjahr ziehen, wenn der rasenrobo wieder läuft. Dann wird sich´s zeigen ob auch Störungen von den Motoren etc. weggesteckt werden.

Bis jetzt bin ich aber voll zufrieden.

Grüße

Christian

[Christian H]

Hallo,

habe heute etwas mit dem WiFly gespielt. Im Manual ist angegeben, dass man es als HTML Client einstellen kann, der Daten sowohl an einen web server senden, als auch vom web server abrufen kann. Habe mir hierzu extra den Apache Server installiert. Habe aber keine Verbindung zustande gebracht.

Umgekehrt kann man aber mit einem web browser Daten vom WiFly abrufen. Im Manual ist hierzu nicht´s angegeben. Das WiFly läßt sich aber als Server konfigurieren. Als IP Protokol muß man HTTP und TCP aktivieren (set ip protocol 1) und die Übertragung des header einstellen (z.B. set optio format 1). Dann läßt sich z.B. mit dem IE Explorer über IP:Port eine Verbindung zum WiFly herstellen. Je nach Einstellung sendet das WiFly z.B. wiederholt den Header, die Eingaben am Uart, oder die Sensordaten von den Ports. Wüßte aber nicht wie man mit dem IE Explorer Daten oder Abfragen an das WiFly schicken kann. Anbei ein screenshot der zeigt wie die Daten am IE Explorer ausgegeben werden. Wahrscheinlich läßt sich das WiFly zu einem webserver ausbauen, wenn man ausreichende Kenntisse über HTTP hat. Ansonsten ist die Datenübertragung mit einem Terminalprogramm wie dem Tara Term praktikabler.


Wünsche Allen ein gutes neues Jahr!

Christian

[Christian H]

Hallo Leute,

war ein langer Kampf, aber jetzt habe ich es geschafft das WiFly als WebServer einzurichten. WiFly schickt im Sekundentakt Daten an den Client (Firefox besser als IExplorer). Und vom Client können Daten ans WiFly geschickt werden. Das Programm ist in einem ATmega32, der über UART mit dem WiFly verbunden ist. D.h. im WiFly sind nur wenige Einstellungen zu machen. Die website ist im ATmega gespeichert und könnte nach Bedarf angepaßt werden.

Um überhaupt zu sehen was zwischen Client und Server abläuft, habe ich mit VB6 ein Programm geschrieben um den Datenaustausch zu verfolgen s.u.. Einiges aus dem header kann man streichen. Im wesentlichen läuft folgendes ab:
Client (IExplorer) stellt TCP Verbindung mit webServer (Port 80) her:
Client an Server: GET / HTTP/1.1 oder z.B: GET /start.htm oder GET /WiFly.gif je nachdem was gefragt ist. Weiteres ohne Belang.
Server muß an Client antworten:
HTTP/1.1 200 OK '+chr(13)+chr(10)
Accept-Ranges: bytes '+chr(13)+chr(10)
Content-Length: 2263 '+chr(13)+chr(10)+chr(13)+chr(10)
Daten

'Content-Length muß genau der Länge der folgenden Daten entsprechen

Die Daten sind z.B: HTML. Die Seite die an den Client geht habe ich mit 3 Frames versehen. 1.Frame:Überschrift. 2. Frame Daten an den Client mit laufender aktualisierung. 3. Frame um Daten vom Client ans WiFly zu schicken.

Für Interessierte hier der kompletten Code:

 
$regfile = "m32def.dat"
$crystal = 4000000
Dim Anfrage As String * 255
Dim An$ As String * 255
Dim A1$ As String * 255
Dim B1$ As String * 255
Dim C1$ As String * 255
Dim D1$ As String * 200
Dim Mes1 As String * 10
Dim Mes2 As String * 10
Dim Mes3 As String * 10
Dim Mes4 As String * 10
Dim Ende As String * 4
Dim Header As String * 50
Dim I As Integer , Ii As Integer , Iii As Byte , I4 As Integer , I1 As Integer , I2 As Byte , I3 As Byte , I5 As Byte , Zeit As Integer , Ta As Integer
$baud = 19200
Echo Off
Config Timer0 = Timer , Prescale = 1024
On Timer0 Zeiten
Enable Interrupts
Enable Timer0
Start Timer0
 
 Header = "HTTP/1.1 200 OK" + Chr(13) + Chr(10)
 Header = Header + "Accept-Ranges: bytes" + Chr(13) + Chr(10)

 A1$ = "<html><frameset rows=5,15,10>"
 A1$ = A1$ + "<frame src=start.htm name=start><frame src=daten.htm name=Daten><frame src=kont.htm Name=Kommando>"
 A1$ = A1$ + "<noframes>Browser muß Frames unterstützen</noframes>"
 A1$ = A1$ + "</frameset></html>"
D1$ = "<html><H1>Es klappt! der WiFlyServer ist online</H1></html>"

 Do
 Input Anfrage
 I1 = Instr(anfrage , "GET")                                'nur Inputs mit GET interessieren
 If I1 > 0 Then
  Mes1 = "06.01.2013" : Mes3 = "Sensor1"                    'Mes2 <> Zeit 
  I1 = Instr(anfrage , "eg5=")                              '>> Daten vom Client ans WiFly
  If I1 > 0 Then
   I2 = Instr(i1 , Anfrage , " ") : I3 = Instr(i1 , Anfrage , "%")
   If I3 < I2 And I3 <> 0 Then I2 = I3
   I1 = I1 + 4 : I2 = I2 - I1
   Mes4 = Mid(anfrage , I1 , I2)
  End If
 B1$ = "<meta http-equiv=refresh content=1><html>"          '>> Frame wird jede sec  aufgerufen
 B1$ = B1$ + "<P><Input Name=eg1 Size=10 Value=" + Mes1 + ">"
 B1$ = B1$ + "<P><Input Name=eg2 Size=10 Value=" + Mes2 + ">"
 B1$ = B1$ + "<P><Input Name=eg3 Size=10 Value=" + Mes3 + ">"
 B1$ = B1$ + "<P><Input Name=Eg4 Size=10 Value=" + Mes4 + "></Html>"

 C1$ = "<html><form><P><Input Name=eg5 Size=10 Value=" + Mes4 + ">"
 C1$ = C1$ + "<P><input type=submit value=send></form></html>"

 An$ = A1$
 I1 = Instr(anfrage , "daten.htm") : If I1 > 0 Then An$ = B1$
 I1 = Instr(anfrage , "kont.htm") : If I1 > 0 Then An$ = C1$
 I1 = Instr(anfrage , "start.htm") : If I1 > 0 Then An$ = D1$
 I4 = Len(An$)                                              'BitLänge muß exakt stimmen
 Print Header;
 Print "Content-Length: " + Str(i4) + Chr(13) + Chr(10) + Chr(13) + Chr(10);
 Print An$;
 Ta = Zeit : Ta = Ta + 50                                   'für Timeout s.u. 50  entspr. etwa 2 sec
End If
Loop
End

Zeiten:
Zeit = Zeit + 1 : Mes2 = Str(zeit)
If Zeit > Ta Then
    Ta = Zeit + 300 : Print "*CLOS*";                     ' falls länger als 2 sec keine Verbindung
End If
Return

'Einstellungen für WiFly:
'Set UART Baudrate 19200
'Set Comm Remote = 0
'Set Ip Protocol = 3   
'Set IP localport 80

Alles hat mich einige Zeit gekostet. Wollte zu Beginn z.B. eine .gif Datei anhängen. Hat Stunden gedauert bis ich gerafft habe, dass Bascom einen bug hat und CHR(0) nicht kennt. Dann stellt der IExplorer nicht alle Frames zusammen dar (ist wohl ein Timing-Problem). Mit Firefox funktioniert´s aber (ggf. muß man einen frame aktualisieren).

Hoffe, die Infos sind für einige die mit WiFly arbeiten hilfreich. Deren Meinung hierzu würde mich natürlich interessieren. Habe mich gewundert, dass im Manual nicht´s hierüber zu finden war, obwohl das doch der Dreh-und Angelpunkt ist um mit dem WiFly und IExplorer zu arbeiten.
Immer noch kommt es aber zu Ladefehler. Da ist noch Luft nach oben. Bin für jeden Tip dankbar!


Gute Nacht

Christian


P.S.
Die fehlerhafte Darstellung im Internet Explorer liegt wohl an den Sicherheits-Einstellungen >>http://www.ehow.com/how_7189333_enab...indows-xp.html . Kann das aber erst am Mittwoch ausprobieren.