Serieller Interrupt

Wartbichler

Benutzer

Gender: n/a
Age: 63
Posts: 19
Registered: 12 / 2018

Subject:

Serieller Interrupt

· Posted: 27.12.2018 - 14:35 · #1

Grüß Gott an alle,
ich bin ein blutiger Anfänger auf AVRco, und habe einen XMEGA256A3 welcher mit einem 4DLabs Touchscreen mit SerPortD1 verbunden ist. Bis vor ein paar Tagen habe ich die Dinger mit BASCOM programmiert. Da war der serielle Interrupt kein Problem:

On Usartd0_rxc Rs232_data_int
Enable Usartd0_rxc , Hi
Enable Interrupts

bei Eintritt eines Interrupts wird die Funktion Rs232_data_int aufgerufen und der entsprechende Code abgearbeitet.

Rs232_data_int:
Rs232_data = Inkey(#2)
If Touch = 0 Then
Select Case Rs232_data
Case &H06 :
Set Lcd_ack
Case &H15 :
End Select
Else
Set Lcd_ack
End If
Return

Wie funktioniert dies mit AVR-Pascal? Lg

golf

Benutzer

Gender:
Location: Donauwörth
Age: 71
Posts: 256
Registered: 11 / 2009

Subject:

Re: Serieller Interrupt

· Posted: 27.12.2018 - 17:02 · #2

Hallo Wartbichler,

vielleicht so was ähnliches vom Aufbau her, ich kann mit dem Bascom-Code nichts anfangen.

// Treiber einbinden
Import SerportD1, SysTick,....;

// Serportparameter
SerPortD0 = 115200, Stop1;
TxBufferD0 = 16, iData;
RxBufferD0 = 16, iData;

// var i-Data
var
Rs232_data: char;

// in der loop z.b.:

if SerstatD1 then
Rs232_data := SerinpD1;
if Touch= 0 then
case Rs232_data of
char($06): Set....... |
........
endcase;

endif;

Administrator

Gender:
Location: Germany
Age: 24
Homepage: e-lab.de
Posts: 5558
Registered: 03 / 2002

Subject:

Re: Serieller Interrupt

· Posted: 27.12.2018 - 17:06 · #3

oder einmal in die XMega Demos reinschauen.
Das hilft auch weiter. In dem Treiber Manual wird das auch
ausreichend beschrieben, denke ich.
rolf

Wartbichler

Benutzer

Gender: n/a
Age: 63
Posts: 19
Registered: 12 / 2018

Subject:

Re: Serieller Interrupt

· Posted: 27.12.2018 - 17:53 · #4

Danke, es funktioniert.
Ein gutes neues Jahr und Gesundheit an Alle!!!

Serieller Interrupt

Serieller Interrupt

Registered users in this topic