Beiträge von Thorsten Sch.

Thorsten Sch. · 5. August 2019

Hallo Forum gemeinde und Bastler

ich suche eine Stufenbeleuchtung mit einen ATtiny2313 und für 6 stufen wahr es, kan mir jemand helfen
Mit Freundtlichen Grüßen

Code

Thorsten sch.

Ps: ich habe einen code von der schaltung aber irgendwie ist da ein wurm drin


$regfile = "attiny2313.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Ddrb = &B00111111
Ddrd = &B00001100

Portb = &B00000000
Portd = &B00110000

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer1_isr
Const Timerload = 34285

Declare Sub Switch_on(byval Cstart As Byte , Byval Cstop As Byte , Byval Reverse As Byte)
Declare Sub Switch_off
Declare Sub Wait_and_keys

Dim Led As Byte , I As Byte , Backup As Byte
Dim Ison As Bit , Stayon As Bit
Dim Seconds As Integer , Ontime As Integer

If Pind.4 = 0 And Pind.5 = 0 Then
   Ontime = 300
Elseif Pind.5 = 0 Then
   Ontime = 180
Elseif Pind.4 = 0 Then
   Ontime = 120
Else
   Ontime = 0
End If

Ison = 0
Stayon = 0
Seconds = 0

Do
   Debounce Pind.2 , 1 , Sw1 , Sub
   Debounce Pind.3 , 1 , Sw2 , Sub
   If Stayon = 0 And Seconds > Ontime Then Switch_off
Loop
End

Sub Switch_on(cstart , Cstop , Reverse)
   Ison = 1
   If Reverse = 0 Then
          For Led = Cstart To Cstop
             If Led = 2 And Pind.2 = 1 Then
                Stayon = 1
                Backup = Portb
                Portb = 0
                Waitms 200
                Portb = Backup
             End If
             Portb.led = 1
             Wait_and_keys
             If Ison = 0 Then
                Portb = 0
                Exit For
             End If
          Next Led
   Else
          For Led = Cstart To Cstop Step -1
             If Led = 3 And Pind.3 = 1 Then
                Stayon = 1
                Backup = Portb
                Portb = 0
                Waitms 200
                Portb = Backup
             End If
             Portb.led = 1
             Wait_and_keys
             If Ison = 0 Then
                Portb = 0
                Exit For
             End If
          Next Led
   End If

   If Ontime > 0 And Stayon = 0 Then
          Timer1 = Timerload
          Enable Interrupts
          Enable Timer1
   End If
End Sub

Sub Switch_off
   Ison = 0
   Stayon = 0
   Portb = 0

   Disable Timer1
   Disable Interrupts
   Seconds = 0
End Sub

Sub Wait_and_keys
   For I = 1 To 30
          Debounce Pind.2 , 1 , Sw1 , Sub
          Debounce Pind.3 , 1 , Sw2 , Sub
          Waitms 20
   Next I
End Sub

Timer1_isr:
   Incr Seconds
   Timer1 = Timerload
Return

Sw1:
   If Ison = 0 Then
          Call Switch_on(1 , 5 , 0)
   Else
          Call Switch_off
   End If
Return

Sw2:
   If Ison = 0 Then
          Call Switch_on(5 , 0 , 1)
   Else
          Call Switch_off
   End If
Return

Alles anzeigen

Thorsten Sch. · 11. April 2016

Juhu Mitglieder ist denn keiner bereit zu helfen oder ein tipp zu geben.......

Thorsten Sch. · 25. März 2016

Hallo Forum Gemeinde sowie bastler

ich bins mal wieder das mit den code geht soweit aber nach der abgelaufenden zeit kommt nicht anderes auf der Matrix?
hier der volgende code:

Code

'---------------------------------------------
'Matrix Anzeige ( WC=FREI oder X=Besetzt )
'Schalter Eingang ( Taster ) an PIN16  PD2
'Erstellt von Thorsten Sch. V.001
'Erstellt am: 30.10.2010 - Uhrzeit: 23:43:27
'---------------------------------------------
$regfile = "m16def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32


                                       ' 4Mhz


