Dmx mit Bascom generiert

[Niclas (Gast)]

Hi,
kann mir einer von euch sagen ob dieser DMX Sende Code funktionieren 
würde?

$regfile = "8515def.dat"
$crystal = 8000000

Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Portc.4 = Output

Config Com1 = 250000 , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 0

Dim Dmx_werte(300) As Byte
Dim Y As Single
Dim X As Byte
Dim Tmp As Byte
Y = 1
X = 0
Dmx_werte(1) = 255






Do

If X = 0 Then
         Portc.3 = 1
         Portc.4 = 1
         Toggle Portc.3                                     'Reset
         Waitus 88
         Portb.0 = 1
         Waitms 10
         Print 0
         Waitus 20
         X = 1
         End If
  If X = 1 Then

         Portc.4 = 0
         Print Dmx_werte(y)
         Y = Y + 1
         Waitus 10
         If Y = 300 Then
         X = 0
         Y = 1
         End If
         End If



Loop
End

Danke im vorraus

[kladde (Gast)]

Niclas schrieb:
> Hi,
> kann mir einer von euch sagen ob dieser DMX Sende Code funktionieren
> würde?
>
> $regfile = "8515def.dat"

Nein. 2 Stopbits lassen sich auf der HW-UART des µCs nicht einstellen. 
Hättest du kompiliert, hättest du gesehen, das da was nicht geht und 
hättest die Frage eventuell mit Angabe des µC anders gestellt.

[holger (Gast)]

Beitrag "Atmel Studio 6 Problem"

Dabei waren wir gestern schon fast fertig.
Wieso jetzt Bascom?

[Bastler (Gast)]

Komisch, daß das Atmel noch nicht weiß. Die behaupten immer noch, daß 
das Bit USBS im Register UCSRC zwischen 1 und 2 Stopbits umschaltet.

[kladde (Gast)]

Bastler schrieb:
> Komisch, daß das Atmel noch nicht weiß. Die behaupten immer noch, daß
> das Bit USBS im Register UCSRC zwischen 1 und 2 Stopbits umschaltet.

Bei welchem µC? Beim AT90S8515 behauptet Atmel das nicht.

[holger (Gast)]

>Bei welchem µC? Beim AT90S8515 behauptet Atmel das nicht.

In seinem anderen Thread benutzte er einen ATMega8.
Vermutlich greift er hier wieder mal ins Klo weil
er nicht weiss was er tut;)

[Niclas (Gast)]

@holger: Ich kann beides ein wenig nur weiß nicht mit welchem Programm 
ich weiterarbeiten soll? Bascom finde ich ist bei Uart viel einfacher?
@alle: Danke für euren Kommentare! Kann mir den vlt einer von euch sagen 
ob der Code mit einem atmega8 funktioniert?

[holger (Gast)]

>Kann mir den vlt einer von euch sagen
>ob der Code mit einem atmega8 funktioniert?

Der kann nicht funktionieren. Und zwar deswegen:

$regfile = "8515def.dat"

Das ist kein ATMega8.

[holger (Gast)]

>@holger: Ich kann beides ein wenig nur weiß nicht mit welchem Programm
>ich weiterarbeiten soll?

Bleib bei Ulrichs Code.

[Niclas (Gast)]

Ich meinte auch wenn da atmega8 steht und angeschlossen ist.

[kladde (Gast)]

Niclas schrieb:
> @alle: Danke für euren Kommentare! Kann mir den vlt einer von euch sagen
> ob der Code mit einem atmega8 funktioniert?

Bestimmt. Wenn jemand die DMX Gegenstelle hat, den Code kompiliert und 
auf 'nem ATMega8 ausprobiert. Ich bezweifele, daß, ohne es 
auszubrobieren, verläßliche Aussagen kommen.

Kompiliere es selbst und probier es selbst aus!

[Christian K. (christian_rx7)]

Ich hatte mal einen Tastdimmer mit DMX Ausgang gebastelt. War eher Quick 
& Dirty, da es nur darum ging, den LED-Treiber zu testen. Lief mit dem 
Code problemlos.

'DMX Tastdimmer für einen Kanal
'Christian Kreuzer 19.02.2012

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

Ddra = 255
Porta = 0
Ddrb = 0
Portb = 255
Ddrc = &B00000011
Portc = &B11111100
Ddrd = &B00000010
Portd = &B11111111
'PD1 Ausgang zum RS485 Transmitter
'PD2 Taster Eingang

Taster Alias Pind.2
Ausgang Alias Portd.1

Const Timerwert = 99                                        '20ms Takt

Dim Wert As Byte                                            'Speicher 
des aktuellen Dimmwertes
Dim Tastdauer As Byte                                       'Zähler für 
die Tastdauer
Dim Sendezaehler As Byte                                    'Zähler für 
500ms Sendeintervall
Dim Dimmrichtung As Bit                                     '0 dunkler; 
1 heller
Dim I As Byte


Config Com1 = 250000 , Synchrone = 0 , Parity = Disabled , Stopbits = 2 
, Databits = 8
Ucr.3 = 0                                                   'Transmitter 
aus
Ucr.4 = 0                                                   'Receiver 
aus

Config Timer2 = Timer , Prescale = 1024                     '20ms Takt
Timer2 = Timerwert
On Timer2 20ms_takt_irq
Enable Timer2
Enable Interrupts

Do
   If Taster = 1 Then                                       'Taster 
losgelassen oder nicht gedückt
      If Tastdauer > 3 And Tastdauer <= 25 Then             'kurzer 
Tastendruck
         If Wert = 0 Then
            Wert = 255
         Else
            Wert = 0
         End If
         Gosub Senden
      End If
      If Tastdauer > 25 Then Toggle Dimmrichtung 
'Dimmrichtung umkehren nach langen Tastendruck
      If Wert = 0 Then Dimmrichtung = 1 
'Dimmrichtungsumkehr am Endpunkt
      If Wert = 255 Then Dimmrichtung = 0
      Tastdauer = 0
   End If
   If Taster = 0 And Tastdauer > 25 Then                    'langer 
Tastendruck
      If Dimmrichtung = 0 And Wert > 0 Then Wert = Wert - 1 'dunkler 
dimmen
      If Dimmrichtung = 1 And Wert < 255 Then Wert = Wert + 1 
'heller dimmen
      Sendezaehler = Sendezaehler + 3                       'öfter 
senden
   End If
   If Sendezaehler > 24 Then Gosub Senden                   '500ms 
Sendetakt
   Portc.1 = 0
   Power Idle
   Portc.1 = 1
Loop


Senden:
   'Break
   Ausgang = 0
   Portc.0 = 1
   For I = 0 To 60
      nop
   Next I
   Portc.0 = 0
   Ausgang = 1
   For I = 0 To 20
      nop
   Next I
   'Startbyte und Daten
   Ucr.3 = 1
   Printbin 0 ; Wert
   Ucr.3 = 0
   Ausgang = 1
   Sendezaehler = 0
   Porta = Wert
Return

20ms_takt_irq:
   Timer0 = Timerwert
   Sendezaehler = Sendezaehler + 1
   If Taster = 0 And Tastdauer < 255 Then Tastdauer = Tastdauer + 1 
'Taster gedrückt, Überlauf verhindern
Return

Christian_RX7