📄 datatoscreen.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
Caption = "DataToScreen"
ClientHeight = 1020
ClientLeft = 60
ClientTop = 345
ClientWidth = 2595
LinkTopic = "Form1"
ScaleHeight = 1020
ScaleWidth = 2595
StartUpPosition = 3 '窗口缺省
Begin MSCommLib.MSComm MSComm
Left = 240
Top = 210
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 2
DTREnable = -1 'True
BaudRate = 1200
InputMode = 1
End
Begin VB.Timer Timer
Interval = 2000
Left = 1275
Top = 225
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DigitalRaw() As Variant '故障位＋工作/停止位
Dim AnalogRaw() As Variant '模拟量
Dim DigitalValue(77) As Integer '转换后的数值
Dim AnalogValue(56) As Single
Dim AnalogString(56) As String
Dim Points(56) As String '各个参数小数点后的位数格式
Dim rgBlack As Integer '信号灯颜色
Dim rgRed As Integer
Dim rgLime As Integer
Dim rgYellow As Integer
Dim YaoXin(28) As Byte '待发送的遥信
Dim YaoCe(112) As Byte '待发送的遥测
'所有关于OPC的声明
Dim WithEvents Server As OPCServer
Attribute Server.VB_VarHelpID = -1
Dim WithEvents Groups As OPCGroups
Attribute Groups.VB_VarHelpID = -1
Dim WithEvents DigitalGroup As OPCGroup
Attribute DigitalGroup.VB_VarHelpID = -1
Dim WithEvents AnalogGroup As OPCGroup
Attribute AnalogGroup.VB_VarHelpID = -1
Dim DigitalItems As OPCItems
Dim AnalogItems As OPCItems
Dim Item As OPCItem
Dim DigitalClientHandles(1 To 154) As Long
Dim AnalogClientHandles(1 To 56) As Long
'210=77*2+56,77个故障信号（_G），77个开停（_K）
Dim OPCItemIDs(154) As String
'排放次序为JS_1PWB_G,JS_1PWB_K,JS_2PWB_G,JS_2PWB_K,...
Dim AnalogOPCItemIDs(1 To 56) As String
Dim DigitalServerHandles() As Long
Dim AnalogServerHandles() As Long
Dim DigitalErrors() As Long
Dim AnalogErrors() As Long
Private Sub Form_Load()
'OPC的初始化工作
Set Server = New OPCServer
Server.Connect "OPCServer.WinCC"
Set Groups = Server.OPCGroups
Set DigitalGroup = Groups.Add("DigitalGroup")
Set AnalogGroup = Groups.Add("AnalogGroup")
For i = 1 To 154
DigitalClientHandles(i) = i
Next
For j = 1 To 56
AnalogClientHandles(j) = j + 154
Next j
OPCItemIDs(1) = "JS_1PWB_G"
OPCItemIDs(2) = "JS_1PWB_K"
OPCItemIDs(3) = "JS_2PWB_G"
OPCItemIDs(4) = "JS_2PWB_K"
OPCItemIDs(5) = "JS_3PWB_G"
OPCItemIDs(6) = "JS_3PWB_K"
OPCItemIDs(7) = "JS_CGJ_G"
OPCItemIDs(8) = "JS_CGJ_K"
OPCItemIDs(9) = "JS_YZJ_G"
OPCItemIDs(10) = "JS_YZJ_K"
OPCItemIDs(11) = "CS_XGJ_G"
OPCItemIDs(12) = "CS_XGJ_K"
OPCItemIDs(13) = "CS_CSJ_G"
OPCItemIDs(14) = "CS_CSJ_K"
OPCItemIDs(15) = "CS_TSB_G"
OPCItemIDs(16) = "CS_TSB_K"
OPCItemIDs(17) = "CS_FLQ_G"
OPCItemIDs(18) = "CS_FLQ_K"
OPCItemIDs(19) = "TJ_1JBJ_G"
OPCItemIDs(20) = "TJ_1JBJ_K"
OPCItemIDs(21) = "TJ_2JBJ_G"
OPCItemIDs(22) = "TJ_2JBJ_K"
OPCItemIDs(23) = "TJ_3JBJ_G"
OPCItemIDs(24) = "TJ_3JBJ_K"
OPCItemIDs(25) = "TJ_4JBJ_G"
OPCItemIDs(26) = "TJ_4JBJ_K"
OPCItemIDs(27) = "TJ_1TSB_G"
OPCItemIDs(28) = "TJ_1TSB_K"
OPCItemIDs(29) = "TJ_2TSB_G"
OPCItemIDs(30) = "TJ_2TSB_K"
OPCItemIDs(31) = "TJ_3TSB_G"
OPCItemIDs(32) = "TJ_3TSB_K"
OPCItemIDs(33) = "TJ_PWB_G"
OPCItemIDs(34) = "TJ_PWB_K"
OPCItemIDs(35) = "GF_1GFJ_G"
OPCItemIDs(36) = "GF_1GFJ_K"
OPCItemIDs(37) = "GF_2GFJ_G"
OPCItemIDs(38) = "GF_2GFJ_K"
OPCItemIDs(39) = "GF_3GFJ_G"
OPCItemIDs(40) = "GF_3GFJ_K"
OPCItemIDs(41) = "GF_4GFJ_G"
OPCItemIDs(42) = "GF_4GFJ_K"
OPCItemIDs(43) = "GF_5GFJ_G"
OPCItemIDs(44) = "GF_5GFJ_K"
OPCItemIDs(45) = "GF_6GFJ_G"
OPCItemIDs(46) = "GF_6GFJ_K"
OPCItemIDs(47) = "GF_1XFJ_G"
OPCItemIDs(48) = "GF_1XFJ_K"
OPCItemIDs(49) = "GF_2XFJ_G"
OPCItemIDs(50) = "GF_2XFJ_K"
OPCItemIDs(51) = "BQ_1JBJ_G"
OPCItemIDs(52) = "BQ_1JBJ_K"
OPCItemIDs(53) = "BQ_4JBJ_G"
OPCItemIDs(54) = "BQ_4JBJ_K"
OPCItemIDs(55) = "BQ_2JBJ_G"
OPCItemIDs(56) = "BQ_2JBJ_K"
OPCItemIDs(57) = "BQ_5JBJ_G"
OPCItemIDs(58) = "BQ_5JBJ_K"
OPCItemIDs(59) = "BQ_3JBJ_G"
OPCItemIDs(60) = "BQ_3JBJ_K"
OPCItemIDs(61) = "BQ_8JBJ_G"
OPCItemIDs(62) = "BQ_8JBJ_K"
OPCItemIDs(63) = "BQ_6JBJ_G"
OPCItemIDs(64) = "BQ_6JBJ_K"
OPCItemIDs(65) = "BQ_9JBJ_G"
OPCItemIDs(66) = "BQ_9JBJ_K"
OPCItemIDs(67) = "BQ_7JBJ_G"
OPCItemIDs(68) = "BQ_7JBJ_K"
OPCItemIDs(69) = "BQ_10JBJ_G"
OPCItemIDs(70) = "BQ_10JBJ_K"
OPCItemIDs(71) = "BQ_1QSB_G"
OPCItemIDs(72) = "BQ_1QSB_K"
OPCItemIDs(73) = "BQ_2QSB_G"
OPCItemIDs(74) = "BQ_2QSB_K"
OPCItemIDs(75) = "RC_1GNJ_G"
OPCItemIDs(76) = "RC_1GNJ_K"
OPCItemIDs(77) = "RC_2GNJ_G"
OPCItemIDs(78) = "RC_2GNJ_K"
OPCItemIDs(79) = "HL_1HLB_G"
OPCItemIDs(80) = "HL_1HLB_K"
OPCItemIDs(81) = "HL_2HLB_G"
OPCItemIDs(82) = "HL_2HLB_K"
OPCItemIDs(83) = "HL_3HLB_G"
OPCItemIDs(84) = "HL_3HLB_K"
OPCItemIDs(85) = "HL_4HLB_G"
OPCItemIDs(86) = "HL_4HLB_K"
OPCItemIDs(87) = "HL_1SYB_G"
OPCItemIDs(88) = "HL_1SYB_K"
OPCItemIDs(89) = "HL_2SYB_G"
OPCItemIDs(90) = "HL_2SYB_K"
OPCItemIDs(91) = "HL_3SYB_G"
OPCItemIDs(92) = "HL_3SYB_K"
OPCItemIDs(93) = "HL_4SYB_G"
OPCItemIDs(94) = "HL_4SYB_K"
OPCItemIDs(95) = "SY_1JBJ_G"
OPCItemIDs(96) = "SY_1JBJ_K"
OPCItemIDs(97) = "SY_2JBJ_G"
OPCItemIDs(98) = "SY_2JBJ_K"
OPCItemIDs(99) = "SY_1DKF_G"
OPCItemIDs(100) = "SY_1DKF_K"
OPCItemIDs(101) = "SY_2DKF_G"
OPCItemIDs(102) = "SY_2DKF_K"
OPCItemIDs(103) = "SY_3DKF_G"
OPCItemIDs(104) = "SY_3DKF_K"
OPCItemIDs(105) = "SY_4DKF_G"
OPCItemIDs(106) = "SY_4DKF_K"
OPCItemIDs(107) = "CB_PWB_G"
OPCItemIDs(108) = "CB_PWB_K"
OPCItemIDs(109) = "CB_1QSB_G"
OPCItemIDs(110) = "CB_1QSB_K"
OPCItemIDs(111) = "CB_2QSB_G"
OPCItemIDs(112) = "CB_2QSB_K"
OPCItemIDs(113) = "CB_3QSB_G"
OPCItemIDs(114) = "CB_3QSB_K"
OPCItemIDs(115) = "CB_4QSB_G"
OPCItemIDs(116) = "CB_4QSB_K"
OPCItemIDs(117) = "TJ_JLB_G"
OPCItemIDs(118) = "TJ_JLB_K"
OPCItemIDs(119) = "TJ_JDB_G"
OPCItemIDs(120) = "TJ_JDB_K"
OPCItemIDs(121) = "TJ_1SSB_G"
OPCItemIDs(122) = "TJ_1SSB_K"
OPCItemIDs(123) = "TJ_2SSB_G"
OPCItemIDs(124) = "TJ_2SSB_K"
OPCItemIDs(125) = "TJ_3SSB_G"
OPCItemIDs(126) = "TJ_3SSB_K"
OPCItemIDs(127) = "TJ_1TSJ_G"
OPCItemIDs(128) = "TJ_1TSJ_K"
OPCItemIDs(129) = "TJ_2TSJ_G"
OPCItemIDs(130) = "TJ_2TSJ_K"
OPCItemIDs(131) = "WB_GSJ_G"
OPCItemIDs(132) = "WB_GSJ_K"
OPCItemIDs(133) = "WB_1PWB_G"
OPCItemIDs(134) = "WB_1PWB_K"
OPCItemIDs(135) = "WB_2PWB_G"
OPCItemIDs(136) = "WB_2PWB_K"
OPCItemIDs(137) = "WB_3PWB_G"
OPCItemIDs(138) = "WB_3PWB_K"
OPCItemIDs(139) = "WB_4PWB_G"
OPCItemIDs(140) = "WB_4PWB_K"
OPCItemIDs(141) = "WB_YZJ_G"
OPCItemIDs(142) = "WB_YZJ_K"
'OPCItemIDs(143 TO 154)暂时没有
AnalogOPCItemIDs(1) = "JS_L_F"
AnalogOPCItemIDs(2) = "JS_DL_F"
AnalogOPCItemIDs(3) = "JS_P_F"
AnalogOPCItemIDs(4) = "JS_PH_F"
AnalogOPCItemIDs(5) = "JS_T_F"
AnalogOPCItemIDs(6) = "CS_DL_F"
AnalogOPCItemIDs(7) = "CS_PH_F"
AnalogOPCItemIDs(8) = "CS_COD_F"
AnalogOPCItemIDs(9) = "TJ_L_F"
AnalogOPCItemIDs(10) = "GF_1SD_F"
AnalogOPCItemIDs(11) = "GF_2SD_F"
AnalogOPCItemIDs(12) = "BQ_1PH_F"
AnalogOPCItemIDs(13) = "BQ_2PH_F"
AnalogOPCItemIDs(14) = "BQ_1DO_F"
AnalogOPCItemIDs(15) = "BQ_2DO_F"
AnalogOPCItemIDs(16) = "BQ_3DO_F"
AnalogOPCItemIDs(17) = "BQ_4DO_F"
AnalogOPCItemIDs(18) = "BQ_1EF_F"
AnalogOPCItemIDs(19) = "BQ_2EF_F"
AnalogOPCItemIDs(20) = "BQ_3EF_F"
AnalogOPCItemIDs(21) = "BQ_4EF_F"
AnalogOPCItemIDs(22) = "BQ_1AF_F"
AnalogOPCItemIDs(23) = "BQ_2AF_F"
AnalogOPCItemIDs(24) = "BQ_3AF_F"
AnalogOPCItemIDs(25) = "BQ_4AF_F"
AnalogOPCItemIDs(26) = "BQ_1FW_F"
AnalogOPCItemIDs(27) = "BQ_2FW_F"
AnalogOPCItemIDs(28) = "BQ_3FW_F"
AnalogOPCItemIDs(29) = "BQ_4FW_F"
AnalogOPCItemIDs(30) = "PD_1V_F"
AnalogOPCItemIDs(31) = "PD_2V_F"
AnalogOPCItemIDs(32) = "PD_1A_F"
AnalogOPCItemIDs(33) = "PD_2A_F"
AnalogOPCItemIDs(34) = "PD_1W_F"
AnalogOPCItemIDs(35) = "PD_2W_F"
AnalogOPCItemIDs(36) = "PD_1Q_F"
AnalogOPCItemIDs(37) = "PD_2Q_F"
AnalogOPCItemIDs(38) = "RC_1SS_F"
AnalogOPCItemIDs(39) = "RC_2SS_F"
AnalogOPCItemIDs(40) = "HL_1L_F"
AnalogOPCItemIDs(41) = "HL_2L_F"
AnalogOPCItemIDs(42) = "HL_3L_F"
AnalogOPCItemIDs(43) = "SY_1L_F"
AnalogOPCItemIDs(44) = "SY_2L_F"
AnalogOPCItemIDs(45) = "SY_1EF_F"
AnalogOPCItemIDs(46) = "CW_L_F"
AnalogOPCItemIDs(47) = "CW_DO_F"
AnalogOPCItemIDs(48) = "CB_L_F"
AnalogOPCItemIDs(49) = "CB_COD_F"
AnalogOPCItemIDs(50) = "CB_MF_F"
AnalogOPCItemIDs(51) = "WB_L_F"
AnalogOPCItemIDs(52) = "WB_DL_F"
AnalogOPCItemIDs(53) = "WB_PH_F"
'AnalogOPCItemIDs(54 TO 56) 暂时没有
Set DigitalItems = DigitalGroup.OPCItems
DigitalItems.AddItems 142, OPCItemIDs, DigitalClientHandles, DigitalServerHandles, DigitalErrors
Set AnalogItems = AnalogGroup.OPCItems
AnalogItems.AddItems 53, AnalogOPCItemIDs, AnalogClientHandles, AnalogServerHandles, AnalogErrors
Dim A
'Points数组初始化
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -