pe5api.bas

Atmel Atmeag128 AVR弹片机 随书原码

Global Const PEP_nSMITHCHART = 3800
Global Const PEP_bSMARTGRID = 3801
Global Const PEP_nSHOWPOLARGRID = 3802
Global Const PEP_nZERODEGREEOFFSET = 3803

Global Const PEP_nGROUPINGPERCENT = 3900
Global Const PEP_nCGROUPINGPERCENT = 3905
Global Const PEP_nDATALABELTYPE = 3910
Global Const PEP_nCDATALABELTYPE = 3915
Global Const PEP_nAUTOEXPLODE = 3920

Global Const PEP_szZAXISLABEL = 4000
Global Const PEP_nDEGREEOFROTATION = 4001
Global Const PEP_bALLOWROTATION = 4002
Global Const PEP_bAUTOROTATION = 4003
Global Const PEP_nROTATIONINCREMENT = 4004
Global Const PEP_nROTATIONDETAIL = 4005
Global Const PEP_bALLOWHORZSCROLLBAR = 4006
Global Const PEP_bALLOWVERTSCROLLBAR = 4007
Global Const PEP_nVIEWINGHEIGHT = 4008

Global Const PEP_bSURFACEPOLYGONBORDERS = 4009
Global Const PEP_bNOSURFACEPOLYGONBORDERS = 4009

Global Const PEP_nSHOWBOUNDINGBOX = 4010
Global Const PEP_nROTATIONSPEED = 4011
Global Const PEP_bADDSKIRTS = 4012
Global Const PEP_nPOLYMODE = 4013
Global Const PEP_structPOLYDATA = 4014
Global Const PEP_dwXZBACKCOLOR = 4015
Global Const PEP_dwYBACKCOLOR = 4016
Global Const PEP_dwZAXISCOLOR = 4017
Global Const PEP_nSHOWZAXIS = 4018
Global Const PEP_bMANUALZAXISTICKNLINE = 4019
Global Const PEP_fMANUALZAXISTICK = 4020
Global Const PEP_bZAXISLONGTICKS = 4021
Global Const PEP_fZDISTANCE = 4022
Global Const PEP_bINVERTEDZAXIS = 4023

Global Const PEP_nSHOWCONTOUR = 4024
Global Const PEP_bALLOWCONTOURCONTROL = 4025
Global Const PEP_bSHOWCONTOURLEGENDS = 4026

Global Const PEP_fMANUALCONTOURLINE = 4027
Global Const PEP_fMANUALCONTOURMIN = 4028
Global Const PEP_fMANUALCONTOURMAX = 4029
Global Const PEP_nMANUALCONTOURSCALECONTROL = 4030

Global Const PEP_nSHADINGSTYLE = 4031
Global Const PEP_bRESETGDICACHE = 4032

Global Const PEP_bSHOWZAXISLINEANNOTATIONS = 4035
Global Const PEP_faZAXISLINEANNOTATION = 4036
Global Const PEP_szaZAXISLINEANNOTATIONTEXT = 4037
Global Const PEP_naZAXISLINEANNOTATIONTYPE = 4038
Global Const PEP_dwaZAXISLINEANNOTATIONCOLOR = 4039
Global Const PEP_faGRAPHANNOTATIONZ = 4040

Global Const PEP_bANNOTATIONSONSURFACES = 4041

Global Const PEP_bALLOWWIREFRAME = 4042
Global Const PEP_bALLOWSURFACE = 4043
Global Const PEP_bALLOWSURFACESHADING = 4044
Global Const PEP_bALLOWSURFACECONTOUR = 4045
Global Const PEP_bALLOWSURFACEPIXEL = 4046

Global Const PEP_bUSINGZDATAII = 4047
Global Const PEP_faZDATAII = 4048
Global Const PEP_faAPPENDZDATA = 4049
Global Const PEP_fNULLDATAVALUEZ = 4050

Global Const PEP_nINITIALSCALEFORZDATA = 4051
Global Const PEP_nSCALEFORZDATA = 4052
Global Const PEP_faAPPENDZDATAII = 4053
Global Const PEP_bDEGREEPROMPTING = 4054

Type POINT3D
    x As Single
    y As Single
    Z As Single
End Type

Type POLYGONDATA
    Vertices(0 To 3) As POINT3D
    NumberOfVertices As Long
    PolyColor As Long
    dwReserved1 As Long
    dwReserved2 As Long
