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 ü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" ü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ä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ö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ö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ö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ü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ö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ü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ö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ö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