Propeller-Clock aber eigentlich Drehlicht und die Timer ?

[Roberto]

Hallo Tüftler

Hab jetzt die alte Version und ein paar Variablen durch Word ersetzt.
Ging dann nicht so schlecht

Mein Code schaut jetzt so aus...

 '--------Drehlicht-----V1.11---------------
 ' 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 Array(350) As Byte
Dim Array_zaehler As Word
Dim A As Word
Dim B As Word
Dim C As Byte


Dim Wort As String




Timer1 = 0
Array_zaehler = 0
C = 254




 '--------------------Hauptprogramm--------------------------

Do
Restore Xxx
For A = 1 To 350
  Read B1
   B1 = 255 - B1
  Array(a) = B1
Next A


Waitms 10

For A = 1 To 350
    Array(a) = 255
  Next A

Waitms 5



Wort = "Andre"




Loop

End




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


Array_zaehler = 0
Return


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

Portb = 255
If Array_zaehler < 350 Then
   Incr Array_zaehler
   Portb = Array(array_zaehler)
  End If

Return



Xxx:

Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 31 , 36 , 68 , 132 , 132 , 68 , 36 , 31                'A
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 255 , 64 , 32 , 16 , 8 , 4 , 2 , 255                   'N
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 255 , 129 , 129 , 129 , 129 , 129 , 66 , 60            'D
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 255 , 136 , 136 , 136 , 136 , 140 , 82 , 33            'R
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 255 , 137 , 137 , 137 , 137 , 137 , 129 , 129          'E
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                          'Leerzeichen

Mein Ansatz ist jetzt so..
Ich trage z.B. 350 Spalten auf.
Mache ein Array mit 350 Stellen.

Der Rotor trägt einfach immer das Array auf, egal was drinnen steht.

Derzeit lese ich mit einer Schleife das Wort aus den Daten in das Array ein.

Mehrfaches Array kenne ich nicht und würd so wohl auch nix bringen ?!
(War schon froh, dass das mit einem Array ging )

Später sollte eine Schleife einen String zerlegen und die Buchstaben dann aus dem selbstgemachten (puu...) Zeichensatz suchen..
und dann halt einfach in das Array schreiben..

Derzeit ist der Name an und einmal aus... (Versuch)

Habe auch schonmal probiert den Kreis nach aussen wandern zu lassen und wieder rein .
(Schleife mit rotate.. und ins Array)

Habe nur gemerkt, dass das Waitms... sehr von den Timmern aufgehalten wird und dass man auch eine Verzögerung im Aufbau sehen kann.(Led's)

Hängt auch von der Rotor Geschwindigkeit ab.
Vermutlich weil die Timer dann öfter zum Zug kommen...


Ps.:
Die Idee mit den Zeichensatz ist gut
Meine , dass so gleich mit 1 und 0 in das Programm zu schreiben.
Ich hatte das umständlicher gemacht.
Hatte mir dazu eine Excel Seite gemacht, dass mir das ausrechnet..

Hast Du den Zeichensatz selber gemacht ?
Willst Du dann auch zwischen klein und Grossschrift unterscheiden ?

Darf ich deinen Zeichensatz verwenden ?!