Config Porta = Output                                    ' Dis.1_Reihe R1-7
Config Portb = Output                                    ' dis.2_Reihe R1-R7
Config Portc = Output                                    ' Steuert die Transistoren An C1-C5


Declare Sub Wc
Declare Sub X
Declare Sub Badewanne
Dim I As Byte


'------------------------
'Timer-Interrupt zur Zeitmessung
Config Timer1 = Timer , Prescale = 1024
Start Timer1
Timer1 = 61629                                              '=65536 - (Taktfrequenz(4000000Hz) geteilt durch Prescale(1024))
On Timer1 Sekunde_plus
Enable Interrupts
'Variablen für die Zeitmessung
Dim Sekunde As Byte
Dim Minute As Byte
Sekunde = 0
Minute = 0


Dim Besetzt_dauer As Byte
Besetzt_dauer = 50                                          'Vergleichswert für die Zeit in Minuten,wie lange das WC besetzt ist


'------------------------


On Int0 Taster
Config Int0 = Falling
Enable Int0
Enable Interrupts
I = 0


Do


Select Case I
Case 0 : Gosub Wc
Case 1 : Gosub X
End Select


Loop


Sub                                                         'Wc
Portc = 1 : Portb = &B01111110 : Porta = &B00100010 : Waitms 1
Portc = 2 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 4 : Portb = &B00001110 : Porta = &B01000001 : Waitms 1
Portc = 8 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 16 : Portb = &B01111110 : Porta = &B00111110 : Waitms 1
End Sub


'Kreutz auf beiden anzeigen
Sub X
If Minute < Besetzt_dauer Then                              'wenn gemessene Zeit unter dem Vergleichswert liegt,dann wird X angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01000001 : Portb = &B00010100 : Waitms 1
Portc = 4 : Porta = &B00100010 : Portb = &B00100010 : Waitms 1
Portc = 8 : Porta = &B00010100 : Portb = &B01000001 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If


If Minute >= Besetzt_dauer Then                             'wenn der Vergleichswert kleiner oder gleich der gemessenen Zeit ist,dann wird z.B. die Badewanne angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01111111 : Portb = &B00011100 : Waitms 1
Portc = 4 : Porta = &B00111110 : Portb = &B00111110 : Waitms 1
Portc = 8 : Porta = &B00011100 : Portb = &B01111111 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If
End Sub


Taster:
Waitms 100
I = I + 1
If I = 2 Then I = 0
Gifr . Intf0 = 1
Return


'--------------------------
'Timerüberlauf nach ca 1 sekunde
Sekunde_plus:
Timer1 = 61629
If I = 0 Then                                               'wenn keiner auf dem WC ist,wird nicht gezählt
Sekunde = 0
Minute = 0
End If


If I = 1 Then Incr Sekunde                                  'wenn WC besetzt,dann Sekunde+1
If Sekunde = 60 Then
Incr Minute                                                 'wenn Sekunde=60 dann erhöhe Minute
Sekunde = 0                                                 'Sekunden wieder auf 0 setzen
End If
Return
'--------------------------


End

Alles anzeigen

als kontakt gibt es an der tür ein Reed schalter......

ich bitte um ratschläge......

Mit Freundtlichen Grüßen
Thorsten Sch.

Thorsten Sch. · 29. März 2015

Hallo Forum und Bastler

Noch mal zum timer wie oder wo ist den das proplem jetzt darin in den code

Code

'---------------------------------------------
'Matrix Anzeige ( WC=FREI oder X=Besetzt )
'Schalter Eingang ( Taster ) an PIN16  PD2
'Erstellt von Thorsten Sch. V.001
'Erstellt am: 30.10.2010 - Uhrzeit: 23:43:27
'---------------------------------------------
$regfile "m16def.dat"                                       ' ATmega32
$crystal = 4000000                                          ' 4Mhz


Config Porta = Output                                       ' Dis.1_Reihe R1-7
Config Portb = Output                                       ' dis.2_Reihe R1-R7
Config Portc = Output                                       ' Steuert die Transistoren An C1-C5
Config Pind.2 = Input
Portd.2 = 1


