closed

Loginbox

Please enter your username and password into the following fields to log in.


  • Username:
  • Password:
  •  
  • Auto log in on every visit.


  •  

Serieller Interrupt

Serieller Interrupt

Wartbichler offline
Benutzer
Avatar
Gender: n/a
Location: n/a 
Age: 58
Posts: 10
Registered: 12 / 2018
Private message
Subject: Serieller Interrupt  -  Posted: 27.12.2018 - 14:35   -  
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
This post has been edited 1-times. Last edit: 27.12.2018 - 17:18 by Gunter.
go down go up
golf offline
Benutzer
Avatar
Gender: male
Location: GERMANY  Donauwörth
Age: 66
Posts: 146
Registered: 11 / 2009
Private message
Subject: Re: Serieller Interrupt  -  Posted: 27.12.2018 - 17:02   -  
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;
This post has been edited 1-times. Last edit: 27.12.2018 - 17:19 by Gunter.
go down go up
rh offline
Administrator
Avatar
Gender: male
Location: GERMANY  Germany
Age:
Posts: 5450
Registered: 03 / 2002
Homepage Private message
Subject: Re: Serieller Interrupt  -  Posted: 27.12.2018 - 17:06   -  
oder einmal in die XMega Demos reinschauen.
Das hilft auch weiter. In dem Treiber Manual wird das auch
ausreichend beschrieben, denke ich.
rolf
Cars don't buy cars -- Autos kaufen keine Autos.
Henry Ford
This post has been edited 1-times. Last edit: 27.12.2018 - 17:19 by Gunter.
go down go up
Wartbichler offline
Benutzer
Avatar
Gender: n/a
Location: n/a 
Age: 58
Posts: 10
Registered: 12 / 2018
Private message
Subject: Re: Serieller Interrupt  -  Posted: 27.12.2018 - 17:53   -  
Danke, es funktioniert.
Ein gutes neues Jahr und Gesundheit an Alle!!!
go down go up
 


Registered users in this topic
Currently no registered users in this section

Delete cookies of this forum  •  FAQ / Help  •  Team page  •  Imprint   |  Local time: 20.06.2019 - 15:35