📄 frmsignaloptions.frm
字号:
TabIndex = 0
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample2
Caption = "Sample 2"
Height = 1785
Left = 645
TabIndex = 3
Top = 300
Width = 2055
End
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Index = 3
Left = 1800
TabIndex = 35
Top = 4680
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Index = 2
Left = 1800
TabIndex = 34
Top = 4320
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Index = 1
Left = 600
TabIndex = 33
Top = 4680
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Index = 0
Left = 600
TabIndex = 32
Top = 4320
Width = 615
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "槽号"
Height = 180
Index = 12
Left = 240
TabIndex = 31
Top = 4740
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "地址"
Height = 180
Index = 11
Left = 240
TabIndex = 30
Top = 4350
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "通道"
Height = 180
Index = 10
Left = 1440
TabIndex = 29
Top = 4410
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "信号测试－"
Height = 180
Index = 9
Left = 840
TabIndex = 28
Top = 3960
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "初值"
Height = 180
Index = 8
Left = 1440
TabIndex = 27
Top = 4785
Width = 360
End
End
Attribute VB_Name = "frmSignalOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************湖南仪峰公司新模块化DCS组件*************************
'作者： 彭逢望
'编写日期： 2004-6-15
'最后修改： 2005-1-25
'修改人： 彭逢望
'*****************************************************************
Option Explicit
Dim isLoading As Boolean
Dim LED_BackColor As Long
Dim NumIndex As Long
Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Check1.Value = 1 Then
Signal(NumIndex).Alarm = True
frmMain.Rec_Warning 1, Format(NumIndex, "000") & "-" & Trim(Signal(NumIndex).Name), "报警启动", "1"
SynchroMsg "]" & "Alarm" & "]" & NumIndex & "]" & Check1.Value
WritePrivateProfileString "ALLOW" & NumIndex, "Alarm", "True", iniPaths + "Alarm.ini"
Else
lngPopedom = 2
frmPassword.Show 1
If mPassword Then
mPassword = False
Signal(NumIndex).Alarm = False
frmMain.Rec_Warning 1, Format(NumIndex, "000") & "-" & Trim(Signal(NumIndex).Name), "报警取消", "0"
SynchroMsg "]" & "Alarm" & "]" & NumIndex & "]" & Check1.Value
WritePrivateProfileString "ALLOW" & NumIndex, "Alarm", "False", iniPaths + "Alarm.ini"
Else
Exit Sub
End If
End If
End Sub
Private Sub Check2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DisableSound(NumIndex) = Check2.Value
SynchroMsg "]" & "Sound" & "]" & NumIndex & "]" & Check2.Value
End Sub
Private Sub CmdAdmin_Click()
'If Warning_ID = 0 Then
lngPopedom = 2
frmPassword.Show 1
If mPassword Then
mPassword = False
Combo_Index.Enabled = True
txtBackColor.Enabled = True
Me.Height = 5400
Timer1.Enabled = True
Else
Exit Sub
End If
'End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
On Error Resume Next
Dim i As Long, k As Long
If Combo_Index.ListIndex <> NumIndex Then
Select Case Warning_ID
Case 0
i = Combo_Index.ListIndex
frmMain.LED(LED_ID).Tag = i
frmMain.LED(LED_ID).BackColor = txtBackColor.Text
frmMain.LED(LED_ID).Label = Replace(Signal(Val(i)).Name, " ", "")
SynchroMsg "]" & "TAG" & "]" & LED_ID & "]" & i
WritePrivateProfileString "LED" & LED_ID, "TAG", CStr(i), iniPaths + "Alarm.ini"
Case 1
i = LED_ID
Case 2
i = Combo_Index.ListIndex
frmMain.labData(LED_ID).Tag = i
SynchroMsg "]" & "TAG2" & "]" & LED_ID & "]" & i
WritePrivateProfileString "LabData" & LED_ID, "TAG", CStr(i), iniPaths + "Alarm.ini"
End Select
End If
If Val(txtHighAlarm) <> Signal(NumIndex).HighAlarm Then
Signal(NumIndex).HighAlarm = Val(txtHighAlarm)
SynchroMsg "]" & "HIGH" & "]" & NumIndex & "]" & Val(txtHighAlarm)
WritePrivateProfileString "ALLOW" & NumIndex, "UpDown", CStr(txtHighAlarm.Text), iniPaths + "Alarm.ini"
End If
If Val(txtLowAlarm) <> Signal(NumIndex).LowAlarm Then
Signal(NumIndex).LowAlarm = Val(txtLowAlarm)
SynchroMsg "]" & "LOW" & "]" & NumIndex & "]" & Val(txtLowAlarm)
WritePrivateProfileString "ALLOW" & NumIndex, "Down", CStr(txtLowAlarm.Text), iniPaths + "Alarm.ini"
End If
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim lp_hand As Long, j As Long
isLoading = True
lp_hand = SetParent(Me.hWnd, frmMain.hWnd)
Me.Height = 4290
Combo1.AddItem "1 ~ 5V", 0
Combo1.AddItem "0 ~ 10V", 1
Combo1.AddItem "0 ~ 2.5V", 2
Combo1.AddItem "0 ~ 1V", 3
Combo1.AddItem "0 ~ 500mV", 4
Combo1.AddItem "0 ~ 150mV", 5
Combo1.AddItem "0 ~ 100mV", 6
Combo1.AddItem "0 ~ 50mV", 7
Combo1.AddItem "0 ~ 15mV", 8
Combo1.AddItem "4 ~ 20mA", 9
Combo1.AddItem "0 ~ 20mA", 10
Combo1.AddItem "-20 ~ 20mA", 11
Combo1.AddItem "TypeB 500-1800'C", 12
Combo1.AddItem "E型热电偶", 13
Combo1.AddItem "TypeJ 0-760'C", 14
Combo1.AddItem "K型热电偶", 15
Combo1.AddItem "TypeR 500-1750'C", 16
Combo1.AddItem "TypeS 500-1750'C", 17
Combo1.AddItem "Pt100热电阻", 18
Combo1.AddItem "开关量", 19
Select Case Warning_ID
Case 0
NumIndex = Val(frmMain.LED(LED_ID).Tag)
txtBackColor.Text = frmMain.LED(LED_ID).BackColor
txtBackColor.BackColor = txtBackColor.Text
Case 1
NumIndex = LED_ID
Case 2
NumIndex = Val(frmMain.labData(LED_ID).Tag)
End Select
Me.Caption = "信号点属性【" & LED_ID & "】"
txtName.Text = Trim(Signal(NumIndex).Name)
txtFlag.Text = Trim(Signal(NumIndex).Tag)
Combo1.Text = Combo1.List(Signal(NumIndex).Type)
txtUnit.Text = Signal(NumIndex).LowScale & "～" & Signal(NumIndex).HighScale & Trim(Signal(NumIndex).Unit)
txtLowAlarm.Text = Signal(NumIndex).LowAlarm
txtHighAlarm.Text = Signal(NumIndex).HighAlarm
Check1.Value = -CLng(Signal(NumIndex).Alarm)
Check2.Value = -CLng(DisableSound(NumIndex))
If SoundCont Then
Check2.Enabled = False
End If
For j = 0 To UBound(Signal)
Combo_Index.AddItem CStr(j) & "-" & Replace(Signal(j).Name, " ", ""), j
Next
Combo_Index.ListIndex = NumIndex
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmSignalOptions = Nothing
End Sub
Private Sub Timer1_Timer()
Static C_time As Long
On Error Resume Next
C_time = C_time + 1
If C_time > 100 Then C_time = 0: Unload Me
Label2(0).Caption = MotherBoard(Signal(NumIndex).Board).Port_Dip
Label2(1).Caption = Signal(NumIndex).Slot
Label2(2).Caption = Signal(NumIndex).Channel
If isRead Then
Label2(3).Caption = Signal(NumIndex).Value
Else
Label2(3).Caption = Signal(NumIndex).CalValue / Signal(NumIndex).HighScale * (Signal(NumIndex).HighValue - Signal(NumIndex).LowValue) + Signal(NumIndex).LowValue
End If
End Sub
Private Sub txtBackColor_Click()
On Error Resume Next
CommonDialog_LED.ShowColor
If CommonDialog_LED.Color <> 0 Then
txtBackColor.BackColor = CommonDialog_LED.Color
txtBackColor.Text = CommonDialog_LED.Color
LED_BackColor = CommonDialog_LED.Color
If frmMain.LED(LED_ID).BackColor <> CommonDialog_LED.Color Then
frmMain.LED(LED_ID).BackColor = CommonDialog_LED.Color
SynchroMsg "]" & "COLOR" & "]" & LED_ID & "]" & CommonDialog_LED.Color
WritePrivateProfileString "LED" & LED_ID, "BackColor", CStr(txtBackColor.Text), iniPaths + "Alarm.ini"
End If
End If
End Sub
Private Sub txtHighAlarm_DblClick()
Set ControlLink = txtHighAlarm
frmDataIn.txtNumber = txtHighAlarm.Text
frmDataIn.Show
End Sub
Private Sub txtLowAlarm_DblClick()
Set ControlLink = txtLowAlarm
frmDataIn.txtNumber = txtLowAlarm.Text
frmDataIn.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -