Modulo wifi WIZFi210

[tnnbascom]

Salve a tutti,
volevo sapere, gentilmente, se qualcuno ha avuto esperienza, o mi può aiutare, con il modulo wifi WIZFi210-EVB
Ho fatto delle prove ma non riesco a comunicare con la seriale e non vedo il segnale wifi del modulo dal pc...
Ho utilizzato il software WIZSmartScript...

Purtroppo non riesco a trovare il datasheet dell'evalutation board WIZFi210-EVB

[deluca]

@tnnbascom,
puoi trovare tutto quello che ti serve qui:
http://www.wiznettechnology.com/sub_mod ... 33&cType=2

[tnnbascom]

Grazie sempre gentilissimo, avevo comunque già visionato...

ho trovato il codice seguente, e lo sto adattando a un micro ATmega32...
Mi da un errore su questa istruzione: "Eifr.intf1 = 1" ????

Che ne pensi del resto del codice devo modificare qualche altra cosa per l'ATmega32???

Grazie ancora.

Code: Select all

'$regfile = "m1280def.dat"
' $crystal = 16000000
' $baud = 115200

$regfile = "m32def.dat"                                     '"m644def.dat"
$crystal = 16000000
$baud = 115200

$hwstack = 80
$swstack = 80
$framesize = 90
Config Graphlcd = 240 * 64 , Dataport = Porta , Controlport = Portc , Ce = 4 , Cd = 3 , Wr = 6 , Rd = 5 , Reset = 2 , Fs = 2 , Mode = 6