Declare Sub Wc
Declare Sub X
Dim I As Byte


'------------------------
'Timer-Interrupt zur Zeitmessung
Config Timer1 = Timer , Prescale = 1024
Start Timer1
Timer1 = 61629                                              '=65536 - (Taktfrequenz(4000000Hz) geteilt durch Prescale(1024))
On Timer1 Sekunde_plus
Enable Interrupts
'Variablen für die Zeitmessung
Dim Sekunde As Byte
Dim Minute As Byte
Sekunde = 0
Minute = 0


Dim Besetzt_dauer As Byte
Besetzt_dauer = 1                                           'Vergleichswert für die Zeit in Minuten,wie lange das WC besetzt ist


'------------------------


Do


If Pind.2 = 1 Then Gosub Wc
If Pind.2 = 0 Then Gosub X


Loop


Sub Wc
Portc = 1 : Portb = &B01111110 : Porta = &B00100010 : Waitms 1
Portc = 2 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 4 : Portb = &B00001110 : Porta = &B01000001 : Waitms 1
Portc = 8 : Portb = &B00000001 : Porta = &B01000001 : Waitms 1
Portc = 16 : Portb = &B01111110 : Porta = &B00111110 : Waitms 1
End Sub


'Kreutz auf beiden anzeigen
Sub X
If Minute < Besetzt_dauer Then                              'wenn gemessene Zeit unter dem Vergleichswert liegt,dann wird X angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01000001 : Portb = &B00010100 : Waitms 1
Portc = 4 : Porta = &B00100010 : Portb = &B00100010 : Waitms 1
Portc = 8 : Porta = &B00010100 : Portb = &B01000001 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If


If Minute >= Besetzt_dauer Then                             'wenn der Vergleichswert kleiner oder gleich der gemessenen Zeit ist,dann wird z.B. die Badewanne angezeigt
Portc = 1 : Porta = &B00000000 : Portb = &B00001000 : Waitms 1
Portc = 2 : Porta = &B01111111 : Portb = &B00111110 : Waitms 1
Portc = 4 : Porta = &B00100010 : Portb = &B11111110 : Waitms 1
Portc = 8 : Porta = &B01111110 : Portb = &B01000001 : Waitms 1
Portc = 16 : Porta = &B00001000 : Portb = &B00000000 : Waitms 1
End If
End Sub


'--------------------------
'Timerüberlauf nach ca 1 sekunde
Sekunde_plus:
Timer1 = 61629
If I = 0 Then                                               'wenn keiner auf dem WC ist,wird nicht gezählt
Sekunde = 1
Minute = 0
End If


If I = 1 Then Incr Sekunde                                  'wenn WC besetzt,dann Sekunde+1
If Sekunde = 60 Then
Incr Minute                                                 'wenn Sekunde=60 dann erhöhe Minute
Sekunde = 0                                                 'Sekunden wieder auf 0 setzen
End If
If Minute > 250 Then Minute = 200
Return
'--------------------------


End

Alles anzeigen

würde gern das es funktioniert dieser code....

Mit Freundtlichen Grüßen
Thorsten Sch.

Thorsten Sch. · 29. März 2015

Hallo Forum und Bastler

also fang ich nochmal an....
in der 1 Zeile soll stehen TEL1 TEL2 TEL3 <--Diese zeile soll imer da stehen bleiben.
In der 2 Zeile soll sich dann die <BEL.> oder <FREI> stehen.....

Diese dalay versteh ich leider nicht wie oder wo man es in code setzten sollte.

