Propeller-Clock aber eigentlich Drehlicht und die Timer ?

wow das mit dem laser ist wirklich kewl! aber sicher extrem schwierig anzusteuern...

mein prog ist so gut wie fertig und schön schlank... habe nun das grose und kleine abc eingefügt... und braucht nur 25% auf dem mega8. hier wiedermal mein prog (wenn du möchtest kanst du das kleine abc von mir kopieren...):

Code:

---

$regfile = "m8def.dat"
$crystal = 8000000

$framesize = 512
$swstack = 512
$hwstack = 512

Config Portb = Output

Dim Umdrehung As Word
Dim Spaltenzeit As Byte
Dim A As Byte
Dim X As Byte

Dim I As Byte
Dim L As Byte
Dim Anzeige As String * 30
Dim Zeichen As String * 1
Dim Zeichenasc As Byte
Dim Spalte(150) As Byte
Dim Laenge As Byte
Dim Spalten As Byte
Dim Index As Word
Dim Stelle As Byte


Config Int0 = Falling
On Int0 Int0isr
Enable Int0

Config Timer0 = Timer , Prescale = 64
On Timer0 Timer0isr
Enable Timer0

Config Timer1 = Timer , Prescale = 8
On Timer1 Timer1isr
Enable Timer1

Enable Interrupts

Start Timer0
Start Timer1

Anzeige = "      Roboternetz"


Do

  If L = Laenge Then
      L = 0
      X = 0
      Stelle = 0
  End If

  Incr L

  Zeichen = Mid(anzeige , L , 1)
  Laenge = Len(anzeige)
  Spalten = Laenge * 7

  Zeichenasc = Asc(zeichen)

  If Zeichen = " " Then
    For I = 1 To 6
      Incr Stelle
      Spalte(stelle) = 255
    Next I
  End If

  If Zeichenasc >= 65 And Zeichenasc <= 90 Then
    Index = Zeichenasc - 65
    Index = Index * 5
    For I = 1 To 5
        Incr Stelle
        Spalte(stelle) = Lookup(index , Abc_gross)
        Incr Index
    Next I
    Incr Stelle
    Spalte(stelle) = 255
    Incr Stelle
    Spalte(stelle) = 255
  End If

  If Zeichenasc >= 97 And Zeichenasc <= 122 Then
    Index = Zeichenasc - 97
    Index = Index * 5
    For I = 1 To 5
        Incr Stelle
        Spalte(stelle) = Lookup(index , Abc_klein)
        Incr Index
    Next I
    Incr Stelle
    Spalte(stelle) = 255
    Incr Stelle
    Spalte(stelle) = 255
  End If

  If Zeichenasc >= 48 And Zeichenasc <= 57 Then
    Index = Zeichenasc - 48
    Index = Index * 5
    For I = 1 To 5
        Incr Stelle
        Spalte(stelle) = Lookup(index , 123)
        Incr Index
    Next I
    Incr Stelle
    Spalte(stelle) = 255
    Incr Stelle
    Spalte(stelle) = 255
  End If
Loop



Int0isr:
Waitms 2
Umdrehung = Timer1
Umdrehung = Umdrehung / 1200
Spaltenzeit = Umdrehung
Timer1 = 0
Timer0 = 0
A = 0
Return


Timer0isr:
Load Timer0 , Spaltenzeit
Incr A
If A > Spalten Then
Portb = 255
Else
Portb = Spalte(a)
End If
Return


Timer1isr:
I = 0
X = 0
Return


Abc_gross:
Data &B10000001 , &B01101111 , &B01101111 , &B01101111 , &B10000001
Data &B00000001 , &B01101101 , &B01101101 , &B01101101 , &B10010011
Data &B11000111 , &B10111011 , &B01111101 , &B01111101 , &B01111101
Data &B00000001 , &B01111101 , &B01111101 , &B10111011 , &B11000111
Data &B00000001 , &B01101101 , &B01101101 , &B01111101 , &B01111101
Data &B00000001 , &B01101111 , &B01101111 , &B01111111 , &B01111111
Data &B10000011 , &B01111101 , &B01101101 , &B01101101 , &B01100011
Data &B00000001 , &B11101111 , &B11101111 , &B11101111 , &B00000001
Data &B11111111 , &B01111101 , &B00000001 , &B01111101 , &B11111111
Data &B11111011 , &B01111101 , &B00000001 , &B01111111 , &B11111111
Data &B00000001 , &B11101111 , &B11010111 , &B10111011 , &B01111101
Data &B00000001 , &B11111101 , &B11111101 , &B11111101 , &B11111101
Data &B00000001 , &B10111111 , &B11001111 , &B10111111 , &B00000001
Data &B00000001 , &B11011111 , &B11101111 , &B11110111 , &B00000001
Data &B10000011 , &B01111101 , &B01111101 , &B01111101 , &B10000011
Data &B00000001 , &B01101111 , &B01101111 , &B01101111 , &B10011111
Data &B10000011 , &B01111101 , &B01110101 , &B01111011 , &B10000101
Data &B00000001 , &B01101111 , &B01100111 , &B01101011 , &B10011101
Data &B10011101 , &B01101101 , &B01101101 , &B01101101 , &B01110011
Data &B01111111 , &B01111111 , &B00000001 , &B01111111 , &B01111111
Data &B00000011 , &B11111101 , &B11111101 , &B11111101 , &B00000011
Data &B00000111 , &B11111011 , &B11111101 , &B11111011 , &B00000111
Data &B00000011 , &B11111101 , &B11100011 , &B11111101 , &B00000011
Data &B00111001 , &B11010111 , &B11101111 , &B11010111 , &B00111001
Data &B00011111 , &B11101111 , &B11110001 , &B11101111 , &B00011111
Data &B01111001 , &B01110101 , &B01101101 , &B01011101 , &B00111101

Abc_klein:
Data &B11111011 , &B11010101 , &B11010101 , &B11010101 , &B11100001
Data &B00000001 , &B11110101 , &B11101101 , &B11101101 , &B11110011
Data &B11100011 , &B11011101 , &B11011101 , &B11011101 , &B11111011
Data &B11110011 , &B11101101 , &B11101101 , &B11110101 , &B00000001
Data &B11100011 , &B11010101 , &B11010101 , &B11010101 , &B11100111
Data &B11101111 , &B10000001 , &B01101111 , &B01111111 , &B10111111
Data &B11001111 , &B10110101 , &B10110101 , &B10110101 , &B10000011
Data &B00000001 , &B11101111 , &B11011111 , &B11011111 , &B11100001
Data &B11111111 , &B11111111 , &B10100001 , &B11111111 , &B11111111
Data &B11111011 , &B11111101 , &B11011101 , &B01000011 , &B11111111
Data &B00000001 , &B11110111 , &B11101011 , &B11011101 , &B11111111
Data &B11111111 , &B01111101 , &B00000001 , &B11111101 , &B11111111
Data &B11000001 , &B11011111 , &B11100111 , &B11011111 , &B11100001
Data &B11000001 , &B11101111 , &B11011111 , &B11101111 , &B11100001
Data &B11100011 , &B11011101 , &B11011101 , &B11011101 , &B11100011
Data &B11000001 , &B11010111 , &B11010111 , &B11010111 , &B11101111
Data &B11101111 , &B11010111 , &B11010111 , &B11100111 , &B11000001
Data &B11000001 , &B11101111 , &B11011111 , &B11101111 , &B11101111
Data &B11101101 , &B11010101 , &B11010101 , &B11010101 , &B11111011
Data &B11011111 , &B00000011 , &B11011101 , &B11111101 , &B11111011
Data &B11000011 , &B11111101 , &B11111101 , &B11111011 , &B11000001
Data &B11000111 , &B11111011 , &B11111101 , &B11111011 , &B11000111
Data &B11000011 , &B11111101 , &B11110011 , &B11111101 , &B11000011
Data &B11011101 , &B11101011 , &B11110111 , &B11101011 , &B11011101
Data &B11001111 , &B11110101 , &B11110101 , &B11110101 , &B11000011
Data &B11011101 , &B11011001 , &B11010101 , &B11001101 , &B11011101


123:

---

und noch ein bild, ich werde den ganzen rotor nochmals neu bauen da er fast auseinanderfällt ;) und auf jedenfall hellere LED's...

--edit--

hab gerade bemerkt das beim kleinen "r" noch ein fehler drin ist...

er hat 7 laser übereinander, für jede reihe einen.

Castle

Bluesmash

Ahaaa, interessant deine Abfrage der Zeichen.
Du grenzt also die Zeichen ein und ordnest die einfach so hintereinander, dass der Asc-Code auch zur Reihenfolge passt der Daten passen.
Sehe ich das richtig ?
Muss das mal ausdrucken und genau durchkauen :-)

Ein Antwort bist du mir noch schuldig ;-)
Wie meintest Du das mit dem Schriftsatz von dem Bild umwandeln ?

@castle
Danke für die INfo :-)
Aber kannst Du mir sagen, wo das steht?
Kann da nix finden .
Meine 8 Laser nebeneinander brauchen schon so ca. 12cm breite.
Bei der Home scheint es aber eher nur einer zu sein (Bild) ?!




-----------------------


DAs würde mir auch gut gefallen....
http://www.luberth.com/help/LEDSPIN.HTM
So für Silvester oder so... ;-)

ja du siehst das genau richtig! ich musste einfach drei abfragen für die verschiedenen zeichengruppen machen... eine für die Grossbuchstaben, eine für die kleinen, und eine für die zahlen da sie im ascii code nicht hintereinander sind... in der tabelle sind die zeichen von a-z sortiert (jeweils eine zeile für einen buchstaben). und eine abfrage auf ein leerzeichen.

das mit dem bild meinte ich so dass ich jetzt nicht zuerst jedes zeichen aufzeichnen muss um es anschliessend im code einzutippen sonder gleich vom bild aus eintippen... :)

schade dass man kein grössenvergleich hat das teil sieht ja riesig aus! was hat den der für lampen dran die so schnell schalten...?

im moment bin ich gerade auf der suche nach einem ir-receiver damit ich dem rotor vom palm aus neue daten senden kann... hast du da ev. erfahrung?

gruss bluesmash

@bluesmash

Wenn du deinen Code noch ein wenig shrinken willst, hätt ich einen Vorschlag (Du mußt ein wenig mitdenken, aber das hast du ja drauf)

Code:

---

Dim Lowchar As Byte
Dim Hichar As Byte
Dim Tabadr As Word

do
  '........................
'  dein code von oben
  '........................

  Lowchar = 65
  Hichar = 90
  Tabadr = Loadlabel(abc_gross)
  Gosub Make_it

  Lowchar = 97
  Hichar = 122
  Tabadr = Loadlabel(abc_klein)
  Gosub Make_it

  Lowchar = 48
  Hichar = 57
  Tabadr = Loadlabel(123)
  Gosub Make_it

Loop

'-------------------------------------------------------
Make_it:
  If Zeichenasc >= Lowchar And Zeichenasc <= Hichar Then
    Index = Zeichenasc - Lowchar
    Index = Index * 5
    Tabadr = Tabadr + Index
    For I = 1 To 5
        Incr Stelle
        Spalte(stelle) = Cpeek(tabadr)
        Incr Tabadr
        Incr Index
    Next I
    Incr Stelle
    Spalte(stelle) = 255
    Incr Stelle
    Spalte(stelle) = 255
  End If
  Return

---

danke! super idee!! darauf sollte man auch erst mal kommen... hab dein code soweit begriffen...

was bedeutet aber Cpeek(tabadr)????

gruss bluesmash

Cpeek ist, ein byte aus dem Prog-mem lesen (-->Help)

Zitat:

---

addr = loadlabel( mylabel)
val = CPeek(addr)
mylabel:
DATA xx

---

Vorteil, besonders in deinem Fall: er muß nicht 5-mal rechnen (label + index), wie bei "lookup(index, label)"

Hallo Bluesmash

Habe mir deinen Code jetzt durchgeschaut. :-)
Ein paar Fragen hätte ich dazu:

* config Portd fehlt

* Timer1isr ist umsonst.
I und X werden nicht verwendet (I nur für schleifen)

* Bei Index wollte ich schon fragen, habs aber inzwischen kapiert :-)
Sehr schlau :-)

(die Verbesserung von Robert muss ich mir später noch anschauen :-)
Habs jetzt durch und ich glaube auch begriffen :-)
Nicht schlecht!!! :-)
Wo hast Du den diese Tricks nur her ???

Hallo

Mein Code ist jetzt soweit fertig :-)
(Satz wird auch zentriert)

Code:

---

'--------Drehlicht-----V1.13-neu---------------
 ' 8MHz RC Intern

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 200
$swstack = 200
$framesize = 200


'---Config Port's -----------------
Config Portb = Output                                      'Leds
Portb = 255

Config Portd = Input
Portd = 255

'---config Int0------
Config Int0 = Falling
Enable Int0
On Int0 Kontakt

