VBA + Mathematik Frage
 

Muß leider ein kleines VBA Proggi schreiben.
PC muß einen Projektor über die COM1 steuern.

Steuere die serielle Schnittstelle über MSCOMM an.

' Festlegen der Eigenschaften
With MSComm1
.CommPort = 1
.Settings = "9600,N,8,1"
.PortOpen = True
End With

' Kiste EIN!
MSComm1.Output = "POWR 1" & vbCr

MSComm1.PortOpen = False

funktioniert auch beim Sharp Projektor auch prächtig, aber muß morgen zu einem Kunden und der hat einen Projektor von einem anderem Hersteller!

Im Manual sind die Befehlsdaten aber in HEX angeben.

02H 01H 00H 00H 00H 03H zum ausschalten

Wie muß dann da der MSComm.Output aussehen? :confused:

Bitte Bitte um Hilfe!

outstring = chr$(&h02) & chr$(&h01) & chr$(&h00) & chr$(&h00) & chr$(&h00) & chr$(&h03)

MSComm1.Output=outstring & vbcr


so sollte es funktionieren.

@Sesa_Mina

Danke für die prompte Antwort

Das geht aber schnell!

Werds Dich morgen wissen lassen obs funktioniert hat

@Sesa_Mina

hat super funktioniert! :)

Danke nochmal!

Null Problemo!
 

:D