RN-XV WiFly Modul von Sparkfun

**Christian H** · 09.01.2013, 16:58

Hallo

habe jetzt das Programm für den WiFly-Server noch etwas geändert. Frames sind zwischenzeitlich wohl out. Mit "Eingebettete Frames" <iframe> läuft das Programm aber tadellos, am besten mit dem Firefox. Habe das Programm auch noch etwas gestrafft und Internetzeit und Feldstärkeanzeige eingebaut.

Code:

$regfile = "m32def.dat"
$crystal = 4000000
Dim An$ As String * 255
Dim Mes1 As String * 255
Dim Mes2 As String * 255
Dim Mes3 As String * 255
Dim Mes4 As String * 255
Dim Header As String * 50
Dim I1 As Byte , I2 As Byte , I3 As Byte , I4 As Byte , Zeit As Integer , Ta As Integer
Declare Sub Wifly
Config Timer0 = Timer , Prescale = 1024
On Timer0 Zeiten
Enable Interrupts
Echo Off
$baud = 19200

Print "$$$" ;    '
Waitms 300
Print "time" ; Chr(13);
Waitms 500
Print "show t" ; Chr(13);
While Instr(mes1 , "Time") = 0
  Input Mes1      ' holt Zeit aus Internet
Wend
Print "show rssi" ; Chr(13);
While Instr(mes2 , "RSSI") = 0
  Input Mes2        'Feldstärke
Wend
Print "exit" ; Chr(13);

Enable Timer0
Start Timer0

 Header = "HTTP/1.1 200 OK" + Chr(13) + Chr(10)
 Header = Header + "Accept-Ranges: bytes" + Chr(13) + Chr(10)

Do
 '  Mes1 = Zeit Mes2=RSSI Mes3=timer Mes3= webbrowser an WiFly
  Wifly
Loop
End

Sub Wifly
 While Ischarwaiting() = 1
 Input An$
  I1 = Instr(an$ , "GET")     'nur Inputs mit GET interessant
  If I1 > 0 Then
   I1 = Instr(an$ , "GET /?eg1=")   '>> Daten vom Client ans WiFly
   If I1 > 0 Then
    I1 = I1 + 10 : I2 = Instr(i1 , An$ , " ") : I3 = Instr(i1 , An$ , "%")
    If I3 < I2 And I3 > 0 Then I2 = I3
    I2 = I2 - I1
    Mes4 = Mid(an$ , I1 , I2) : If I2 = 0 Then Mes4 = ""    'wegen bug in Bascom
   End If
  I1 = Instr(an$ , "d.htm")       ' d.htm Name des eingebetteten Frame
  If I1 = 0 Then
   An$ = "<html><H1>Wifly-Server</H1>"
   An$ = An$ + "<iframe src=d.htm Width=90% Height=200></iframe>"
   An$ = An$ + "<P><form name=u1>send: <Input name=eg1 size=10 value=" + Mes4 + "></form>"
   An$ = An$ + "</html>"
  Else
   An$ = "<meta http-equiv=refresh content=1>"      '>> Seite wird jede sec aufgerufen
   An$ = An$ + "<html>Sensor1=" + Mes1
   An$ = An$ + "<P>Sensor2=" + Mes2
   An$ = An$ + "<P>Sensor3=" + Mes3
   An$ = An$ + "<P>Sensor4=" + Mes4 + "</html>"
  End If
  I2 = Len(an$)                                             'BitLänge muß exakt stimmen
  Print Header + "Content-Length: " + Str(i2) + Chr(13) + Chr(10) + Chr(13) + Chr(10);
  Print An$;
  Ta = Zeit + 50      'für Timeout s.u. 50  entspr. etwa 2 sec
 End If
 Wend
End Sub
Zeiten:
  Zeit = Zeit + 1 : Mes3 = Str(zeit)
  '  If Zeit > Ta Then        'timeout besser weglassen
  '    Ta = Zeit + 100        'funktioniert nicht zuverlässg
  '    Print "$$$" ;
  '    Waitms 300
  '    Print "close" ; Chr(13);          ' falls länger als 2 sec keine Verbindung
  '    Print "exit" ; Chr(13); 
  '  End If
