Kleiner 8Kanal DMX Empfänger erweitern

[Grengou (Gast)]

Hallo Leute,

ich habe diesen DMX 8Kanal PWM Dimmer in Bascom gefunden und auch 
getestet.
Alles geht super, nur ich würde jetzt gerne die Kanäle erweitern.

weiss einer wie ich eine weitere Port Gruppe hinzufügen kann so das ich 
nicht nur 8 Kanäle sondern vielleicht 16Kanäe nutzen kann?
ich stell mir das so vor:
DMX Kanal 1-8  = PortA 0-7
DMX Kanal 9-16 = PortB 0-7
und vielleicht so weiter

denn DIP-Schalter brauch ich nicht umbedingt, kann die Start Adressen 
fest im Code setzen.

Das ist der Bascom Code:

$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

[Falk B. (falk)]

@ Grengou (Gast)

>ich habe diesen DMX 8Kanal PWM Dimmer in Bascom gefunden und auch
>getestet.
>Alles geht super, nur ich würde jetzt gerne die Kanäle erweitern.

Naja, es ist eine Soft-PWM in BASCOM. Allerdings fehlt der 
DMX-Empfängerteil.

http://www.mikrocontroller.net/forum/codesammlung?filter=DMX&x=0&y=0

[Grengou (Gast)]

Hey,

ja das weiß ich das das Software PWM ist.
Der Code so wie der ist ist voll Funktionsfähig auch per DMX.
Mit denn 8Kanälen funzt der auch super nur weiß ich nicht wie ich denn 
auf mehr erweitern kann.

[Falk B. (falk)]

@ Grengou (Gast)

>Der Code so wie der ist ist voll Funktionsfähig auch per DMX.

Dein Code in deinem Beitrag ist unvollständig. Du hättest besser einfach 
die BASCOM-Datei direkt als Anhang gepostet.

[Karl H. (kbuchegg)]

Grengou schrieb:
> Hey,
>
> ja das weiß ich das das Software PWM ist.
> Der Code so wie der ist ist voll Funktionsfähig auch per DMX.
> Mit denn 8Kanälen funzt der auch super nur weiß ich nicht wie ich denn
> auf mehr erweitern kann.

INdem du nachsiehst, wo im Code überall die magische Zahl 8 vorkommt, 
darüber nachdenkst, warum die dort steht und wie du dasselbe was du mit 
den 8 Kanälen 1 bis 8 am Port C machst, jetzt mit den 8 Kanälen 9 bis 16 
am Port B machst?

Trau dich! Das was du vor hast, ist sogar recht naheliegend. Der Code 
schreit förmlich danach, wie man ihn verändern könnte.

[Karl H. (kbuchegg)]

Falk Brunner schrieb:

> Dein Code in deinem Beitrag ist unvollständig.

Der ist schon vollständig.

Da ist wieder mal BASCOM-'Magie'

Config Dmxslave ....

am Werk.
Den schwierigen Teil hat ihm schon jemand anderer abgenommen. Er muss 
nur noch die Auswertung der Kanäle machen.

[Karl H. (kbuchegg)]

Karl Heinz schrieb:

> Trau dich! Das was du vor hast, ist sogar recht naheliegend. Der Code
> schreit förmlich danach, wie man ihn verändern könnte.


Was klingelt bei dir, wenn ich dir vorgebe

   For N = 1 To 8
      Portpin = N - 1

      kanal = n
      If _dmx_received(kanal) > My_counter Then
         Portc.portpin = 0
      Else
         Portc.portpin = 1
      End If

      kanal = n + 8
      If _dmx_received(kanal) > My_counter Then
         ....

   Next N

Auf die Anpassung im Config nicht vergessen!

[Grengou (Gast)]

De Karl Heiz hat es richtig erfasst, das er vollständig ist.

Hab ich oben was von meinen Code geschrieben?
Nein, hab ja geschrieben das ich denn gefunden habe und das ist der 
originale Code von dem Entwickler, meiner sieht anders aus, ist mit 
einem anderen Chip und anderen Ports.

Ja nach dem Post musste ich weg und da ist mit eingefallen wie ich das 
machen kann und es auch ganz leicht ist.
Sah's zu lange da dran, so das ich denn Wald voller Bäume nicht gesehen 
habe.

Werde es heute Abend dann testen und euch berichten.

PS: hab denn originalen Code hier rein gepostet, denn kann sein das 
jemand denn auch braucht.

[Karl H. (kbuchegg)]

Grengou schrieb:

> PS: hab denn originalen Code hier rein gepostet, denn kann sein das
> jemand denn auch braucht.


Ja, kann sein.
Erst ist trotzdem Müll. Die Soft-PWM ist nicht vernünftig kontrollierbar 
und von der Durchlaufzeit des Codes abhängig.

[Dirk (Gast)]

Hi  Grengou,

kurz zur Pwm abgesehen das davon das sie zeitlich nich konstant lauft, 
stimmt dein Signale nicht.

--->   Incr My_counter (es gibt keine 0 im Zähler)
 kleinster Zählerwert 1

     DMX Wert 0 > 1  wäre vom Ergebnis (kein Signal) Ok ?aber mehr 
Zufall?
     DMX Wert 1 > 1  ein DMX Wert 1 müsste Funktionell ein Signal 
erzeugen
                     (tut es aber nicht)
--->     If _dmx_received(n) > My_counter Then
eine 1 löst also keinen Impuls aus, erst eine 2 löst ein Impuls aus

--->   If My_counter > 255 Then
--->     My_counter = 0

das gleiche ist mit dem Wert Zählerwert 255 sowie 256

          DMX Wert max 255 > 255 sowei 256 wird nie passieren
--->     If _dmx_received(n) > My_counter Then

Folglich fehlen drei (Pulssign.) Werte Zahlerwert 1,255,256.
Untenn geht er zu spät loss und ober gibt es keine 100% Signal.

MfG Dirk