Daher noch mal an euch wie macht man das in den code, hier mein code
[code'-----------------------------------------------
'Telefon Melder 3 x Analog
'Bei abheben des Hörer Info in der LCD Anzeige
'Eingänge: 3 x optokopler
'Ausgänge: 1 x Status Led
' 1 x LCD 2x16 Mit Hintergrund Beleuchtung
'-----------------------------------------------
$regfile = "2313def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Ddrb = &B11111101 'Ports auf Ausgang setzen
Ddrd = &B01000000 'Ports auf Ausgang setzen
' Configgaration des LCD Anzeige Ports
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , _
Db7 = Portb.2 , E = Portb.6 , Rs = Portb.7
Config Lcd = 16 * 2
Initlcd
Cursor Off

Portd.6 = 1
Locate 1 , 1
Lcd "Telefon-Besetzt"
Locate 2 , 2
Lcd "System-Test"
Wait 3

Cls
Locate 1 , 1
Lcd "Status Led (An)"
Portb.0 = 1
Wait 2
Locate 1 , 1
Lcd "Status Led (Aus)"
Portb.0 = 0

Cls
Locate 1 , 1
Lcd "LCD LED (Aus)"
Portd.6 = 0
Wait 2
Locate 2 , 2
Lcd "LCD LED (AN)"
Portd.6 = 1
Wait 3

Cls
Locate 1 , 1
Lcd "System Start"
Locate 2 , 2
Lcd "Angefahren"
Cls
Locate 1 , 1
Lcd "Besetzt Anzeige"
Locate 2 , 1
Lcd "3xAnalog Telf."
Wait 2

Config Portb = Output
Config Portd.6 = Output 'LCD Hintergrund
Config Pind.2 = Input 'Telefon 1
Portd.2 = 0
Config Pind.3 = Input 'Telefon 1
Portd.3 = 0
Config Pind.4 = Input 'Telefon 1
Portd.4 = 0

Declare Sub Telefon1
Declare Sub Telefon2
Declare Sub Telefon3
Dim I As Byte

Do
If Pind.2 = 0 Then Gosub Telefon1
If Pind.3 = 0 Then Gosub Telefon2
If Pind.4 = 0 Then Gosub Telefon3
Locate 1 , 1
Lcd "TEL1 TEL2 TEL3 "
Locate 2 , 1
Lcd " -- -- -- "
Waitms 10
Loop

Sub Telefon1
Portb.0 = 1
Waitms 10
Portd.6 = 1 '
Cls
Locate 1 , 1
Lcd "TEL1 TEL2 TEL3"
Locate 2 , 1
Lcd "BES. -- --"
Wait 1
Portb.0 = 0
Waitms 1
Portd.6 = 0
End Sub

Sub Telefon2
Portb.0 = 1
Waitms 10
Portd.6 = 1 '
Cls
Locate 1 , 1
Lcd "TEL1 TEL2 TEL3"
Locate 2 , 1
Lcd " -- BES. --"
Wait 1
Portb.0 = 0
Waitms 1
Portd.6 = 0
End Sub

Sub Telefon3
Portb.0 = 1
Waitms 10
Portd.6 = 1 '
Cls
Locate 1 , 1
Lcd "TEL1 TEL2 TEL3"
Locate 2 , 1
Lcd " -- -- BES."
Wait 1
Portb.0 = 0
Waitms 1
Portd.6 = 0
End Sub

Return
End][/code]

Ich bitte um hilfe komm nicht klar

Mit Freundtlichen Grüßen
Thorsten sch.

Thorsten Sch. · 27. Januar 2014

Hi Kunibert

