Uart, Uart0, Uart1, Uart2, Uart3

Uartn sind die Interfaces für die seriellen Uart-Schnittstellen des Controllers (RS232, RS485, ..).

Die Verwendung von Uart bezieht sich immer auf die eingestellte Standard-Schnittstelle. Voreinstellung ist Uart0. Dies betrifft auch die Funktionen Print und InpStr. Ab der Version 2013.R4 kann mittels einer global wirksamen Eigenschaft die Standardschnittstelle zum Programmstart einmalig eingestellt werden:

' Simples Terminal mit Echo
Uart0.Baud = 19200
Uart0.Recv.enable
Uart0.Send.enable
 
dim char as byte
do
  char = Uart0.ReadByte   ' Warten bis Zeichen verfügbar und dann lesen
  select case char
  case 0,10               ' Nullbytes und LF ignorieren
  case 13                 ' Return?
    Uart0.WriteByte 13    ' CR ausgeben
    Uart0.WriteByte 10    ' LF ausgeben
  default
    Uart0.WriteByte char  ' Zeichen wieder ausgeben (Echo)
  endselect
loop

Siehe auch: Idle-EndIdle

Man kann den UartX auch im Interruptbetrieb nutzen, dazu bedarf es nur der Deklaration der jeweiligen TX- oder RX-FiFos. Natürlich muss auch das globale Interrupt Flag gesetzt werden.

' --------------------------------------
' System Settings
' --------------------------------------
' 2015-05-09 de0508, Uwe
' --------------------------------------
const F_CPU = 8000000
avr.device = atmega168
avr.clock = F_CPU
avr.stack = 42
 
' --------------------------------------
' Konstanten
' --------------------------------------
const EOS = 0
const TAB = 9
const CR = 13
const LF = 10
 
' --------------------------------------
' gloable Variable
' --------------------------------------
dim read_ch as byte
 
' --------------------------------------
' Uart Pins Initialisieren
' --------------------------------------
' Sie ist eine Workaround
' Wenn man an TXD/ RXD einen Seriell zu USB-Wandler betreibt,
' sonst kann es passieren, dass der Atmel AVR µC nicht richtig startet.
#define UART_RXD as portd.0
#define UART_TXD as portd.1
 
' TXD und RXD auf Ausgang, bzw. Eingang schalten,
' so dass die Pins einen definierten Pegel haben
UART_RXD.mode = input, pullup
UART_TXD.mode = output, high
 
' --------------------------------------
' Standart Uart0 mit FiFo
' --------------------------------------
const UART_BAUDRATE	= 19200
const UART_RX_FIFO	= 16
const UART_TX_FIFO	= 16
 
' Standard-Schnittstelle bei der Verwendung von "Uart" (ohne Nummer) festlegen.
uart.interface = uart0
 
' Uart0 initialisieren
uart0.baud = UART_BAUDRATE
uart0.Rxd.Fifo = UART_RX_FIFO
uart0.Rxd.enable
uart0.Txd.fifo = UART_TX_FIFO
uart0.Txd.enable
 
' --------------------------------------
' System Initialisieren
' --------------------------------------
' Enable all Interrupt
Avr.Interrupts.Enable
 
' --------------------------------------
' Main - Loop
' --------------------------------------
do
  // Alle Zeichen aus dem Uart0 FiFo lesen und verbarbeiten
 while ( uart0.RxReady() )
  read_ch = uart0.ReadByte()
 
  ' lokales echo
  uart0.WriteByte( read_ch )
 
  ' CR-LF ausgeben
  when (read_ch = CR) do uart0.WriteByte( LF )
 
  // more code
 wend
 
// more code
loop
' --------------------------------------
' Loop - End
' --------------------------------------