Seriell daten mit Timeout empfangen

[sato]

Hallo Bascom programmierer

Wie kann ich in Bascom so was verwirklichen? Bin in Bascom ein neuling

Beim Spannung anschliessen an Atmega128 möchte ich das während etwa 8 sekunden seriell etwa 20 bytes empfangen werden, fals diese Zeit "Timeout" vergeht ohne das die daten ankommen sollte das programm zum Hauptprogram springen

Also 2 Situationen
1) daten empfangen und auswerten und speichern und dann weiter zum main springen

2) Timeout - 8 sekunden vergangen ohne das daten empfangen wurden
dann zum main springen

Main

Do
'weiter programm verarbeitung
Loop
end


Kann mir jemand bitte ein Tip geben?

Danke

Gruss

Sato

[Dirk]

Hallo sato,

es gibt da sicher mehrere Möglichkeiten.
Man könnte mit einem Timer und der zugehörigen ISR (Interrupt Service Routine) z.B. einen "1ms-Ticker" realisieren. Damit kann man 8 Sekunden (System_timer = 8000) gut erfassen. Diesen "Ticker" kannst du auch für andere Zwecke (Code-Laufzeit oder Timeouts) verwenden:


'Timer1 für genaue Zeitmessungen konfigurieren:
Config Timer1 = Timer , Prescale = 1 'Timer 1000Hz
'Startwerte für die Tim1_isr (Register werden mit 15 Takten gesichert):
'Const Startwert = 64551 'Für 1MHz
'Const Startwert = 61551 'Für 4MHz
Const Startwert = 57551 'Für 8MHz
'Const Startwert = 49551 'Für 16MHz
'Const Startwert = 45551 'Für 20MHz
Timer1 = Startwert
On Timer1 Tim1_isr Nosave 'Überlauf 1000x/s
Dim System_timer As Word '1ms Zählvariable
Enable Interrupts
Enable Timer1 '1ms Interrupt

'Weitere Definitionen

System_timer = 0
Do
' Hier serieller Empfang (nicht blockierend!)
If "Empfang der 20 Bytes erfolgreich" Then Exit While
While System_timer <= 8000

If "Empfang der 20 Bytes erfolgreich" Then
' Verwenden der 20 Bytes
Else ' Timeout!
' Standardwerte einsetzen
End If

Do
'weiter programm verarbeitung
Loop
end

'################################################# ##########################
'Spezielle kurze Timer1-ISR (1000Hz/1ms) für Zeitmessungen:
Tim1_isr: 'gesamt ISR: 60 Takte
$asm
push r24 'gesamt PUSHs: 15 Takte
push r25
push r26
push r27
push r30
push r31
in r24 , SREG
push r24
$end Asm
Timer1 = Startwert 'Bascom-Code: 26 Takte
Incr System_timer 'Word-Variable!
$asm
pop r24 'gesamt POPs: 15 Takte
Out Sreg , R24
pop r31
pop r30
pop r27
pop r26
pop r25
pop r24
$end Asm
Return 'RETI: 4 Takte

'################################################# ##########################


Viel Erfolg!

Gruß Dirk

[chr-mt]

$Timeout = 100000
Input irgendwas

Den Wert für Timeout musst du ausprobieren.
Ob man da bis zu 8 Sekunden machen kann, weiß ich jetzt nicht.

Gruß
Christopher