Mann kann sie Multiplexen
sehe Bild
[Blockierte Grafik: http://www.rn-wissen.de/images/thumb/5/5d/Siebensegment_4fach_Multiplexing_V2.png/650px-Siebensegment_4fach_Multiplexing_V2.png]

Verleicht hilft das weiter

Gruß Thorsten Sch.

Thorsten Sch. · 16. Januar 2014

Hallo Forum Gemeinde und Bastler

Mein Proplem besteht nicht der "I2C-BUS" sonder mit den PCF8574 die ports als Eingang zu verwenden....

Ich möchte den PCF8574 gerne 8 Tasten drahn machen.....

4x normale taster
4x Als Taster aber als schalter benutzen

so im ersten beitrag schon den code eingefügt kann mir jemand sagen wie man es da so macht Bitte?

Mit Freundtlichen Grüßen
Thorsten sch.

Thorsten Sch. · 13. Januar 2014

Und wie könnte man es machen bitte.....

Gruß Thorsten sch.

Thorsten Sch. · 12. Januar 2014

Hallo Liebe Forum Gemeinde und Bastler

Komme gleich mal zu meinen Proplem

ich habe eine folgende Platinen

1x Master ATmega8 mit I2CBUS
1x Platine mit PCF8574AP mit 4xRealis adresse &H7E
1x Platine mit PCF8574AP mit 4xTasten gegen GND adresse &H71

Mein Folgenes Proplem wie macht man das das ein port wie sehe im Code das ich was schalten kann....
Code

Code

$regfile "m8def.dat"
$crystal = 10000000
$hwstack = 32
$swstack = 10
$framesize = 40


Config Sda = Portc.4
Config Scl = Portc.5


Const Pcf8574_4realis = &H7E                            	'4Fach Realis steuerung 1x Platine mit PCF8574AP
Const Pcf8574_lesen = &H71                              	'4Fach Taster auch auf  1x Platine mit PCF8574AP


I2cinit


Dim Realis_1 As Byte
Dim Realis_2 As Byte


Dim Pcf8574_eingabe As Byte


Realis_1 = &B00000001
Realis_2 = &B00000010


Do
  If Pcf8574_eingabe.0 = 0 Then
  I2csend &H7E , Realis_1
  End If
  If Pcf8574_eingabe.1 = 0 Then
  I2csend &H7E , Realis_2
  End If
Loop


Return

Alles anzeigen

zu Mein proplem:
wenn ich Taste1 von PCF8574AP Drücke soll Realis1 angehen, erneutes drücken wieder aus.......
wenn ich Taste2 von PCF8574AP Drücke soll Realis2 Angehen und beim loslassen wieder aus.....

wenn jemand mir helfen kann oder tipps geben kann dann immer her damit....

Mit Freundtlichen Grüßen
Thorsten Sch.

Thorsten Sch. · 24. November 2013

So Hi mario und alle anderen

Möcht mich mal mit einmischen verleicht hilft dir das weiter
da sind 3 beispiele
zum ersten
NE555
2x 47Kohm
1x 470ohm zur Led (testen)
1x Kondensator 10uf/16Volt

zum 2
NE555
1 Trimmer 47Kohm
1x 47Kohm wiederstand
1x 470ohm Für Led
1x 10uf/16volt Kondensator

zum 3
NE555
2x 47Kohm
1x 10uf/16Vlt Kondensator
1x 100 ohm Wiederstand an Transistor
1x BD 140 Transisitor

So wünsche gutes gelingen

Gruß Thorsten sch.

PS: der ausgang kann auch als taktsignal dienen........

Thorsten Sch. · 16. November 2013

Hallo IPSW100 und Bastler

habe es zum laufen gebracht danke.....

mal ein anderes Proplem bekomme Target3001!V15Light nicht zum laufen da kommt immer dieser fehler
Runtime Error 216at0000323c
Kann mir jemand dabei helfen?

Mit Freundtlichen Grüßen
Thorsten sch.

Thorsten Sch. · 15. November 2013

Hallo liebe Forum gemeinde und Bastler

Wie stell ich das ein das ich in Bascom das Pollin Board Programieren kann? welches muss ich nehmen??

Weil ich muste mein PC umstellen von XP auf Win7 und geht PonyPro2000 Nicht......

hab Ihr ein paar tipps

Mit Freundtlichen Grüßen
Thorsten sch.

Thorsten Sch. · 28. September 2013

Hi Alle
Oh Vielen dank, 1 habe ich richtig gelesen und 2 das was ich da verlinkt habe simuliert an LAMPEN oder LED Nacht und Tag die schaltung hat genug power lese es dir mal selber durch danke.........................

Ich hatte teile davon gehabt und die simulierten es total wie in Mininatur wunderland Eisenbahn.....

Gruß Thorsten Sch.

Thorsten Sch. · 27. September 2013

Hi Lgupe
Wenn du Mininatur Wunderland kennst dann benutzen sie die gleiche hardware...... sehe oben....

Gruß Thorsten Sch.

Thorsten Sch. · 26. September 2013

Hi lgupe
Ich hatte mal ne Eisenbahn gehabt und habe meine sachen hier bestellt bei (Littfinski Daten Technik - LDT).....
Schau mal ob das das passende ist für dich Klick Hier da findet man genug um seine Eisenbahn anlage aufzurüsten Digital oder Analog.....
Mit Freundlichen Grüßen
Thorsten Sch.

Thorsten Sch. · 18. September 2013

Hi forum gemeinde

Hab mal ne frage zu den code und der sprache ( pascal oder bascom)
was für ne sprache is den das hier

Code

$regfile "ATtiny2313.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40






' ===== Ports initialisieren ======
Config Portb.0 = Output                                 	' PB0 --- LED1 (Ausgang)
Led_10 Alias Portb.0


Config Portb.1 = Output                                 	' PB1 --- LED2 (Ausgang)
Led_20 Alias Portb.1


Config Pinb.2 = Input                                   	' PB2 --- Taster1 (Eingang)
Taster1 Alias Pinb.2
Portb.2 = 0


Config Pinb.3 = Input                                   	' PB3 --- Taster2 (Eingang)
Taster2 Alias Pinb.3
Portb.3 = 0






' ===== LCD initialisieren =====
Lcd_db4 Alias Portd.2
Lcd_db5 Alias Portd.3
Lcd_db6 Alias Portd.4
Lcd_db7 Alias Portd.5
Lcd_rs Alias Portb.4
Lcd_e Alias Portb.5
'LCD 4-Bit Modus
Config Lcdpin = Pin , Db4 = Lcd_db4 , Db5 = Lcd_db5 , Db6 = Lcd_db6 , Db7 = Lcd_db7 , E = Lcd_e , Rs = Lcd_rs
Config Lcdbus = 4
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "willkommen"
Locate 2 , 1
Lcd "LCD Feste TEXTE"
Waitms 1


Declare Sub An_led
Declare Sub Led1

Alles anzeigen

und welches buch währ interriesannt wurde es gern zu wochende bestellen.....

Mit Freundtlichen Grüßen
Thorsten Sch.

Thorsten Sch. · 13. September 2013

oder schau mal diese schaltung kannst ja auch bei R1 einen poti rein machen

gruß Thorsten sch.

Thorsten Sch. · 13. September 2013

schau mal unter diesen LINK da kann man den ausgang ausrechnen......
oder verleicht hilft dir die seite weiter LINK.

schau mal rein viel erfolg bei deiner schaltung

Gruß Thorsten Sch.

Thorsten Sch. · 19. August 2013

RESPEKT Da sag ich nur 100% Daumen Hoch..........

Hoffendlich sind die schaltpläne und das andere bla bla auf deine seite......

Gruß Thorsten

Thorsten Sch. · 14. August 2013

Hinterläst doch bitte das voting und komentare................. ob ihr das auch machen würdet oder nicht...... ws von ihr davon haltet und und und

Also ran an die tasten......

Gruss Thorsten Sch.

Beiträge von Thorsten Sch.

Suche eine schaltung Mit einen ATtiny2313 Stufenbeleuchtung

Frage zum Code WC

Frage zum Code WC

Frage zum Code WC

Frage Code (ATtiny2313-LCD-Analog Telefon Besetztanzeige)

5Mhz Pegelwandler / AVR / 7 Segmentanzeige

I2C - BUS mit PCF8574 Problem, bitte um Hilfe

I2C - BUS mit PCF8574 Problem, bitte um Hilfe

I2C - BUS mit PCF8574 Problem, bitte um Hilfe

Herz mit Sternen / Geschenk für meine Freundin

Der "Ich-hab-da-mal-ne-kurze-Frage"-Thread

Der "Ich-hab-da-mal-ne-kurze-Frage"-Thread

Modelleisenbahn LED Beleuchtung Dimmbar

Modelleisenbahn LED Beleuchtung Dimmbar

Modelleisenbahn LED Beleuchtung Dimmbar

Fragen zu Bascom und Buchkauf >>>ERLEDIGT BUCH GEKAUFT<<< My AVR

LED Blitzlicht Schaltung

LED Blitzlicht Schaltung

24 x 7 LED-Matrix - 10mm RGB LED´s - Gammakorrektur - DMX-Ansteuerung

Hammer geile Licht show