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ä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