Config Portd.2 = Output                                     'BUZZER
Buzzer Alias Portd.2
Declare Sub Bip

 'Poweroff Alias Portj.1

 'Config Poweroff = Output

 Dim Connect As Byte

 'put power on the shield

 'Set Poweroff
 'Wait 5
 'Reset Poweroff

 'PD.0 = TX
   Open "comd.0:115200,8,n,1" For Output As #10
 'PD.1 = RX
   Open "comd.1:115200,8,n,1" For Input As #11

 '-------------------------------------------------------------------------------
 '  HARDWARE SERIAL
 '-------------------------------------------------------------------------------
    Config Serialin = Buffered , Size = 60 , Bytematch = 13
    Open "com1:" For Binary As #1
    Dim Incoming_data As String * 60

    Print #1 , "Start programma"

 '-------------------------------------------------------------------------------
 ' INT0 RX INTERRUPT
 '-------------------------------------------------------------------------------
     Dim Timeout_rx As Word
     Dim Rx_ok As Byte
     On Int1 Isr_rx Nosave
     Config Int1 = Change
     Enable Int1
     Enable Interrupts

 '-------------------------------------------------------------------------------
 ' VARIABLES
 '-------------------------------------------------------------------------------
     Dim B As Byte
     Dim Pos As Byte
     Const Max_rx = 100
     Dim Incoming_str As String * 150
     Dim Incoming(max_rx) As Byte At Incoming_str Overlay

 '-------------------------------------------------------------------------------
 ' START PROGRAM
 '-------------------------------------------------------------------------------
   Cursor Off
   Cls
   Bip
   Locate 1 , 1
   Lcd "Test Wizfi210 "
   Print #1 , "TEST WIZFI210"

     Do
     Connect = Instr(incoming_str , "[CONNECT 0]")
     If Connect = 3 Then
        Print #1 , "Connected"
        Exit Do
     End If
     Waitms 10
     Loop

     Do
     Wait 1
     Print #10 , "abcdefg"
     Loop


 End

 '-------------------------------------------------------------------------------
 ' send USB RX to WIZ
 '-------------------------------------------------------------------------------
 Serial0charmatch:
    ' send command from USB to WIZ610
    Input Incoming_data Noecho
    'Print #10 , Incoming_data
 Return

 '-------------------------------------------------------------------------------
 ' RX from WIZ on SoftSer
 '-------------------------------------------------------------------------------
 Isr_rx:
      Disable Int1
      Timeout_rx = 0
      Incoming_str = ""
      Pos = 1
      Do
         B = Inkey(#11)
         If B > 0 Then
            If Pos < 120 Then
              Incoming(pos) = B
              Incr Pos
            End If
            Timeout_rx = 0
         Else
           Incr Timeout_rx
         End If
      Loop Until Timeout_rx = &H1FFF
      'set string end position!
      Incoming(pos) = 0
 Print #1 , Incoming_str
 Print #1 , "-"
      Rx_ok = 1
     'clear INT0 Int Flag, because int can be flaged in meantime!
      Eifr.intf1 = 1
      Enable Int1
 Return

 Sub Bip
   Buzzer = 0
   Waitms 20
   Buzzer = 1
End Sub

[deluca]

@tnnbascom,

il mega32 non ha il EIFR(External Interrupt Flag Register), ma il GIFR(General Interrupt Flag Register), quindi se vuoi usare questo micro e cancellare manualmente il flag relativo all'int1 devi modificare la riga in questo modo:

Code: Select all

Gifr.intf1 = 1

[deluca]

@tnnbascom,

...da MCS forum

Found!
Code:
Gifr.intf1 = 1

It should make some other changes for ATmega32?

Se aiutiamo a risolvere un problema, almeno l'accortezza di renderlo noto

[tnnbascom]

scusami hai ragione mi è sfuggito di riportarlo qui....

proseguo i test e vi tengo aggiornati.....grazie.

[tnnbascom]

Vi voglio aggiornare...
ho modificato il codice e lo ho allegato... adesso la trasmissione seriale tra il modulo wizfi210 e l'atmega32 è ok...

seguendo questo esempio http://www.mcselec.com/index2.php?option=com_forum&Itemid=59&page=viewtopic&t=11193

tutto ok fino alla schermata Bascom-AVR terminal, infatti la schermata che dall'esempio viene ricevuta dal Bascom-AVR terminal io la ricevo tramite il mio dispositivo con l'atmega32 che la visualizza sul display...

quando vado a trasmettere da un pc con Hercules program non ricevo niente sul mio dispositivo....

Allo step 6 ho inserito l'IP del computer da dove trasmetto con Hercules program giusto?

Code: Select all

$regfile = "m32def.dat"                                     '"m644def.dat"
$crystal = 16000000
$baud = 115200

$hwstack = 80
$swstack = 80
$framesize = 90

Config Graphlcd = 240 * 64 , Dataport = Porta , Controlport = Portc , Ce = 4 , Cd = 3 , Wr = 6 , Rd = 5 , Reset = 2 , Fs = 2 , Mode = 6

Config Serialin = Buffered , Size = 254

Config Portd.2 = Output                                     'BUZZER
Buzzer Alias Portd.2
Declare Sub Bip

Dim Rx_cmd As Byte , Ric As Byte , Command As String * 254
Dim I As Byte

 '-------------------------------------------------------------------------------
 ' START PROGRAM
 '-------------------------------------------------------------------------------
   Cls
   Cursor Off
   Cls
   Enable Interrupts
   Bip
   Locate 1 , 1
   Lcd "Test Wizfi210 "
   Do
      Waitms 10
      Rx_cmd = Ischarwaiting()                              'CONTROLLA SE E' STATO RICEVUTO UN CARATTERE

      If Rx_cmd = 1 Then
         Rx_cmd = Waitkey()                                    'RITORNA IL VALORE DECIMALE RICEVUTO
         Ric = 1
         Command = Command + Chr(rx_cmd)                       'INSERISCE I CARATTERI IN UNA STRINGA FINO A QUANDO LA TRASMISSIONE NON TERMINA
         Waitms 1
      Else
         If Ric = 1 Then
            Ric = 0
            Locate 2 , 1
            Lcd Command
            Print Command ; " OK"
            Command = ""
         End If
      End If
   Loop
 End

Sub Bip
   Buzzer = 0
   Waitms 20
   Buzzer = 1
End Sub

[tnnbascom]

amici, qualcuno ha una soluzione???

[deluca]

la soluzione?

assolutamente tutto da rifare
ho chiaro cosa vuoi fare....
ma non so se con il codice postato riuscirai nel tuo intento

Purtroppo non mi ritrovo il modulo WIZ e quindi non posso testare il tuo codice,
ma secondo me, devi studiare bene il pdf del modulo e iniziare a scrivere partendo proprio da lì.

[tnnbascom]

scusami, perché dici "tutto da rifare " io ho seguito questo esempio: http://www.mcselec.com/index2.php?option=com_forum&Itemid=59&page=viewtopic&t=11193 che fa quello che io vorrei fare ...
Sto solo cercando di adattare il codice al micro ATmega32 e per fare ciò cerco un vostro sempre prezioso aiuto ..., con il mio software funziona la trasmissione tra il micro e il modulo, ma non riesco a inviare e ricevere come nell'esempio su citato via wifi???

tutto ok fino alla schermata Bascom-AVR terminal, infatti la schermata che dall'esempio viene ricevuta dal Bascom-AVR terminal io la ricevo tramite il mio dispositivo con l'atmega32 che la visualizza sul display...

quando vado a trasmettere da un pc con Hercules program non ricevo niente sul mio dispositivo....

Allo step 6 ho inserito l'IP del computer da dove trasmetto con Hercules program giusto?

[tnnbascom]

Bene, risolto

il problema era che un IP 192.168.1.xxx non può comunicare con un IP 192.168.0.xxx....

Ho cambiato l'IP del pc con 192.168.0.xxx.... e tutto ok, l'esempio funziona perfettamente con il mio codice modificato per l'atmega32...

Grazia comunque a tutti