End Type

Type Rect
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type

Type GLOBALPROPERTIES
    nObjectType As Long
    szMainTitle As String * 48
    szSubTitle As String * 48
    nSubsets As Long
    nPoints As Long
    bMonoWithSymbols As Long
    nDefOrientation As Long
    nPrepareImages As Long
    b3dDialogs As Long
    bDataShadows As Long
    bAllowCustomization As Long
    bAllowExporting As Long
    bAllowMaximization As Long
    bAllowPopup As Long
    nPageWidth As Long
    nPageHeight As Long
    rectLogicalLoc As Rect
    bCustom As Long
    nViewingStyle As Long
    nCViewingStyle As Long
    dwMonoDeskColor As Long
    dwMonoTextColor As Long
    dwMonoShadowColor As Long
    dwMonoGraphForeColor As Long
    dwMonoGraphBackColor As Long
    dwMonoTableForeColor As Long
    dwMonoTableBackColor As Long
    dwCMonoDeskColor As Long
    dwCMonoTextColor As Long
    dwCMonoShadowColor As Long
    dwCMonoGraphForeColor As Long
    dwCMonoGraphBackColor As Long
    dwCMonoTableForeColor As Long
    dwCMonoTableBackColor As Long
    dwDeskColor As Long
    dwTextColor As Long
    dwShadowColor As Long
    dwGraphForeColor As Long
    dwGraphBackColor As Long
    dwTableForeColor As Long
    dwTableBackColor As Long
    dwCDeskColor As Long
    dwCTextColor As Long
    dwCShadowColor As Long
    dwCGraphForeColor As Long
    dwCGraphBackColor As Long
    dwCTableForeColor As Long
    dwCTableBackColor As Long
    nDataPrecision As Long
    nCDataPrecision As Long
    nFontSize As Long
    nCFontSize As Long
    szMainTitleFont As String * 48
    bMainTitleBold As Long
    bMainTitleItalic As Long
    bMainTitleUnderline As Long
    szCMainTitleFont As String * 48
    bCMainTitleBold As Long
    bCMainTitleItalic As Long
    bCMainTitleUnderline As Long
    szSubTitleFont As String * 48
    bSubTitleBold As Long
    bSubTitleItalic As Long
    bSubTitleUnderline As Long
    szCSubTitleFont As String * 48
    bCSubTitleBold As Long
    bCSubTitleItalic As Long
    bCSubTitleUnderline As Long
    szLabelFont As String * 48
    bLabelBold As Long
    bLabelItalic As Long
    bLabelUnderline As Long
    szCLabelFont As String * 48
    bCLabelBold As Long
    bCLabelItalic As Long
    bCLabelUnderline As Long
    szTableFont As String * 48
    szCTableFont As String * 48
    bAllowSubsetHotSpots As Long
    bAllowPointHotSpots As Long
End Type

Type POINTSTRUCT
    x As Long
    y As Long
End Type

Type PEFILEHDR
   nMajVersion As Long   '// ProEssentials version number
   nMinVersion As Long
   nObjectType As Long
   dwSize As Long
   extra(0 To 7) As Long
End Type

Type SCROLLPARMS
    nVmin As Long '// vertical scrollbar minimum
    nVmax As Long '// vertical scrollbar maximum
    nVpos As Long '// vertical scrollbar position
    nHmin As Long '// horizontal scrollbar minimum
    nHmax As Long '// horizontal scrollbar maximum
    nHpos As Long '// horizontal scrollbar position
End Type

Type HOTSPOTDATA
    HotSpotL As Long
    HotSpotT As Long
    HotSpotR As Long
    HotSpotB As Long
    nHotSpotType As Long
    n1 As Long
    n2 As Long
End Type

Type KEYDOWNDATA
    nChar As Integer
    nRepCnt As Integer
    nFlags As Integer
End Type

Type GRAPHLOC
    nAxis As Long
    fXval As Double
    fYval As Double
End Type

Type TM
    nMonth As Long
    nDay As Long
    nYear As Long
    nHour As Long
    nMinute As Long
    nSecond As Long
    nWeekDay As Long
   nYearDay As Long
End Type

Type EXTRAAXIS
    nSize As Long
    fMin As Double
    fMax As Double
    szLabel As String * 64
    fManualLine As Double
    fManualTick As Double
    szFormat As String * 16
    nShowAxis As Long
    nShowTickMark As Long
    bInvertedAxis As Integer
    bLogScale As Integer
    dwColor As Long
