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.

3091 lines
107 KiB
Plaintext

VERSION 5.00
Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx"
Object = "{3738EEC0-3DAD-4B61-91BB-2B78CEAA6944}#1.0#0"; "VisiWinStudio2.ocx"
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
Object = "{C1B43C67-D439-11D5-8A98-0050BAB20053}#2.3#0"; "VWSFrame.ocx"
Begin VB.Form FSetGet
BackColor = &H00C0C0C0&
BorderStyle = 0 'Kein
Caption = "Form1"
ClientHeight = 11520
ClientLeft = 0
ClientTop = 0
ClientWidth = 15360
LinkTopic = "Form1"
ScaleHeight = 11520
ScaleWidth = 15360
ShowInTaskbar = 0 'False
StartUpPosition = 2 'Bildschirmmitte
Begin VWSItemDemo.XHeader XHeader1
Height = 495
Left = 0
TabIndex = 41
Top = 0
Width = 15360
_ExtentX = 27093
_ExtentY = 873
Caption = "idxCaption"
IndexGroup = "FSetGet"
End
Begin VWSFrameLib.VWSFrame VWSFrame1
Height = 4400
Left = 375
TabIndex = 1
Top = 840
Width = 7005
_ExtentX = 12356
_ExtentY = 7752
BackColor = 12632256
BackColorContainer= 12632256
Caption = "Slider"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontClass = "Tahoma10"
ForeColor = 0
IndexGroup = "FSetGet"
Begin VisiWinStudioLib.VWSVarOut vouSlider3
Height = 390
Left = 4980
Top = 3780
Width = 1650
_cx = 2910
_cy = 688
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
Format = 0
DecPoint = 0
Enabled = -1 'True
AuthorizationMode= 1
Authorization = ""
AddText = ""
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
BackColor = 12632256
ForeColor = 0
VWItem = "Scale3"
Blink = 0
IndexGroup = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudio2Lib.VWSSlider sliSlider3
Height = 435
Left = 6090
TabIndex = 40
Top = 3285
Width = 585
_cx = 1032
_cy = 767
Enabled = -1 'True
AutoSize = -1 'True
Direction = 0
Distance = 200
FocusRect = 0 'False
KeyChange = 1
MaxValue = 10000
MinValue = 0
MouseChange = 1
MouseWrite = 1
Picture = "FSetGet.frx":0000
AuthorizationMode= 0
VWItem = "Scale3"
Blink = 0
KeyDecrease = 0
KeyIncrease = 0
Authorization = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSScale sclSlider3
Height = 3195
Left = 5025
Top = 405
Width = 1065
_cx = 1879
_cy = 5636
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DecPoint = 0
Display = 0
DivsRuler = 10
DivsScale = 2
ForeColorRuler = 0
ForeColorScale = 0
MaxValue = 10000
MinValue = 0
RulerType = 0
ScalePos = 0
Layout = 0
RulerWidth = 0
RulerHeight = 0
ScaleValueAlign = 0
RulerValueAlign = 0
MinorRulerValueAlign= 0
AuthorizationMode= 1
Authorization = ""
UnitConversion = 0
UnitClass = ""
End
Begin VisiWinStudioLib.VWSVarOut vouSlider2
Height = 390
Left = 2655
Top = 3780
Width = 1650
_cx = 2910
_cy = 688
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
Format = 0
DecPoint = 0
Enabled = -1 'True
AuthorizationMode= 1
Authorization = ""
AddText = ""
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
BackColor = 12632256
ForeColor = 0
VWItem = "Scale2"
Blink = 0
IndexGroup = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudio2Lib.VWSSlider sliSlider2
Height = 435
Left = 3720
TabIndex = 39
Top = 3285
Width = 585
_cx = 1032
_cy = 767
Enabled = -1 'True
AutoSize = -1 'True
Direction = 0
Distance = 200
FocusRect = 0 'False
KeyChange = 1
MaxValue = 10000
MinValue = 0
MouseChange = 1
MouseWrite = 1
Picture = "FSetGet.frx":010A
AuthorizationMode= 0
VWItem = "Scale2"
Blink = 0
KeyDecrease = 0
KeyIncrease = 0
Authorization = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSScale sclSlider2
Height = 3195
Left = 2655
Top = 405
Width = 1065
_cx = 1879
_cy = 5636
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DecPoint = 0
Display = 0
DivsRuler = 10
DivsScale = 2
ForeColorRuler = 0
ForeColorScale = 0
MaxValue = 10000
MinValue = 0
RulerType = 0
ScalePos = 0
Layout = 0
RulerWidth = 0
RulerHeight = 0
ScaleValueAlign = 0
RulerValueAlign = 0
MinorRulerValueAlign= 0
AuthorizationMode= 1
Authorization = ""
UnitConversion = 0
UnitClass = ""
End
Begin VisiWinStudioLib.VWSScale sclSlider1
Height = 3195
Left = 330
Top = 405
Width = 1065
_cx = 1879
_cy = 5636
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DecPoint = 0
Display = 0
DivsRuler = 10
DivsScale = 2
ForeColorRuler = 0
ForeColorScale = 0
MaxValue = 10000
MinValue = 0
RulerType = 0
ScalePos = 0
Layout = 0
RulerWidth = 0
RulerHeight = 0
ScaleValueAlign = 0
RulerValueAlign = 0
MinorRulerValueAlign= 0
AuthorizationMode= 1
Authorization = ""
UnitConversion = 0
UnitClass = ""
End
Begin VisiWinStudio2Lib.VWSSlider sliSlider1
Height = 435
Left = 1395
TabIndex = 2
Top = 3285
Width = 585
_cx = 1032
_cy = 767
Enabled = -1 'True
AutoSize = -1 'True
Direction = 0
Distance = 200
FocusRect = 0 'False
KeyChange = 1
MaxValue = 10000
MinValue = 0
MouseChange = 1
MouseWrite = 1
Picture = "FSetGet.frx":0214
AuthorizationMode= 0
VWItem = "Scale1"
Blink = 0
KeyDecrease = 0
KeyIncrease = 0
Authorization = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarOut vouSlider1
Height = 390
Left = 330
Top = 3780
Width = 1650
_cx = 2910
_cy = 688
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
Format = 0
DecPoint = 0
Enabled = -1 'True
AuthorizationMode= 1
Authorization = ""
AddText = ""
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
BackColor = 12632256
ForeColor = 0
VWItem = "Scale1"
Blink = 0
IndexGroup = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
End
Begin VWSItemDemo.XFooter XFooter1
Height = 1110
Left = 0
TabIndex = 0
Top = 10410
Width = 15360
_ExtentX = 27093
_ExtentY = 1958
End
Begin VWSFrameLib.VWSFrame VWSFrame2
Height = 4395
Left = 375
TabIndex = 3
Top = 5640
Width = 7005
_ExtentX = 12356
_ExtentY = 7752
BackColor = 12632256
BackColorContainer= 12632256
Caption = "Input"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontClass = "Tahoma10"
ForeColor = 0
IndexGroup = "FSetGet"
Begin VB.TextBox txtSet10
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
TabIndex = 15
Top = 3135
Width = 2120
End
Begin VB.TextBox txtSet9
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
TabIndex = 14
Top = 2430
Width = 2120
End
Begin VB.TextBox txtSet8
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
TabIndex = 13
Top = 1725
Width = 2120
End
Begin VB.TextBox txtSet7
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
TabIndex = 12
Top = 1020
Width = 2120
End
Begin VB.TextBox txtSet6
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
TabIndex = 11
Top = 315
Width = 2120
End
Begin VB.TextBox txtSet5
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
TabIndex = 10
Top = 3135
Width = 2120
End
Begin VB.TextBox txtSet4
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
TabIndex = 9
Top = 2430
Width = 2120
End
Begin VB.TextBox txtSet3
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
TabIndex = 8
Top = 1725
Width = 2120
End
Begin VB.TextBox txtSet2
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
TabIndex = 7
Top = 1020
Width = 2120
End
Begin VB.TextBox txtSet1
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
TabIndex = 6
Top = 315
Width = 2120
End
Begin VWSLanguageLib.VWSIndex idxSet10
Height = 390
Left = 3620
Top = 3135
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Word:"
End
Begin VWSLanguageLib.VWSIndex idxSet9
Height = 390
Left = 3620
Top = 2430
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "String:"
End
Begin VWSLanguageLib.VWSIndex idxSet8
Height = 390
Left = 3620
Top = 1725
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Short:"
End
Begin VWSLanguageLib.VWSIndex idxSet7
Height = 390
Left = 3620
Top = 1020
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Long:"
End
Begin VWSLanguageLib.VWSIndex idxSet6
Height = 390
Left = 3620
Top = 315
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Float:"
End
Begin VWSLanguageLib.VWSIndex idxSet5
Height = 390
Left = 120
Top = 3135
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "DoubleWord:"
End
Begin VWSLanguageLib.VWSIndex idxSet4
Height = 390
Left = 120
Top = 2430
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Double:"
End
Begin VWSLanguageLib.VWSIndex idxSet3
Height = 390
Left = 120
Top = 1725
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Date:"
End
Begin VWSLanguageLib.VWSIndex idxSet2
Height = 390
Left = 120
Top = 1020
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Char:"
End
Begin VWSLanguageLib.VWSIndex idxSet1
Height = 390
Left = 120
Top = 315
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Byte:"
End
Begin VisiWinStudioLib.VWSKey keySet
Height = 435
Left = 120
TabIndex = 16
Top = 3825
Width = 6750
_cx = 11906
_cy = 767
VWItem = ""
VWItemMonitor = ""
Blink = 0
BitMonitor = 0
CaptionMonitorOn= ""
PictureMonitorOn= "FSetGet.frx":031E
ForeColorMonitorOn= -2147483630
BackColorMonitorOn= -2147483633
IndexGroup = "FSetGet"
AuthorizationMode= 0
Authorization = ""
FontClass = "Tahoma8Bold"
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 = 12632256
ForeColor = 0
BorderColor2D = -2147483630
BackStyle = 1
ButtonStyle = 1
Alignment = 7
FocusRect = -1 'True
Picture = "FSetGet.frx":033A
PictureDown = "FSetGet.frx":0356
PictureDisabled = "FSetGet.frx":0372
PictureAlign = 7
AutoSize = -1 'True
EatsCursorKeys = 0 'False
GlobalHotKey = 0 'False
FocusOnClick = -1 'True
EventOnKeyRepeat= 0 'False
Caption = "WriteValues"
UseMnemonic = 0 'False
Key = 0
DownWhenDisabled= 0 'False
End
End
Begin VWSFrameLib.VWSFrame VWSFrame4
Height = 4395
Left = 7980
TabIndex = 5
Top = 840
Width = 7005
_ExtentX = 12356
_ExtentY = 7752
BackColor = 12632256
BackColorContainer= 12632256
Caption = "Array"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontClass = "Tahoma10"
ForeColor = 0
IndexGroup = "FSetGet"
Begin VisiWinStudioLib.VWSKey VWSKey1
Height = 435
Left = 120
TabIndex = 38
Top = 3825
Width = 6750
_cx = 11906
_cy = 767
VWItem = ""
VWItemMonitor = ""
Blink = 0
BitMonitor = 0
CaptionMonitorOn= ""
PictureMonitorOn= "FSetGet.frx":038E
ForeColorMonitorOn= -2147483630
BackColorMonitorOn= -2147483633
IndexGroup = "FSetGet"
AuthorizationMode= 0
Authorization = ""
FontClass = "Tahoma8Bold"
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 = 12632256
ForeColor = 0
BorderColor2D = -2147483630
BackStyle = 1
ButtonStyle = 1
Alignment = 7
FocusRect = -1 'True
Picture = "FSetGet.frx":03AA
PictureDown = "FSetGet.frx":03C6
PictureDisabled = "FSetGet.frx":03E2
PictureAlign = 7
AutoSize = -1 'True
EatsCursorKeys = 0 'False
GlobalHotKey = 0 'False
FocusOnClick = -1 'True
EventOnKeyRepeat= 0 'False
Caption = "ArrayGet"
UseMnemonic = 0 'False
Key = 0
DownWhenDisabled= 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 9
Left = 6330
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 240
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 8
Left = 5640
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 240
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 7
Left = 4950
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 240
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 6
Left = 4260
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 240
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 5
Left = 3570
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 240
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 4
Left = 2880
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 240
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 3
Left = 2190
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 240
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 2
Left = 1500
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 255
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 1
Left = 810
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 255
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSShape shpByteArray
Height = 2235
Index = 0
Left = 120
Top = 1470
Width = 570
_cx = 1005
_cy = 3942
Enabled = -1 'True
BitNumber = 0
BorderColor = 0
BorderWidth = 1
FillColor8 = 0
FillColor1 = 65280
FillColor2 = 16711680
FillColor3 = 65280
FillColor4 = 65535
FillColor5 = 16777215
FillColor6 = 16711935
FillColor7 = 8421504
FillColorOff = 255
Mode = 0
Offset = 0
Range = 1
Shape = 0
State = 0
AuthorizationMode= 1
Authorization = ""
Blink = 0
BlinkColor = 16776960
VWItem = "__UNLINKED_BOOL"
RecipeMember = 0 'False
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 9
Left = 6330
TabIndex = 37
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":03FE
PicturePendingOn= "FSetGet.frx":041A
PicturePendingOff= "FSetGet.frx":0436
PictureOff = "FSetGet.frx":0452
PictureDown = "FSetGet.frx":046E
PictureDisabled = "FSetGet.frx":048A
PictureDisabledOn= "FSetGet.frx":04A6
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch10"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 8
Left = 5640
TabIndex = 36
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":04C2
PicturePendingOn= "FSetGet.frx":04DE
PicturePendingOff= "FSetGet.frx":04FA
PictureOff = "FSetGet.frx":0516
PictureDown = "FSetGet.frx":0532
PictureDisabled = "FSetGet.frx":054E
PictureDisabledOn= "FSetGet.frx":056A
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch9"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 7
Left = 4950
TabIndex = 35
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":0586
PicturePendingOn= "FSetGet.frx":05A2
PicturePendingOff= "FSetGet.frx":05BE
PictureOff = "FSetGet.frx":05DA
PictureDown = "FSetGet.frx":05F6
PictureDisabled = "FSetGet.frx":0612
PictureDisabledOn= "FSetGet.frx":062E
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch8"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 6
Left = 4260
TabIndex = 34
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":064A
PicturePendingOn= "FSetGet.frx":0666
PicturePendingOff= "FSetGet.frx":0682
PictureOff = "FSetGet.frx":069E
PictureDown = "FSetGet.frx":06BA
PictureDisabled = "FSetGet.frx":06D6
PictureDisabledOn= "FSetGet.frx":06F2
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch7"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 5
Left = 3570
TabIndex = 33
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":070E
PicturePendingOn= "FSetGet.frx":072A
PicturePendingOff= "FSetGet.frx":0746
PictureOff = "FSetGet.frx":0762
PictureDown = "FSetGet.frx":077E
PictureDisabled = "FSetGet.frx":079A
PictureDisabledOn= "FSetGet.frx":07B6
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch6"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 4
Left = 2880
TabIndex = 32
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":07D2
PicturePendingOn= "FSetGet.frx":07EE
PicturePendingOff= "FSetGet.frx":080A
PictureOff = "FSetGet.frx":0826
PictureDown = "FSetGet.frx":0842
PictureDisabled = "FSetGet.frx":085E
PictureDisabledOn= "FSetGet.frx":087A
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch5"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 3
Left = 2190
TabIndex = 31
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":0896
PicturePendingOn= "FSetGet.frx":08B2
PicturePendingOff= "FSetGet.frx":08CE
PictureOff = "FSetGet.frx":08EA
PictureDown = "FSetGet.frx":0906
PictureDisabled = "FSetGet.frx":0922
PictureDisabledOn= "FSetGet.frx":093E
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch4"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 2
Left = 1500
TabIndex = 30
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":095A
PicturePendingOn= "FSetGet.frx":0976
PicturePendingOff= "FSetGet.frx":0992
PictureOff = "FSetGet.frx":09AE
PictureDown = "FSetGet.frx":09CA
PictureDisabled = "FSetGet.frx":09E6
PictureDisabledOn= "FSetGet.frx":0A02
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch3"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 1
Left = 810
TabIndex = 29
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":0A1E
PicturePendingOn= "FSetGet.frx":0A3A
PicturePendingOff= "FSetGet.frx":0A56
PictureOff = "FSetGet.frx":0A72
PictureDown = "FSetGet.frx":0A8E
PictureDisabled = "FSetGet.frx":0AAA
PictureDisabledOn= "FSetGet.frx":0AC6
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch2"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
Begin VisiWinStudio2Lib.VWSSwitch swtByteArray
Height = 1005
Index = 0
Left = 120
TabIndex = 28
Top = 330
Width = 570
_cx = 1005
_cy = 1764
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
BitTrigger = 0
BackColor = -2147483633
BackColorOn = -2147483633
BackColorPending= -2147483633
ForeColor = -2147483630
ForeColorOn = -2147483630
ForeColorPending= -2147483630
SwitchType = 0
SwitchMode = 0
PictureOn = "FSetGet.frx":0AE2
PicturePendingOn= "FSetGet.frx":0AFE
PicturePendingOff= "FSetGet.frx":0B1A
PictureOff = "FSetGet.frx":0B36
PictureDown = "FSetGet.frx":0B52
PictureDisabled = "FSetGet.frx":0B6E
PictureDisabledOn= "FSetGet.frx":0B8A
PictureAlign = 7
FocusRect = -1 'True
AutoSize = -1 'True
EditState = 0
FocusNext = -1 'True
RestoreOnLostFocus= -1 'True
WriteOnReturn = -1 'True
EditControl = 0 'False
EatsCursorKeys = 0 'False
Caption = "VWSSwitch1"
CaptionOn = ""
CaptionPendingOn= ""
CaptionPendingOff= ""
Alignment = 7
UseMnemonic = 0 'False
UseColorOn = 0 'False
ForeColorDown = -2147483630
BackColorDown = -2147483633
BackColorDisabled= -2147483633
BackColorDisabledOn= -2147483633
LEDColorOn = -2147483632
LEDColorOff = 16777215
OptionGroup = -1
OptionMode = 0
DownWhenDisabled= 0 'False
AuthorizationMode= 0
FontClass = ""
RecipeMember = 0 'False
VWItem = "__UNLINKED_BOOL"
VWItemTrigger = ""
Blink = 0
Key = 0
IndexGroup = ""
Authorization = ""
End
End
Begin VWSFrameLib.VWSFrame VWSFrame3
Height = 4395
Left = 7980
TabIndex = 4
Top = 5640
Width = 7005
_ExtentX = 12356
_ExtentY = 7752
BackColor = 12632256
BackColorContainer= 12632256
Caption = "Output"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontClass = "Tahoma10"
ForeColor = 0
IndexGroup = "FSetGet"
Begin VB.TextBox txtGet10
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
TabIndex = 26
Top = 3135
Width = 2120
End
Begin VB.TextBox txtGet9
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
Locked = -1 'True
TabIndex = 25
Top = 2430
Width = 2120
End
Begin VB.TextBox txtGet8
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
TabIndex = 24
Top = 1725
Width = 2120
End
Begin VB.TextBox txtGet7
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
TabIndex = 23
Top = 1020
Width = 2120
End
Begin VB.TextBox txtGet6
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4755
TabIndex = 22
Top = 315
Width = 2120
End
Begin VB.TextBox txtGet5
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
TabIndex = 21
Top = 3135
Width = 2120
End
Begin VB.TextBox txtGet4
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
TabIndex = 20
Top = 2430
Width = 2120
End
Begin VB.TextBox txtGet3
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
TabIndex = 19
Top = 1725
Width = 2120
End
Begin VB.TextBox txtGet2
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
TabIndex = 18
Top = 1020
Width = 2120
End
Begin VB.TextBox txtGet1
Alignment = 2 'Zentriert
BackColor = &H00E3E3E3&
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1260
Locked = -1 'True
TabIndex = 17
Top = 315
Width = 2120
End
Begin VWSLanguageLib.VWSIndex idxGet10
Height = 390
Left = 3620
Top = 3135
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Word:"
End
Begin VWSLanguageLib.VWSIndex idxGet9
Height = 390
Left = 3620
Top = 2430
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "String:"
End
Begin VWSLanguageLib.VWSIndex idxGet8
Height = 390
Left = 3620
Top = 1720
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Short:"
End
Begin VWSLanguageLib.VWSIndex idxGet7
Height = 390
Left = 3620
Top = 1020
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Long:"
End
Begin VWSLanguageLib.VWSIndex idxGet6
Height = 390
Left = 3620
Top = 315
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Float:"
End
Begin VWSLanguageLib.VWSIndex idxGet5
Height = 390
Left = 120
Top = 3135
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "DoubleWord:"
End
Begin VWSLanguageLib.VWSIndex idxGet4
Height = 390
Left = 120
Top = 2430
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Double:"
End
Begin VWSLanguageLib.VWSIndex idxGet3
Height = 390
Left = 120
Top = 1725
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Date:"
End
Begin VWSLanguageLib.VWSIndex idxGet2
Height = 390
Left = 120
Top = 1020
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Char:"
End
Begin VWSLanguageLib.VWSIndex idxGet1
Height = 390
Left = 120
Top = 315
Width = 1125
_cx = 1984
_cy = 688
BackStyle = 0
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
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
BackColorOff = -2147483643
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 = "Byte:"
End
Begin VisiWinStudioLib.VWSKey keyGet
Height = 435
Left = 120
TabIndex = 27
Top = 3825
Width = 6750
_cx = 11906
_cy = 767
VWItem = ""
VWItemMonitor = ""
Blink = 0
BitMonitor = 0
CaptionMonitorOn= ""
PictureMonitorOn= "FSetGet.frx":0BA6
ForeColorMonitorOn= -2147483630
BackColorMonitorOn= -2147483633
IndexGroup = "FSetGet"
AuthorizationMode= 0
Authorization = ""
FontClass = "Tahoma8Bold"
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 = 12632256
ForeColor = 0
BorderColor2D = -2147483630
BackStyle = 1
ButtonStyle = 1
Alignment = 7
FocusRect = -1 'True
Picture = "FSetGet.frx":0BC2
PictureDown = "FSetGet.frx":0BDE
PictureDisabled = "FSetGet.frx":0BFA
PictureAlign = 7
AutoSize = -1 'True
EatsCursorKeys = 0 'False
GlobalHotKey = 0 'False
FocusOnClick = -1 'True
EventOnKeyRepeat= 0 'False
Caption = "ReadValues"
UseMnemonic = 0 'False
Key = 0
DownWhenDisabled= 0 'False
End
End
End
Attribute VB_Name = "FSetGet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
'Eingabefelder auf Ursprungwerte setzen
txtSet1.Text = 0
txtSet2.Text = 0
txtSet3.Text = Date
txtSet4.Text = 0
txtSet5.Text = 0
txtSet6.Text = 0
txtSet7.Text = 0
txtSet8.Text = 0
txtSet9.Text = "ABC"
txtSet10.Text = 0
End Sub
Private Sub keyGet_Click()
'Holen der Variablenwerte und schreiben der Werte in die
'entsprechenden Textfelder
txtGet1.Text = VWGet("Ch2.Simulation.Variables.Byte")
txtGet2.Text = VWGet("Ch2.Simulation.Variables.Char")
txtGet3.Text = VWGet("Ch2.Simulation.Variables.Date")
txtGet4.Text = VWGet("Ch2.Simulation.Variables.Double")
txtGet5.Text = VWGet("Ch2.Simulation.Variables.DoubleWord")
txtGet6.Text = VWGet("Ch2.Simulation.Variables.Float")
txtGet7.Text = VWGet("Ch2.Simulation.Variables.Long")
txtGet8.Text = VWGet("Ch2.Simulation.Variables.Short")
txtGet9.Text = VWGet("Ch2.Simulation.Variables.String")
txtGet10.Text = VWGet("Ch2.Simulation.Variables.Word")
End Sub
Private Sub keySet_Click()
'Schreiben der Werte aus den Textfeldern <20>ber die Funktion VWSet
VWSet "Ch2.Simulation.Variables.Byte", txtSet1.Text
VWSet "Ch2.Simulation.Variables.Char", txtSet2.Text
VWSet "Ch2.Simulation.Variables.Double", txtSet4.Text
VWSet "Ch2.Simulation.Variables.DoubleWord", txtSet5.Text
VWSet "Ch2.Simulation.Variables.Float", txtSet6.Text
VWSet "Ch2.Simulation.Variables.Long", txtSet7.Text
VWSet "Ch2.Simulation.Variables.Short", txtSet8.Text
VWSet "Ch2.Simulation.Variables.String", txtSet9.Text
VWSet "Ch2.Simulation.Variables.Word", txtSet10.Text
'Sonderfall: Das eingegebene Datum muss zuerst in eine
'entsprechende Variable(hier "dt") geschrieben werden.
'Danach kann diese Variable der Funktion "VWSet" <20>bergeben werden
If IsDate(txtSet3.Text) Then
Dim dt As Date
dt = txtSet3.Text
VWSet "Ch2.Simulation.Variables.Date", dt
End If
End Sub
Private Sub swtByteArray_AfterWriteValue(Index As Integer, ByVal PreviousState As Long, ByVal NewState As Long)
'Schreiben eines Wertes in das Array nachdem der entsprechende
'Schalter bet<65>tigt wurde
VWSet "Ch2.Simulation.Array.Byte<[" & Index & "]>", NewState
End Sub
Private Sub txtSet1_Change()
'Raus hier falls das Eingabefeld leer ist
If Len(txtSet1.Text) = 0 Then Exit Sub
'Abfrage ob eine Zahl eingegeben wurde und Abfrage ob der
'Wertebereich eingehalten wurde. Bei einer Fehleingabe wird
'das zuletzt eingegebene Zeichen gel<65>scht.
If Not IsNumeric(txtSet1.Text) Then
txtSet1.Text = Mid(txtSet1.Text, 1, Len(txtSet1.Text) - 1)
txtSet1.SelStart = Len(txtSet1.Text)
ElseIf txtSet1.Text > 255 Or txtSet1.Text < 0 Then
txtSet1.Text = Mid(txtSet1.Text, 1, Len(txtSet1.Text) - 1)
txtSet1.SelStart = Len(txtSet1.Text)
End If
End Sub
Private Sub txtSet10_Change()
'Raus hier falls das Eingabefeld leer ist
If Len(txtSet10.Text) = 0 Then Exit Sub
'Abfrage ob eine Zahl eingegeben wurde und Abfrage ob der
'Wertebereich eingehalten wurde. Bei einer Fehleingabe wird
'das zuletzt eingegebene Zeichen gel<65>scht.
If Not IsNumeric(txtSet10.Text) Then
txtSet10.Text = Mid(txtSet10.Text, 1, Len(txtSet10.Text) - 1)
txtSet10.SelStart = Len(txtSet10.Text)
ElseIf txtSet10.Text > 65535 Or txtSet10.Text < 0 Then
txtSet10.Text = Mid(txtSet10.Text, 1, Len(txtSet10.Text) - 1)
txtSet10.SelStart = Len(txtSet10.Text)
End If
End Sub
Private Sub txtSet2_Change()
'Raus hier falls das Eingabefeld leer ist
If Len(txtSet2.Text) = 0 Then Exit Sub
'Abfrage ob eine Zahl eingegeben wurde und Abfrage ob der
'Wertebereich eingehalten wurde. Bei einer Fehleingabe wird
'das zuletzt eingegebene Zeichen gel<65>scht.
If Not IsNumeric(txtSet2.Text) Then
txtSet2.Text = Mid(txtSet2.Text, 1, Len(txtSet2.Text) - 1)
txtSet2.SelStart = Len(txtSet2.Text)
ElseIf txtSet2.Text > 127 Or txtSet2.Text < 0 Then
txtSet2.Text = Mid(txtSet2.Text, 1, Len(txtSet2.Text) - 1)
txtSet2.SelStart = Len(txtSet2.Text)
End If
End Sub
Private Sub txtSet4_Change()
'Raus hier falls das Eingabefeld leer ist
If Len(txtSet4.Text) = 0 Then Exit Sub
'Abfrage ob eine Zahl eingegeben wurde und gegebenenfalls
'L<>schen des ung<6E>ltigen Zeichens
If Not IsNumeric(txtSet4.Text) Then
If Len(txtSet4.Text) = 1 And txtSet4.Text = "-" Then Exit Sub
txtSet4.Text = Mid(txtSet4.Text, 1, Len(txtSet4.Text) - 1)
txtSet4.SelStart = Len(txtSet4.Text)
End If
End Sub
Private Sub txtSet5_Change()
'Raus hier falls das Eingabefeld leer ist
If Len(txtSet5.Text) = 0 Then Exit Sub
'Abfrage ob eine Zahl eingegeben wurde und Abfrage ob der
'Wertebereich eingehalten wurde. Bei einer Fehleingabe wird
'das zuletzt eingegebene Zeichen gel<65>scht.
If Not IsNumeric(txtSet5.Text) Then
txtSet5.Text = Mid(txtSet5.Text, 1, Len(txtSet5.Text) - 1)
txtSet5.SelStart = Len(txtSet5.Text)
ElseIf txtSet5.Text > 2147483647 Or txtSet5.Text < 0 Then
txtSet5.Text = Mid(txtSet5.Text, 1, Len(txtSet5.Text) - 1)
txtSet5.SelStart = Len(txtSet5.Text)
End If
End Sub
Private Sub txtSet6_Change()
'Raus hier falls das Eingabefeld leer ist
If Len(txtSet6.Text) = 0 Then Exit Sub
'Abfrage ob eine Zahl eingegeben wurde und gegebenenfalls
'L<>schen des ung<6E>ltigen Zeichens
If Not IsNumeric(txtSet6.Text) Then
If Len(txtSet6.Text) = 1 And txtSet6.Text = "-" Then Exit Sub
txtSet6.Text = Mid(txtSet6.Text, 1, Len(txtSet6.Text) - 1)
txtSet6.SelStart = Len(txtSet6.Text)
End If
End Sub
Private Sub txtSet7_Change()
'Raus hier falls das Eingabefeld leer ist
If Len(txtSet7.Text) = 0 Then Exit Sub
'Abfrage ob eine Zahl eingegeben wurde und Abfrage ob der
'Wertebereich eingehalten wurde. Bei einer Fehleingabe wird
'das zuletzt eingegebene Zeichen gel<65>scht.
If Not IsNumeric(txtSet7.Text) Then
If Len(txtSet7.Text) = 1 And txtSet7.Text = "-" Then Exit Sub
txtSet7.Text = Mid(txtSet7.Text, 1, Len(txtSet7.Text) - 1)
txtSet7.SelStart = Len(txtSet7.Text)
ElseIf txtSet7.Text > 2147483647 Or txtSet7.Text < -2147483648# Then
txtSet7.Text = Mid(txtSet7.Text, 1, Len(txtSet7.Text) - 1)
txtSet7.SelStart = Len(txtSet7.Text)
End If
End Sub
Private Sub txtSet8_Change()
'Raus hier falls das Eingabefeld leer ist
If Len(txtSet8.Text) = 0 Then Exit Sub
'Abfrage ob eine Zahl eingegeben wurde und Abfrage ob der
'Wertebereich eingehalten wurde. Bei einer Fehleingabe wird
'das zuletzt eingegebene Zeichen gel<65>scht.
If Not IsNumeric(txtSet8.Text) Then
If Len(txtSet8.Text) = 1 And txtSet8.Text = "-" Then Exit Sub
txtSet8.Text = Mid(txtSet8.Text, 1, Len(txtSet8.Text) - 1)
txtSet8.SelStart = Len(txtSet8.Text)
ElseIf txtSet8.Text > 32767 Or txtSet8.Text < -32768 Then
txtSet8.Text = Mid(txtSet8.Text, 1, Len(txtSet8.Text) - 1)
txtSet8.SelStart = Len(txtSet8.Text)
End If
End Sub
Private Sub VWSKey1_Click()
Dim i As Integer
'Holen der Werte aus dem Array und beschreiben der State-Eigenschaft
'der entsprechenden Shapes
For i = 0 To 9
shpByteArray(i).State = VWGet("Ch2.Simulation.Array.Byte<[" & i & "]>")
Next i
End Sub