|
|
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<65>gt werden:
|
|
|
' Kontextmen<65> des Knotens "Formulare" aufrufen, Men<65> "Hinzuf<75>gen Formular" w<>hlen,
|
|
|
' Kartei "VisiWinStudio-Vorlagen", Verzeichnis "Formulare\Rezeptverwaltung",
|
|
|
' Datei "FVWRecipe" ausw<73>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<65>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<75>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<65>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 <20>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<65>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 <20>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
|
|
|
|
|
|
|
|
|
|