Moin Jungs und Mädels,
hier mal die Grundlagen für eine Triangular Clock.
Idee von Jörg Pretz, RWTH Aachen University
Es bot sich ein zerschnittener WS2803 Stipe an.
Alles anzeigen
Triangular.jpg
hier mal die Grundlagen für eine Triangular Clock.
Idee von Jörg Pretz, RWTH Aachen University
Es bot sich ein zerschnittener WS2803 Stipe an.
BASCOM-Quellcode
- 'PM rot
- 'AM grün
- '
- ' 6h
- ' 2h 2h
- ' 30m 30m 30m
- ' 6m 6m 6m 6m
- ' 1m 1m 1m 1m 1m
- '
- 'https://web.physik.rwth-aachen.de/user/pretz/binary_clock/ludus/jpretz_binary_clock.htm
- 'https://dodona.ugent.be/en/exercises/866515959/
- $Regfile = "m32adef.dat"
- $Crystal = 8000000
- $hwstack = 40
- $swstack = 16
- $framesize = 32
- Config RAINBOW=1, RB0_LEN=15, RB0_PORT=PORTd,rb0_pin=2
- Dim Color(3) as Byte
- R alias Color(_base) : G alias Color(_base + 1) : B alias Color(_base + 2)
- const numLeds=15
- RB_SelectChannel 0
- declare sub Bitmuster_zeile(byval Zeile as Byte , byval Zeilenminuten as Word)
- Dim Stunde as Byte
- Dim Minute as Byte
- Dim Gesamtminuten as Word
- Dim Restminuten as Word
- Dim Anzahl as Word
- Dim Bitmuster as Word
- Dim i as byte
- dim pos as byte
- Dim n as Byte
- Stunde = 23
- Minute = 59
- Bitmuster = 0
- 'AM oder PM rot oder grün
- if Stunde > 11 then
- Stunde = Stunde - 12 : R = 100 : G = 0 : B = 0
- else
- R = 0 : G = 100 : B = 0
- end if
- Gesamtminuten = Stunde * 60
- Gesamtminuten = Gesamtminuten + Minute
- call Bitmuster_zeile(0,360)
- call Bitmuster_zeile(1,120)
- call Bitmuster_zeile(3,30)
- call Bitmuster_zeile(6,6)
- call Bitmuster_zeile(10,1)
- for i = 1 to 15
- if Bitmuster.i = 1 then
- n = i - 1
- RB_SetColor n , color(1)
- RB_Send
- end if
- next i
- do
- loop
- end
- sub Bitmuster_zeile(byval Zeile as Byte , byval Zeilenminuten as Word)
- Anzahl = Gesamtminuten / Zeilenminuten
- Restminuten = Anzahl * Zeilenminuten
- Gesamtminuten = Gesamtminuten - Restminuten
- if Anzahl <> 0 then
- for i = 1 to Anzahl
- pos = i + Zeile
- Bitmuster.pos = 1
- next i
- end if
- end sub
Mein Bascom heißt jetzt Atmel Studio. Ich schaue hier nur noch selten rein.