不连中控和设置通讯地址你怎么和投影机通讯啊,有串口的投影机都会有中控码,很多说明书上并没有写到中控码,有些经销商也可能不知道(他们只管卖),最好是询问厂商,当然也有可能在百度上搜到。只要有rs232接口的投影机就一定有这个中控码,尽管有些经销商会说没有。
你需要得到以下参数
波特率 多数是9600或19200
校验位 多数是无检验(NONE),还有可能是偶(EVEN)奇(ODD)
数据位 多数是8
停止位 多数是1
n Explicit
Dim bytSend() As Byte
Private Sub Command1_Click() 'Open
ReDim bytSend(4)
bytSend(0) = &H43
bytSend(1) = &H30
bytSend(2) = &H30
bytSend(3) = &HD
bytSend(4) = &HA
MSComm1.Output = bytSend
End Sub
Private Sub Command2_Click() 'Close
ReDim bytSend(4)
bytSend(0) = &H43
bytSend(1) = &H30
bytSend(2) = &H31
bytSend(3) = &HD
bytSend(4) = &HA
MSComm1.Output = bytSend
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 '
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub
追问SP1.Open()
ComBuff(0) = &H2
ComBuff(1) = &H0
ComBuff(2) = &H0
ComBuff(3) = &H0
ComBuff(4) = &H0
ComBuff(5) = &H2
SP1.DiscardInBuffer()
SP1.Write(ComBuff, 0, 9)
Timer_OUT.Enabled = True
SP1.Close()
这类代码和数据我都已做好,就是发送后投影机没反应。。。
追答必须有中控设备才能实现投影机和pc的连接。
追问如果真是这样,那太令人伤心了。。。。我看网上有人说,可以不需要中控设备啊。。
╮(╯▽╰)