home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / MyTicker_C171664362004.psc / Manual.frm < prev    next >
Text File  |  2004-03-06  |  5KB  |  187 lines
  1. VERSION 5.00
  2. Begin VB.Form ManualSample 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5130
  6.    ClientLeft      =   2910
  7.    ClientTop       =   2070
  8.    ClientWidth     =   5295
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   5130
  13.    ScaleWidth      =   5295
  14.    Begin VB.TextBox Edit2 
  15.       Height          =   285
  16.       Left            =   1620
  17.       TabIndex        =   6
  18.       Text            =   "Text1"
  19.       Top             =   4680
  20.       Width           =   645
  21.    End
  22.    Begin VB.CommandButton Command2 
  23.       Caption         =   "Exit"
  24.       Height          =   285
  25.       Left            =   3870
  26.       TabIndex        =   4
  27.       Top             =   4230
  28.       Width           =   825
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "Set"
  32.       Height          =   285
  33.       Left            =   2430
  34.       TabIndex        =   3
  35.       Top             =   4230
  36.       Width           =   825
  37.    End
  38.    Begin VB.TextBox Edit1 
  39.       Height          =   285
  40.       Left            =   1620
  41.       TabIndex        =   2
  42.       Text            =   "Text1"
  43.       Top             =   4230
  44.       Width           =   645
  45.    End
  46.    Begin VB.VScrollBar Scroll 
  47.       Height          =   4335
  48.       Left            =   4950
  49.       TabIndex        =   1
  50.       Top             =   0
  51.       Width           =   285
  52.    End
  53.    Begin VB.Timer Clock 
  54.       Left            =   0
  55.       Top             =   0
  56.    End
  57.    Begin Manual.Ticker Ticker 
  58.       Height          =   3795
  59.       Left            =   90
  60.       TabIndex        =   0
  61.       Top             =   270
  62.       Width           =   4785
  63.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  64.          Name            =   "MS Sans Serif"
  65.          Size            =   8.25
  66.          Charset         =   0
  67.          Weight          =   400
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.    End
  73.    Begin VB.Label Label2 
  74.       Caption         =   "Clock Interval"
  75.       Height          =   195
  76.       Left            =   450
  77.       TabIndex        =   7
  78.       Top             =   4770
  79.       Width           =   1005
  80.    End
  81.    Begin VB.Label Label1 
  82.       Caption         =   "Change Rate:"
  83.       Height          =   195
  84.       Left            =   450
  85.       TabIndex        =   5
  86.       Top             =   4320
  87.       Width           =   1005
  88.    End
  89. End
  90. Attribute VB_Name = "ManualSample"
  91. Attribute VB_GlobalNameSpace = False
  92. Attribute VB_Creatable = False
  93. Attribute VB_PredeclaredId = True
  94. Attribute VB_Exposed = False
  95. Option Explicit
  96.  
  97. Private Sub Clock_Timer()
  98.  
  99.   ' Adjust Caption
  100.   If Ticker.Value = Abs(Scroll.Value) Then
  101.     Caption = "LEVEL"
  102.   Else
  103.     Ticker.Value = Abs(Scroll.Value)
  104.     Caption = "SLOPE"
  105.   End If
  106.   
  107.   ' External clock must set the Value and
  108.   ' call the Update method to display the
  109.   ' the next value
  110.   Ticker.Update
  111.   
  112. End Sub
  113.  
  114. Private Sub Command1_Click()
  115.   ' Update settings
  116.   Ticker.ChangeRate = Val(Edit1)
  117.   Clock.Interval = Val(Edit2)
  118.   Command1.Font.Bold = False
  119. End Sub
  120.  
  121. Private Sub Command2_Click()
  122.   Unload Me
  123. End Sub
  124.  
  125. Private Sub Edit1_Change()
  126.   Command1.Font.Bold = True
  127. End Sub
  128.  
  129. Private Sub Edit2_Change()
  130.   Command1.Font.Bold = True
  131. End Sub
  132.  
  133. Private Sub Form_Load()
  134.   
  135.   ' All settings were set here to show what was used
  136.   With Ticker
  137.     ' Initial values
  138.     .ChangeRate = 0.01
  139.     .Value = 0
  140.     
  141.     ' Special slope mode settings
  142.     .Automatic = True
  143.     .Enabled = False
  144.     
  145.     ' These slope settings will affect the internal target
  146.     ' value while in special slope mode, so they are set to
  147.     ' provide the least interference
  148.     .SlopeInterval = 200000
  149.     .SlopeRate = 0.000001
  150.     
  151.     ' Over-all appearance
  152.     .Appearance = [3D Sunken]
  153.     .ChartStyle = [One Line]
  154.     .TextStyle = [No Text]
  155.     .LineWidth = 3
  156.     
  157.     ' Adding Grid Lines
  158.     .GridInterval = 100  ' Vertical
  159.     
  160.     .GridLines.Add 50    ' Horizontal
  161.     .GridLines.Add 100
  162.     .GridLines.Add 150
  163.     
  164.     ' Value limits
  165.     .ScaleMax = 202
  166.     .ScaleMin = -2
  167.     .ValueMax = 200
  168.     .ValueMin = 0
  169.   End With
  170.   
  171.   ' External clock
  172.   Clock.Interval = 30
  173.   
  174.   ' Init Scroll bar
  175.   Scroll.Min = -Ticker.ValueMax
  176.   Scroll.Max = Ticker.ValueMin
  177.   Scroll.LargeChange = 20
  178.   Scroll.SmallChange = 2
  179.   Scroll.Value = -100
  180.   
  181.   Edit1.Text = "0.01"
  182.   Edit2.Text = "30"
  183.   Command1.Font.Bold = False
  184.   
  185. End Sub
  186.  
  187.