End Type

Type CUSTOMGRIDNUMBERS
    nAxisType As Long   '// 0=Y, 1=RIGHT Y, 2=X, 3=TOP X
    nAxisIndex As Long  '// only used for y and ry axes, index number relates to PEP_nWORKINGAXIS
    dNumber As Double     '// number to format
    szData As String * 48 '// With PEvget, default format string  ...  With PEvset, completed formatted string
End Type

'////// API FUNCTIONS //////'
Declare Function PEsetglobal Lib "PEGRPCL.DLL" (ByVal hObject&, lpdata As GLOBALPROPERTIES) As Long
Declare Function PEgetglobal Lib "PEGRPCL.DLL" (ByVal hObject&, lpdata As GLOBALPROPERTIES) As Long
Declare Function PEvset Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, lpvData As Any, ByVal nItems&) As Long
Declare Function PEvget Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, lpvDest As Any) As Long
Declare Function PEvsetcell Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, ByVal nCell&, lpvData As Any) As Long
Declare Function PEvgetcell Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, ByVal nCell&, lpvDest As Any) As Long
Declare Function PEszset Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, ByVal szData$) As Long
Declare Function PEszget Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, ByVal szData$) As Long
Declare Function PEnset Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, ByVal nData&) As Long
Declare Function PEnget Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&) As Long
Declare Function PElset Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, ByVal nData&) As Long
Declare Function PElget Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&) As Long
Declare Function PEcreate Lib "PEGRPCL.DLL" (ByVal nObjectType&, ByVal dwStyle&, lpRect As Rect, ByVal hParent&, ByVal nId&) As Long
Declare Function PEdestroy Lib "PEGRPCL.DLL" (ByVal hObject&) As Long
Declare Function PEload Lib "PEGRPCL.DLL" (ByVal hObject&, lphGlbl As Any) As Long
Declare Function PEstore Lib "PEGRPCL.DLL" (ByVal hObject&, lphGlbl As Any, lpdwSize As Any) As Long
Declare Function PEloadpartial Lib "PEGRPCL.DLL" (ByVal hObject&, lphGlbl As Any) As Long
Declare Function PEstorepartial Lib "PEGRPCL.DLL" (ByVal hObject&, lphGlbl As Any, lpdwSize As Any) As Long
Declare Function PEgetmeta Lib "PEGRPCL.DLL" (ByVal hObject&) As Long
Declare Function PEresetimage Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nLength&, ByVal nHeight&) As Long
Declare Function PElaunchcustomize Lib "PEGRPCL.DLL" (ByVal hObject&) As Long
Declare Function PElaunchexport Lib "PEGRPCL.DLL" (ByVal hObject&) As Long
Declare Function PElaunchmaximize Lib "PEGRPCL.DLL" (ByVal hObject&) As Long
Declare Function PElaunchtextexport Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal bToFile&, ByVal lpszFilename$) As Long
Declare Function PElaunchprintdialog Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal bFullPage&, lpPoint As POINTSTRUCT) As Long
Declare Function PElaunchcolordialog Lib "PEGRPCL.DLL" (ByVal hObject&) As Long
Declare Function PElaunchfontdialog Lib "PEGRPCL.DLL" (ByVal hObject&) As Long
Declare Function PElaunchpopupmenu Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT) As Long
Declare Function PEreinitialize Lib "PEGRPCL.DLL" (ByVal hObject&) As Long
Declare Function PEreinitializecustoms Lib "PEGRPCL.DLL" (ByVal hObject&) As Long
Declare Function PEgethelpcontext Lib "PEGRPCL.DLL" (ByVal hWnd&) As Long
Declare Function PEcopymetatoclipboard Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT) As Long
Declare Function PEcopymetatofile Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT, ByVal lpszFilename$) As Long
Declare Function PEcopybitmaptoclipboard Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT) As Long
Declare Function PEcopybitmaptofile Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT, ByVal lpszFilename$) As Long
Declare Function PEcopyoletoclipboard Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT) As Long
Declare Function PEprintgraph Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal hDC&, ByVal nWidth&, ByVal nHeight&, ByVal nOrient&) As Long
Declare Function PEconvpixeltograph Lib "PEGRPCL.DLL" (ByVal hObject&, ByRef nAxis&, ByRef nX&, ByRef nY&, ByRef fX#, ByRef fY#, ByVal bRight&, ByVal bTop&, ByVal bVV&) As Long
Declare Function PEreset Lib "PEGRPCL.DLL" (ByVal hObject&) As Long

Declare Function PEgethotspot Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nX&, ByVal nY&) As Long
Declare Function PEvsetEx Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal property&, ByVal nStartingCell&, ByVal nCellCount&, lpdata As Any, lpMemSetValue As Any) As Long
Declare Function PEvgetEx Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal property&, ByVal nStartingCell&, ByVal nCellCount&, lpdata As Any) As Long
Declare Function PEpartialresetimage Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nStartPoint&, ByVal nPointsToAdd&) As Long
Declare Function PEsavetofile Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal lpFileName$) As Long
Declare Function PEloadfromfile Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal lpFileName$) As Long
Declare Function PEcreatefromfile Lib "PEGRPCL.DLL" (ByVal lpFileName$, ByVal hParent&, lpRect As Rect, ByVal nId&) As Long
Declare Function PEcopyjpegtoclipboard Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT) As Long
Declare Function PEcopyjpegtofile Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT, ByVal lpszFilename$) As Long

