Bascom DMX sendet falsche Kanäle

[Luca E. (derlucae98)]

Hallo,

Ich habe ein Problem beim Senden von DMX Kanälen. Zum Testen verwende 
ich eine Varytec Par 56 LED.

Hier der Code:

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 250000

Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 1,
Config Porta = Input
Dim Null_byte(1) As Byte
Usart_tx Alias Portd.1
Config Usart_tx = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Fader(512) As Integer

Do
Fader(1) = Getadc(0)
Fader(2) = Getadc(1)
Fader(3) = Getadc(2)
Shift Fader(1) , Right , 2
Shift Fader(2) , Right , 2
Shift Fader(3) , Right , 2


Ucsrb.txen = 0                                              
Usart_tx = 0                                           
Waitus 200                                              
Usart_tx = 1                                            
Ucsrb.txen = 1                                          
Waitus 16                                               
Printbin Null_byte(1) ; 1 ; Fader(1) ; 512                 


Loop

Ich habe folgendes Problem:
Fader(1) bzw. ADC 0 ist der erste Kanal, Rot. Das funktioniert soweit 
auch. Der zweite Kanal der Lampe ist Grün. Bascom sendet hier aber den 
3. Kanal, zusehen als Blau. Der dritte Kanal wäre eigentlich Blau, 
Bascom sendet hier aber Kanal 4, Strobe.

Warum verschieben sich die Kanäle ab Kanal 1 jeweils um 1? Ich habe es 
nicht geschafft Kanal 2 zu senden, also Grün.
Hat jemand eine Idee was ich falsch mache?

Schaltplan ist als Anhang dabei.

Danke im Voraus!

[Martin K. (maart)]

Luca E. schrieb:

Erkläre doch mal diese Zeile hier:

> Printbin Null_byte(1) ; 1 ; Fader(1) ; 512

[Luca E. (derlucae98)]

http://gerold-online.de/index.php/uc-projekte/dmx-512-sender

[Luca E. (derlucae98)]

Habe es hinbekommen...

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 250000

Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 1,
Config Porta = Input
Dim Null_byte(1) As Byte
Usart_tx Alias Portd.1
Config Usart_tx = Output
Config Adc = Single , Prescaler = Auto , Reference = Aref
Dim Fader(255) As Integer

Dim Puffer(255) As Byte
Do
Fader(1) = Getadc(0)
Fader(2) = Getadc(1)
Fader(3) = Getadc(2)
Shift Fader(1) , Right , 2
Shift Fader(2) , Right , 2
Shift Fader(3) , Right , 2

puffer(1) = fader(1)
Puffer(2) = Fader(2)
Puffer(3) = Fader(3)
Ucsrb.txen = 0                                              'Usart ausschalten
Usart_tx = 0                                                'Reset abfallende Flanke
Waitus 200                                                  'minimale Länge des Resets
Usart_tx = 1                                                'Reset aufsteigende Flanke
Ucsrb.txen = 1                                              'Usart einschalten
Waitus 16                                                   'MARK zw. RESET und Startbyte min. 8us
Printbin Null_byte(1) ; 1 ; Puffer(1) ; 255                 'jetzt die Daten


Loop

Thread kann gelöscht werden...

MfG

[Martin K. (maart)]

Du kannst mit dieser Lösung allerdings nur bis Kanal 256 adressieren.

[Weingut P. (weinbauer)]

uuuhhh ... Du belegst Dir 1024 Bytes im Ram für 3 Datenbytes?? Respekt 
...

Sowei ich mich erinnere ist beim DMX nach dem Break das erste Byte ne 0 
als Startcode, dann gehts mit CH1 los. VOr der 0 kommt glaub ich 8µs die 
Markierung.
Möglicherweise wollen Deine Slaves aber auch nicht die Frames so fix 
hintereinander weg um die Ohren bekommen, da können n paar nop's 
zwischen den Bytes hinter nem TXC-Flag Wunder wirken.

[Weingut P. (weinbauer)]

Ach so, nur noch als Hinweis, es müssen nicht zwingend alle Frames 
gesendet werden wenn nix drinnen steht.
Wenn man nur 3 braucht sendet man eben 3