Unterprogramm im hintergrund laufen lassen

[Klaus O. (kelomat)]

Hi Leute!

Vorweg: ich bin noch ein blutiger Anfänger beim Programmieren!

Ich hab ein kleines Problem!
Ich will mit einer Infrarotfernbedienung 2 Zahlen eingeben und nach der 
"Enter"-Taste sollen diese auf einer 7Segment anzeige erscheinen.

Das ganze funktioniert schon ganz gut! Nur: das mit dem multiplexen der 
Anzeige haut nicht so ganz hin weil scheinbar das Programm für das 
auswerten vom rc5 (getrc5) zulange braucht.

Jetzt blinkt die erste anzeige.

Gibt es da eine möglichkeit ein Unterprogramm für's Multiplexen im 
Hintergrund laufen zu lassen???

mfg
Klaus

[Olli R. (omr)]

Klaus O. wrote:

> Gibt es da eine möglichkeit ein Unterprogramm für's Multiplexen im
> Hintergrund laufen zu lassen???

Wieviele Kerne hat Dein uC?

Olli

[Teplotaxl X. (t3plot4x1)]

Tu das Multiplexen in nen Timer-Interrupt und gut ist.

[Matthias L. (Gast)]

>cheinbar das Programm für das auswerten vom rc5 (getrc5) zulange braucht.


Sind dort etwa delays drin??

Das RC5 dekodieren geschieht doch auch im Timer interrupt...

[Klaus O. (kelomat)]

Also bis jetzt hab ich das:

$regfile = "m32def.dat"
$framesize = 1000
$swstack = 1000
$hwstack = 1000
$crystal = 16000000
$baud = 9600


Config Portc = Output
Ddra = &B00000011


Seg1 Alias Porta.0
Seg2 Alias Porta.1

Config Rc5 = Pina.3



Enable Interrupts

Dim Address As Byte , Command As Byte , Seg1_var As Byte , Seg2_var As 
Byte , Eingabe As Byte
Dim Einer As Byte , Zehner As Byte , Zahl As Byte , Enter As Bit , 
Erste_fertig As Bit


Do



Getrc5(address , Command)

Command = Command And &B01111111



  'Print Address ; "  " ; Command
  'Print Zehner ; " " ; Einer ; " " ; Enter


If Address = 255 Then
   Erste_fertig = 0
   Goto Weiter
   End If

If Command < 10 And Zahl = 0 Then                           'zehner
   Zehner = Command
   Zahl = 1
   Erste_fertig = 1
   End If

If Command < 10 And Zahl = 1 And Erste_fertig = 0 Then      'einer
   Einer = Command
   Zahl = 2
   End If

If Command = 87 And Zahl = 2 Then                           'enter
   Enter = 1
   Zahl = 0
   End If


Weiter:

   If Command = 41 Then                                     'löschen
   Enter = 0
   End If


   If Enter = 1 Then
       Seg1_var = Lookup(zehner , Anzeige)
       Seg2_var = Lookup(einer , Anzeige)


 Seg1 = 1
 Seg2 = 0
 Portc = Seg1_var
 Waitms 5


 Seg1 = 0
 Seg2 = 1
 Portc = Seg2_var
 Waitms 5
  Else
 Seg1 = 0
 Seg2 = 0
    End If


  Loop

End

 Anzeige:
   Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111
   '      0   1    2   3    4    5       6    7    8    9

Mit Timern hab ich noch nicht wirklich erfahrung gemacht...

Hat wer verbesserungsvorschläge?
Irgendwelche Fehler?

[Teplotaxl X. (t3plot4x1)]

>Mit Timern hab ich noch nicht wirklich erfahrung gemacht...

Dann wirst du es jetzt wohl oder übel machen müssen.

[Klaus O. (kelomat)]

>Tu das Multiplexen in nen Timer-Interrupt und gut ist.

Das wars'

DANKE!!!!!

lg