VERSION 5.00 Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx" Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx" Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Object = "{CBA16C06-AF5C-423D-9E34-7385EBC4F97B}#1.0#0"; "VWSTouch.ocx" Object = "{C1B43C67-D439-11D5-8A98-0050BAB20053}#2.3#0"; "VWSFrame.ocx" Begin VB.Form FRecipeDemo BorderStyle = 1 'Fest Einfach Caption = "Rezeptdemo" ClientHeight = 8610 ClientLeft = 45 ClientTop = 330 ClientWidth = 8790 ControlBox = 0 'False Icon = "FRecipeDemo.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 8610 ScaleWidth = 8790 StartUpPosition = 2 'Bildschirmmitte Begin VWSFrameLib.VWSFrame fraRecipe Height = 2535 Left = 60 TabIndex = 14 Top = 4560 Width = 6975 _ExtentX = 12303 _ExtentY = 4471 Caption = "Rezept" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Begin VisiWinStudioLib.VWSVarIn VWSVarIn9 Height = 375 Left = 5220 TabIndex = 15 Top = 960 Width = 1575 _cx = 2778 _cy = 661 VWItem = "Ch1.Simulation.Dummy.Sawtooth.Funktion_1.Value" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = -1 'True End Begin VisiWinStudioLib.VWSVarIn VWSVarIn4 Height = 375 Left = 180 TabIndex = 16 Top = 1440 Width = 6615 _cx = 11668 _cy = 661 VWItem = "Ch1.Simulation.Variables.String" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = -1 'True End Begin VisiWinStudioLib.VWSVarIn VWSVarIn3 Height = 375 Left = 3540 TabIndex = 17 Top = 960 Width = 1575 _cx = 2778 _cy = 661 VWItem = "Ch1.Simulation.Variables.Short" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = -1 'True End Begin VisiWinStudioLib.VWSVarIn VWSVarIn2 Height = 375 Left = 1860 TabIndex = 18 Top = 960 Width = 1575 _cx = 2778 _cy = 661 VWItem = "Ch1.Simulation.Variables.Long" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = -1 'True End Begin VisiWinStudioLib.VWSVarIn VWSVarIn1 Height = 375 Left = 180 TabIndex = 19 Top = 960 Width = 1575 _cx = 2778 _cy = 661 VWItem = "Ch1.Simulation.Variables.Float" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = -1 'True End Begin VWSTouchLib.VWSOptionButton optEditRecipeValues Height = 255 Left = 180 TabIndex = 22 Top = 300 Width = 3435 _cx = 6059 _cy = 450 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Enabled = -1 'True BitNumber = 0 BackColor = -2147483633 ForeColor = -2147483630 FocusRect = -1 'True EditState = 0 FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True EditControl = 0 'False EatsCursorKeys = 0 'False VWItem = "__UNLINKED_BOOL" Blink = 0 Key = 0 Caption = "Rezeptwerte bearbeiten (im Rezeptpuffer)" Alignment = 0 UseMnemonic = 0 'False OptionButtonHeight= 1 OptionGroup = 1 OptionMode = 0 IndexGroup = "" Authorization = "" AuthorizationMode= 0 FontClass = "" End Begin VWSTouchLib.VWSOptionButton optEditPLCValues Height = 255 Left = 180 TabIndex = 23 Top = 600 Width = 3435 _cx = 6059 _cy = 450 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Enabled = -1 'True BitNumber = 0 BackColor = -2147483633 ForeColor = -2147483630 FocusRect = -1 'True EditState = 0 FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True EditControl = 0 'False EatsCursorKeys = 0 'False VWItem = "__UNLINKED_BOOL" Blink = 0 Key = 0 Caption = "Werte der SPS bearbeiten (im Item)" Alignment = 0 UseMnemonic = 0 'False OptionButtonHeight= 1 OptionGroup = 1 OptionMode = 0 IndexGroup = "" Authorization = "" AuthorizationMode= 0 FontClass = "" End Begin VisiWinStudioLib.VWSKey keySet Height = 375 Left = 1860 TabIndex = 21 Top = 1980 Width = 1575 _cx = 2778 _cy = 661 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "VWSKey1" PictureMonitorOn= "FRecipeDemo.frx":030A ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 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 Picture = "FRecipeDemo.frx":0326 PictureDown = "FRecipeDemo.frx":0342 PictureDisabled = "FRecipeDemo.frx":035E PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "Schreiben" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyGet Height = 375 Left = 180 TabIndex = 20 Top = 1980 Width = 1575 _cx = 2778 _cy = 661 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "VWSKey1" PictureMonitorOn= "FRecipeDemo.frx":037A ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 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 Picture = "FRecipeDemo.frx":0396 PictureDown = "FRecipeDemo.frx":03B2 PictureDisabled = "FRecipeDemo.frx":03CE PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "Lesen" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End End Begin VWSFrameLib.VWSFrame fraPLC Height = 1335 Left = 60 TabIndex = 8 Top = 7200 Width = 6975 _ExtentX = 12303 _ExtentY = 2355 Caption = "Werte in der SPS" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Begin VisiWinStudioLib.VWSVarIn VWSVarIn10 Height = 375 Left = 5220 TabIndex = 9 Top = 300 Width = 1575 _cx = 2778 _cy = 661 VWItem = "Ch1.Simulation.Dummy.Sawtooth.Funktion_1.Value" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = 0 'False End Begin VisiWinStudioLib.VWSVarIn VWSVarIn8 Height = 375 Left = 180 TabIndex = 10 Top = 780 Width = 6615 _cx = 11668 _cy = 661 VWItem = "Ch1.Simulation.Variables.String" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = 0 'False End Begin VisiWinStudioLib.VWSVarIn VWSVarIn7 Height = 375 Left = 3540 TabIndex = 11 Top = 300 Width = 1575 _cx = 2778 _cy = 661 VWItem = "Ch1.Simulation.Variables.Short" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = 0 'False End Begin VisiWinStudioLib.VWSVarIn VWSVarIn6 Height = 375 Left = 1860 TabIndex = 12 Top = 300 Width = 1575 _cx = 2778 _cy = 661 VWItem = "Ch1.Simulation.Variables.Long" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = 0 'False End Begin VisiWinStudioLib.VWSVarIn VWSVarIn5 Height = 375 Left = 180 TabIndex = 13 Top = 300 Width = 1575 _cx = 2778 _cy = 661 VWItem = "Ch1.Simulation.Variables.Float" VWItemLimitMin = "" VWItemLimitMax = "" Blink = 0 UseItemConfig = 0 'False BackStyle = 1 Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483643 BackColorDisabled= -2147483633 ForeColor = -2147483640 Format = 0 DecPoint = 0 Enabled = -1 'True LimitCheck = 0 'False LimitMin = "" LimitMax = "" FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True AddText = "" IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" UnitConversion = 0 FontClass = "" RecipeMember = 0 'False End End Begin VB.Frame fraFile Height = 4395 Left = 60 TabIndex = 0 Top = 60 Width = 6975 Begin VB.TextBox txtDescription Height = 315 Left = 180 TabIndex = 4 Top = 1200 Width = 6615 End Begin VB.TextBox txtRecipeName Height = 315 Left = 180 TabIndex = 3 Top = 480 Width = 3195 End Begin MSComctlLib.ListView lvwRecipes Height = 1815 Left = 180 TabIndex = 5 Top = 1920 Width = 6615 _ExtentX = 11668 _ExtentY = 3201 View = 3 LabelEdit = 1 LabelWrap = -1 'True HideSelection = -1 'True FullRowSelect = -1 'True _Version = 393217 ForeColor = -2147483640 BackColor = -2147483643 Appearance = 1 NumItems = 2 BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} Text = "Name" Object.Width = 3528 EndProperty BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} SubItemIndex = 1 Text = "Beschreibung" Object.Width = 7585 EndProperty End Begin VisiWinStudioLib.VWSKey keyDelete Height = 375 Left = 5220 TabIndex = 7 Top = 3840 Width = 1575 _cx = 2778 _cy = 661 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "VWSKey1" PictureMonitorOn= "FRecipeDemo.frx":03EA ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 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 Picture = "FRecipeDemo.frx":0406 PictureDown = "FRecipeDemo.frx":0422 PictureDisabled = "FRecipeDemo.frx":043E PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "Löschen" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VWSLanguageLib.VWSIndex idxLabel Height = 255 Index = 2 Left = 240 Top = 1620 Width = 1935 _cx = 3413 _cy = 450 BackStyle = 1 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 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 = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Vorhandene Rezepte" End Begin VWSLanguageLib.VWSIndex idxLabel Height = 255 Index = 1 Left = 240 Top = 900 Width = 1935 _cx = 3413 _cy = 450 BackStyle = 1 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 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 = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Beschreibung" End Begin VisiWinStudioLib.VWSKey keyLoad Height = 375 Left = 180 TabIndex = 2 Top = 3840 Width = 1575 _cx = 2778 _cy = 661 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "VWSKey1" PictureMonitorOn= "FRecipeDemo.frx":045A ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 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 PictureDown = "FRecipeDemo.frx":0476 PictureDisabled = "FRecipeDemo.frx":0492 PictureAlign = 2 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "Laden" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keySave Height = 375 Left = 1860 TabIndex = 1 Top = 3840 Width = 1575 _cx = 2778 _cy = 661 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "VWSKey1" PictureMonitorOn= "FRecipeDemo.frx":04AE ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "-1" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 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 Picture = "FRecipeDemo.frx":04CA PictureDown = "FRecipeDemo.frx":04E6 PictureDisabled = "FRecipeDemo.frx":0502 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "Speichern" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VWSLanguageLib.VWSIndex idxLabel Height = 255 Index = 0 Left = 240 Top = 180 Width = 1935 _cx = 3413 _cy = 450 BackStyle = 1 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 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 = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Rezeptname" End End Begin VisiWinStudioLib.VWSKey keyEnd Height = 555 Left = 7260 TabIndex = 6 Top = 180 Width = 1335 _cx = 2355 _cy = 979 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" PictureMonitorOn= "FRecipeDemo.frx":051E ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 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 Picture = "FRecipeDemo.frx":053A PictureDown = "FRecipeDemo.frx":0556 PictureDisabled = "FRecipeDemo.frx":0572 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "Programm\nbeenden" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End End Attribute VB_Name = "FRecipeDemo" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit 'Anmerkung: <<<<<<<<<<<<<<<<<<<<<<<<<<<< ' Dieses Formular kann als Vorlage in ein Projekt eingefügt werden: ' Kontextmenü des Knotens "Formulare" aufrufen, Menü "Hinzufügen Formular" wählen, ' Kartei "VisiWinStudio-Vorlagen", Verzeichnis "Formulare\Rezeptverwaltung", ' Datei "FVWRecipe" auswählen. 'Bedienung und Arbeitsweise eines Rezeptes: 'Beim ersten Anzeigen des Formulars werden in den VWSVarIn-Steuerelementen 'bei den Rezeptwerte die aktuellen SPS-Werte angezeigt. 'Laden + Bearbeiten '- Eine ausgewählte Rezeptdatei wird in den Rezeptpuffer geladen. '- Die VWSVarIn-Steuerelemente werden in den Rezeptmodus geschaltet (.StartEdit) ' und zeigen die Werte aus dem Rezeptpuffer (also der Datei) an. Die Werte können ' jetzt bearbeitet werden und dann gespeichert oder geschrieben werden. 'Speichern '- Die Werte aus dem Rezeptpuffer (z.z. in den VWSVarIn-Steuerelementen angezeigt) ' werden in die angegebene Rezeptdatei geschrieben. '- VWSVarIn-Steuerelemente werden wieder in den Standard-Anzeigemodus ' geschaltet und zeigen wieder die aktuellen SPS-Werte an. 'Lesen + Bearbeiten '- Die aktuellen SPS-Werte werden in den Rezeptpuffer geladen. '- Die VWSVarIn-Steuerelemente werden in den Rezeptmodus geschaltet (.StartEdit) ' und zeigen die Werte aus dem Rezeptpuffer an. Die Werte können ' jetzt bearbeitet werden und dann gespeichert oder geschrieben werden. 'Schreiben '- Die Werte aus dem Rezeptpuffer (z.z. in den VWSVarIn-Steuerelementen angezeigt) ' werden in die SPS geschrieben. '- VWSVarIn-Steuerelemente werden wieder in den Standard-Anzeigemodus ' geschaltet und zeigen wieder die aktuellen SPS-Werte an. 'Start Edit/Stop Edit (nur zum Testen implementiert) 'Hier können die VWSVarIn-Steuerelemente explizit in den Rezeptmodus geschaltet 'werden (oder zurück). 'Weiteres zu Beachten: '- Bei allen VWSVarIn-Steuerelementen, die für die Rezeptbearbeitung benutzt werden sollen, ' muss die RecipeMember-Eigenschaft auf True gestellt werden. '- Diese Eigenschaft ist auch bei anderen VisiWinStudio-Steuerelementen vorhanden. 'Schnittstellenobjekt zur Rezeptsteuerung Private WithEvents mRecipeControl As VWCOMMONLib.VWSRecipeControl Attribute mRecipeControl.VB_VarHelpID = -1 Private Sub Form_Load() 'Schnittstellenobjekt erzeugen Set mRecipeControl = New VWCOMMONLib.VWSRecipeControl 'und mit dem gewünschten Rezepttyp verbinden mRecipeControl.RecipeClass = "Recipe1" EnumRecipes 'Alle Rezepte auflisten lassen optEditRecipeValues_Click End Sub Private Sub Form_Unload(Cancel As Integer) Set mRecipeControl = Nothing End Sub Private Sub keyEnd_Click() EndProgram End Sub Private Sub keyGet_Click() 'Aktuelle SPS-Werte in der Rezeptpuffer lesen mRecipeControl.GetRecipe 'weiter geht es im Ereignis "mRecipeControl_GetRecipeDone" End Sub Private Sub mRecipeControl_GetRecipeDone(ByVal ErrorCode As Long) 'Die Daten wurden von der SPS gelesen If ErrorCode Then MsgBox ErrorCode, , "Rezept lesen" Else 'Rezeptwerte anzeigen mRecipeControl.StartEdit optEditRecipeValues.State = True End If End Sub Private Sub keySet_Click() 'Rezeptpuffer in die SPS schreiben mRecipeControl.SetRecipe 'weiter geht es im Ereignis "mRecipeControl_SetRecipeDone" End Sub Private Sub mRecipeControl_SetRecipeDone(ByVal ErrorCode As Long) 'Die Daten wurden zur SPS geschrieben If ErrorCode Then MsgBox ErrorCode, , "Rezept schreiben" End If End Sub Private Sub keyLoad_Click() 'Rezeptwerte aus Datei laden mRecipeControl.LoadRecipe txtRecipeName.Text, False 'weiter geht es im Ereignis "mRecipeControl_LoadRecipeDone" End Sub Private Sub mRecipeControl_LoadRecipeDone(ByVal Location As String, ByVal FileName As String, ByVal ErrorCode As Long) 'Der Ladebefehl wurde abgeschlossen If ErrorCode Then MsgBox ErrorCode, , "Rezept laden" Else 'Rezeptwerte anzeigen mRecipeControl.StartEdit optEditRecipeValues.State = True End If End Sub Private Sub keySave_Click() 'Rezeptwerte in Datei speichern If mRecipeControl.IsExistingRecipeFile(txtRecipeName.Text) Then If vbNo = MsgBox("Das Rezept '" & txtRecipeName.Text & "' existiert bereits!" & vbLf & "Soll es überschrieben werden?", vbQuestion + vbYesNo) Then Exit Sub End If End If mRecipeControl.SaveRecipe txtRecipeName.Text, txtDescription.Text, True, False 'weiter geht es im Ereignis "mRecipeControl_SaveRecipeDone" End Sub Private Sub mRecipeControl_SaveRecipeDone(ByVal Location As String, ByVal FileName As String, ByVal ErrorCode As Long) 'Der Speichern-Befehl wurde abgeschlossen If ErrorCode Then MsgBox ErrorCode, , "Rezept speichern" End If 'Die Rezeptliste auffrischen EnumRecipes End Sub Private Sub keyDelete_Click() 'Wenn ein Rezept ausgewählt ist If Not lvwRecipes.SelectedItem Is Nothing Then 'dann löschen mRecipeControl.DeleteRecipe lvwRecipes.SelectedItem.Text txtRecipeName.Text = "" txtDescription.Text = "" 'und Liste neu anzeigen EnumRecipes End If End Sub Private Sub lvwRecipes_ItemClick(ByVal Item As MSComctlLib.ListItem) 'Name und Beschreibung in die Eingabefelder übernehmen txtRecipeName.Text = Item.Text txtDescription.Text = Item.SubItems(1) End Sub Private Sub optEditRecipeValues_Click() On Error Resume Next mRecipeControl.StartEdit If Err.Number Then mRecipeControl.GetRecipe End If End Sub Private Sub optEditPLCValues_Click() mRecipeControl.StopEdit End Sub Private Sub EnumRecipes() 'Vorhandene Rezepte auflisten Dim vFileNames As Variant, vDescriptions As Variant Dim l As Long, itm As MSComctlLib.ListItem lvwRecipes.ListItems.Clear mRecipeControl.EnumRecipeFiles vFileNames, vDescriptions If Not IsEmpty(vFileNames) Then For l = 0 To UBound(vFileNames) Set itm = lvwRecipes.ListItems.Add(, , vFileNames(l)) itm.SubItems(1) = vDescriptions(l) Next l End If End Sub