'--- Config Timer1 ----
Config Timer1 = Timer , Prescale = 8
Enable Timer1

'--- Config Timer0 ------
Config Timer0 = Timer , Prescale = 8
Enable Timer0
On Timer0 Spalten


Enable Interrupts
Load Timer0 , 255


Dim Drehzeit As Long
Dim Spaltenzeit As Word
Dim B1 As Byte

Dim Spalte(350) As Byte
Dim Array_zaehler As Word


Dim A As Byte
Dim I As Byte

'Saetze
Dim Satz As String * 45
Dim Zeichen As String * 1
Dim Asc_zeichen As Byte
Dim Satzlaenge As Word
Dim X As Word                                              'Spaltenzaehler für Zeichen auftragen
Dim Zeichenasc As Byte

Dim Lowchar As Byte
Dim Hichar As Byte
Dim Tabadr As Word
Dim Index As Word

Timer1 = 0
Timer0 = 0
Array_zaehler = 0
X = 0



 '--------------------Hauptprogramm--------------------------
For X = 1 To 350                                            'Array Löschen
    Spalte(x) = 255                                        'max. Spalten
Next X
X = 0
'--------------------------------------------------
Waitms 20
Do
Satz = "Test Test Test Test Test Test"
Gosub Auswerten
Waitms 20


Satz = "0123456789"
Gosub Auswerten
Waitms 50

Satz = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Gosub Auswerten
Waitms 50

Satz = "abcdefghijklmnopqrstuvwxyz"
Gosub Auswerten
Waitms 50

Satz = "Ende"
Gosub Auswerten
Waitms 50


Loop


End





'==============================Unterprogramme===================================
'--------------ISR von Int0--------------------
Kontakt:
Drehzeit = Timer1
Timer1 = 0
Timer0 = 0
Spaltenzeit = Drehzeit / 510
Array_zaehler = 0
Return

'------------ISR von Timer0 --------------------
Spalten:
Load Timer0 , Spaltenzeit

Portb = 255                                                'Lösche Spalte
If Array_zaehler < 350 Then
  Incr Array_zaehler
  Portb = Spalte(array_zaehler)                            'Werte auf Rotor auftragen
  End If

Return





'--------------------Zeichen Auswerten ----------------------
Auswerten:
For X = 1 To 350                                            'Array Löschen
    Spalte(x) = 255
Next X


Satzlaenge = Len(satz)                                      'Ermittle die  Satzlänge
X = Satzlaenge * 7                                          'Errechne die Position
X = X / 2                                                  'für den Start
X = 175 - X

For A = 1 To Satzlaenge                                    'Eine Schleife für jedes Zeichen der Satzlänge
    Zeichen = Mid(satz , A , 1)                            'Zeichen pro Zeichen auswerten
    Zeichenasc = Asc(zeichen)

  If Zeichen = " " Then                                    'Leerzeichen machen
      For I = 1 To 7
        Incr X
        Spalte(x) = 255
      Next I
    End If

  Lowchar = 65                                            'Prüfe Zeichen A-Z
  Hichar = 90
  Tabadr = Loadlabel(abc_gross)
  Gosub Daten_suchen

  Lowchar = 97                                            'Prüfe Zeichen a-z
  Hichar = 122
  Tabadr = Loadlabel(abc_klein)
  Gosub Daten_suchen

  Lowchar = 48                                            'Prüfe Zahlen 0-9
  Hichar = 57
  Tabadr = Loadlabel(123)
  Gosub Daten_suchen
Next A

Return

'--------------Daten von Zeichen suchen---------------------------------------
Daten_suchen:
  If Zeichenasc >= Lowchar And Zeichenasc <= Hichar Then
    Index = Zeichenasc - Lowchar
    Index = Index * 5
    Tabadr = Tabadr + Index
    For I = 1 To 5
        Incr X
        Spalte(x) = Cpeek(tabadr)                          'hole Daten
        Incr Tabadr
        Incr Index
    Next I
    Incr X
    Spalte(x) = 255                                        'leere Spalte
    Incr X
    Spalte(x) = 255                                        'leere Spalte
  End If
Return




'----------Zeichensatz--------------------

Abc_gross:
Data &B10000001 , &B01101111 , &B01101111 , &B01101111 , &B10000001
Data &B00000001 , &B01101101 , &B01101101 , &B01101101 , &B10010011
Data &B11000111 , &B10111011 , &B01111101 , &B01111101 , &B01111101
Data &B00000001 , &B01111101 , &B01111101 , &B10111011 , &B11000111
Data &B00000001 , &B01101101 , &B01101101 , &B01111101 , &B01111101
Data &B00000001 , &B01101111 , &B01101111 , &B01111111 , &B01111111
Data &B10000011 , &B01111101 , &B01101101 , &B01101101 , &B01100011
Data &B00000001 , &B11101111 , &B11101111 , &B11101111 , &B00000001
Data &B11111111 , &B01111101 , &B00000001 , &B01111101 , &B11111111
Data &B11111011 , &B01111101 , &B00000001 , &B01111111 , &B11111111
Data &B00000001 , &B11101111 , &B11010111 , &B10111011 , &B01111101
Data &B00000001 , &B11111101 , &B11111101 , &B11111101 , &B11111101
Data &B00000001 , &B10111111 , &B11001111 , &B10111111 , &B00000001
Data &B00000001 , &B11011111 , &B11101111 , &B11110111 , &B00000001
Data &B10000011 , &B01111101 , &B01111101 , &B01111101 , &B10000011
Data &B00000001 , &B01101111 , &B01101111 , &B01101111 , &B10011111
Data &B10000011 , &B01111101 , &B01110101 , &B01111011 , &B10000101
Data &B00000001 , &B01101111 , &B01100111 , &B01101011 , &B10011101
Data &B10011101 , &B01101101 , &B01101101 , &B01101101 , &B01110011
Data &B01111111 , &B01111111 , &B00000001 , &B01111111 , &B01111111
Data &B00000011 , &B11111101 , &B11111101 , &B11111101 , &B00000011
Data &B00000111 , &B11111011 , &B11111101 , &B11111011 , &B00000111
Data &B00000011 , &B11111101 , &B11100011 , &B11111101 , &B00000011
Data &B00111001 , &B11010111 , &B11101111 , &B11010111 , &B00111001
Data &B00011111 , &B11101111 , &B11110001 , &B11101111 , &B00011111
Data &B01111001 , &B01110101 , &B01101101 , &B01011101 , &B00111101

