hubaoshun
/
BECKHOFF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Shanghai
NingBo
Wuhai
main
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'Shanghai'
${ noResults }
BECKHOFF/四车间/M779-10号车（已改）/BACK-C/VisiWin/VisiWinStudio/Demos/DistillationDevice/FAlarms.frm

701 lines
22 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

上海卷烟厂倍福程序
2 years ago
VERSION 5.00
Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx"
Object = "{D932DE9C-9BD8-4B1F-9BAE-43326F307149}#1.0#0"; "VWSAlarm.ocx"
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
Object = "{2A559721-5321-11D0-95E6-006008104BEC}#1.0#0"; "VW4Language.ocx"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form FAlarms
BorderStyle = 0 'Kein
Caption = "Form1"
ClientHeight = 11520
ClientLeft = 60
ClientTop = 345
ClientWidth = 15360
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 11520
ScaleWidth = 15360
ShowInTaskbar = 0 'False
StartUpPosition = 2 'Bildschirmmitte
Begin RichTextLib.RichTextBox RTB
Height = 3150
Left = 135
TabIndex = 2
Top = 6450
Width = 15075
_ExtentX = 26591
_ExtentY = 5556
_Version = 393217
BackColor = 14935011
Enabled = -1 'True
Appearance = 0
TextRTF = $"FAlarms.frx":0000
End
Begin VisiWinStudioLib.VWSPicBox VWPicBox1
Height = 3000
Left = 105
TabIndex = 3
Top = 6930
Width = 3225
_cx = 5080
_cy = 5080
Enabled = -1 'True
BackColor = -2147483633
Picture1 = "FAlarms.frx":0082
Picture2 = "FAlarms.frx":009E
Picture3 = "FAlarms.frx":00BA
Picture4 = "FAlarms.frx":00D6
Picture5 = "FAlarms.frx":00F2
Picture6 = "FAlarms.frx":010E
Picture7 = "FAlarms.frx":012A
Picture8 = "FAlarms.frx":0146
PictureOff = "FAlarms.frx":0162
BackPicture = "FAlarms.frx":017E
SymbolOn = 0 'False
SymbolPosX = -1
SymbolPosY = -1
Mode = 0
Range = 1
State = 0
Offset = 0
BitNumber = 0
ShadowStyle = 0
ShadowDepth = 2
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
AutoSize = -1 'True
OpaqueContent = -1 'True
ShowBackPicture = 0 'False
TransparentColorOn= 0 'False
TransparentColor= 16777215
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
RecipeMember = 0 'False
End
Begin VWSAlarmLib.VWSAlarmList VWAlarmList1
Height = 3660
Left = 75
TabIndex = 0
Top = 1245
Width = 7560
_cx = 5080
_cy = 5080
BackColor = -2147483633
Enabled = -1 'True
ScrollBar = 2
ColumnWidth = "134;370"
Grid = 1
TextStyle = 1
m_nWidth = 134
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DisplayFormat = "TX"
FormatTime = "%02T:%02I:%02S"
FormatDate = "%02D.%02O.%04C"
TimeMode = 2
Sort = 3
Blink = 0
KeyAck = 0
KeyDown = 0
KeyUp = 0
StateIcons = -1 'True
StateColoring = -1 'True
AllowAck = -1 'True
PriorityMax = -1
PriorityMin = -1
TextInEvent = -1 'True
AlarmGroups = "FCentralAlarms1"
AlarmClasses = "Alarm"
HeaderStyle = 0
AllowHeaderSort = 0 'False
States = "0000"
BackColorSelected= 8404992
ForeColorSelected= 0
FontClass = "Tahoma"
AlarmDisplayMode= 0
AuthorizationMode= 1
Authorization = ""
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 25
Left = 1095
Top = 5220
End
Begin VW4LanguageLib.VWLanguage vwSprache
Left = 300
Top = 5220
_Version = 65536
_ExtentX = 794
_ExtentY = 794
_StockProps = 0
End
Begin VWSAlarmLib.VWSAlarmList VWAlarmList2
Height = 3660
Left = 7725
TabIndex = 1
Top = 1245
Width = 7560
_cx = 5080
_cy = 5080
BackColor = -2147483633
Enabled = -1 'True
ScrollBar = 2
ColumnWidth = "134;370"
Grid = 1
TextStyle = 1
m_nWidth = 134
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DisplayFormat = "TX"
FormatTime = "%02T:%02I:%02S"
FormatDate = "%02D.%02O.%04C"
TimeMode = 2
Sort = 3
Blink = 0
KeyAck = 0
KeyDown = 0
KeyUp = 0
StateIcons = -1 'True
StateColoring = -1 'True
AllowAck = -1 'True
PriorityMax = -1
PriorityMin = -1
TextInEvent = -1 'True
AlarmGroups = "FCentralAlarms2"
AlarmClasses = "Alarm"
HeaderStyle = 0
AllowHeaderSort = 0 'False
States = "0000"
BackColorSelected= 8404992
ForeColorSelected= 0
FontClass = "Tahoma"
AlarmDisplayMode= 0
AuthorizationMode= 1
Authorization = ""
End
Begin DistillationDevice.VWButton VWButton1
Height = 1365
Left = 30
TabIndex = 6
Top = 10110
Width = 15285
_extentx = 26961
_extenty = 2302
picture1 = "FAlarms.frx":019A
picture2 = "FAlarms.frx":0982
picture5 = "FAlarms.frx":0FCA
picture6 = "FAlarms.frx":1C0E
picture7 = "FAlarms.frx":2102
picture8 = "FAlarms.frx":2816
picture12 = "FAlarms.frx":30F2
font = "FAlarms.frx":3DC0
font = "FAlarms.frx":3DE8
font = "FAlarms.frx":3E10
font = "FAlarms.frx":3E38
font = "FAlarms.frx":3E60
font = "FAlarms.frx":3E88
font = "FAlarms.frx":3EB0
font = "FAlarms.frx":3ED8
font = "FAlarms.frx":3F00
font = "FAlarms.frx":3F28
font = "FAlarms.frx":3F50
font = "FAlarms.frx":3F78
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
indexgroup = "Formular-Namen"
text1 = "1"
text2 = "2"
text3 = "3"
text4 = "4"
text5 = "5"
text6 = "6"
text7 = "7"
text8 = "8"
text9 = "9"
text10 = "10"
text11 = "11"
text12 = "12"
borderstyle = 1
End
Begin VisiWinStudioLib.VWSKey VWKey2
Height = 420
Left = 10200
TabIndex = 5
Top = 4950
Width = 2340
_cx = 5080
_cy = 5080
VWItem = ""
VWItemMonitor = ""
Blink = 0
BitMonitor = 0
CaptionMonitorOn= ""
ForeColorMonitorOn= -2147483630
BackColorMonitorOn= -2147483633
IndexGroup = "Indextexte"
AuthorizationMode= 0
Authorization = "-1"
FontClass = ""
RecipeMember = 0 'False
SetMode = 0
BitNumber = 0
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
ForeColor = -2147483630
BorderColor2D = -2147483630
BackStyle = 1
ButtonStyle = 1
Alignment = 7
FocusRect = -1 'True
PictureAlign = 7
AutoSize = -1 'True
EatsCursorKeys = 0 'False
GlobalHotKey = 0 'False
FocusOnClick = -1 'True
EventOnKeyRepeat= 0 'False
Caption = "Quittieren"
UseMnemonic = 0 'False
Key = 0
DownWhenDisabled= 0 'False
End
Begin VisiWinStudioLib.VWSKey VWKey1
Height = 420
Left = 2475
TabIndex = 4
Top = 4950
Width = 2340
_cx = 5080
_cy = 5080
VWItem = ""
VWItemMonitor = ""
Blink = 0
BitMonitor = 0
CaptionMonitorOn= ""
ForeColorMonitorOn= -2147483630
BackColorMonitorOn= -2147483633
IndexGroup = "Indextexte"
AuthorizationMode= 0
Authorization = "-1"
FontClass = ""
RecipeMember = 0 'False
SetMode = 0
BitNumber = 0
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
ForeColor = -2147483630
BorderColor2D = -2147483630
BackStyle = 1
ButtonStyle = 1
Alignment = 7
FocusRect = -1 'True
PictureAlign = 7
AutoSize = -1 'True
EatsCursorKeys = 0 'False
GlobalHotKey = 0 'False
FocusOnClick = -1 'True
EventOnKeyRepeat= 0 'False
Caption = "Quittieren"
UseMnemonic = 0 'False
Key = 0
DownWhenDisabled= 0 'False
End
Begin VWSLanguageLib.VWSIndex VWIndex2
Height = 750
Left = 60
Top = 480
Width = 7560
_cx = 5080
_cy = 5080
BackStyle = 1
Enabled = -1 'True
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = -2147483633
BackColorOn = -2147483643
ForeColorOff = -2147483640
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "Indextexte"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Alarm1"
End
Begin VWSLanguageLib.VWSIndex vwCaption
Height = 450
Left = 5145
Top = 30
Width = 10185
_cx = 5080
_cy = 5080
BackStyle = 1
Enabled = -1 'True
Alignment = 4
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = 14845952
BackColorOn = -2147483643
ForeColorOff = 14935011
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "Formular-Namen"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Alarme"
End
Begin VWSLanguageLib.VWSIndex VWIndex12
Height = 450
Left = 30
Top = 30
Width = 5115
_cx = 5080
_cy = 5080
BackStyle = 1
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = 14935011
BackColorOn = -2147483643
ForeColorOff = 0
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "Formular-Namen"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Anlage"
End
Begin VWSLanguageLib.VWSIndex VWIndex1
Height = 435
Left = 0
Top = 0
Width = 7635
_cx = 5080
_cy = 5080
BackStyle = 1
Enabled = -1 'True
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = -2147483633
BackColorOn = -2147483643
ForeColorOff = 0
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "Formular-Namen"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Alarme"
End
Begin VWSLanguageLib.VWSIndex VWIndex3
Height = 750
Left = 7725
Top = 480
Width = 7560
_cx = 5080
_cy = 5080
BackStyle = 1
Enabled = -1 'True
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = -2147483633
BackColorOn = -2147483643
ForeColorOff = -2147483640
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "Indextexte"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Alarm2"
End
End
Attribute VB_Name = "FAlarms"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public Textout As String
Private Sub Form_Activate()
VWAlarmList1.SetFocus
End Sub
Private Sub Form_Load()
Set curFrm = Me
Textout = App.Path & "\html\start"
Select Case vwSprache.Language
Case 1031
RTB.LoadFile App.Path & "\html\startde.rtf"
Case 1033
RTB.LoadFile App.Path & "\html\starteng.rtf"
End Select
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
Select Case Index
Case 1
If vwSprache.Language = 1031 Then Exit Sub
FCentral.vwSprache.Language = 1031
FAlarms.vwSprache.Language = 1031
FTrends.vwSprache.Language = 1031
frmTrendSelection.vwSprache.Language = 1031
frmSelection.Caption = "Trendauswahl"
frmSelection.fraAll.Caption = "Vorhandene Trends":
frmSelection.fraSelected.Caption = "Ausgew<65>hlte Trends:"
frmSelection.cmdAbort.Caption = "Abbrechen"
On Error Resume Next
RTB.LoadFile Textout + "de.rtf"
Case 2
If vwSprache.Language = 1033 Then Exit Sub
FCentral.vwSprache.Language = 1033
FAlarms.vwSprache.Language = 1033
FTrends.vwSprache.Language = 1033
frmTrendSelection.vwSprache.Language = 1033
frmSelection.Caption = "Trend Selection"
frmSelection.fraAll.Caption = "Existing Trends":
frmSelection.fraSelected.Caption = "Selected Trends:"
frmSelection.cmdAbort.Caption = "Cancel"
On Error Resume Next
RTB.LoadFile Textout + "eng.rtf"
Case 5
FCentral.Show
Unload Me
Case 7
FTrends.Show
Unload Me
Case 8
frmTrendSelection.Show
Case 12
EndProgram
End Select
End Sub
Private Sub VWAlarmList1_SelectChange(ByVal ID As Long, ByVal Text As String, ByVal Group As String, ByVal State As Integer, ByVal TimeIn As Date, ByVal TimePLCAck As Date, ByVal TimeUserAck As Date, ByVal Priority As Long, ByVal Param1 As String, ByVal Param2 As Long)
Select Case vwSprache.Language
Case 1031
Textout = App.Path & "\html\" + Param1
RTB.LoadFile App.Path & "\html\" + Param1 + "de.rtf"
Case 1033
Textout = App.Path & "\html\" + Param1
RTB.LoadFile App.Path & "\html\" + Param1 + "eng.rtf"
End Select
End Sub
Private Sub VWAlarmList2_SelectChange(ByVal ID As Long, ByVal Text As String, ByVal Group As String, ByVal State As Integer, ByVal TimeIn As Date, ByVal TimePLCAck As Date, ByVal TimeUserAck As Date, ByVal Priority As Long, ByVal Param1 As String, ByVal Param2 As Long)
Select Case vwSprache.Language
Case 1031
Textout = App.Path & "\html\" + Param1
RTB.LoadFile App.Path & "\html\" + Param1 + "de.rtf"
Case 1033
Textout = App.Path & "\html\" + Param1
RTB.LoadFile App.Path & "\html\" + Param1 + "eng.rtf"
End Select
End Sub
Private Sub VWButton1_Button12Click()
Index = 12
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button5Click()
Index = 5
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button7Click()
Index = 7
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button1Click()
Index = 1
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button2Click()
Index = 2
Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button8Click()
Index = 8
Timer1.Enabled = True
End Sub
Private Sub VWKey1_Click()
VWAlarmList1.AckAll
End Sub
Private Sub VWKey2_Click()
VWAlarmList2.AckAll
End Sub