Bascom Daten empfange von WIFI-Modul as UART1.

'********** Prozessoreinstellungen *********************************************

$regfile = "m324pdef.dat"                                   'Prozessortyp
$crystal = 7372800                                          'Taktfreqwuenz
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 9600

Config Portb.2 = Output

Led1 Alias Portb.2


Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Config Serialin0 = Buffered , Size = 254
Config Serialin1 = Buffered , Size = 254



Enable Interrupts


Open "COM2:" For Binary As #1

      Dim Incoming_data As String * 200
      Dim A As Byte
      Dim C As String * 200
      Set Led1

Do

A = Ischarwaiting(#1)                                       ' ueberpruefung, ob daten von Wifi Modul empfangt werden?

If A = 1 Then                                               'erfolgreich empfangt wird.
Gosub Empfangen
End If

If A = 0 Then
Print A ; "          " ; "keine Daten kommen hierein"
End If

Loop
 End

Empfangen:
 Print A ; "        " ; "daten kommen rein"

Led1 = 0                                                    'wenn etwas von Modul empfangt wird, dann wird LED1 leuchtet
Input #1 , Incoming_data                                    ' daten spreichern
C = Incoming_data


  Print C                                                   'daten auf Bascom-Simulator anzeigen

Return