Abc_klein:
Data &B11111011 , &B11010101 , &B11010101 , &B11010101 , &B11100001
Data &B00000001 , &B11110101 , &B11101101 , &B11101101 , &B11110011
Data &B11100011 , &B11011101 , &B11011101 , &B11011101 , &B11111011
Data &B11110011 , &B11101101 , &B11101101 , &B11110101 , &B00000001
Data &B11100011 , &B11010101 , &B11010101 , &B11010101 , &B11100111
Data &B11101111 , &B10000001 , &B01101111 , &B01111111 , &B10111111
Data &B11001111 , &B10110101 , &B10110101 , &B10110101 , &B10000011
Data &B00000001 , &B11101111 , &B11011111 , &B11011111 , &B11100001
Data &B11111111 , &B11111111 , &B10100001 , &B11111111 , &B11111111
Data &B11111011 , &B11111101 , &B11011101 , &B01000011 , &B11111111
Data &B00000001 , &B11110111 , &B11101011 , &B11011101 , &B11111111
Data &B11111111 , &B01111101 , &B00000001 , &B11111101 , &B11111111
Data &B11000001 , &B11011111 , &B11100111 , &B11011111 , &B11100001
Data &B11000001 , &B11101111 , &B11011111 , &B11101111 , &B11100001
Data &B11100011 , &B11011101 , &B11011101 , &B11011101 , &B11100011
Data &B11000001 , &B11010111 , &B11010111 , &B11010111 , &B11101111
Data &B11101111 , &B11010111 , &B11010111 , &B11100111 , &B11000001
Data &B11000001 , &B11101111 , &B11011111 , &B11101111 , &B11101111
Data &B11101101 , &B11010101 , &B11010101 , &B11010101 , &B11111011
Data &B11011111 , &B00000011 , &B11011101 , &B11111101 , &B11111011
Data &B11000011 , &B11111101 , &B11111101 , &B11111011 , &B11000001
Data &B11000111 , &B11111011 , &B11111101 , &B11111011 , &B11000111
Data &B11000011 , &B11111101 , &B11110011 , &B11111101 , &B11000011
Data &B11011101 , &B11101011 , &B11110111 , &B11101011 , &B11011101
Data &B11001111 , &B11110101 , &B11110101 , &B11110101 , &B11000011
Data &B11011101 , &B11011001 , &B11010101 , &B11001101 , &B11011101


123:

Data &B10000011
Data &B01011101
Data &B01101101
Data &B01110101
Data &B10000011

Data &B11111111
Data &B10111101
Data &B00000001
Data &B11111101
Data &B11111111

Data &B10111101
Data &B01111001
Data &B01110101
Data &B01101101
Data &B10011101

Data &B01111011
Data &B01111101
Data &B01011101
Data &B00101101
Data &B01110011

Data &B11100111
Data &B11010111
Data &B10110111
Data &B00000001
Data &B11110111

Data &B00011011
Data &B01011101
Data &B01011101
Data &B01011101
Data &B01100011

Data &B11000011
Data &B10101101
Data &B01101101
Data &B01101101
Data &B11110011

Data &B01111111
Data &B01110001
Data &B01101111
Data &B01011111
Data &B00111111

Data &B10010011
Data &B01101101
Data &B01101101
Data &B01101101
Data &B10010011

Data &B10011111
Data &B01101101
Data &B01101101
Data &B01101011
Data &B10000111

---

@bluesmash
Hatte deinen Code auch mal probiert. :-)
Deiner reagiert ein bisschen anders als meiner.
Bei dir flackern die Led's auch, wenn der Rotor sich nicht dreht..
Bei mir nur, nach einer Drehung..

Wegen dem Zeichensatz.
Schade das man so eigentlich die 8the Led nicht benutzt. (nur 1-7)
Müsste man eventuell umschreiben... (Fleissaufgabe :-) )

hallo roberto!

was meinst du mit "config pord fehlt"? ich benütze ja portd nicht... nur portb für die led's...
ja stimmt timer1isr und das byte x kann ich eigentlich rausschmeissen....

darf ich deine tabelle für die zahlen übernehmen?
die 8the LED habe ich extra nicht verwendet da mit 8 leds die buchstaben nicht mehr so schön symetrisch sind... deshalb werden ja auch bei den LCD's nur 7x5 punkte verwendet...

gruss bluesmash

Brauchst Du Portd nicht für den INT0 ?
Oder stellt sich der selber.. durch config INT0 ?

Den Zeichensatz kannst Du natürlich verwenden :-)

achso meinst du das! darüber hab ich noch gar nicht nachgedacht! ;) ich glaube config int0 genügt... bis jetzt hat es funktioniert ;)

gruss bluesmash

hallo roberto!

ich habe heute eine neue spielerei entwickelt für unser drehlicht :)

probier mal folgenden code aus... portb.6 und 7 (die brauche ich für mein neues drehlicht mit 2 farben...) kanst du löschen und wahrscheinlich die timer anpassen... dann sollte es funktionieren...

den vorschlag von robert hab ich noch nicht eingebaut und die zahlen fehlen immer noch... das werde ich später dann noch machen...

config portd.2 brauche ich jetzt auch für den interrupt da ich nun auch einen hall sensor verwende und ich den internen pullup des portes verwende...

Code:

---

$regfile = "m8def.dat"
$crystal = 8000000

$framesize = 256
$swstack = 256
$hwstack = 256

Config Portb = Output

Config Portd.6 = Output
Portd.6 = 0
Config Portd.7 = Output
Portd.7 = 0

Dim Umdrehung As Word
Dim Spaltenzeit As Byte
Dim A As Byte
Dim X As Byte
Dim X_7 As Byte
Dim I As Byte
Dim L As Byte
Dim Anzeige As String * 30
Dim Zeichen As String * 1
Dim Zeichenasc As Byte
Dim Spalte(150) As Byte
Dim Laenge As Byte
Dim Spalten As Byte
Dim Index As Word
Dim Stelle As Byte
Dim Spalteanz As Byte
Dim Spalteleer As Byte
Dim Spalteleer_7 As Byte

Config Int0 = Falling
On Int0 Int0isr
Enable Int0
Config Portd.2 = Input
Portd.2 = 1


Config Timer0 = Timer , Prescale = 64
On Timer0 Timer0isr
Enable Timer0

Config Timer1 = Timer , Prescale = 8
On Timer1 Timer1isr
Enable Timer1

Enable Interrupts

Start Timer0
Start Timer1

Anzeige = "Roman Sutter"

Portd.6 = 1
Portb.7 = 0



Do

  Spalteleer = 133

  Incr L

  Zeichen = Mid(anzeige , L , 1)
  Laenge = Len(anzeige)
  Spalten = Laenge * 7

  Zeichenasc = Asc(zeichen)

  If Zeichen = " " Then
    For I = 1 To 7
      Incr Stelle
      Spalte(stelle) = 255
    Next I
  End If

  If Zeichenasc >= 65 And Zeichenasc <= 90 Then
    Index = Zeichenasc - 65
    Index = Index * 5
    For I = 1 To 5
        Incr Stelle
        Spalte(stelle) = Lookup(index , Abc_gross)
        Incr Index
    Next I
    Incr Stelle
    Spalte(stelle) = 255
    Incr Stelle
    Spalte(stelle) = 255
  End If

  If Zeichenasc >= 97 And Zeichenasc <= 122 Then
    Index = Zeichenasc - 97
    Index = Index * 5
    For I = 1 To 5
        Incr Stelle
        Spalte(stelle) = Lookup(index , Abc_klein)
        Incr Index
    Next I
    Incr Stelle
    Spalte(stelle) = 255
    Incr Stelle
    Spalte(stelle) = 255
  End If

  If Zeichenasc >= 48 And Zeichenasc <= 57 Then
    Index = Zeichenasc - 48
    Index = Index * 5
    For I = 1 To 5
        Incr Stelle
        Spalte(stelle) = Lookup(index , 123)
        Incr Index
    Next I
    Incr Stelle
    Spalte(stelle) = 255
    Incr Stelle
    Spalte(stelle) = 255
  End If

Loop Until L = Laenge

Do
nop
Loop


Int0isr:
  Waitms 5
  Umdrehung = Timer1
  Umdrehung = Umdrehung / 1200
  Spaltenzeit = Umdrehung
  Timer1 = 0
  Timer0 = 0
  A = 0
  Spalteanz = 0
  If X <> Spalten Then
    Spalteleer = Spalteleer - 7
    Spalteleer_7 = Spalteleer + 7
    If Spalteleer = X_7 Then
      Spalteleer = 133
      X = X + 7
      X_7 = X + 7
    End If
  Else
    Portd.6 = 0
    Portd.7 = 1
  End If

Return


Timer0isr:
  Load Timer0 , Spaltenzeit

  Incr A
  If A > X Then
    If A > Spalteleer Then
      If A > Spalteleer_7 And A > X_7 And A > Spalteanz Then
        Portb = 255
        Else
        Incr Spalteanz
        Portb = Spalte(spalteanz)
      End If
      Else
      Portb = 255
    End If
  Else
    Incr Spalteanz
    Portb = Spalte(spalteanz)
  End If
Return


Timer1isr:

Return


Abc_gross:
Data &B10000001 , &B01101111 , &B01101111 , &B01101111 , &B10000001
Data &B00000001 , &B01101101 , &B01101101 , &B01101101 , &B10010011
Data &B11000111 , &B10111011 , &B01111101 , &B01111101 , &B01111101
Data &B00000001 , &B01111101 , &B01111101 , &B10111011 , &B11000111
Data &B00000001 , &B01101101 , &B01101101 , &B01111101 , &B01111101
Data &B00000001 , &B01101111 , &B01101111 , &B01111111 , &B01111111
Data &B10000011 , &B01111101 , &B01101101 , &B01101101 , &B01100011
Data &B00000001 , &B11101111 , &B11101111 , &B11101111 , &B00000001
Data &B11111111 , &B01111101 , &B00000001 , &B01111101 , &B11111111
Data &B11111011 , &B01111101 , &B00000001 , &B01111111 , &B11111111
Data &B00000001 , &B11101111 , &B11010111 , &B10111011 , &B01111101
Data &B00000001 , &B11111101 , &B11111101 , &B11111101 , &B11111101
Data &B00000001 , &B10111111 , &B11001111 , &B10111111 , &B00000001
Data &B00000001 , &B11011111 , &B11101111 , &B11110111 , &B00000001
Data &B10000011 , &B01111101 , &B01111101 , &B01111101 , &B10000011
Data &B00000001 , &B01101111 , &B01101111 , &B01101111 , &B10011111
Data &B10000011 , &B01111101 , &B01110101 , &B01111011 , &B10000101
Data &B00000001 , &B01101111 , &B01100111 , &B01101011 , &B10011101
Data &B10011101 , &B01101101 , &B01101101 , &B01101101 , &B01110011
Data &B01111111 , &B01111111 , &B00000001 , &B01111111 , &B01111111
Data &B00000011 , &B11111101 , &B11111101 , &B11111101 , &B00000011
Data &B00000111 , &B11111011 , &B11111101 , &B11111011 , &B00000111
Data &B00000011 , &B11111101 , &B11100011 , &B11111101 , &B00000011
Data &B00111001 , &B11010111 , &B11101111 , &B11010111 , &B00111001
Data &B00011111 , &B11101111 , &B11110001 , &B11101111 , &B00011111
Data &B01111001 , &B01110101 , &B01101101 , &B01011101 , &B00111101

Abc_klein:
Data &B11111011 , &B11010101 , &B11010101 , &B11010101 , &B11100001
Data &B00000001 , &B11110101 , &B11101101 , &B11101101 , &B11110011
Data &B11100011 , &B11011101 , &B11011101 , &B11011101 , &B11111011
Data &B11110011 , &B11101101 , &B11101101 , &B11110101 , &B00000001
Data &B11100011 , &B11010101 , &B11010101 , &B11010101 , &B11100111
Data &B11101111 , &B10000001 , &B01101111 , &B01111111 , &B10111111
Data &B11001111 , &B10110101 , &B10110101 , &B10110101 , &B10000011
Data &B00000001 , &B11101111 , &B11011111 , &B11011111 , &B11100001
Data &B11111111 , &B11111111 , &B10100001 , &B11111111 , &B11111111
Data &B11111011 , &B11111101 , &B11011101 , &B01000011 , &B11111111
Data &B00000001 , &B11110111 , &B11101011 , &B11011101 , &B11111111
Data &B11111111 , &B01111101 , &B00000001 , &B11111101 , &B11111111
Data &B11000001 , &B11011111 , &B11100111 , &B11011111 , &B11100001
Data &B11000001 , &B11101111 , &B11011111 , &B11011111 , &B11100001
Data &B11100011 , &B11011101 , &B11011101 , &B11011101 , &B11100011
Data &B11000001 , &B11010111 , &B11010111 , &B11010111 , &B11101111
Data &B11101111 , &B11010111 , &B11010111 , &B11100111 , &B11000001
Data &B11000001 , &B11101111 , &B11011111 , &B11011111 , &B11101111
Data &B11101101 , &B11010101 , &B11010101 , &B11010101 , &B11111011
Data &B11011111 , &B00000011 , &B11011101 , &B11111101 , &B11111011
Data &B11000011 , &B11111101 , &B11111101 , &B11111011 , &B11000001
Data &B11000111 , &B11111011 , &B11111101 , &B11111011 , &B11000111
Data &B11000011 , &B11111101 , &B11110011 , &B11111101 , &B11000011
Data &B11011101 , &B11101011 , &B11110111 , &B11101011 , &B11011101
Data &B11001111 , &B11110101 , &B11110101 , &B11110101 , &B11000011
Data &B11011101 , &B11011001 , &B11010101 , &B11001101 , &B11011101


123:

---

viel spass damit :)
gruss bluesmash

fallses noch wen interessiert (sorry, dassich so spät damit ankomm *auf die uhr schaut* ;)) das mit dem lasersystem ist so:

du hast einen laser und einen motor mit in dem fall warscheinlich 7 spiegeln.
diese 7 spiegel sind jeweils in einem anderen winkel am motor angebracht, so dass wenn die oberste zeile benutzt werden soll dafür immer nur ein spiegel zuständig ist. über die zeit wann der laser an ist macht man die spalten, aber das war ja klar...

Martin ^^

Danke für die Info :-)

Hallo allerseits!

Ich habe mich gerade erst in den Thread eingelesen. Und genau genommen passt meine Frage nicht wirklich in dieses Forum. Ich möchte aber keinen neuen Thread eröffnen. Würde aber gern ein Thema aufnehmen, dass ganz zu Anfang kurz angeschnitten wurde.

Ich arbeite gerade am Entwurf eines rotierenden Bakenempfängers. Und stehe vor dem Problem der Spannungsübertragung. Habe einige Versuch mit selbstgewickelten Spulen aus Kupflackdraht gemacht, aber war nicht wirklich erfolgreich damit.

Zitat:

---

Zitat von Ratber

Auf Dauer wird der Schleifer nicht halten da bietet sich nen rotiernder Trafo an.

---

@Ratber
Da bin ich im Grundsatz Deiner Meinung. Die Idee von @Roberto ist aber schon clever gemacht.
Könntest Du bitte einmal beschreiben wie der rotierende Trafo an Deinem Entwurf funktioniert hat bzw. aufgebaut war?

@Bluesmash
Wie hast Du bei Dir die Spannungsübertragung gelöst?


Danke.


Viele Grüße

Uwe

Hallo Uwe

Ich habe die übertragung ganz einfach mit einem schleifer und schleifring gelöst. dabei habe ich den GND über die motorwelle übertragen. war aber nur eine quick&dirty lösung...

gruss bluesmash

Zitat:

---

Zitat von Bot-Builder

@Ratber
Da bin ich im Grundsatz Deiner Meinung. Die Idee von @Roberto ist aber schon clever gemacht.
Könntest Du bitte einmal beschreiben wie der rotierende Trafo an Deinem Entwurf funktioniert hat bzw. aufgebaut war?

---

Da ist nicht viel zu erklären.

Im Grunde 2 Flachwicklungen als Tonne die ineinander passen.
Flach geht es übrigens auch.
Der Rest ist etwas Elektronik.

Heute würde ich einfach zwei bidirektionale Funkmodule nehmen die mittlerweile sehr preiswert in kleiner Bauform zu bekommen sind.

Zitat:

---

Zitat von Ratber

Heute würde ich einfach zwei bidirektionale Funkmodule nehmen die mittlerweile sehr preiswert in kleiner Bauform zu bekommen sind.

---

Jetzt hilf mir mal. Wie stellt Du Dir Leistungsübertragung mit zwei Funkmodulen vor?

Zitat:

---

Zitat von Ratber

Im Grunde 2 Flachwicklungen als Tonne die ineinander passen.
Flach geht es übrigens auch.
Der Rest ist etwas Elektronik.

---

Also das mit den Wicklungen ist zumindest theoretisch so weit klar. Allerdings bin ich mir über die konstruktiven Details nicht im Klaren. Gleichviele Wicklungen (wieviele?) auf beiden Seiten? Wie dick war Dein Kupferlackdraht?

Primärseite mit Recheckspannung von einigen Kiloherz. Auf der Sekundärseite das ganze gleichrichten und mit Elko puffern. Ist es das was mit "Rest ist etwas Elektronik" meinst? Wie viel Spannung bzw. welche Leistung kann man damit übertragen.

viele Grüße

Uwe

Nein die Funkübertragung war für die Daten gedacht.

Damals hab ich das wie gesagt kapazitiv über die Welle gemacht.

Heute bekommt man sehr günstig bidirektionale Module so das man sich da keinen großen Kopf mehr machen muß.


Die Energieübertragung wäre einfacher zu bewerkstelligen.

Ich habe glockenförmige Luftspulen genommen damit der Platzbedarf gering bleibt.
Auf der Primärseite habe ich mit einigen khz getaktet um die Verluste zu reduzieren.
Für mehr Leistung passende Ferrithälften drumrum und etwas Feintuning also abstimmung auf die Drehzahl des Rotors.

Die Drahtstärken und genauen Geometrieen der Spulen habe ich aber nicht mehr.
Wäre für dich aber auch wertlos da man sich die Werte eh erst rechnerisch je nach Geometrie erarbeiten muß.

Zitat:

---

Zitat von Ratber

Wäre für dich aber auch wertlos da man sich die Werte eh erst rechnerisch je nach Geometrie erarbeiten muß.

---

Hättest Du einen Tip für mich wo diese mathematischen Zusammenhänge auch für Laien einigermaßen verständlich und nachvollziehbar erklärt sind?

Zitat:

---

Zitat von Bot-Builder

Zitat:

---

Zitat von Ratber

Wäre für dich aber auch wertlos da man sich die Werte eh erst rechnerisch je nach Geometrie erarbeiten muß.

---

Hättest Du einen Tip für mich wo diese mathematischen Zusammenhänge auch für Laien einigermaßen verständlich und nachvollziehbar erklärt sind?

---

In anlehnung an eine bekannte Buchreihe suchst du in etwa "Induktion für dummies"

Das wird es wohl nicht geben.
Das liegt, vorsichtig gesagt, an der komplexität des Themas selber.

Genauso könnte man nach "Kernphysik für dummies" suchen wenn man vor hat selber einen Reaktor zu bauen.


Sorry !

Zitat:

---

Zitat von Ratber

In anlehnung an eine bekannte Buchreihe suchst du in etwa "Induktion für dummies"

