frmpelogic.frm

Atmel Atmeag128 AVR弹片机 随书原码

VERSION 5.00
Object = "{47277EC9-90A3-43C8-9CEF-14B6BD34DFA0}#1.0#0"; "Pesgocl.ocx"
Begin VB.Form frmPElogic 
   Caption         =   "LogicAnalyzer"
   ClientHeight    =   6300
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10005
   LinkTopic       =   "Form1"
   ScaleHeight     =   6300
   ScaleWidth      =   10005
   StartUpPosition =   3  'Windows Default
   Begin PESGOCLITELib.PesgoLite Pesgo2 
      Height          =   6015
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   9735
      _Version        =   65536
      _ExtentX        =   17171
      _ExtentY        =   10610
      _StockProps     =   96
      _AllProps       =   "frmPElogic.frx":0000
   End
End
Attribute VB_Name = "frmPElogic"
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.
   
   Pesgo2.Subsets = 5
   Pesgo2.Points = 60
   Pesgo2.PlottingMethod = SGPM_STEP

   '//Set Manual Y scale///
   Pesgo2.ManualScaleControlY = PEMSC_MINMAX
   Pesgo2.ManualMinY = -1
   Pesgo2.ManualMaxY = 6
   
   '//Set Manual X scale///
   'Pesgo2.ManualScaleControlX = PEMSC_MINMAX
   'Pesgo2.ManualMinX = 1
   'Pesgo2.ManualMaxX = 100000
   Pesgo2.ManualScaleControlX = PEMSC_NONE
   
   '//Clear out default data ///
   Pesgo2.XData(0, 0) = 0
   Pesgo2.XData(0, 1) = 0
   Pesgo2.XData(0, 2) = 0
   Pesgo2.XData(0, 3) = 0
   Pesgo2.XData(0, 4) = 0
   Pesgo2.YData(0, 0) = 0
   Pesgo2.YData(0, 1) = 0
   Pesgo2.YData(0, 2) = 0
   Pesgo2.YData(0, 3) = 0
   Pesgo2.YData(0, 4) = 0
   
   ' Set Point Labels
   Pesgo2.SubsetLabels(0) = ""
   Pesgo2.SubsetLabels(1) = "L0"
   Pesgo2.SubsetLabels(2) = "L1"
   Pesgo2.SubsetLabels(3) = "L2"
   Pesgo2.SubsetLabels(4) = "L3"
   Pesgo2.XAxisLabel = "uS"
   Pesgo2.YAxisLabel = ""


   '// Set Various Other Properties ///
   Pesgo2.BitmapGradientMode = False
   Pesgo2.QuickStyle = PEQS_MEDIUM_INSET
   
   '//Set various properties //
   Pesgo2.MainTitle = "Logic Analyzer"
   Pesgo2.SubTitle = ""
   Pesgo2.NoRandomPointsToExport = True
   Pesgo2.FocalRect = False
   Pesgo2.AllowBar = False
   Pesgo2.AllowPopup = False
   Pesgo2.SubsetColors(0) = RGB(0, 198, 0)
   Pesgo2.PrepareImages = True
   Pesgo2.CacheBmp = True
   Pesgo2.FixedFonts = True
   
   Pesgo2.GradientBars = 8
   Pesgo2.TextShadows = PETS_BOLD_TEXT
   Pesgo2.MainTitleBold = True
   Pesgo2.SubTitleBold = True
   Pesgo2.LabelBold = True
   Pesgo2.LineShadows = True
   Pesgo2.FontSize = PEFS_LARGE

   Pesgo2.PEactions = REINITIALIZE_RESETIMAGE
   
   Pesgo2.NullDataValueY = -9999
   
End Sub

Public Sub PELogicGraph(NumPoints As Integer)
    Dim p As Integer
    
    'xDebug.Print "NumPoints ", NumPoints
        For p = 0 To NumPoints - 1
            'Debug.Print ChartArray(0, p), ChartArray(1, p), ChartArray(2, p), _
            '            ChartArray(3, p), ChartArray(4, p)
            Pesgo2.YData(1, p) = ChartArray(1, p)
            Pesgo2.YData(2, p) = ChartArray(2, p)
            Pesgo2.YData(3, p) = ChartArray(3, p)
            Pesgo2.YData(4, p) = ChartArray(4, p)
            Pesgo2.XData(1, p) = ChartArray(0, p)
            Pesgo2.XData(2, p) = ChartArray(0, p)
            Pesgo2.XData(3, p) = ChartArray(0, p)
            Pesgo2.XData(4, p) = ChartArray(0, p)
            'xDebug.Print Pesgo2.XData(1, p)  ', Pesgo2.XData(2, p), _
             '          Pesgo2.XData(3, p), Pesgo2.XData(4, p)
            'xDebug.Print Pesgo2.YData(1, p), Pesgo2.YData(2, p), _
             '           Pesgo2.YData(3, p), Pesgo2.YData(4, p)
        Next
    
    Pesgo2.PEactions = 0
End Sub