dmx ontvangen (basic) - Forum

nonkel_dw

nonkel dw

zondag 27 mei 2007 13:24:19

Zou dit kunnen werken voor dmx te ontvangen of zie ik iets over het hoofd

graag jullie reacties


DEFINE OSC 20
CMCON = %00000111 'comparators off
TRISA = %11111110 
TRISB = %00000010 
OPTION_REG.7 = 1
T2CON = %00000100

' Set receive register to receiver enabled
RCSTA = %11010000
' Set transmit register to transmitter disabled
TXSTA = %00000110 
' Set baud rate
SPBRG = 4                                  


led1 var portb.4


Dummy var byte
Adres con 20
Break var bit
Adresteller var word        '16 bit (9bit nodig)

Ontvangbyte1 var byte        'de byte die naar je verstuurd is.
PWMLED1 var byte             'teller voor led 1

pwmled1 = 0

while 1=1
    if RCSTA.2 = 1 then     ' framing error -> break
        dummy = RCREG       ' om rcsta.2 te resetten
        break = 1
	portb.8 = 1 zet led 4 aan
    Else
        IF PIR1.5 = 1 then      ' byte ontvangen zonder frame error
            if break = 1 then   ' net een break, nu de startcode
                break = 0
                dummy = RCREG   ' om RCREG leeg te maken
                adresteller = 0 ' nu komen de echte bytes
            else
                dummy = RCREG
                if adres = adresteller then
                    ontvangbyte1 = dummy
                endif
                adresteller = adresteller + 1    
            endif
        endif
    endif
    
'PWM VOOR 1 LEDje:
if pwmled1<=ontvangbyte1 then 
led1 = 1
else
led1 = 0
endif

pwmled1 = pwmled1 + 1
if pwmled1 = 255 then pwmled1 = 0

wend
[code/]

Aart

zondag 27 mei 2007 13:33:14

Eigenlijk vind ik dat je al ruim voldoende topic's over soortgelijke onderwerpen hebt lopen.
Zie b.v. deze.

Mogelijk moet je iets anders te werk gaan om meer bruikbaars uit een forum als Co te halen ?
Al eens goed gezocht ? Ik herinner mij dat op het Picbasic forum hier complete voorbeelden staan.