---

Das sicherlich nicht.

Zitat:

---

Zitat von Ratber

Das liegt, vorsichtig gesagt, an der komplexität des Themas selber.

---

Das es sich hier um eine komplexes Thema handelt, ist schon klar.

Zitat:

---

Zitat von Ratber

Genauso könnte man nach "Kernphysik für dummies" suchen wenn man vor hat selber einen Reaktor zu bauen.

---

Irgendwie kommen wir, vorsichtig gesagt, nicht wirklich weiter. Weiss Du was, vergiss es einfach.

Was den nun ?


Entweder du nimmst dir die nötige Zeit und lernst das Teilgebiet das ich mal vereinfacht mit "Induktion und Magnetismus" betitel.

Oder du machst es wie viele andere nach der Trial and Error Methode.

Dazwischen gibt es nichts ausser "nachbauen" von schon vorhandenen und dokumentierten Projekten.


Mußt dich nur entscheiden.

Zitat:

---

Irgendwie kommen wir, vorsichtig gesagt, nicht wirklich weiter. Weiss Du was, vergiss es einfach.

---

Auch ne Möglichkeit..... ;)

Hallo alle zusammen

Ich weiß zwar das dieses Thema schon länger inaktiv ist trotzt dem wollt ich hier mal eine Frage los werden. Ich bin gerade dabei mir eine Propeller Uhr zu bauen und wollte fragen wie man aus einer Tabelle mit mehren Dateien hinter einander eine nach der andern ziehen kann.
Oder wie man das mit der Zeichen Auswahl besser machen kam.
Ich will nämlich die Uhrzeit nicht wie im Original an 4 Sieben Segment anzeigen aus geben sonder über einen Propeller mit 8 led’s . Zu sagen ist noch das an den Itn0 Pin eine Lichtschranke habe die gegen Masse zieht nur an einer Stelle durch eine Blechfahne unterbrochen wird und dann plus potenzial an den Pin anliegt.
Ich hoffe einer von euch kann mir helfen oder Verbesserungsvorschläge machen.
Ich wehre sehr dankbar darüber, weil ich auch noch nicht sehr lange mit Bascom arbeite.

Hier noch mein Quellcode der von der Black- Strom Uhr von Wolfgang Schwarz abgeleitet ist:

Code:

---

        '*******************************************************************************
' http://www.black-strom.de.vu/
'
'
' Feature:
' - mit Interner Zeitbasis (Timer1)
' - Multiplexausgabe auf Siebensegmentanzeige (Timer0)
' - Uhr ist über zwei Taster einstellbar.
'
' To Do:
' -
'
' Feature for the future:
' - anderer µC  evnt. ATMega8, da der 902312 für den rest nicht reichen wird
' - Uhr stellen über RC5, braucht Timer0
' - Wecker
' - DCF77 empfang
' - Datum zusätzliche über Alphanumerische anzeigen
'
'
' History:
' - V2.3.3 wird ein taster zum uhr stellen länger betätigt> schnellvorlauf
' - V2.3.2 beim uhr stellen die sekunden auf null setzen
' - V2.3.1 Uhren Code aus dem Inetrupt Label ind die Hauptschleife verschoben.
' - V2.3  Uhren Code umgeschrieben; jede Ziffer wir jetzt einzelnt gezählt,
'          Function Bcdzahl und Label Multiplex wir überflüssig.
'          Die Uhr ist jetzt einstellbar.
' - V2.2  Bugy  <ö#+Q@
' - V2.1  Uhr geeicht auf 4MHz > Load_timer1 = 62755
' - V2.0  erster Hardware test
' - V1.0  nur am PC getestet
'
' HW Stack: 40 ; SW Stack 20 ; Framesize: 16
'
'*******************************************************************************


' µC Deklarationen
$regfile = "2313def.dat"                                    'AT90S2313-Deklarationen
$crystal = 4000000


' Variablen
Dim Temp_ziffer As Byte                                    'welche ziffer soll bearbeitet werden
Dim Bcd_aus As Byte                                        'enthält den Wert der dez zahl die ausgegeben werden soll

Dim Ausgang As Byte                                        'Segmentfolge die Ausgegeben wird aus Segmentcode - Tabelle
Dim Sek_blink As Bit                                        'Blinkt im Sekunden Takt

Dim Zl_sekunde As Byte                                      'Zeit Variablen
Dim Zl_minute As Byte                                      'enthalten die Uhrzeit
Dim Zl_stunde As Byte                                      'Zl-... => Low Wert der Zeit
Dim Zh_sekunde As Byte                                      'Zh-... => High Wert der Zeit
Dim Zh_minute As Byte
Dim Zh_stunde As Byte

'Dim A As Byte
'Dim B As Byte
'Dim B1 As Byte
'A = 1

' Ein-/Ausgänge
Config Portb = Output
Portb = Ausgang                                            'Port B als Ausgang
Ddrd = &B1111111
Config Portd = Input
Ddrd = &B11111000                                          '1 Ausgang, 0 Eingang
Portd = &B0000111                                          'pull up w.




'Eingänge:
T_min_stellen Alias Pind.0
T_h_stellen Alias Pind.1
Licht Alias Pind.2

' Sonstiges
Const Load_timer1 = 62755                                  'Konstande auf die der Timer1 geladen wird
'4MHz = 62755 | 62760 etwas zu langsam <> 62750 etwas zu schnell



'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' Timer0 für Multiplexausgabe
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'On Timer0 7segment                                          'Interrupt-Routine für Timer0-Overflow
'Config Timer0 = Timer , Prescale = 1                        'Takt: Quarz/Prescale  (möglich: 1, 8, 64, 256, 1024)
'Enable Timer0                                              'Timer0-Overflow-Interrupt einschalten


'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' Timer 1 als Zeitbasis
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

On Timer1 Sekunde_plus                                      'Interrupt-Routine für Timer1-Overflow
Config Timer1 = Timer , Prescale = 64                      'Takt: Quarz/Prescale  (möglich: 1, 8, 64, 256, 1024)
Enable Timer1                                              'Timer0-Overflow-Interrupt einschalten
Enable Interrupts                                          'Interrupts global zulassen
Load Timer1 , Load_timer1                                  'Lädt den Timer auf einen wert vor


'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' Hauptprogramm
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


Do                                                          'Start Hauptschleife


' ### Uhren Code ###
' Es wird für jede Ziffer einzelnd gezählt, das ermöglicht eine einfacher ausgabe
' auf den 7segmentanzeigen. Der Zählvorgang funktioniert ím prinzip wie z.B.
' bei einem normalen Logik Zähler-IC

