Mein 81 Fullcolor Colour LED bild
HI,
nachdem ich mit meinem Vater lange überlegt habe und Sachen gekauft
haben die mehr oder weniger passeten, haben wir es nun geschaft ein erstes
Testfeld zum leuchten zu bringen. BIlder folgen unten. Vielen Dank auch an
x-ryder der uns per ICQ unterstützt hat und natürlich auch an meinern Vater
der alle Bauteile gekauft hat.
Liste der Anhänge anzeigen (Anzahl: 3)
Liste der Anhänge anzeigen (Anzahl: 2)
HI,
also hier ist mal der Code:
Code:
$regfile = "8535def.dat"
$crystal = 1000000
Declare Sub Allesaus
Config Timer2 = Timer , Prescale = 64
Const Aus = 1
Const An = 0
Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.3 = Output
Config Porta.4 = Output
Config Porta.5 = Output
Config Porta.6 = Output
Config Porta.7 = Output
Config Portb.0 = Output
Config Portd.4 = Output
Config Portd.5 = Output
Config Portb.3 = Output
Led0 Alias Porta.0
Led1 Alias Porta.1
Led2 Alias Porta.2
Led3 Alias Porta.3
Led4 Alias Porta.4
Led5 Alias Porta.5
Led6 Alias Porta.6
Led7 Alias Porta.7
Led8 Alias Portb.0
Rot Alias Portd.4
Blau Alias Portd.5
Gruen Alias Portb.3
Dim Wertr(10) As Integer
Dim Wertb(10) As Integer
Dim Wertg(10) As Integer
Dim I As Integer
Dim J As Integer
Dim Value As Integer
Wertr(1) = 0
Wertg(1) = 0
Wertb(1) = 0
Wertr(2) = 0
Wertg(2) = 0
Wertb(2) = 1
Wertr(3) = 0
Wertg(3) = 0
Wertb(3) = 1
Wertr(4) = 1
Wertg(4) = 0
Wertb(4) = 0
Wertr(5) = 0
Wertg(5) = 0
Wertb(5) = 1
Wertr(6) = 0
Wertg(6) = 0
Wertb(6) = 1
Wertr(7) = 0
Wertg(7) = 0
Wertb(7) = 1
Wertr(8) = 0
Wertg(8) = 0
Wertb(8) = 1
Wertr(9) = 0
Wertg(9) = 0
Wertb(9) = 1
I = 0
On Timer2 Zeitroutine
Const Timervorgabe = 12
Enable Timer2
Enable Interrupts
Do
Loop
Zeitroutine:
Timer2 = Timervorgabe
I = I + 1
If I > 9 Then I = 1
Call Allesaus
Waitms 1
If Wertr(i) = 1 Then Rot = An
If Wertg(i) = 1 Then Gruen = An
If Wertb(i) = 1 Then Blau = An
Select Case I
Case 1
Led0 = An
Case 2
Led1 = An
Case 3
Led2 = An
Case 4
Led3 = An
Case 5
Led4 = An
Case 6
Led5 = An
Case 7
Led6 = An
Case 8
Led7 = An
Case 9
Led8 = An
End Select
Value = Value + 1
If Value > 512 Then
For J = 9 To 1 Step -1
Wertr(j + 1) = Wertr(j)
Wertg(j + 1) = Wertg(j)
Wertb(j + 1) = Wertb(j)
Next J
Wertr(1) = Wertr(10)
Wertg(1) = Wertg(10)
Wertb(1) = Wertb(10)
Value = 0
End If
Return
Sub Allesaus:
Led0 = Aus
Led1 = Aus
Led2 = Aus
Led3 = Aus
Led4 = Aus
Led5 = Aus
Led6 = Aus
Led7 = Aus
Led8 = Aus
Rot = Aus
Blau = Aus
Gruen = Aus
End Sub
Ich verstehe ihn nicht , weil den mein Vater geschreiben hat.
ok und hier sind die Schaltpläne