DMX-Empfang mit Atmega 8 und Bascom Probleme

[tim (Gast)]

Hallo, ich probiere mit dem Atmega 8 und dem SN75176 ein DMX-Signal zu 
Empfangen und damit 3 LED´s über PWM zu steuern.

Problem: Die LEDs leuchten wie gewollt je 1s auf, dannach geht die 
Valid-LED an und die 3 LEDs Leuchten wie über DMX eingestellt. 
Allerdings nur für ca. 1s, dannch gehen sie aus und machmal geht nach 
ca. 5 weiteren Sekunden die ValiD-LED auch aus oder der Mega Resetet.

Am Atmega ist ein 16MHz Grundton mit 2 mal 22pF nach GND. Zwischen VCC 
und GND ist ein 100nF und die Pins die für die DMX Adressen Einstellung 
sind, liegen auf VCC, außer PinC.5 der liegt auf Ground, damit die 
DMX-Adresse=1 ist. Restet ist über ein 10K Widerstand mit VCC verbunden.

$regfile = "m8def.dat"
$crystal = 16000000
$baud = 250000
'USART auf DMX512 einstellen
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 1
On Urxc Empfang

Config Timer2 = Timer , Prescale = 1
On Timer2 Soft_pwm


Dim Dmx_tmp As Integer
Dim X As Byte
Dim Buffer(512) As Byte
Dim Kanal As Word
Dim Spwm1 As Byte
Dim Spwm2 As Byte
Dim Spwm3 As Byte
Dim Valid As Byte
Valid = 0


Dim Count As Byte
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output

Config Portc.5 = Input
Config Portc.4 = Input
Config Portc.3 = Input
Config Portc.2 = Input
Config Portc.1 = Input
Config Portc.0 = Input
Config Portb.5 = Input
Config Portb.4 = Input
Config Portd.6 = Input

Softpwm1 Alias Portb.1
Softpwm2 Alias Portb.2
Softpwm3 Alias Portb.3

'Alles LED´s Kurz zun Testen anmachen
Softpwm1 = 1
Wait 1
Softpwm1 = 0
Softpwm2 = 1
Wait 1
Softpwm2 = 0
Softpwm3 = 1
Wait 1
Softpwm3 = 0


Enable Interrupts
Enable Urxc
Enable Timer2


Do
Dmx_tmp = 0
If Pinc.5 = 0 Then Dmx_tmp = Dmx_tmp + 1
If Pinc.4 = 0 Then Dmx_tmp = Dmx_tmp + 2
If Pinc.3 = 0 Then Dmx_tmp = Dmx_tmp + 4
If Pinc.2 = 0 Then Dmx_tmp = Dmx_tmp + 8
If Pinc.1 = 0 Then Dmx_tmp = Dmx_tmp + 16
If Pinc.0 = 0 Then Dmx_tmp = Dmx_tmp + 32
If Pinb.5 = 0 Then Dmx_tmp = Dmx_tmp + 64
If Pinb.4 = 0 Then Dmx_tmp = Dmx_tmp + 128
If Pind.6 = 0 Then Dmx_tmp = Dmx_tmp + 256

If Dmx_tmp > 0 Then

Spwm1 = Buffer(dmx_tmp)
Spwm2 = Buffer(dmx_tmp + 1)
Spwm3 = Buffer(Dmx_tmp + 2)

Else

Spwm1 = 0
Spwm2 = 0
Spwm3 = 0
Valid = 0

End If

If Valid = 1 Then Portb.0 = 1 Else Portb.0 = 0


Loop


'--------------------------------------------------------------
'
'Empfang:
'
'steht in der USART ein Byte an, wird ein Interrupt
'ausgelöst und folgender Code abgearbeitet:
'--------------------------------------------------------------
Empfang:
X = Udr
   If Ucsra.fe = 1 Then
      Kanal = 0
      If X = 0 Then Valid = 1 Else Valid = 0
   Else
      Incr Kanal
      If Kanal < 513 And Kanal > 0 Then Buffer(kanal) = X
   End If

Return

'--------------------------------------------------------------
'
'SoftPMW:
'--------------------------------------------------------------

Soft_pwm:

Incr Count
If Count = 254 Then Count = 0
If Count >= Spwm1 Then Softpwm1 = 0 Else Softpwm1 = 1
If Count >= Spwm2 Then Softpwm2 = 0 Else Softpwm2 = 1
If Count >= Spwm3 Then Softpwm3 = 0 Else Softpwm3 = 1

Return

[R. M. (rmax)]

Ich weiß nicht, ob das die Ursache für Dein Problem ist, aber Du wertest 
nur den Frame-Error aus und ignorierst das darauffolgende Nullbyte als 
DMX-Startkennung.

Übrigens speicherst Du unnötigerweise die Werte sämtlicher Kanäle, 
obwohl Du nur an dreien davon interessiert bist, was immerhin Dein 
halbes RAM belegt.

Woher kommt eigentlich Dein DMX-Signal? Hast Du das schonmal an 
bekanntermaßen funktionierenden Empfängern getestet?.

Das sporadische Verhalten Deines Mega könnte außerdem noch auf eine 
unsaubere Beschaltung hinweisen (z.B. Abblockkondensator vergessen, 
LED-Strom läßt die Spannungsversorgung einbrechen oder "Sauerei" auf dem 
DMX-Kabel).