Hallo,
ich möchte mithilfe des Config Serialin Befehls eine Sub beim Eintreffen eines "CR" ausführen. Jedoch springt der XMEGA64A3 nie in die Sub. Weiß jemand, woran das liegen könnte?
Hier der Code:
Vielen Dank & GrußCode:$regfile = "xm64a3def.dat" $crystal = 32000000 $hwstack = 64 $swstack = 40 $framesize = 40 $lib "xmega.lib" $external _xmegafix_clear $external _xmegafix_rol_r1014 Config Osc = Disabled , 32mhzosc = Enabled Config Sysclock = 32mhz Declare Sub Serial1charmatch() Config Com2 = 38400 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8 Config Serialin1 = Buffered , Size = 100 , Bytematch = 13 Open "COM2:" For Binary As #1 Dim Datastring As String * 10 Config Priority = Static , Vector = Application , Lo = Enabled Enable Interrupts Do !nop Loop End Sub Serial1charmatch() Input #1 , Datastring , Noecho Print #1 , "Empfangen!" End Sub
Chris







Zitieren


Lesezeichen