Matthias
30.03.2004, 18:53
Hallo,
ich hab den Rheinturm (Fernsehturm) nachgebaut und ein programm zum ansteuern der LEDs geschrieben(für dir Uhr).
Vielleicht werden einige von euch die Rheinturmuhr schon mal gesehen haben.
Mein Problem ist jetzt aber, dass, wenn ich das Programm starte, nur einzelne LEDs Hintereinander blinken, ich schätz mal so mit 20Hz.
Hie mal das programm:
define Spalte1 bit[1] 'sec
define Spalte2 bit[2] 'sec
define Spalte3 bit[3] 'min+x
define Spalte4 bit[4] 'min+h
define Spalte5 bit[5] 'h
define Spalte6 bit[6] 'x
define Zeile1 bit[7] '1
define Zeile2 bit[8] '2
define Zeile3 bit[9] '3
define Zeile4 bit[10] '4
define Zeile5 bit[11] '5
define Zeile6 bit[12] '6
define Zeile7 bit[13] '7
define Zeile8 bit[14] '8+h1
define Zeile9 bit[15] '9+h2+x10
define matrix word[1] 'gesammte matrix
define matrix_s1 byte[1] '1. matrix-speicher-hälfte
define matrix_s2 byte[2] '2. matrix-speicher-hälfte
define matrix_p1 byteport[1] '1. matrix-port-hälfte
define matrix_p2 byteport[2] '2. matrix-port-hälfte
define var byte[3] 'Variable zur Parameter-Übergabe
#loop
var=second
Spalte2=on
gosub zehner
Spalte1=on
gosub einer
var=minute
Spalte4=on
gosub zehner
Spalte3=on
gosub einer
Spalte5=on
var=hour
if var=>1 then Zeile8=on
if var=>2 then Zeile9=on
matrix_p1=matrix_s1
matrix_p2=matrix_s2
if var=>20 then var=var-10
if var=>10 then var=var-10
matrix=off
Spalte4=on
gosub einer
goto loop
#zehner
if var=>10 then Zeile1=on
if var=>20 then Zeile2=on
if var=>30 then Zeile3=on
if var=>40 then Zeile4=on
if var=>50 then Zeile5=on
if var=>50 then var=var-10
if var=>40 then var=var-10
if var=>30 then var=var-10
if var=>20 then var=var-10
if var=>10 then var=var-10
matrix_p1=matrix_s1
matrix_p2=matrix_s2
matrix=off
return
#einer
if var=>1 then Zeile1=on
if var=>2 then Zeile2=on
if var=>3 then Zeile3=on
if var=>4 then Zeile4=on
if var=>5 then Zeile5=on
if var=>6 then Zeile6=on
if var=>7 then Zeile7=on
if var=>8 then Zeile8=on
if var=>9 then Zeile9=on
matrix_p1=matrix_s1
matrix_p2=matrix_s2
matrix=off
return
Gibt es eine Möglichkeit, das Programm zu Optimieren?
Würde es was bringen, wenn ich den Schwinger der M austausche, was nartürlich ein bisschen schlecht wäre, weil dann auch die Uhr usw schneller Läuft.
Helft mir bitte! Ich bin am verzweifeln!
Danke,
Matthias
ich hab den Rheinturm (Fernsehturm) nachgebaut und ein programm zum ansteuern der LEDs geschrieben(für dir Uhr).
Vielleicht werden einige von euch die Rheinturmuhr schon mal gesehen haben.
Mein Problem ist jetzt aber, dass, wenn ich das Programm starte, nur einzelne LEDs Hintereinander blinken, ich schätz mal so mit 20Hz.
Hie mal das programm:
define Spalte1 bit[1] 'sec
define Spalte2 bit[2] 'sec
define Spalte3 bit[3] 'min+x
define Spalte4 bit[4] 'min+h
define Spalte5 bit[5] 'h
define Spalte6 bit[6] 'x
define Zeile1 bit[7] '1
define Zeile2 bit[8] '2
define Zeile3 bit[9] '3
define Zeile4 bit[10] '4
define Zeile5 bit[11] '5
define Zeile6 bit[12] '6
define Zeile7 bit[13] '7
define Zeile8 bit[14] '8+h1
define Zeile9 bit[15] '9+h2+x10
define matrix word[1] 'gesammte matrix
define matrix_s1 byte[1] '1. matrix-speicher-hälfte
define matrix_s2 byte[2] '2. matrix-speicher-hälfte
define matrix_p1 byteport[1] '1. matrix-port-hälfte
define matrix_p2 byteport[2] '2. matrix-port-hälfte
define var byte[3] 'Variable zur Parameter-Übergabe
#loop
var=second
Spalte2=on
gosub zehner
Spalte1=on
gosub einer
var=minute
Spalte4=on
gosub zehner
Spalte3=on
gosub einer
Spalte5=on
var=hour
if var=>1 then Zeile8=on
if var=>2 then Zeile9=on
matrix_p1=matrix_s1
matrix_p2=matrix_s2
if var=>20 then var=var-10
if var=>10 then var=var-10
matrix=off
Spalte4=on
gosub einer
goto loop
#zehner
if var=>10 then Zeile1=on
if var=>20 then Zeile2=on
if var=>30 then Zeile3=on
if var=>40 then Zeile4=on
if var=>50 then Zeile5=on
if var=>50 then var=var-10
if var=>40 then var=var-10
if var=>30 then var=var-10
if var=>20 then var=var-10
if var=>10 then var=var-10
matrix_p1=matrix_s1
matrix_p2=matrix_s2
matrix=off
return
#einer
if var=>1 then Zeile1=on
if var=>2 then Zeile2=on
if var=>3 then Zeile3=on
if var=>4 then Zeile4=on
if var=>5 then Zeile5=on
if var=>6 then Zeile6=on
if var=>7 then Zeile7=on
if var=>8 then Zeile8=on
if var=>9 then Zeile9=on
matrix_p1=matrix_s1
matrix_p2=matrix_s2
matrix=off
return
Gibt es eine Möglichkeit, das Programm zu Optimieren?
Würde es was bringen, wenn ich den Schwinger der M austausche, was nartürlich ein bisschen schlecht wäre, weil dann auch die Uhr usw schneller Läuft.
Helft mir bitte! Ich bin am verzweifeln!
Danke,
Matthias