Declare Function PEresetimageEx Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nExtX, ByVal nExtY, ByVal nOrgX, ByVal nOrgY) As Long
Declare Function PElaunchcustomizeEx Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nPageID) As Long
Declare Function PEcopypngtoclipboard Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT) As Long
Declare Function PEcopypngtofile Lib "PEGRPCL.DLL" (ByVal hObject&, lpPoint As POINTSTRUCT, ByVal lpFileName$) As Long
Declare Function PEcreateserialdate Lib "PEGRPCL.DLL" (pfSerial As Double, dt As TM, ByVal nType) As Long
Declare Function PEdecipherserialdate Lib "PEGRPCL.DLL" (pfSerial As Double, dt As TM, ByVal nType) As Long
Declare Function PEserializetofile Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal lpFileName$) As Long
Declare Function PEvsetcellEx Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, ByVal nSub&, ByVal nPt&, lpvData As Any) As Long
Declare Function PEvgetcellEx Lib "PEGRPCL.DLL" (ByVal hObject&, ByVal nProperty&, ByVal nSub&, ByVal nPt&, lpvDest As Any) As Long
Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As Rect) As Long
Declare Function GlobalLock Lib "Kernel32" (ByVal HGLOBAL&) As Long
Declare Function GlobalUnlock Lib "Kernel32" (ByVal HGLOBAL&) As Long
Declare Function GlobalAlloc Lib "Kernel32" (ByVal nHowTo&, ByVal dwSize As Long) As Long
Declare Function GlobalFree Lib "Kernel32" (ByVal HGLOBAL&) As Long
Declare Function hwrite Lib "Kernel32" Alias "_hwrite" (ByVal HGLOBAL&, lpdata As Any, ByVal dwSize As Long) As Long
Declare Function hread Lib "Kernel32" Alias "_hread" (ByVal HGLOBAL&, lpdata As Any, ByVal dwSize As Long) As Long
Declare Function OpenFile Lib "Kernel32" (ByVal lpszFilename$, lpOFstruct As Any, ByVal nAccess&) As Long
Declare Function lclose Lib "Kernel32" Alias "_lclose" (ByVal hFile&) As Long
Declare Function SetMapMode Lib "gdi32" (ByVal hDC&, ByVal Mode&) As Long
Declare Function SetViewportExtEx Lib "gdi32" (ByVal hDC&, ByVal x&, ByVal y&, lpPoint As Any) As Long
Declare Function SetViewportOrgEx Lib "gdi32" (ByVal hDC&, ByVal x&, ByVal y&, lpPoint As Any) As Long
Declare Function PlayMetaFile Lib "gdi32" (ByVal hDC As Long, ByVal hMF As Long) As Long

Declare Function UpdateWindow Lib "USER32.DLL" (ByVal hObject&) As Long
Declare Function MoveWindow Lib "USER32.DLL" (ByVal hObject&, ByVal nX&, ByVal nY&, ByVal nWidth&, ByVal nHeight&, ByVal bPaint&) As Long
Declare Function InvalidateRect Lib "USER32.DLL" (ByVal hWnd&, lpRect As Any, ByVal bRepaint&) As Long

Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function SelectClipRgn Lib "gdi32" (ByVal hDC As Long, ByVal hRgn As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long