"schleife" unterbrechen

[Che Guevara]

servus leude,

ich will für ein etwas größeres projekt einige einzelteile davon fertigstellen.
mein jetztiges problem ist es, dass ich eine schleife mit einem tastendruck unterbrechen möchte.



for i = 1 to 100
for n = 0 to 7
portc.n = 0
waitms 100
portc.n = 1
next n
next i


diese schleife läuft im normalfall 100 mal durch, bis das programm etwas anderes macht. das soll auch so sein.
nur habe ich in dem programm die tastenabfrage vom rn-control. jetzt möchte ich, dass bei taste 3 dieser obige code durchläuft.
sollte jedoch bevor i = 100 eine andere taste gedrückt worden sein, soll dieser code sofort verlassen werden und es soll die aktion von taste x (dem tastendruck, der diesen code unterbrochen hat) ausgeführt werden.

ich hoffe, mein gefassel ist so halbwegs verständlich und ihr könnt mir helfen.
danke für eure bemühungen.

gruß
chris

[for_ro]

Hi,
ich geh' mal davon aus, dass der obige code nicht in einer ISR ausgeführt wird, denn dann ist er nicht unterbrechbar.
Es gibt zwei Möglichkeiten, wie du auf Tastendrücke reagieren kannst. Entweder du fragst dauernd die Pins ab oder du hast die taster an einem externen Interrupt Eingang (z.B. Pin Change) angeschlossen.
Wenn du selber abfragst und es nur eine Taste oder mehrere Tasten an einem Port sind, dann würde ich nach dem Wait eine If Abfrage einbauen. Etwa so:


Config Porta = Input
Config Portc = Output
Config Portd = Output
Dim I As Byte , N As Byte , Taste As Byte , Tasten_flag As Byte
If Taste = 1 Then
For I = 1 To 100
For N = 0 To 7
portc.n = 0
Waitms 100
portc.n = 1
If Pina > 0 Then
Tasten_flag = 1
Exit For
End If
Next N
If Tasten_flag = 1 Then
Exit For
End If
Next I
Elseif Taste = 2 Then
For I = 1 To 100
For N = 0 To 7
Portd.n = 0
Waitms 100
Portd.n = 1
If Pina > 0 Then
Tasten_flag = 1
Exit For
End If
Next N
If Tasten_flag = 1 Then
Exit For
End If
Next I
End If
Tasten_flag = 0
Taste = Pina

Bei der Taste 1 habe ich jetzt einfach mal PortC eingeschaltet, bei Taste 2 PortD.
Wenn mehrere tasten gleichzeitig gedrückt sein können, musst die Tastendrücke erst einmal zwischenspeichern.
Löst der Druck einen externen Interrupt aus, dann wird das tasten_flag in der ISR gesetzt und anstelle des "If PINA > 0 Then" abgefragt.

Klaro?

Gruß

Rolf

[Che Guevara]

hallo rolf,

danke für deine antwort!

allerdings funktioniert das so nicht :-(
ich habe hier mal meinen code, vielleicht kannst du dir das ja mal ansehen?!?!
währe nett von dir!
das gilt natürlich für alle ;-)



$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40

Declare Function Tastenabfrage() As Byte
Declare Sub Batteriespannung()

Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcdbus = 4
Config Adc = Single , Prescaler = Auto
Config Pina.7 = Input
Porta.7 = 1

Config Timer1 = Timer , Prescale = 1024
Enable Timer1
Enable Interrupts
Timer1 = 49910
On Timer1 Isr_von_timer1

Config Timer0 = Counter , Edge = Falling
Enable Timer0
Timer0 = 255
On Timer0 Isr_von_timer0

Dim A As Integer
Dim Taste As Byte
Dim Volt As Single
Dim Secu As Single
Dim Minu As Single
Dim Hour As Single
Dim X As Single
Dim Tasten_flag As Byte
Dim F As Single
Dim T As Single
Dim Freq As Single
Dim N As Long

Const Ref = 5 / 1023

A = 1
X = 1
Secu = 00
Minu = 00
Hour = 00
T = 0
Tasten_flag = 0
F = 0

Cls
Locate 1 , 4
Lcd "Daten-Terminal "
Locate 2 , 1
Lcd "Zeit = "
Locate 2 , 8
Lcd Hour ; Minu ; Secu

Do

Taste = Tastenabfrage()
If Taste <> 0 Then

