[AtMega16][BASCOM]Odczyt danych z RS232 i wyświetlenie LCD

'-------------------------------

' modul RFiD

'

' 9600.1.0

' dane 0xff,x,x,x,x,x,crc8

'-------------------------------



{...}



$baud = 9600                                                ' predkosc transmisji

Config Serialin = Buffered , Size = 100                     ' rozmiar bufora



{...}



Dim Uart_buffer As Byte



Dim I As Byte , Crc As Byte

Dim Card_id(8) As Byte



Declare Sub Uart_clear_buffer()



{...}



Enable Interrupts                                           ' wlacz globalne przerwania



   Do

      Card_id(i) = Inkey()

      Uart_buffer = Ischarwaiting()



      Incr I                                                ' zwieksz "I" o 1



      If I > 7 Then

         Crc = Crc8(card_id(2) , 5)                         ' oblicz check-sume CRC8



         If Card_id(1) = &HFF And Crc = Card_id(7) Then     ' jesli pierwszy bajt = 0xff i CRC8 = OK

            Locate 1 , 1                                    ' pozycja 1,1 na LCD

            'Lcd " ID: "



            'For I = 2 To 6

            '   Lcd Hex(card_id(i))                          ' wyswietl ID karty na LCD

            'Next I



            {...}



            Waitms 1500                                  ' czekaj 1,5s

         End If



      End If

   Loop Until Uart_buffer = 0



Call Uart_clear_buffer()                     ' czysc bufor UART'a



{...}



Sub Uart_clear_buffer()

   Do

      Card_id(1) = Inkey()

      Uart_buffer = Ischarwaiting()

   Loop Until Uart_buffer = 0



   Uart_buffer = 0

   Waitms 100

End Sub