If Zl_sekunde = 10 Then                                    'Wenn der Sekunden Low Wert = 10
Zl_sekunde = 0                                              'wird er auf 0 gesetzt
Incr Zh_sekunde                                            'und der High Wert um eins erhöht
  If Zh_sekunde = 6 Then                                  'Ist der High Wert 6 (entspricht 60 Sekunden)
  Zh_sekunde = 0                                          'wird er auf 0 gesetzt
  Incr Zl_minute                                          'und der Minuten Low Wert um eins erhöht
  End If
End If


If Zl_minute = 10 Then
  Zl_minute = 0
  Incr Zh_minute
End If
If Zh_minute = 6 Then
  Zh_minute = 0
  Incr Zl_stunde
End If


If Zl_stunde = 10 Then
  Zl_stunde = 0
  Incr Zh_stunde
End If
If Zh_stunde = 2 And Zl_stunde = 4 Then
  Zl_stunde = 0
  Zh_stunde = 0
End If



' ### Uhr stellen ###
' Wird der Taster "T_min_stellen" betätigt werden die Minuten um eins erhöht.
' Wird der Taster "T_h_stellen" betätigt werden die Stunden um eins erhöht.
' Werden beide gleichzeitig betätigt werden Stunden und Minuten auf Null gesetzt.
' Wird einer der Taster länger betätigt (> 150ms) gibt es einen schnellvorlauf

If T_min_stellen = 0 Then                                  'Wird "T_min_stellen" betätigt
  Waitms 1                                                'Entprellen
  If T_min_stellen = 0 Then                                'Ist der Taster immer noch betätigt
  Incr Zl_minute                                          'wird Minute um eins erhöht
  Zl_sekunde = 0                                          'Sekunden auf Null setzen
  Zh_sekunde = 0
  End If
End If


If T_h_stellen = 0 Then
    Waitms 1
    If T_h_stellen = 0 Then
    Incr Zl_stunde
    Zl_sekunde = 0
    Zh_sekunde = 0
    End If
End If


If T_min_stellen = 0 And T_h_stellen = 0 Then              'Wenn "T_Min_stellen" und "T_H_stellen" gleichzeitig betätigt
    Zl_minute = 0                                          'dann werden Minuten und Stunden auf 0 gestzt
    Zh_minute = 0
    Zl_stunde = 0
    Zh_stunde = 0
End If



'Loop                                                        'Ende Hauptschleife

'End                                                        'Programm Ende


'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' Bei jedem Aufruf wir nur eine Ziffer ausgegeben, d.h nur eine Anzeige wird
' angesteuert. Die anderen bleiben dunkel. Bei jedem Aufruf wird eine Anzeige
' weitergeschaltet.
'
' Anzeigen anordnung
'
' 1111  2222  3333  4444
' 1  1  2  2  3  3  4  4
' 1111  2222  3333  4444
' 1  1  2  2  3  3  4  4
' 1111o 2222o  3333o 4444o
'
'                        ^-- Dezimalpunkt
'                      ^---- 4. Ziffer | Minute Low Wert  | Variable Zl_minute
'                ^---------- 3. Ziffer | Minute High Wert | Variable Zh_minute
'        ^----------------- 2. Ziffer | Stunde Low Wert  | Variable Zl_stunde
'  ^----------------------- 1. Ziffer | Stunde High Wert | Variable Zh_stunde


'7segment:
If Licht = 0 Then


If Temp_ziffer = 4 Then Temp_ziffer = 0                    'bestimmt die auszugebende Ziffer (1 bis 4)
Incr Temp_ziffer                                            'bei jedem aufruf des Lable wir eine andere Ziffer ausgegeben

Select Case Temp_ziffer                                    'welche Ziffer soll angesteuert werden
  Case 1 : Bcd_aus = Zh_stunde
  Case 2 : Bcd_aus = Zl_stunde
  Case 3 : Bcd_aus = Zh_minute
  Case 4 : Bcd_aus = Zl_minute
End Select



Select Case Bcd_aus
    Case 1 : Ausgang = Lookup(1 , Segmentfolge)
    Case 2 : Ausgang = Lookup(2 , Segmentfolge)
    Case 3 : Ausgang = Lookup(3 , Segmentfolge)
    Case 4 : Ausgang = Lookup(4 , Segmentfolge)
    Case 5 : Ausgang = Lookup(5 , Segmentfolge)
    Case 6 : Ausgang = Lookup(6 , Segmentfolge)
    Case 7 : Ausgang = Lookup(7 , Segmentfolge)
    Case 8 : Ausgang = Lookup(8 , Segmentfolge)
    Case 9 : Ausgang = Lookup(9 , Segmentfolge)
    Case 0 And Temp_ziffer = 1 : Ausgang = Lookup(10 , Segmentfolge)      'Nullstellenunterdrückung  bei der ersten Ziffer
    Case 0 And Temp_ziffer > 1 : Ausgang = Lookup(0 , Segmentfolge)      'wenn nicht erste Ziffer Null anzeigen
    End Select
Portb = Ausgang

'Ausgabe des 7 Segmentcodes (Invertierend [Not] bei Anz. mit gem. Anode)

End If
Portb = 0
Loop
'Return
End

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' Interrupt-Routine für Timer1 / Zeitbasis
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sekunde_plus:


Load Timer1 , Load_timer1                                  'Lädt den Timer auf einen wert vor

Incr Zl_sekunde                                            'Erhöht den Low Wert der Sekunde um eins

Toggle Sek_blink                                            'Ändert sich jede Sek., 1sec an 1sec aus


Return


' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Segmentfolge:                                              'GFEDCBA / "1" Segment AN
Data 126 , 131 , 133 , 137 , 145 , 161 , 193 , 126          '0
Data 0 , 1 , 33 , 97 , 255 , 1 , 1 , 0                      '1
Data 33 , 67 , 133 , 137 , 145 , 161 , 65 , 1              '2
Data 130 , 129 , 129 , 145 , 145 , 145 , 145 , 110          '3
Data 4 , 12 , 20 , 36 , 68 , 132 , 255 , 4                  '4
Data 226 , 145 , 145 , 145 , 145 , 145 , 145 , 142          '5
Data 62 , 81 , 145 , 145 , 145 , 145 , 145 , 142            '6
Data 128 , 128 , 128 , 128 , 143 , 144 , 160 , 192          '7
Data 110 , 145 , 145 , 145 , 145 , 145 , 145 , 110          '8
Data 112 , 145 , 145 , 145 , 145 , 145 , 145 , 126          '9
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen

---