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.

1608 lines
52 KiB
Plaintext

VERSION 5.00
Object = "{3738EEC0-3DAD-4B61-91BB-2B78CEAA6944}#1.0#0"; "VisiWinStudio2.ocx"
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
Begin VB.Form frmGauge
Caption = "VW-Gauge"
ClientHeight = 9630
ClientLeft = 60
ClientTop = 345
ClientWidth = 15240
ClipControls = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 9630
ScaleWidth = 15240
WhatsThisButton = -1 'True
WhatsThisHelp = -1 'True
WindowState = 2 'Maximized
Begin VB.Frame Frame1
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4215
Left = 165
TabIndex = 16
Top = 555
Width = 7050
Begin VB.OptionButton Option12
Height = 195
Left = 150
TabIndex = 22
Top = 420
Value = -1 'True
Width = 195
End
Begin VB.OptionButton Option11
Height = 195
Left = 150
TabIndex = 21
Top = 1095
Width = 195
End
Begin VB.OptionButton Option10
Height = 195
Left = 150
TabIndex = 20
Top = 1770
Width = 195
End
Begin VB.OptionButton Option9
Height = 195
Left = 150
TabIndex = 19
Top = 2445
Width = 195
End
Begin VB.OptionButton Option8
Height = 195
Left = 150
TabIndex = 18
Top = 3120
Width = 195
End
Begin VB.OptionButton Option7
Height = 195
Left = 150
TabIndex = 17
Top = 3795
Width = 195
End
Begin VWSLanguageLib.VWSIndex VWSIndex29
Height = 270
Left = 120
Top = -15
Width = 2340
_cx = 4128
_cy = 476
BackStyle = 1
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = -2147483633
BackColorOn = -2147483643
ForeColorOff = -2147483640
ForeColorOn = -2147483640
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "MinMax"
End
Begin VWSLanguageLib.VWSIndex VWSIndex1
Height = 225
Left = 420
Top = 390
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Nadel"
End
Begin VWSLanguageLib.VWSIndex VWSIndex6
Height = 225
Left = 420
Top = 3765
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Pfeil2"
End
Begin VWSLanguageLib.VWSIndex VWSIndex5
Height = 225
Left = 420
Top = 3090
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Pfeil1"
End
Begin VWSLanguageLib.VWSIndex VWSIndex4
Height = 225
Left = 420
Top = 2415
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Linie"
End
Begin VWSLanguageLib.VWSIndex VWSIndex3
Height = 225
Left = 405
Top = 1740
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Dreieck"
End
Begin VWSLanguageLib.VWSIndex VWSIndex2
Height = 225
Left = 420
Top = 1065
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "BreiteNadel"
End
Begin VisiWinStudio2Lib.VWSGauge VWSGauge1
Height = 3600
Left = 2430
Top = 390
Width = 4395
_cx = 7752
_cy = 6350
VWItem = "Simulation.Gauge1"
VWItemMaxPointer= ""
VWItemMinPointer= ""
Blink = 0
UnitConversion = 0
RecipeMember = 0 'False
RecipeMemberMinPointer= 0 'False
RecipeMemberMaxPointer= 0 'False
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
ForeColor = 0
Radius = 120
GaugeType = 0
BackStyle = 1
AngleMin = 30
ArcRange = 300
MinValue = 0
MaxValue = 100
TickLabelMargin = -0.1
ShowMainArc = -1 'True
ShowAddArc = 0 'False
ShowMinPointer = -1 'True
ShowMaxPointer = -1 'True
ShowTickLabel = -1 'True
ShowTicks = -1 'True
ArcWidth = 1
ArcColor = 0
TickMajorCount = 11
TickMajorLength = 0.2
TickMajorWidth = 1
TickMinorCount = 4
TickMinorLength = 0.1
TickMinorWidth = 1
TickMajorColor = 0
TickMinorColor = 0
HubColor = 0
PointerColor = 8388608
HubSize = 0.07
PointerSize = 7
PointerMargin = -0.1
PointerStyle = 2
MinPointerValue = 0
MaxPointerValue = 100
MinPointerColor = 16777215
MaxPointerColor = 0
MinPointerStyle = 5
MaxPointerStyle = 5
MinMaxPointerMode= 1
MinPointerSize = 10
MaxPointerSize = 10
MinPointerMargin= 0.01
MaxPointerMargin= 0.01
TickLabelDecPoint= 0
HubOffsetX = 0
HubOffsetY = 0
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
AutoSize = -1 'True
ArcMargin = 0.2
SectionCount = 3
Section1End = 80
Section1Color = 65280
Section2End = 90
Section2Color = 65535
Section3End = 90
Section3Color = 255
Section4End = 90
Section4Color = 33023
Section5Color = 16711680
BackPicture = "frmGauge.frx":0000
PictureAlign = 7
End
End
Begin VB.Frame Frame2
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 8355
Left = 7410
TabIndex = 9
Top = 555
Width = 7680
Begin VWSLanguageLib.VWSIndex VWSIndex15
Height = 270
Left = 120
Top = -15
Width = 1545
_cx = 2725
_cy = 476
BackStyle = 1
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = -2147483633
BackColorOn = -2147483643
ForeColorOff = -2147483640
ForeColorOn = -2147483640
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Verschieden"
End
Begin VWSLanguageLib.VWSIndex VWSIndex13
Height = 225
Left = 5445
Top = 345
Width = 1500
_cx = 2646
_cy = 397
BackStyle = 0
Enabled = -1 'True
Alignment = 7
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Tank"
End
Begin VisiWinStudio2Lib.VWSGauge VWSGauge6
Height = 2835
Left = 4860
Top = 735
Width = 2640
_cx = 4657
_cy = 5001
VWItem = "Simulation.Gauge4"
VWItemMaxPointer= ""
VWItemMinPointer= ""
Blink = 0
UnitConversion = 0
RecipeMember = 0 'False
RecipeMemberMinPointer= 0 'False
RecipeMemberMaxPointer= 0 'False
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
ForeColor = 0
Radius = 160
GaugeType = 0
BackStyle = 1
AngleMin = 90
ArcRange = 90
MinValue = 0
MaxValue = 50
TickLabelMargin = -0.1
ShowMainArc = -1 'True
ShowAddArc = -1 'True
ShowMinPointer = 0 'False
ShowMaxPointer = 0 'False
ShowTickLabel = -1 'True
ShowTicks = -1 'True
ArcWidth = 1
ArcColor = 0
TickMajorCount = 6
TickMajorLength = 0.2
TickMajorWidth = 1
TickMinorCount = 4
TickMinorLength = 0.1
TickMinorWidth = 1
TickMajorColor = 0
TickMinorColor = 0
HubColor = 0
PointerColor = 8388608
HubSize = 0.07
PointerSize = 3
PointerMargin = -0.1
PointerStyle = 0
MinPointerValue = 0
MaxPointerValue = 50
MinPointerColor = 16711680
MaxPointerColor = 16776960
MinPointerStyle = 5
MaxPointerStyle = 5
MinMaxPointerMode= 1
MinPointerSize = 10
MaxPointerSize = 10
MinPointerMargin= 0.01
MaxPointerMargin= 0.01
TickLabelDecPoint= 0
HubOffsetX = 0.8
HubOffsetY = 0.8
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
AutoSize = 0 'False
ArcMargin = 0.2
SectionCount = 2
Section1End = 10
Section1Color = 255
Section2End = 50
Section2Color = -2147483633
Section3End = 50
Section3Color = 255
Section4End = 50
Section4Color = 33023
Section5Color = 16711680
BackPicture = "frmGauge.frx":001C
PictureAlign = 7
End
Begin VisiWinStudio2Lib.VWSGauge VWSGauge5
Height = 3390
Left = 3975
Top = 4680
Width = 3420
_cx = 6032
_cy = 5980
VWItem = "Simulation.Gauge5"
VWItemMaxPointer= ""
VWItemMinPointer= ""
Blink = 0
UnitConversion = 0
RecipeMember = 0 'False
RecipeMemberMinPointer= 0 'False
RecipeMemberMaxPointer= 0 'False
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
ForeColor = 0
Radius = 113
GaugeType = 0
BackStyle = 0
AngleMin = 30
ArcRange = 300
MinValue = 0
MaxValue = 100
TickLabelMargin = -0.1
ShowMainArc = -1 'True
ShowAddArc = 0 'False
ShowMinPointer = -1 'True
ShowMaxPointer = -1 'True
ShowTickLabel = -1 'True
ShowTicks = -1 'True
ArcWidth = 1
ArcColor = 0
TickMajorCount = 11
TickMajorLength = 0.2
TickMajorWidth = 1
TickMinorCount = 4
TickMinorLength = 0.1
TickMinorWidth = 1
TickMajorColor = 0
TickMinorColor = 0
HubColor = 0
PointerColor = 8388608
HubSize = 0.07
PointerSize = 7
PointerMargin = -0.1
PointerStyle = 2
MinPointerValue = 0
MaxPointerValue = 100
MinPointerColor = 16777215
MaxPointerColor = 0
MinPointerStyle = 5
MaxPointerStyle = 5
MinMaxPointerMode= 1
MinPointerSize = 10
MaxPointerSize = 10
MinPointerMargin= 0.01
MaxPointerMargin= 0.01
TickLabelDecPoint= 0
HubOffsetX = 0
HubOffsetY = 0
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
AutoSize = -1 'True
ArcMargin = 0.2
SectionCount = 3
Section1End = 50
Section1Color = 65280
Section2End = 80
Section2Color = 65535
Section3End = 90
Section3Color = 255
Section4End = 90
Section4Color = 33023
Section5Color = 16711680
BackPicture = "frmGauge.frx":0038
PictureAlign = 7
End
Begin VisiWinStudio2Lib.VWSGauge VWSGauge4
Height = 3600
Left = 165
Top = 4560
Width = 3600
_cx = 6350
_cy = 6350
VWItem = "Simulation.Gauge1"
VWItemMaxPointer= ""
VWItemMinPointer= ""
Blink = 0
UnitConversion = 0
RecipeMember = 0 'False
RecipeMemberMinPointer= 0 'False
RecipeMemberMaxPointer= 0 'False
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
ForeColor = 0
Radius = 120
GaugeType = 1
BackStyle = 1
AngleMin = 210
ArcRange = 300
MinValue = 0
MaxValue = 100
TickLabelMargin = -0.1
ShowMainArc = -1 'True
ShowAddArc = 0 'False
ShowMinPointer = -1 'True
ShowMaxPointer = -1 'True
ShowTickLabel = -1 'True
ShowTicks = -1 'True
ArcWidth = 1
ArcColor = 0
TickMajorCount = 11
TickMajorLength = 0.2
TickMajorWidth = 1
TickMinorCount = 4
TickMinorLength = 0.1
TickMinorWidth = 1
TickMajorColor = 0
TickMinorColor = 0
HubColor = 0
PointerColor = 255
HubSize = 0.07
PointerSize = 7
PointerMargin = -0.1
PointerStyle = 2
MinPointerValue = 0
MaxPointerValue = 100
MinPointerColor = 16711680
MaxPointerColor = 16776960
MinPointerStyle = 5
MaxPointerStyle = 5
MinMaxPointerMode= 1
MinPointerSize = 10
MaxPointerSize = 10
MinPointerMargin= 0.01
MaxPointerMargin= 0.01
TickLabelDecPoint= 0
HubOffsetX = 0
HubOffsetY = 0
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
AutoSize = -1 'True
ArcMargin = 0.2
SectionCount = 5
Section1End = 20
Section1Color = 255
Section2End = 40
Section2Color = 65535
Section3End = 60
Section3Color = 65280
Section4End = 80
Section4Color = 65535
Section5Color = 255
BackPicture = "frmGauge.frx":0054
PictureAlign = 7
End
Begin VisiWinStudio2Lib.VWSGauge VWSGauge3
Height = 1845
Left = 390
Top = 915
Width = 4155
_cx = 7329
_cy = 3254
VWItem = "Simulation.Gauge3"
VWItemMaxPointer= ""
VWItemMinPointer= ""
Blink = 0
UnitConversion = 0
RecipeMember = 0 'False
RecipeMemberMinPointer= 0 'False
RecipeMemberMaxPointer= 0 'False
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
ForeColor = 0
Radius = 245
GaugeType = 0
BackStyle = 1
AngleMin = 145
ArcRange = 70
MinValue = -100
MaxValue = 100
TickLabelMargin = -0.1
ShowMainArc = -1 'True
ShowAddArc = 0 'False
ShowMinPointer = -1 'True
ShowMaxPointer = -1 'True
ShowTickLabel = -1 'True
ShowTicks = -1 'True
ArcWidth = 1
ArcColor = 0
TickMajorCount = 11
TickMajorLength = 0.2
TickMajorWidth = 1
TickMinorCount = 1
TickMinorLength = 0.1
TickMinorWidth = 1
TickMajorColor = 0
TickMinorColor = 0
HubColor = 0
PointerColor = 8388608
HubSize = 0.07
PointerSize = 10
PointerMargin = -0.1
PointerStyle = 3
MinPointerValue = -100
MaxPointerValue = 100
MinPointerColor = 16777215
MaxPointerColor = 0
MinPointerStyle = 5
MaxPointerStyle = 5
MinMaxPointerMode= 1
MinPointerSize = 10
MaxPointerSize = 10
MinPointerMargin= 0.01
MaxPointerMargin= 0.01
TickLabelDecPoint= 0
HubOffsetX = 0
HubOffsetY = 3.1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
AutoSize = 0 'False
ArcMargin = 0.2
SectionCount = 5
Section1End = -80
Section1Color = 255
Section2End = -40
Section2Color = 65535
Section3End = 40
Section3Color = 65280
Section4End = 80
Section4Color = 65535
Section5Color = 255
BackPicture = "frmGauge.frx":0070
PictureAlign = 7
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "<22>C"
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5520
TabIndex = 14
Top = 5775
Width = 285
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "Transparent:"
Height = 225
Left = 5160
TabIndex = 13
Top = 4185
Width = 1095
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "Digital:"
Height = 195
Left = 1725
TabIndex = 12
Top = 4185
Width = 585
End
Begin VB.Shape Shape3
BackColor = &H000000FF&
BackStyle = 1 'Opaque
Height = 255
Left = 4140
Shape = 3 'Circle
Top = 3030
Width = 195
End
Begin VB.Shape Shape2
BackColor = &H00000000&
BackStyle = 1 'Opaque
Height = 240
Left = 3825
Shape = 3 'Circle
Top = 3045
Width = 195
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "mV"
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2265
TabIndex = 11
Top = 3000
Width = 405
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Voltmeter:"
Height = 195
Left = 2055
TabIndex = 10
Top = 360
Width = 900
End
Begin VB.Shape Shape1
BackColor = &H00C0C0C0&
BackStyle = 1 'Opaque
Height = 2835
Left = 195
Top = 735
Width = 4545
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 3600
Left = 3885
Picture = "frmGauge.frx":008C
Stretch = -1 'True
Top = 4560
Width = 3600
End
End
Begin VB.CommandButton Command1
Caption = "Reset MinMax-Pointers"
Height = 375
Left = 7410
TabIndex = 2
Top = 9075
Width = 7665
End
Begin VB.Frame Frame3
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 165
TabIndex = 1
Top = 4830
Width = 7050
Begin VB.OptionButton Option6
Height = 195
Left = 150
TabIndex = 8
Top = 4020
Width = 195
End
Begin VB.OptionButton Option5
Height = 195
Left = 150
TabIndex = 7
Top = 3300
Width = 195
End
Begin VB.OptionButton Option4
Height = 195
Left = 150
TabIndex = 6
Top = 2580
Width = 195
End
Begin VB.OptionButton Option3
Height = 195
Left = 150
TabIndex = 5
Top = 1860
Width = 195
End
Begin VB.OptionButton Option2
Height = 195
Left = 150
TabIndex = 4
Top = 1140
Width = 195
End
Begin VB.OptionButton Option1
Height = 195
Left = 150
TabIndex = 3
Top = 420
Value = -1 'True
Width = 195
End
Begin VWSLanguageLib.VWSIndex VWSIndex14
Height = 270
Left = 120
Top = -15
Width = 1440
_cx = 2540
_cy = 476
BackStyle = 1
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = -2147483633
BackColorOn = -2147483643
ForeColorOff = -2147483640
ForeColorOn = -2147483640
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Pointer"
End
Begin VWSLanguageLib.VWSIndex VWSIndex12
Height = 225
Left = 420
Top = 3990
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Pfeil2"
End
Begin VWSLanguageLib.VWSIndex VWSIndex11
Height = 225
Left = 420
Top = 3270
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Pfeil1"
End
Begin VWSLanguageLib.VWSIndex VWSIndex10
Height = 225
Left = 420
Top = 2550
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Linie"
End
Begin VWSLanguageLib.VWSIndex VWSIndex9
Height = 225
Left = 420
Top = 1830
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Dreieck"
End
Begin VWSLanguageLib.VWSIndex VWSIndex8
Height = 225
Left = 420
Top = 1110
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "BreiteNadel"
End
Begin VWSLanguageLib.VWSIndex VWSIndex7
Height = 225
Left = 420
Top = 390
Width = 1500
_cx = 2646
_cy = 397
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
VWItem = ""
Blink = 0
IndexGroup = "Gauge"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "Nadel"
End
Begin VisiWinStudio2Lib.VWSGauge VWSGauge2
Height = 4035
Left = 1770
Top = 360
Width = 5010
_cx = 8837
_cy = 7117
VWItem = "Simulation.Gauge2"
VWItemMaxPointer= ""
VWItemMinPointer= ""
Blink = 0
UnitConversion = 0
RecipeMember = 0 'False
RecipeMemberMinPointer= 0 'False
RecipeMemberMaxPointer= 0 'False
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
ForeColor = 0
Radius = 134
GaugeType = 0
BackStyle = 0
AngleMin = 30
ArcRange = 230
MinValue = 0
MaxValue = 260
TickLabelMargin = -0.1
ShowMainArc = -1 'True
ShowAddArc = -1 'True
ShowMinPointer = -1 'True
ShowMaxPointer = -1 'True
ShowTickLabel = -1 'True
ShowTicks = -1 'True
ArcWidth = 1
ArcColor = 0
TickMajorCount = 14
TickMajorLength = 0.2
TickMajorWidth = 1
TickMinorCount = 3
TickMinorLength = 0.1
TickMinorWidth = 1
TickMajorColor = 0
TickMinorColor = 0
HubColor = 0
PointerColor = 8388608
HubSize = 0.07
PointerSize = 3
PointerMargin = 0
PointerStyle = 0
MinPointerValue = 0
MaxPointerValue = 100
MinPointerColor = 16777215
MaxPointerColor = 0
MinPointerStyle = 5
MaxPointerStyle = 5
MinMaxPointerMode= 1
MinPointerSize = 10
MaxPointerSize = 10
MinPointerMargin= 0.01
MaxPointerMargin= 0.01
TickLabelDecPoint= 0
HubOffsetX = 0
HubOffsetY = 0
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
AutoSize = -1 'True
ArcMargin = 0.2
SectionCount = 3
Section1End = 40
Section1Color = -2147483633
Section2End = 60
Section2Color = 255
Section3End = 90
Section3Color = -2147483633
Section4End = 90
Section4Color = 33023
Section5Color = 16711680
BackPicture = "frmGauge.frx":0212
PictureAlign = 7
End
Begin VB.Label Label10
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "KM/H"
Height = 195
Left = 4065
TabIndex = 15
Top = 1965
Width = 465
End
End
Begin VB.Label Label11
Alignment = 2 'Center
BackColor = &H00E3E3E3&
Caption = "VWSGauge-Control"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00DE8800&
Height = 315
Left = 60
TabIndex = 0
Top = 90
Width = 15195
End
End
Attribute VB_Name = "frmGauge"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
VWSGauge1.ResetMinMaxPointer
VWSGauge2.ResetMinMaxPointer
VWSGauge3.ResetMinMaxPointer
VWSGauge5.ResetMinMaxPointer
End Sub
Private Sub Option12_Click()
VWSGauge1.MinPointerStyle = 0
VWSGauge1.MaxPointerStyle = 0
VWSGauge1.MinPointerSize = 3
VWSGauge1.MaxPointerSize = 3
End Sub
Private Sub Option11_Click()
VWSGauge1.MinPointerStyle = 1
VWSGauge1.MaxPointerStyle = 1
VWSGauge1.MinPointerSize = 2
VWSGauge1.MaxPointerSize = 2
End Sub
Private Sub Option10_Click()
VWSGauge1.MinPointerStyle = 2
VWSGauge1.MaxPointerStyle = 2
VWSGauge1.MinPointerSize = 7
VWSGauge1.MaxPointerSize = 7
End Sub
Private Sub Option9_Click()
VWSGauge1.MinPointerStyle = 3
VWSGauge1.MaxPointerStyle = 3
VWSGauge1.MinPointerSize = 10
VWSGauge1.MaxPointerSize = 10
End Sub
Private Sub Option8_Click()
VWSGauge1.MinPointerStyle = 4
VWSGauge1.MaxPointerStyle = 4
VWSGauge1.MinPointerSize = 10
VWSGauge1.MaxPointerSize = 10
End Sub
Private Sub Option7_Click()
VWSGauge1.MinPointerStyle = 5
VWSGauge1.MaxPointerStyle = 5
VWSGauge1.MinPointerSize = 10
VWSGauge1.MaxPointerSize = 10
End Sub
Private Sub Option1_Click()
VWSGauge2.PointerStyle = 0
VWSGauge2.PointerSize = 3
End Sub
Private Sub Option2_Click()
VWSGauge2.PointerStyle = 1
VWSGauge2.PointerSize = 3
End Sub
Private Sub Option3_Click()
VWSGauge2.PointerStyle = 2
VWSGauge2.PointerSize = 7
End Sub
Private Sub Option4_Click()
VWSGauge2.PointerStyle = 3
VWSGauge2.PointerSize = 20
End Sub
Private Sub Option5_Click()
VWSGauge2.PointerStyle = 4
VWSGauge2.PointerSize = 20
End Sub
Private Sub Option6_Click()
VWSGauge2.PointerStyle = 5
VWSGauge2.PointerSize = 18
End Sub