vB与西门子ppi问题
求助ⅤB6程序通过ppi与s7-200中例题只有Q0.7-Q0.7我不懂怎么做才得到Q1.0-1.7, Q2.0-2.7等等。才到新人。请谅解集分少
dim send_d2 as string
if a < 16 then
send_d2 = 0 & Hex(a)
End if
if a > 16 or a = 16 then
send_d2 = Hex(a)
End if
temp=“6820206802007C32010000000000050501120A10020001000082000000000040008”
& send_d2& checkdata & 16
dim checkdata as string
checkdata =Right(addnum, 2)