delucagiovanni forum

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

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

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

@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

@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

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

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

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

amici, qualcuno ha una soluzione???

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ì.

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?

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