Visula Basic und Com Ports

OP #2708465
Lesenswert?

Hallo!

Ich möchte gerne meine 2 DMX Dimmerpacks zu je 6 Kanälen mit meinen 
Notebook ansteuern. Dazu benötige ich ja einen USB DMX Wandler.

Ich dachte da an fogendes Element:

http://www.ic-board.de/product_info.php?info=p152_USB-B-UART-Bridge.html

im Datenblatt steht es kann eine Baudrate bis zu 1 Mbits für das DMX 
Signal brauche ich ja 250kbits.

an dieses Teil würde ich noch einen MAX 485 hängen und dann die DMX 
Buchse.

Ich habe mir gedacht die Bedien -Software über Visual Basic zu 
erstellen. Mit dem ComControl Tool würde ich die notwendigen Daten an 
den Wandler senden.

Ich habe mir das Teil jetzt mal besorgt und den Treiber installiert... 
tja jetzt kann ich bei dem Teil im Windows Gerätemanager aber nur eine 
Baudrate von max. 128kBits einstellen. Im Visual Basic kommt auch eine 
Fehlermeldung sobald ich eine höhere Baudrate verwende. Gibt es irgend 
eine Möglichkeit diese Begrenzung zu umgehen oder gibt es andere 
vergleichbare Programme die höhere Baudraten zulassen?

Lt. Hersteller sollten auch höhere Baudraten verwendbar sein obwohl man 
sie beim Gerätemanager nicht einstellen kann.

Danke schon jetzt mal für die Hilfe

mfg

Philipp
OP #2713554
Lesenswert?

Hallo noch mal!

Habe vom Hersteller jetzt ein sog. Baudrate aliasing Tool bekommen. 
Damit geb ich dem USB UART Adapter an dass er obwohl ich im Visual Basic 
128000Bit/s einstelle, er trotzdem mit 250000 Bit/s sendet.

Jetzt hät ich eine weitere Frage:

... und zwar wei kann ich im Visual Basic 5 so eine Art Transmit 
complete Abfrage machen? Oder macht das das Com Control von alleine?

Ich muss mehrere Zeichen nacheinander senden um ein DMX Signal zu 
erzeugen:

Hier meine derzeitige Senderoutine in VB:
1
Schleife:
2

3
UART.Settings = "57600,N,8,2"   'durch aliasing werden daraus 90900 kBit/s
4
        
5
UART.Output = "0"               'RESET
6
        
7
UART.Settings = "128000,N,8,2"  'durch aliasing werden daraus 250000 kBit/s
8
        
9
UART.Output = "0"               'STARTBYTE
10

11
For j = 0 To 11 Step 1
12
                
13
   UART.Output = CStr(Fader(j).Value)    'Die 12 Faderwerte denden'
14

15
Next j
16
            
17
For j = 0 To 50 Step 1
18
                
19
   UART.Output = "0"                      '50 weitere um den Dimmerpacks  
20
                                          'Zeit zu geben
21
Next j

Wenn das Transmit Complete nicht abgfragt wird kommt da wahrscheinlich 
nur Misst raus oder?

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren