ATmega16 UART i BASCOM-AVR – błędne znaki klawiatury, złe odczyty na LCD

Dim B As Byte
Cls                                                         
Lcd "Napisy z peceta"                                       'Napis w górnej linijce LCD
Lowerline                                                   ' przenieś kursor na LCD do dolnej linii

Do                                                          '  pętla
   B = Inkey()                                              '  sprawdza, czy został odebrany znak (bajt)
   If B > 0 Then                                            '  jeśli jakiś znak odebrany
      Print Chr(b);                                         'odsyła odebraną literę na ekran komputera
      Lcd Chr(b)                                            'wyświetla też tę literę (znak) na LCD
   End If
Loop Until B = 27                                           'pętla czynna do naciśnięcia klawisza ESC
Cls
Lcd "Koniec zabawy!"                                        'napis końcowy
End        

Open "comd.2:2400,8,n,1" For Output As #1 

Printbin #1; dane 
Print #1; dane

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

'name                     : open.bas

'copyright                : (c) 1995-2005, MCS Electronics

'purpose                  : demonstrates software UART

'micro                    : Mega48

'suited for demo          : yes

'commercial addon needed  : no

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

 

$regfile = "m48def.dat"                                     ' specify the used micro

$crystal = 10000000                                         ' used crystal frequency

$baud = 19200                                               ' use baud rate

$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40                                             ' default use 40 for the frame space

 

 

Dim B As Byte

 

'Optional you can fine tune the calculated bit delay

'Why would you want to do that?

'Because chips that have an internal oscillator may not

'run at the speed specified. This depends on the voltage, temp etc.

'You can either change $CRYSTAL or you can use

'BAUD #1,9610

 

'In this example file we use the DT006 from www.simmstick.com

'This allows easy testing with the existing serial port

'The MAX232 is fitted for this example.

'Because we use the hardware UART pins we MAY NOT use the hardware UART

'The hardware UART is used when you use PRINT, INPUT or other related statements

'We will use the software UART.

Waitms 100

 

'open channel for output

Open "comd.1:19200,8,n,1" For Output As #1

Print #1 , "serial output"

 

 

'Now open a pin for input

Open "comd.0:19200,8,n,1" For Input As #2

'since there is no relation between the input and output pin

'there is NO ECHO while keys are typed

Print #1 , "Number"

'get a number

Input #2 , B

'print the number

Print #1 , B

 

'now loop until ESC is pressed

'With INKEY() we can check if there is data available

'To use it with the software UART you must provide the channel

Do

  'store in byte

  B = Inkey(#2)

  'when the value > 0 we got something

  If B > 0 Then

     Print #1 , Chr(b)                                     'print the character

  End If

Loop Until B = 27

 

 

Close #2

Close #1

 

 

'OPTIONAL you may use the HARDWARE UART

'The software UART will not work on the hardware UART pins

'so you must choose other pins

'use normal hardware UART for printing

'Print B

 

 

'When you dont want to use a level inverter such as the MAX-232

'You can specify ,INVERTED :

'Open "comd.0:300,8,n,1,inverted" For Input As #2

'Now the logic is inverted and there is no need for a level converter

'But the distance of the wires must be shorter with this

End

Dim B() As Byte

Cls
Lcd "Napisy z peceta"                                       'Napis w górnej linijce LCD
Lowerline                                                   ' przenieś kursor na LCD do dolnej linii
    B = "111"
Open "comd.6:300,8,n,1" For Output As #5
Enable Interrupts
Do                                                          '  pętla

Printbin #5 , B

 Loop                                                       'napis końcowy
End

$baud = 300  

comd.0:300,8,n,1,inverted

$crystal = 4000000
 $baud = 1200
Dim B() As Byte
Dim X As Byte

Cls
Lcd "Napisy z peceta"                                       'Napis w górnej linijce LCD
Lowerline                                                   ' przenieś kursor na LCD do dolnej linii


Open "comd.6:1200,8,n,1" For Output As #5
Enable Interrupts



    X = "141"











 Printbin #5 , X


Do                                                          '  pętla

 B = Inkey()                                              '  sprawdza, czy został odebrany znak (bajt)
   If B > 0 Then
                                                       '  jeśli jakiś znak odebrany
      Printbin #5 Chr(b);                                   'odsyła odebraną literę na ekran komputera
       Cls
      Lcd Chr(b)
      Lowerline
      Lcd B                                                 'wyświetla też tę literę (znak) na LCD
   End If









 Loop                                                       'napis końcowy
End

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600

Dim I As Byte
Dim Znak As String * 1

Do

Input "podaj wartosc I:" , I

Print "wartosc I wynosi:" ; I

If I = 1 Then
Do
Znak = Waitkey()

Print "odebrano znak:" ; Znak

Loop Until Znak = "k"

End If

If I = 2 Then
Do
I = Ischarwaiting()

Print "flaga zawartosci bufora:" ; I

Znak = Inkey()

Print "w zmiennej Znak jest:" ; Znak

Waitms 500

Loop Until Znak = "k"

End If

Loop
End