Select Case Taste
Case 1
Tasten_flag = 0
Call Batteriespannung
Case 2
Tasten_flag = 0
Writeeeprom Secu , 1
Writeeeprom Minu , 10
Writeeeprom Volt , 20
Case 3
For N = 1 To 100000000
Freq = F / T
Cls
Locate 1 , 1
Lcd "Sekunden = " ; T
Locate 2 , 1
Lcd "Signale = " ; F
Locate 3 , 1
Lcd "==> Frequenz = "
Locate 4 , 1
Lcd Freq ;
If Taste <> 3 Then
Tasten_flag = 1
Exit For
End If
If Tasten_flag = 1 Then
Exit For
End If
Wait 1
Next N
Case 4
Tasten_flag = 0
If Secu = 60 Then
Secu = 00
Minu = Minu + 1
Elseif Minu = 60 Then
Minu = 00
Hour = Hour + 1
End If
Cls
Locate 2 , 1
Lcd "Zeit = "
Locate 2 , 8
Lcd Hour ; Minu ; Secu ;
Waitms 10
Case 5
Tasten_flag = 0
Readeeprom Secu , 1
Readeeprom Volt , 20
Cls
Locate 1 , 4
Lcd " Daten-Terminal "
Locate 2 , 1
Lcd Secu ; " Sekunden "
Locate 3 , 1
Lcd Minu ; " Minuten "
Locate 4 , 1
Lcd Volt ; " Volt "
End Select
End If

Loop

Isr_von_timer1:
Timer1 = 49910
Incr Secu
Incr T
Return

Isr_von_timer0:
Timer0 = 255
Incr F
Return

Function Tastenabfrage() As Byte
Local Ws As Word

Tastenabfrage = 0
Start Adc
Ws = Getadc(7)
If Ws < 500 Then
Select Case Ws
Case 400 To 450
Tastenabfrage = 1
Case 330 To 380
Tastenabfrage = 2
Case 260 To 305
Tastenabfrage = 3
Case 180 To 220
Tastenabfrage = 4
Case 90 To 130
Tastenabfrage = 5
End Select

End If


End Function

Sub Batteriespannung()
Local W As Word
Start Adc
W = Getadc(6)
Volt = W * Ref
Volt = Volt * 5.2941
Cls
Locate 1 , 1
Lcd "Die aktuelle "
Locate 2 , 1
Lcd "Spannung betraegt: "
Locate 3 , 1
Lcd Volt ; " Volt "
Waitms 100
End Sub


im prinzip möchte ich ja nur, dass der code in case 3 bis zu einem tastendruck (der dafür sorgt, dass das prog zu einem anderem case springt) ausgeführt wird und dann soll der andere case-code laufen.

gruß
chris

[Dirk]

Hallo chris,

wenn du innerhalb der Schleife mit der Variable N keine Tastaturabfrage machst, kann die Variable "Taste" nie einen anderen Wert als 3 annehmen. Der Wert 3 ist ja im "Case 3" Abschnitt immer gleich.

Gruß Dirk

[Che Guevara]

ok, danke
jetzt funzt's.

jetzt habe ich nur noch eine frage:

ich möchte das display immer aktualisieren, deshalb das cls und wait1 in case 3.
gibt es dafür nicht einen befehl, der mir das macht??
außerdem habe ich das problem bei wait 1, dass ich solange auf die taste drücken muss, bis der teil-code durchgelaufen ist (im extremfall 1 sec)....
wenn ich allerdings waitms 1 oder so schreibe, dann kann man auf dem lcd nichts mehr lesen, da das zu schnell ist.
gibt es dafür auch eine lösung???

gruß
chris

[Dirk]

Hallo chris,

... dann kann man auf dem lcd nichts mehr lesen, da das zu schnell ist. gibt es dafür auch eine lösung???
Das ist eine grundsätzliche Frage zur Ansteuerung eines LCD.

Die stabilste Anzeige ergibt sich auf einem LCD dann, wenn man immer nur dann (und auch nur 1x) etwas auf das LCD schreibt, wenn sich die Anzeige ändern soll.
Bei einer Uhrenanzeige ist das einfach: Man schreibt nur dann auf das LCD, wenn sich die Sekunde ändert. Dazu speichert man sich in einer Variablen (z.B. Oldsecond) die Sekunde ab, die man beim letzten Mal auf das LCD geschrieben hat. Ist Second noch = Oldsecond, dann wird der Schreibbefehl für das LCD einfach übersprungen.
Ist Second <> Oldsecond, dann wird die Uhrzeit neu auf das LCD geschrieben und Oldsecond = Second gesetzt.

Das alles geht dann völlig ohne Cls. Cls würde ich auch weitgehend vermeiden, weil es ein Flimmern durch das Löschen des ganzen LCDs macht, sondern immer nur die geänderten Infos an die Stelle schreiben, wo sie hinsollen. Alle nicht geänderten Texte ("Daten-Terminal") bleiben immer da stehen und werden nicht überschrieben.

Wenn du das so machst, kannst du Wait-Befehle in deiner Hauptschleife ganz weglassen.

Gruß Dirk