home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / RealTime Graphics ActiveX / DATA.3 / Examples / VB / Meters / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-10-20  |  6.1 KB  |  186 lines
  1. VERSION 5.00
  2. Object = "{01BA6E83-DC1A-11D0-A956-00C0F6A06F60}#1.0#0"; "RTMETERX.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   7008
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   9060
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   7008
  11.    ScaleWidth      =   9060
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin RTMETERXLib.RTMETERX RTMETERX3 
  14.       Height          =   3132
  15.       Left            =   5760
  16.       TabIndex        =   2
  17.       Top             =   840
  18.       Width           =   3132
  19.       _Version        =   65536
  20.       _ExtentX        =   5524
  21.       _ExtentY        =   5524
  22.       _StockProps     =   0
  23.       TitleString     =   "Form1.frx":0000
  24.       TitleFont       =   "Form1.frx":002E
  25.       TitleColor      =   "Form1.frx":005A
  26.       TitleFontStyle  =   "Form1.frx":0080
  27.       TitleFontSize   =   "Form1.frx":00A6
  28.       TitlePos        =   "Form1.frx":00CC
  29.       MeterChannelColor=   "Form1.frx":00F2
  30.       MeterChannelTagName=   "Form1.frx":0120
  31.    End
  32.    Begin RTMETERXLib.RTMETERX RTMETERX2 
  33.       Height          =   3612
  34.       Left            =   3360
  35.       TabIndex        =   1
  36.       Top             =   840
  37.       Width           =   1932
  38.       _Version        =   65536
  39.       _ExtentX        =   3408
  40.       _ExtentY        =   6371
  41.       _StockProps     =   0
  42.       TitleString     =   "Form1.frx":013F
  43.       TitleFont       =   "Form1.frx":016D
  44.       TitleColor      =   "Form1.frx":0199
  45.       TitleFontStyle  =   "Form1.frx":01BF
  46.       TitleFontSize   =   "Form1.frx":01E5
  47.       TitlePos        =   "Form1.frx":020B
  48.       MeterChannelColor=   "Form1.frx":0231
  49.       MeterChannelTagName=   "Form1.frx":025F
  50.    End
  51.    Begin RTMETERXLib.RTMETERX RTMETERX1 
  52.       Height          =   2772
  53.       Left            =   120
  54.       TabIndex        =   0
  55.       Top             =   840
  56.       Width           =   2772
  57.       _Version        =   65536
  58.       _ExtentX        =   4890
  59.       _ExtentY        =   4890
  60.       _StockProps     =   0
  61.       TitleString     =   "Form1.frx":027E
  62.       TitleFont       =   "Form1.frx":02AC
  63.       TitleColor      =   "Form1.frx":02D8
  64.       TitleFontStyle  =   "Form1.frx":02FE
  65.       TitleFontSize   =   "Form1.frx":0324
  66.       TitlePos        =   "Form1.frx":034A
  67.       MeterChannelColor=   "Form1.frx":0370
  68.       MeterChannelTagName=   "Form1.frx":039E
  69.    End
  70. Attribute VB_Name = "Form1"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_PredeclaredId = True
  74. Attribute VB_Exposed = False
  75. Option Explicit
  76. Dim rData1(2) As Double
  77. Dim rData2 As Double
  78. Dim rData3 As Double
  79. Private Sub Form_Load()
  80.  Call BuildGraph1
  81.  Call BuildGraph2
  82.  Call BuildGraph3
  83. End Sub
  84. Private Sub BuildGraph1()
  85.     RTMETERX1.MeterType = RTMETER_NEEDLE
  86.     RTMETERX1.MeterNumChannels = 2
  87.     'CENTER AND DIAMETER
  88.     RTMETERX1.MeterCenterX = 0.5
  89.     RTMETERX1.MeterCenterY = 0.4
  90.     RTMETERX1.MeterDiameter = 0.5
  91.     'ARC
  92.     RTMETERX1.MeterStartArc = 135
  93.     RTMETERX1.MeterStopArc = 45
  94.     'NEEDLE
  95.     RTMETERX1.MeterNeedleStyle = NEEDLE_SHORTF
  96.     'COLORS
  97.     RTMETERX1.PlotBackgroundColor = RGB_BLACK
  98.     RTMETERX1.WindowBackgroundColor = RGB_BLACK
  99.     'SCALING
  100.     RTMETERX1.MeterScaleMin = 2#
  101.     RTMETERX1.MeterScaleMax = 5#
  102.         ' starting data values
  103.         rData1(0) = 3.5
  104.         rData1(1) = 4#
  105.     'ALARM ARCS
  106.     RTMETERX1.MeterLowAlarmStop = 2.6
  107.     RTMETERX1.MeterHighAlarmStart = 4.8
  108.     'arc line
  109.     RTMETERX1.MeterArcEnable = False
  110.     RTMETERX1.MeterLineColor = RGB_WHITE
  111.     'tick attributes
  112.     RTMETERX1.MeterTickStep = 0.5
  113.     RTMETERX1.MeterMinorTicks = 4
  114.     RTMETERX1.MeterTickPosition = POS_OUTSIDE
  115.     RTMETERX1.MeterTickLabelsPrecision = 1
  116.     RTMETERX1.MeterTickLabelsPosition = POS_OUTSIDE
  117.     RTMETERX1.MeterTickLabelsColor = RGB_WHITE
  118.     'channel colors
  119.     RTMETERX1.MeterChannelColor(0) = RGB_WHITE
  120.     RTMETERX1.MeterChannelColor(1) = RGB_LIGHTRED
  121.     'ALARMS
  122.     RTMETERX1.MeterNormalAlarmColor = RGB_BLACK
  123.     RTMETERX1.MeterAlarmArcThickness = RTMETERX1.MeterAlarmArcThickness / 4#
  124.     'timer
  125.     RTMETERX1.EnableInternalTimer = True
  126. End Sub
  127. Private Sub BuildGraph2()
  128.     RTMETERX2.MeterType = RTMETER_ARC
  129.     'arcs
  130.     RTMETERX2.MeterStartArc = 270
  131.     RTMETERX2.MeterStopArc = 90
  132.     'title
  133.     RTMETERX2.TitleString(TITLE1) = "Pie Meter"
  134.     'timer
  135.     RTMETERX2.EnableInternalTimer = True
  136.     'size and position
  137.     RTMETERX2.MeterDiameter = 0.6
  138.     RTMETERX2.MeterCenterX = 0.2
  139.     'tick marks
  140.     RTMETERX2.MeterTickPosition = POS_OUTSIDE
  141.     'arc colors
  142.     RTMETERX2.MeterNormalAlarmColor = RGB_WHITE
  143.     RTMETERX2.MeterLowAlarmColor = RGB_LIGHTBLUE
  144.     RTMETERX2.MeterHighAlarmColor = RGB_MAGENTA
  145.         rData2 = 5
  146. End Sub
  147. Private Sub BuildGraph3()
  148.     RTMETERX3.MeterType = RTMETER_PIE
  149.     RTMETERX3.MeterStartArc = 0
  150.     RTMETERX3.MeterStopArc = 345
  151.     RTMETERX3.MeterScaleMin = 0#
  152.     RTMETERX3.MeterScaleMax = 100#
  153.     RTMETERX3.MeterTickStep = 25#
  154.         rData3 = 50#
  155.     'title
  156.     RTMETERX3.TitleString(TITLE1) = "Arc Meter"
  157.     RTMETERX3.TitleFontSize(TITLE1) = 10
  158.     RTMETERX3.TitleColor(TITLE1) = RGB_RED
  159.     RTMETERX3.TitleFontStyle(TITLE1) = TEXT_BOLD Or TEXT_ITAL
  160.     'timer
  161.     RTMETERX3.EnableInternalTimer = True
  162.     'diameter
  163.     RTMETERX3.MeterDiameter = 0.6
  164.     'channel colors
  165.     RTMETERX3.MeterChannelColor(0) = RGB_WHITE
  166.     RTMETERX3.MeterChannelColor(1) = RGB_CYAN
  167.     'arc limits
  168.     RTMETERX3.MeterLowAlarmStart = 0#
  169.     RTMETERX3.MeterLowAlarmStop = 10#
  170.     RTMETERX3.MeterHighAlarmStart = 90#
  171.     RTMETERX3.MeterHighAlarmStop = 100#
  172. End Sub
  173. Private Sub RTMETERX1_OnInternalTimer()
  174.    rData1(0) = rData1(0) + 0.5 * (0.5 - Rnd)
  175.    rData1(1) = rData1(1) + 0.5 * (0.5 - Rnd)
  176.    Call RTMETERX1.UpdateDynData(rData1(0))
  177. End Sub
  178. Private Sub RTMETERX2_OnInternalTimer()
  179.  rData2 = rData2 + (0.5 - Rnd)
  180.    Call RTMETERX2.UpdateDynData(rData2)
  181. End Sub
  182. Private Sub RTMETERX3_OnInternalTimer()
  183.   rData3 = rData3 + 5 * (0.5 - Rnd)
  184.    Call RTMETERX3.UpdateDynData(rData3)
  185. End Sub
  186.