tool.frm

用vb编写的工程控制程序

VERSION 5.00
Object = "{D971F80E-3184-48BE-A5E4-95CFD7FACBE1}#8.0#0"; "拖鞋树XPForm20.ocx"
Begin VB.Form tool 
   BorderStyle     =   0  'None
   Caption         =   "测试工具"
   ClientHeight    =   4725
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7095
   LinkTopic       =   "Form3"
   ScaleHeight     =   4725
   ScaleWidth      =   7095
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin 拖鞋树XPForm2_0.XPForm XPForm1 
      Height          =   4695
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7095
      _ExtentX        =   12515
      _ExtentY        =   8281
      Caption         =   "XP窗体套装控件2.0"
      Caption         =   "XP窗体套装控件2.0"
      Caption         =   "XP窗体套装控件2.0"
      BackColor       =   16773360
      Begin VB.CommandButton Command1 
         Caption         =   "Command1"
         Height          =   375
         Left            =   1920
         TabIndex        =   2
         Top             =   840
         Width           =   975
      End
      Begin VB.TextBox Text1 
         Height          =   855
         Left            =   1560
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   1680
         Width           =   1695
      End
   End
End
Attribute VB_Name = "tool"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Text1.Text = -1 Mod 2
End Sub

Private Sub Form_Load()
 Dim lim As LARGE_INTEGER
    '获得系统板上时钟频率
    QueryPerformanceFrequency lim
    Fre = (lim.Highpart * 2 ^ 16) + lim.Lowpart
End Sub


'timeSetEvent的回调函数
Sub VB_Timer(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, _
    ByVal dw1 As Long, ByVal dw2 As Long)
    Call QueryPerformanceCounter(lagTick1)
    If acpci.i = 1 Then
    Form1.Text1.Text = ((lagTick1.Highpart * 2 ^ 16 + lagTick1.Lowpart) - (lagTick2.Highpart * 2 ^ 16 + lagTick2.Lowpart)) / Fre
    timeKillEvent TimeID
    End If
    lagTick2 = lagTick1
    On Error Resume Next
    Dim S_AD As Single
    Dim xt As Single
    Dim yt As Single
    Dim S_LU As Single
    
    Form1.StatusBar1.Panels(1).Text = "正在运行..."
    If acpci.i < 10 Then acpci.i = acpci.i + 1
   
    'data_AD = AC_6011_AD(NTportio, cardid(0), 0, 1)  '采样
    data_AD = 200
    S_AD = data_AD * 400# / 4095#
    S_LU = lu_bo(S_AD)
    et = acpci.Sr - S_LU
    u = u + pid(et)
    If u > 400 Then u = 400
    If u < -400 Then u = -400
    data_DA = Int(u * 1023 / 400)
    '--------------------------------------改成串口-------
    'data_da = Int(u * 2048 / 400 + 2048)
     ' AC_6011_DA NTportio, cardid(0), 0, data_DA '计算机输出
     '---------串口输出--------
      CMD = &H1   '控制命令 输出
      D1 = data_DA Mod 256
      D2 = data_DA \ 256
     Call send_data(CMD, D1, D2)
     '-----------画图形-----------
     If acpci.i > 1 Then
        Form1.Picture1.DrawWidth = 1.5
        xt = x1 + 20
        yt = S_LU * 10
        Form1.Picture1.Line (x1, y1)-(xt, yt), vbRed
        x1 = xt
        y1 = yt
    Else
        x1 = 0
        y1 = S_LU * 10
     End If
    '--------------'保存采样数据------------------
         Open acpci.FileName For Append As #1
         Print #1, u
         Close #1
        
End Sub