Styring af ASK projektor via programmering til seriel port
Jeg skal lave et program der via min pc's com port 1 kan styre en ASK projektor. med "styre" mener jeg bl.a. tænde/slukke.Jeg har været i gang. Her er et lille stykke kode lavet specielt til dette spørgsmål. Er det helt hen i vejret eller er jeg på rette vej?
-------------------------
Option Explicit
Private Sub Form_Load()
' Use COM1.
MSComm1.CommPort = 1
' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Open the port.
MSComm1.PortOpen = True
' Power on (pwr;1) the projector
MSComm1.Output = "pwr;1" & vbCr
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
--------------------