VBA + Mathematik Frage

daytrader · 15.05.2002, 20:25

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?

Bitte Bitte um Hilfe!

Sesa_Mina · 15.05.2002, 20:31

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

MSComm1.Output=outstring & vbcr

so sollte es funktionieren.

daytrader · 15.05.2002, 20:34

@Sesa_Mina

Danke für die prompte Antwort

Das geht aber schnell!

Werds Dich morgen wissen lassen obs funktioniert hat

daytrader · 16.05.2002, 22:33

@Sesa_Mina

hat super funktioniert!

Danke nochmal!

Sesa_Mina · 16.05.2002, 23:49

15.05.2002, 20:25	#1
daytrader Inventar Registriert seit: 30.01.2001 Alter: 52 Beiträge: 1.726	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? Bitte Bitte um Hilfe! ____________________________________ http://daytrader.soup.io/

15.05.2002, 20:31	#2
Sesa_Mina Schwarzfußfrettchen Registriert seit: 28.01.2001 Beiträge: 2.071	outstring = chr$(&h02) & chr$(&h01) & chr$(&h00) & chr$(&h00) & chr$(&h00) & chr$(&h03) MSComm1.Output=outstring & vbcr so sollte es funktionieren. ____________________________________ Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\" http://www.dream.at/gizmo/bunny.gif Image is © 2001 Merle Sterndalsäg.. ähh... jäger

15.05.2002, 20:34	#3
daytrader Inventar Registriert seit: 30.01.2001 Alter: 52 Beiträge: 1.726	@Sesa_Mina Danke für die prompte Antwort Das geht aber schnell! Werds Dich morgen wissen lassen obs funktioniert hat ____________________________________ http://daytrader.soup.io/

16.05.2002, 22:33	#4
daytrader Inventar Registriert seit: 30.01.2001 Alter: 52 Beiträge: 1.726	@Sesa_Mina hat super funktioniert! Danke nochmal! ____________________________________ http://daytrader.soup.io/

16.05.2002, 23:49	#5
Sesa_Mina Schwarzfußfrettchen Registriert seit: 28.01.2001 Beiträge: 2.071	Null Problemo! ____________________________________ Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\" http://www.dream.at/gizmo/bunny.gif Image is © 2001 Merle Sterndalsäg.. ähh... jäger

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)