frmchartgiga.frm

Atmel Atmeag128 AVR弹片机 随书原码

VERSION 5.00
Object = "{47277EC9-90A3-43C8-9CEF-14B6BD34DFA0}#1.0#0"; "Pesgocl.ocx"
Begin VB.Form frmChartGiga 
   Caption         =   "Chart Recorder"
   ClientHeight    =   6330
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9795
   LinkTopic       =   "Form1"
   ScaleHeight     =   6330
   ScaleWidth      =   9795
   StartUpPosition =   3  'Windows Default
   Begin PESGOCLITELib.PesgoLite Pesgo1 
      Height          =   5895
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   9375
      _Version        =   65536
      _ExtentX        =   16536
      _ExtentY        =   10398
      _StockProps     =   96
      _AllProps       =   "frmChartGiga.frx":0000
   End
End
Attribute VB_Name = "frmChartGiga"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  
   '//! Chart fills 100 points but x axis is initially
   '//! manually scaled.  Once 100 point have been passed,
   '//! the chart switches to autoscaling the x axis.
   
   Pesgo1.Subsets = 4
   Pesgo1.Points = 60
   
   '//Set Manual Y scale///
   Pesgo1.ManualScaleControlY = PEMSC_MINMAX
   Pesgo1.ManualMinY = -1
   Pesgo1.ManualMaxY = 10
   
   '//Set Manual X scale///
   Pesgo1.ManualScaleControlX = PEMSC_MINMAX
   Pesgo1.ManualMinX = 1
   Pesgo1.ManualMaxX = 100000
   
   '//Clear out default data ///
   Pesgo1.XData(0, 0) = 0
   Pesgo1.XData(0, 1) = 0
   Pesgo1.XData(0, 2) = 0
   Pesgo1.XData(0, 3) = 0
   Pesgo1.YData(0, 0) = 0
   Pesgo1.YData(0, 1) = 0
   Pesgo1.YData(0, 2) = 0
   Pesgo1.YData(0, 3) = 0
   
   ' Set Point Labels
   
   '// Set Various Other Properties ///
   Pesgo1.BitmapGradientMode = False
   Pesgo1.QuickStyle = PEQS_MEDIUM_INSET
   
   '//Set various properties //
   Pesgo1.MainTitle = "Mega Meter"
   Pesgo1.SubTitle = ""
   Pesgo1.NoRandomPointsToExport = True
   Pesgo1.FocalRect = False
   Pesgo1.AllowBar = False
   Pesgo1.AllowPopup = False
   Pesgo1.SubsetColors(0) = RGB(0, 198, 0)
   Pesgo1.PrepareImages = True
   Pesgo1.CacheBmp = True
   Pesgo1.FixedFonts = True
   
   Pesgo1.GradientBars = 8
   Pesgo1.TextShadows = PETS_BOLD_TEXT
   Pesgo1.MainTitleBold = True
   Pesgo1.SubTitleBold = True
   Pesgo1.LabelBold = True
   Pesgo1.LineShadows = True
   Pesgo1.FontSize = PEFS_LARGE

   Pesgo1.PEactions = REINITIALIZE_RESETIMAGE
   
   Pesgo1.NullDataValueY = -9999

   
End Sub

Public Sub PEgraph()
    Dim p As Integer
    For p = 0 To 59
        Pesgo1.YData(1, p) = ChartArray(1, p)
        Pesgo1.YData(2, p) = ChartArray(2, p)
        Pesgo1.YData(3, p) = ChartArray(3, p)
        Pesgo1.XData(1, p) = ChartArray(0, p)
        Pesgo1.XData(2, p) = ChartArray(0, p)
        Pesgo1.XData(3, p) = ChartArray(0, p)
    Next
   'xDebug.Print "P - ", ChartArray(0, p)
   
 '// Switch to AutoScaling x axis after receiving 100 data points ///
    If ChartArray(0, p) > 5000 Then
        Pesgo1.ManualScaleControlX = PEMSC_NONE
    End If
   Pesgo1.PEactions = 0

 
    'Call PEvset(Pesgo1, PEP_faAPPENDYDATA, V1, 100)
    'Call PEvset(Pesgo1, PEP_faAPPENDYDATA, V2, 2)
    'Call PEvset(Pesgo1, PEP_faAPPENDYDATA, I1, 3)
    'Call PEvset(Pesgo1, PEP_faAPPENDXDATA, SampleCount, 1)
End Sub