Kleiner 8Kanal DMX Empfänger

[chr-mt]

Hi,
wolllte euch mal mein kleines Empfängerboard vorstellen, das ich zum Testen gebastelt habe
Es besteht aus einem Mega16 mit 16MHz Quarz, 8-Fach Dipswitch, 8 LEDs, Treiberbaustein 75176 plus etwas Hühnerfutter (Spannungsregler Kondensatoren, Vorwiderstände).

Mit dem Dipswitch wird die Startadresse eingestellt, ab der die 8 LEDs dann per PWM in ihrer Helligkeit gesteuert werden können. Wenn Adresse 1 eingestellt ist, wird über die Kanäle 1-8 gesteuert, ist die Adresse 255 eingestellt, kann man die Kanäle 255 bis 262 testen.
Der Dipswitch hängt an Porta, die LEDs an Portc.

Das Programm dazu ist in Bascom geschrieben:

$regfile = "m16def.dat"
$crystal = 16000000

Config Dmxslave = Com1 , Channels = 8 , Start = 1 , Store = 8
Enable Interrupts

Config Portc = Output
Config Porta = Input
Porta = &HFF

Dim Adress As Byte
Dim N As Byte
Dim My_counter As Integer
Dim Portpin As Byte

Do
   Adress = Pina
   _dmx_address = Adress
   Incr My_counter
   For N = 1 To 8
      Portpin = N - 1
      If _dmx_received(n) > My_counter Then
         Portc.portpin = 0
      Else
         Portc.portpin = 1
      End If
   Next N
   If My_counter > 255 Then
      My_counter = 0
   End If
Loop
End

Gruß
Christopher

Übrigens, falls jemand den Quarz sucht, der ist auf die Rückseite gelötet