Hallo NG,
nachdem ich bereits DMX-512 Signale senden kann, kommt nun der Empfang dran.
Folgender erster Ansatz:
Ist der Code vom Ansatz her korrekt?Code:$regfile = "m8def.dat" $crystal = 16000000 $baud = 250000 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 Dim Buffer(513)as Byte Dim Kanal As Word On Urxc Empfang Enable Urxc Enable Interrupts Do Loop Empfang: If ucsra.Fe = 1 Then Kanal = 0 Else If Kanal > 0 Then Buffer(kanal) = Udr End If Incr Kanal End If Return
Günter







Zitieren

Lesezeichen