|
--------------------------------------------------------------
Private Sub Form_Load() '调用MSCOMM控件
With MSComm1
.Settings = "9600,e,7,1"
.CommPort = 1
.RTSEnable = True
End With
End Sub
---------------------------------------------------------------
Private Sub Command5_Click() ' 置位Y2
Y2 = Chr$(2) + "7" + "0205" + Chr$(3) + "01"
MSComm1.Output = Y2
End Sub
----------------------------------------------------------------
Private Sub Command6_Click() '复位Y2
Y2A = Chr$(2) + "8" + "0205" + Chr$(3) + "02"
MSComm1.Output = Y2A
End Sub
以上代码测试过OK了,请问有谁知道要怎么读取PLC的Y2点状态,来控制shape1控件,就是Y2为置位时shape1控件为红色,Y2为OFF时shape1控件为绿色 |
|