发表于：2001/6/3 11:03:00
#0楼
感謝斑主:
我非常感謝你的网,我從上面學到了佷多,我終于把plc中的data
取了出來,我把我的方法列出來
OMRON CQM1H:
MSComm1.CommPort = 1
MSComm1.Settings = "9600,e,7,2"
MSComm1.Output = "@00RD0000000452*" & Chr$(13)
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
' Event messages.
Case comEvReceive
Dim Buffer As Variant
Buffer = MSComm1.Input
ShowData txtterm, (StrConv(Buffer, vbUnicode)
后面得加上你的顯示程序不然顯示出來是0.
我剛做至這一點,也許佷菜,我想給剛學PLC的同志一些提示也是
好的!
感謝斑主,愿网 好!好!好!
我非常感謝你的网,我從上面學到了佷多,我終于把plc中的data
取了出來,我把我的方法列出來
OMRON CQM1H:
MSComm1.CommPort = 1
MSComm1.Settings = "9600,e,7,2"
MSComm1.Output = "@00RD0000000452*" & Chr$(13)
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
' Event messages.
Case comEvReceive
Dim Buffer As Variant
Buffer = MSComm1.Input
ShowData txtterm, (StrConv(Buffer, vbUnicode)
后面得加上你的顯示程序不然顯示出來是0.
我剛做至這一點,也許佷菜,我想給剛學PLC的同志一些提示也是
好的!
感謝斑主,愿网 好!好!好!
