www.pudn.com > trend.rar > TrendDemo.frm
VERSION 5.00
Object = "{D63CD3D9-C365-11D3-92DE-CE55415B5113}#9.0#0"; "TREND.OCX"
Begin VB.Form Demo
BackColor = &H00808080&
BorderStyle = 1 'Fixed Single
Caption = "CST Trend ActiveX Demo 2.0"
ClientHeight = 8445
ClientLeft = 150
ClientTop = 435
ClientWidth = 11610
Icon = "TrendDemo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8445
ScaleWidth = 11610
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame2
BackColor = &H00808080&
Caption = "Information:"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 975
Left = 630
TabIndex = 59
Top = 2250
Width = 1935
Begin VB.Label lblAbout
BackStyle = 0 'Transparent
Caption = "The ActiveX Library"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 90
MousePointer = 99 'Custom
TabIndex = 67
Top = 300
Width = 1755
End
Begin VB.Label lblProduct
BackStyle = 0 'Transparent
Caption = "CST Product List"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 210
MousePointer = 99 'Custom
TabIndex = 60
Top = 630
Width = 1545
End
End
Begin VB.Frame Frame1
BackColor = &H00808080&
Caption = "ActiveX(LIT):"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 4155
Left = 630
TabIndex = 44
Top = 3330
Width = 1935
Begin VB.Label lblAniline
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Aniline"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 58
Top = 300
Width = 615
End
Begin VB.Label lblAnnunciator
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Annunciator"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 57
Top = 570
Width = 1065
End
Begin VB.Label lblGauge
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Gauge"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 56
Top = 840
Width = 675
End
Begin VB.Label lblNumberLED
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "NumberLED"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 55
Top = 2190
Width = 1305
End
Begin VB.Label lblMeter
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Meter"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 54
Top = 1920
Width = 675
End
Begin VB.Label lblLED
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "LED"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 53
Top = 1650
Width = 525
End
Begin VB.Label lblKnob
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Knob"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 52
Top = 1380
Width = 585
End
Begin VB.Label lblIndicator
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Indiactor"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 51
Top = 1110
Width = 915
End
Begin VB.Label lblPercent
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Percent"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 50
Top = 2730
Width = 855
End
Begin VB.Label lblOdometer
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Odometer"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 49
Top = 2460
Width = 1035
End
Begin VB.Label lblToggle
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Toggle"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 48
Top = 3540
Width = 705
End
Begin VB.Label lblSlider
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Slider"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 47
Top = 3270
Width = 615
End
Begin VB.Label lblSelector
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Selector"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 46
Top = 3000
Width = 855
End
Begin VB.Label lblTrend
BackColor = &H00808080&
BackStyle = 0 'Transparent
Caption = "Trend"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 510
MousePointer = 99 'Custom
TabIndex = 45
Top = 3810
Width = 645
End
End
Begin VB.PictureBox Picture1
BackColor = &H00808080&
Height = 8445
Left = 3080
ScaleHeight = 8385
ScaleWidth = 8475
TabIndex = 0
Top = 0
Width = 8535
Begin VB.CommandButton cmdTimePause
BackColor = &H00FF0000&
Caption = "Pause"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 0
MaskColor = &H00FFFFFF&
TabIndex = 43
Top = 1740
Visible = 0 'False
Width = 735
End
Begin VB.Frame fraStat
Caption = "Stat"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1005
Left = 780
TabIndex = 30
Top = 6300
Width = 7605
Begin VB.Label lblVisibleAvg
Alignment = 2 'Center
BackColor = &H8000000C&
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 285
Left = 6390
TabIndex = 42
Top = 570
Width = 975
End
Begin VB.Label lblVisibleMin
Alignment = 2 'Center
BackColor = &H8000000C&
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 285
Left = 3780
TabIndex = 41
Top = 570
Width = 975
End
Begin VB.Label lblVisibleMax
Alignment = 2 'Center
BackColor = &H8000000C&
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 285
Left = 1290
TabIndex = 40
Top = 570
Width = 975
End
Begin VB.Label lblAvg
Alignment = 2 'Center
BackColor = &H8000000C&
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 285
Left = 6390
TabIndex = 39
Top = 270
Width = 975
End
Begin VB.Label lblMin
Alignment = 2 'Center
BackColor = &H8000000C&
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 285
Left = 3780
TabIndex = 38
Top = 270
Width = 975
End
Begin VB.Label lblMax
Alignment = 2 'Center
BackColor = &H8000000C&
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 285
Left = 1290
TabIndex = 37
Top = 270
Width = 975
End
Begin VB.Label Label6
Caption = "VisibleAvg:"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 5340
TabIndex = 36
Top = 600
Width = 1185
End
Begin VB.Label Label6
Caption = "VisibleMin:"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 2730
TabIndex = 35
Top = 600
Width = 1185
End
Begin VB.Label Label6
Caption = "VisibleMax:"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 210
TabIndex = 34
Top = 570
Width = 1185
End
Begin VB.Label Label6
Caption = "Avg:"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 5550
TabIndex = 33
Top = 270
Width = 405
End
Begin VB.Label Label6
Caption = "Min:"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 2970
TabIndex = 32
Top = 270
Width = 405
End
Begin VB.Label Label6
Caption = "Max:"
BeginProperty Font
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 450
TabIndex = 31
Top = 270
Width = 405
End
End
Begin VB.OptionButton Option3
Caption = "Demo3"
Height = 255
Left = 0
TabIndex = 28
Top = 3420
Width = 765
End
Begin VB.OptionButton Option2
Caption = "Demo2"
Height = 255
Left = 0
TabIndex = 21
Top = 2970
Width = 765
End
Begin VB.OptionButton Option1
Caption = "Demo1"
Height = 315
Left = 0
TabIndex = 20
Top = 2490
Width = 765
End
Begin VB.CommandButton cmdLoadData
Caption = "LoadData"
Height = 375
Left = 7020
TabIndex = 19
Top = 1110
Visible = 0 'False
Width = 975
End
Begin VB.Frame Frame3
Caption = "Set:"
Height = 945
Left = 3360
TabIndex = 9
Top = 7380
Width = 5055
Begin VB.ComboBox cmbValue
Height = 300
ItemData = "TrendDemo.frx":030A
Left = 720
List = "TrendDemo.frx":031D
Style = 2 'Dropdown List
TabIndex = 15
Top = 210
Width = 1095
End
Begin VB.ComboBox cmbGraphType
Height = 300
ItemData = "TrendDemo.frx":0349
Left = 2880
List = "TrendDemo.frx":0359
Style = 2 'Dropdown List
TabIndex = 14
Top = 210
Width = 1125
End
Begin VB.CheckBox chkValueVisible
Caption = "ValueVisible"
Height = 210
Left = 1920
TabIndex = 13
Top = 630
Width = 1425
End
Begin VB.CheckBox chkAreaFill
Caption = "AreaFill"
Height = 180
Left = 3360
TabIndex = 12
Top = 630
Width = 1095
End
Begin VB.ComboBox cmbTrack
Height = 300
ItemData = "TrendDemo.frx":037B
Left = 720
List = "TrendDemo.frx":0385
Style = 2 'Dropdown List
TabIndex = 11
Top = 540
Width = 1095
End
Begin VB.CommandButton cmdSet
BackColor = &H00FF0000&
Caption = "Apply"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4200
MaskColor = &H00FFFFFF&
TabIndex = 10
Top = 210
Width = 765
End
Begin VB.Label Label2
Caption = "Track:"
Height = 255
Left = 150
TabIndex = 18
Top = 570
Width = 585
End
Begin VB.Label Label3
Caption = "GraphType:"
Height = 225
Index = 3
Left = 1920
TabIndex = 17
Top = 270
Width = 945
End
Begin VB.Label Label5
Caption = "Value:"
Height = 255
Left = 150
TabIndex = 16
Top = 240
Width = 585
End
End
Begin VB.Timer Timer1
Interval = 10
Left = 7470
Top = 0
End
Begin VB.CommandButton cmdPause
BackColor = &H00FF0000&
Caption = "Pause"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 0
MaskColor = &H00FFFFFF&
TabIndex = 8
Top = 1320
Width = 735
End
Begin VB.CommandButton cmdPrint
BackColor = &H00FF0000&
Caption = "Print"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 0
MaskColor = &H00FFFFFF&
TabIndex = 7
Top = 900
Width = 735
End
Begin VB.Frame Frame4
Caption = "DisplayMode"
Height = 945
Left = 600
TabIndex = 4
Top = 7380
Width = 1275
Begin VB.OptionButton optDisplayMode
Caption = "Scroll"
Height = 285
Index = 0
Left = 120
TabIndex = 6
Top = 210
Value = -1 'True
Width = 885
End
Begin VB.OptionButton optDisplayMode
Caption = "Sweep"
Height = 285
Index = 1
Left = 120
TabIndex = 5
Top = 570
Width = 885
End
End
Begin VB.Frame Frame5
Caption = "Orientation"
Height = 945
Left = 1920
TabIndex = 1
Top = 7380
Width = 1395
Begin VB.OptionButton optOrientation
Caption = "Horizontal"
Height = 285
Index = 0
Left = 90
TabIndex = 3
Top = 240
Value = -1 'True
Width = 1245
End
Begin VB.OptionButton optOrientation
Caption = "Vertical"
Height = 285
Index = 1
Left = 90
TabIndex = 2
Top = 630
Width = 1215
End
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 1000
Left = 480
Top = 90
End
Begin cstTrend.Trend Trend3
Height = 5175
Left = 780
TabIndex = 29
Top = 1110
Visible = 0 'False
Width = 7635
_ExtentX = 13467
_ExtentY = 9128
BackColor = 12632256
AreaLeft = 0.1
AreaTop = 0.12
BufferSize = 1000
Points = 41
TrackSeparation = 0.05
XDataType = 2
XTicColor = 16711680
XMinorTicNum = 8
XFontID = 1
XLabelFormat = "hh:mm:ss"
DigitalStyle = 1
SweepLineWidth = 2
DecimalNum = 2
StatEnabled = -1 'True
BackPicture0 = "TrendDemo.frx":0399
YTicColor0 = 0
YFontID0 = 1
YLabelOffset0 = -2
LineColor0 = 16711680
LineWidth0 = 2
PointShape0 = 0
DigitalX0 = 0.73
DigitalY0 = 0.06
DigitalColor0 = 16711680
CaptionNum = 1
CaptionText0 = "Time Example"
CaptionX0 = 0.5
CaptionY0 = 0.06
FontNum = 2
BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font1 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderWidth = 3
InLineStyle = 2
End
Begin cstTrend.Trend Trend2
Height = 4965
Left = 990
TabIndex = 22
Top = 1530
Visible = 0 'False
Width = 7035
_ExtentX = 12409
_ExtentY = 8758
AreaLeft = 0.11
AreaRight = 0.95
AreaTop = 0.12
XMax = 200
XMin = -200
XEnd = 100
XStart = -100
XDataType = 1
GridColor = 4259584
BackColor0 = 8421376
BackPicture0 = "TrendDemo.frx":03B5
YMax0 = 200
YMin0 = -200
YEnd0 = 100
YStart0 = -100
LineColor0 = 16777215
LineWidth0 = 2
PointSize0 = 5
CaptionNum = 1
CaptionText0 = "XYGraph Exmaple"
CaptionFontID0 = 1
CaptionX0 = 0.5
CaptionY0 = 0.06
FontNum = 2
BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "ËÎÌå"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font1 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin cstTrend.Trend Trend1
Height = 6855
Left = 750
TabIndex = 23
Top = 480
Width = 7695
_ExtentX = 13573
_ExtentY = 12091
BackColor = 12632256
AreaLeft = 0.11
AreaRight = 0.95
AreaTop = 0.13
AreaBottom = 0.92
BufferSize = 1000
Points = 41
ValueNum = 5
TrackNum = 2
TrackSeparation = 0.05
XTicColor = 16711680
XMinorTicNum = 8
XFontID = 1
DigitalStyle = 1
DigitalFontID = 1
SweepLineWidth = 2
BackPicture0 = "TrendDemo.frx":03D1
YTicColor0 = 0
YFontID0 = 1
YLabelOffset0 = -2
BackColor1 = 16777215
BackPicture1 = "TrendDemo.frx":03ED
BandNum1 = 2
YMajorTicNum1 = 3
YFontID1 = 1
YLabelOffset1 = -2
Track1Band0StartValue= 6
Track1Band0EndValue= 10
Track1Band0Picture= "TrendDemo.frx":0409
Track1Band1Color= 16744448
Track1Band1StartValue= -10
Track1Band1EndValue= -6
Track1Band1Picture= "TrendDemo.frx":0425
GraphType0 = 1
LineColor0 = 16711680
PointShape0 = 0
DigitalX0 = 0.17
DigitalY0 = 0.09
DigitalColor0 = 16711680
AreaFill1 = -1 'True
PointShape1 = 0
DigitalX1 = 0.32
DigitalY1 = 0.09
LineColor2 = 8421440
LineWidth2 = 0
PointSize2 = 4
DigitalX2 = 0.46
DigitalY2 = 0.09
DigitalColor2 = 8421440
TrackID3 = 1
GraphType3 = 2
LineColor3 = 8388736
DigitalX3 = 0.6
DigitalY3 = 0.09
DigitalColor3 = 8388736
TrackID4 = 1
GraphType4 = 3
LineColor4 = 10485760
DigitalX4 = 0.75
DigitalY4 = 0.09
DigitalColor4 = 10485760
CaptionNum = 2
CaptionText0 = "Century Soar Trend"
CaptionColor0 = 8421504
CaptionX0 = 0.5
CaptionY0 = 0.05
CaptionText1 = "Century Soar Trend"
CaptionColor1 = 16711680
CaptionX1 = 0.495
CaptionY1 = 0.041
FontNum = 2
BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font1 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
InLineWidth = 2
OutLineWidth = 2
BorderWidth = 2
InLineStyle = 2
End
Begin VB.Label Label1
AutoSize = -1 'True
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 7620
TabIndex = 27
Top = 4170
Width = 120
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Support Mouse&&Keyboard Scroll"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 585
Index = 0
Left = 1890
TabIndex = 26
Top = 0
Width = 5400
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Support Mouse&&Keyboard Scroll"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 585
Index = 2
Left = 1905
TabIndex = 25
Top = 15
Width = 5400
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Support Mouse&&Keyboard Scroll"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 585
Index = 3
Left = 1860
TabIndex = 24
Top = 0
Width = 5400
End
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Century Soar Technology Co.,Ltd."
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 225
Left = 330
TabIndex = 64
Top = 7860
Width = 2535
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "11.1999"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 195
Left = 1305
TabIndex = 63
Top = 8130
Width = 645
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "CST ActiveX Demo"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 375
Index = 1
Left = 105
TabIndex = 62
Top = 1560
Width = 2925
End
Begin VB.Image Image1
Height = 1275
Left = 990
Picture = "TrendDemo.frx":0441
Top = 150
Width = 1065
End
Begin VB.Label lblWWW
BackStyle = 0 'Transparent
Caption = "WWW.CSTSOFT.COM"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 225
Left = 585
MouseIcon = "TrendDemo.frx":143C
MousePointer = 99 'Custom
TabIndex = 61
Top = 7620
Width = 1935
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "CST ActiveX Demo"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 345
Index = 2
Left = 90
TabIndex = 66
Top = 1545
Width = 3015
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "CST ActiveX Demo"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Index = 0
Left = 105
TabIndex = 65
Top = 1575
Width = 3105
End
Begin VB.Menu menuFile
Caption = "File(&F)"
Begin VB.Menu menuExit
Caption = "Exit(&E)"
End
End
Begin VB.Menu menuDemo
Caption = "ActiveX Demo(&A)"
Enabled = 0 'False
Begin VB.Menu menuAniline
Caption = "Aniline"
End
Begin VB.Menu menuAnnunciator
Caption = "Annunciator"
End
Begin VB.Menu menuGauge
Caption = "Gauge"
End
Begin VB.Menu menuIndicator
Caption = "Indicator"
End
Begin VB.Menu menuKnob
Caption = "Knob"
End
Begin VB.Menu menuLED
Caption = "LED"
End
Begin VB.Menu menuMeter
Caption = "Meter"
End
Begin VB.Menu menuNumberLED
Caption = "NumberLED"
End
Begin VB.Menu menuOdometer
Caption = "Odometer"
End
Begin VB.Menu menuPercent
Caption = "Percent"
End
Begin VB.Menu menuSelector
Caption = "Selector"
End
Begin VB.Menu menuSlider
Caption = "Slider"
End
Begin VB.Menu menuToggle
Caption = "Toggle"
End
Begin VB.Menu menuTrend
Caption = "Trend"
End
End
Begin VB.Menu menuHelp
Caption = "Help(&H)"
Begin VB.Menu menuContents
Caption = "Contents F1"
End
Begin VB.Menu menuLIT
Caption = "About Trend"
End
Begin VB.Menu menuCST
Caption = "About Century Soar"
End
Begin VB.Menu menuSep
Caption = "-"
End
Begin VB.Menu menuHome
Caption = "Century Soar Home Page"
End
End
End
Attribute VB_Name = "Demo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdTimePause_Click()
Timer3.Enabled = Not Timer3.Enabled
If Timer3.Enabled = True Then
cmdTimePause.Caption = "Pause"
Else
cmdTimePause.Caption = "Start"
End If
End Sub
Private Sub Form_Load()
''On Error Resume Next
Set lblAbout.MouseIcon = lblWWW.MouseIcon
Set lblProduct.MouseIcon = lblWWW.MouseIcon
Option1.Value = True
Call Option1_Click
End Sub
Private Sub Form_Unload(Cancel As Integer)
''On Error Resume Next
Set Demo = Nothing
If Not frmLIT Is Nothing Then Unload frmLIT
If Not Product Is Nothing Then Unload Product
End Sub
Private Sub menuExit_Click()
''On Error Resume Next
Unload Me
End Sub
Private Sub menuContents_Click()
''On Error Resume Next
SendKeys "{F1}"
End Sub
Private Sub menuLIT_Click()
''On Error Resume Next
Trend1.ShowAbout
End Sub
Private Sub menuCST_Click()
''On Error Resume Next
lblAbout_Click
End Sub
Private Sub menuHome_Click()
''On Error Resume Next
lblwww_Click
End Sub
Private Sub lblAbout_Click()
''On Error Resume Next
frmLIT.Show
End Sub
Private Sub lblProduct_Click()
''On Error Resume Next
Product.Show
End Sub
Private Sub lblwww_Click()
''On Error Resume Next
Shell "c:\program files\internet explorer\iexplore.exe http://www.cstsoft.com", 3
End Sub
Private Sub lblAbout_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
''On Error Resume Next
lblAbout.ForeColor = vbYellow
lblProduct.ForeColor = vbBlue
End Sub
Private Sub lblProduct_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
''On Error Resume Next
lblAbout.ForeColor = vbBlue
lblProduct.ForeColor = vbYellow
End Sub
Private Sub cmbValue_Click()
On Error GoTo RunEnd
Dim i As Long
i = cmbValue.ListIndex
With Trend1
cmbGraphType.ListIndex = .TrackLine(i).GraphType
cmbTrack.ListIndex = .TrackLine(i).TrackID
chkValueVisible.Value = (.TrackLine(i).LineVisible And vbChecked)
chkAreaFill.Value = (.TrackLine(i).AreaFill And vbChecked)
End With
RunEnd:
Exit Sub
End Sub
Private Sub cmdPause_Click()
'On Error Resume Next
Timer1.Enabled = Not Timer1.Enabled
If Timer1.Enabled = True Then
cmdPause.Caption = "Pause"
Else
cmdPause.Caption = "Start"
End If
End Sub
Private Sub cmdPrint_Click()
'On Error Resume Next
Trend1.PrintPic 6, 30, 30
End Sub
Private Sub cmdSet_Click()
On Error GoTo RunEnd
Dim ValueID As Long, TrackID As Long, GraphType As Long
Dim ValueVisible As Boolean, AreaFill As Boolean
ValueID = cmbValue.ListIndex
If ValueID < 0 Then ValueID = 0
TrackID = cmbTrack.ListIndex
If TrackID < 0 Then TrackID = 0
GraphType = cmbGraphType.ListIndex
If GraphType < 0 Then GraphType = 0
ValueVisible = chkValueVisible.Value
AreaFill = chkAreaFill.Value
With Trend1
.TrackLine(ValueID).TrackID = TrackID
.TrackLine(ValueID).GraphType = GraphType
.TrackLine(ValueID).LineVisible = ValueVisible
.TrackLine(ValueID).AreaFill = AreaFill
.Refresh
End With
RunEnd:
Exit Sub
End Sub
Private Sub optDisplayMode_Click(Index As Integer)
'On Error Resume Next
Trend1.DisplayMode = Index
End Sub
Private Sub Option1_Click()
'On Error Resume Next
Frame5.Visible = True
Frame4.Visible = True
Frame3.Visible = True
cmdPrint.Visible = True
cmdPause.Visible = True
Timer1.Enabled = True
cmdPause.Caption = "Pause"
Trend1.Visible = True
Trend2.Visible = False
Trend3.Visible = False
fraStat.Visible = False
cmdTimePause.Visible = False
Timer3.Enabled = False
cmdLoadData.Visible = False
End Sub
Private Sub Option2_Click()
'On Error Resume Next
Frame5.Visible = False
Frame4.Visible = False
Frame3.Visible = False
cmdPrint.Visible = False
cmdPause.Visible = False
Timer1.Enabled = False
Trend1.Visible = False
Trend3.Visible = False
fraStat.Visible = False
cmdPause.Visible = False
Timer3.Enabled = False
Trend2.Visible = True
cmdLoadData.Visible = True
End Sub
Private Sub Option3_Click()
'On Error Resume Next
Frame5.Visible = False
Frame4.Visible = False
Frame3.Visible = False
cmdPrint.Visible = False
cmdPause.Visible = False
Timer1.Enabled = False
Trend1.Visible = False
Trend2.Visible = False
cmdLoadData.Visible = False
Trend3.Visible = True
fraStat.Visible = True
cmdTimePause.Visible = True
Timer3.Enabled = True
cmdTimePause.Caption = "Pause"
Trend3.XMin = Time
Trend3.XMax = Trend3.XMin + 1 / 24 / 60
Trend3.XStart = Trend3.XMin
Trend3.XSpan = 1 / 24 / 60
End Sub
Private Sub optOrientation_Click(Index As Integer)
'On Error Resume Next
Trend1.Orientation = Index
End Sub
Private Sub Timer1_Timer()
On Error GoTo RunEnd
Static Angle As Integer
Dim Value1 As Single, Value2 As Single, Value3 As Single, Value4 As Single, Value5 As Single
With Trend1
Value1 = 5 + Abs(4.5 * Sin((Angle + 30) * 2 * 3.1415927 / 180))
.AddY 0, Value1
Value2 = 4 * Sin((Angle + 30) * 2 * 3.1415927 / 270)
.AddY 1, Value2
Value3 = 8 * Sin((Angle + 30) * 2 * 3.1415927 / 360)
.AddY 2, Value3
If Value3 > 5 Or Value3 < -5 Then
Value4 = 1
Else
Value4 = 0
End If
.AddY 3, Value4
Value5 = Value3 - 1
.AddY 4, Value5
.Refresh
End With
Angle = Angle + 10
If Angle > 3600 Then Angle = 0
RunEnd:
Exit Sub
End Sub
Private Sub cmdLoadData_Click()
On Error GoTo RunEnd
Dim i As Long
Dim XData As Single, YData As Single
With Trend2
For i = 0 To 99
XData = 90 * Sin(3.14159265 * i / 10)
YData = 90 * Cos(3.14159265 * i / 20) * 1.2
.AddXY 0, YData, XData
Next
.Refresh
End With
RunEnd:
Exit Sub
End Sub
Private Sub Timer3_Timer()
'On Error Resume Next
Static i As Long
Dim Value As Single
With Trend3
Value = Sin(3.14159265 * i / 52) * 9 * Rnd
.AddXY 0, Time, Value
.Refresh
i = i + 1
If i > 500 Then i = 0
lblMax.Caption = Format$(.StatMax(0), "##0.00")
lblMax.Refresh
lblMin.Caption = Format$(.StatMin(0), "##0.00")
lblMin.Refresh
lblAvg.Caption = Format$(.StatAvg(0), "##0.00")
lblAvg.Refresh
lblVisibleMax.Caption = Format$(.VisibleStatMax(0), "##0.00")
lblVisibleMax.Refresh
lblVisibleMin.Caption = Format$(.VisibleStatMin(0), "##0.00")
lblVisibleMin.Refresh
lblVisibleAvg.Caption = Format$(.VisibleStatAvg(0), "##0.00")
lblVisibleAvg.Refresh
End With
End Sub