Return

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

Am Montag morgen habe ich erst https://www.roboternetz.de/community...ighlight=wiFly
entdeckt. Werde mir demnächst ansehen was Arduino+Wifi Shield zu bieten haben. War für mich aber interessant die Lösung weitgehend selbst zu stricken. Vielleicht kann´s der eine oder andere der mit Bascom pogrammiert, verwenden.

Beste Grüße

Christian

**pirndi** · 12.01.2013, 09:26

Hallo!

Hab heute auch mein Modul bekommen und wollte es einmal Testen. Meine Steuerung in dem ich das Modul einbauen will hat aber 5V. Reicht da ein einfacher Spannungsteiler aus oder brauche ich da noch einen Levelshifter? Mein Atmega2560 müsste ja 3,3v als High erkennen? Die Baudrate muss nicht all zu hoch sein da ich nicht viele Daten übertrage.

Pirndi

**Christian H** · 12.01.2013, 10:07

Hallo pirindi,

ich habe nur einen einfachen Spannungsteiler zwischen ATmega32 und WiFly.

Christian

**pirndi** · 12.01.2013, 10:33

Wie hast du denn gebaut wenn ich fragen darf? Testen kann ich es mal mit meinem Xmega der hat 3,3v aber für später wäre deine Info sehr nett.
Atmega TX - Spannungsteiler mit ???k Widerstand - RX Wifi stimmt das so?

Bin mehr der Mechaniker als der Elektriker

**Christian H** · 12.01.2013, 12:09

Spannungsteiler aus 3 und 1,8 KOhm. Wie Du schreibst, damit an RX vom WiFly nicht mehr als 3,3 V anliegen. Natürlich 3,3 V Spannungsregler für das WiFly. Will damit das Easyradio von meinem Rasenrobo ersetzen. Funktioniert auch alles problemlos. Nehme dafür das UDP Protokoll und ein selbstgestricktes Programm auf meinem Rechner.

Die Sache die ich in den letzen beiden posts beschrieben habe, um mit einem webbrowser mit dem WiFly zu kommunizieren, war vorerst nur Spielerei. Ist fast wie mit Kanonen auf Spatzen schießen, da man eine kleine website im ATmega abspeichern muß. Fand´s aber knifflig, insbesondere wenn im Webbrowser laufend die Daten ausgegeben werden sollen und man nebenher Daten auch vom webbrowser zum WiFly schicken will.

Habe gestern noch mit der timer funktion gespielt. Auch nicht schlecht. Das WiFly holt sich damit die Uhrzeit aus dem Internet und man hat parallel dazu die Verbindung mit dem webbrowser.

Die Funkmodule Xbee, Easyradio etc. werden´s meiner Meinung nach in Zukunft sehr schwer haben. Allenfalls die Reichweite könnte noch für die Funkmodule sprechen.

Wozu brauchst Du das WiFly? Willst Du mit webbrowser arbeiten oder hast Du ein extra Programm auf dem Rechner. Programmierst Du mit Bascom oder C? Mich würde auch interessieren was die Arduino-Fraktion mit dem WiFi Shield alles machen kann.

Gruß

Christian

**pirndi** · 12.01.2013, 14:44

Ich programmiere in C (aber nicht Arduino). Hab mir einmal eine Aquarien-Steuerung gebastelt da werde ich es mal zum testen einbauen. Zeit abrufen, Daten loggen usw.. da kann man alle Funktionen ganz gut testen

**pirndi** · 19.01.2013, 09:42

Hallo Christian!

Zu deiner frage Arduino hab das hier gefunden: http://sourceforge.net/projects/arduinowifly/files/
Eine Fertige lib. Kannst ja mal durchsehen was man da alles machen kann.

Ich selbst hab mir einen Ringbuffer besorgt und das Modul mal angesteuert. Klappt ganz gut. Jetzt muss ich mal einen Levelshifter bauen und dann auf meinen Mega2560 hängen.

mfg daniel