Dim cnvtWWW_P※LCJS_COM-PLC-)技.术_网
Dim Temp()W1WW_P4LCJS_COM-PLC-技.术_网
Dim obj_s_ComWW.W_PLC※JS_C,OM-PL,C-技.术_网
Dim sOutputWWW_PLCJ-S_COM-PLC-技.术_网(可-编程控-制器技术-门户)
Set cnvt = CreateObject("ADs.ArrayConvert")W1WW_P4LCJS_COM-PLC-技.术_网
Set obj_s_Com = ScreenItems("m_Com")WWW_PLC※JS_COM-PmLC-技.术_网
obj_s_Com.CommPort = 1WWW_P※LCJS_COM-PLC-)技.术_网
Redim Temp(2)WWW_P※LCJS_CO※M-PLC-技-.术_网
Temp(0) = &hebWWcW_PLCJS_COM-PLC-技.术_网
Temp(1) = &h90WWcW_PLCJS_COM-PLC-技.术_网
Temp(2) = &h71WWW.PLCJS.COM——可编程控制器技术门户
Dim v,v1,v2,v3,v4WWW_PLCJS※COM-PLC-技×术_网(可编程控※制器技术门户)
v = TempWWcW_PLCJS_COM-PLC-技.术_网
HMIRuntime.Trace "The V is:" & VarType(v) &" " &TypeName(v) &vbCrLfWWW_PLCJS※COM-PLC-技.术_网(可※编程控※制器技术门户)
obj_s_Com.Output = v——可——编——程——控-制-器-技——术——门——户
v1 = cnvt.CvOctetStr2vStr(v)WWW_PL※CJS_COM-PLC-技.术_网
HMIRuntime.Trace "The V1 is:" & VarType(v1) &" " &TypeName(v1) & " " &vbCrLfP_L_C_技_术_网——可——编——程——控-制-器-技——术——门——户
obj_s_Com.Output = v1WWW_PL※CJS_COM-PLC-技.术_网
v2= cnvt.CvStr2vOctetStr(v1)——可——编——程——控-制-器-技——术——门——户
HMIRuntime.Trace "The V2 is:" & VarType(v2) &" " &TypeName(v2) & " " &vbCrLfWWW.PLCJS.COM——可编程控制器技术门户
obj_s_Com.Output = v2WWW_PLCJ-S_COM-PLC-技.术_网(可-编程控-制器技术-门户)
v3 = cnvt.CvOctetStr2vHexStr(v)W1WW_P4LCJS_COM-PLC-技.术_网
HMIRuntime.Trace "The V3 is:" & VarType(v3) &" " &TypeName(v3) & " " &vbCrLfWWcW_PLCJS_COM-PLC-技.术_网
obj_s_Com.Output = v3WW.W_PLC※JS_C,OM-PL,C-技.术_网
v4 = cnvt.CvHexStr2vOctetStr(v3)WWW_PLC※JS_COM-PLC-技.术_网(可编程控※制器技术门户)
HMIRuntime.Trace "The V4 is:" & VarType(v4) &" " &TypeName(v4) & " " &vbCrLfWWW_P※LCJS_COM-PLC-)技.术_网
obj_s_Com.Output = v4P_L_C_技_术_网——可——编——程——控-制-器-技——术——门——户
可以发现比如>&H7E的ANSI字码也可以通过串口正常发送。WWcW_PLCJS_COM-PLC-技.术_网