Quantcast
Channel: MCS Electronics Forum
Viewing all articles
Browse latest Browse all 20606

BASCOM-AVR : Serial communication-wifi : NEWTOPIC

$
0
0
Hi, I'm managing the serial comunizazione between ATMEGA32 and a wifi module (WIZFi210) ... I found the attached code, and I'm adjusting to a micro ATmega32 ... It gives me an error on this statement: "Eifr.intf1 = 1" ... why? The rest of the code is good for ATmega32?? [code:1:853c4a45fb]'$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[/code:1:853c4a45fb] [b:853c4a45fb][color=red:853c4a45fb](BASCOM-AVR version : 2.0.7.6 )[/b:853c4a45fb][/color:853c4a45fb]

Viewing all articles
Browse latest Browse all 20606

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>