form1.frm

PCI8408的驱动接口源文件（带示例）

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5130
   ClientLeft      =   2850
   ClientTop       =   4455
   ClientWidth     =   8430
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   11.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5130
   ScaleWidth      =   8430
   Begin VB.ComboBox cobCardNO 
      Height          =   345
      Left            =   1470
      Style           =   2  'Dropdown List
      TabIndex        =   7
      Top             =   270
      Width           =   2130
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   6495
      Top             =   975
   End
   Begin VB.CommandButton Command4 
      Caption         =   "输出010101..."
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   975
      TabIndex        =   3
      Top             =   4140
      Width           =   2955
   End
   Begin VB.CommandButton Command5 
      Caption         =   "输出101010..."
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4395
      TabIndex        =   2
      Top             =   4155
      Width           =   2955
   End
   Begin VB.CommandButton Command6 
      Caption         =   "开关量输入,十六进制显示"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4395
      TabIndex        =   1
      Top             =   3345
      Width           =   2955
   End
   Begin VB.CommandButton Command7 
      Caption         =   "开关量输入,二进制显示"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   975
      TabIndex        =   0
      Top             =   3345
      Width           =   2955
   End
   Begin VB.Label lblBaseAddr 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "板卡基地址"
      Height          =   360
      Left            =   5235
      TabIndex        =   10
      Top             =   315
      Width           =   1800
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "板卡基地址:"
      Height          =   225
      Left            =   3870
      TabIndex        =   9
      Top             =   375
      Width           =   1245
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "选择板卡:"
      Height          =   225
      Left            =   315
      TabIndex        =   8
      Top             =   345
      Width           =   1020
   End
   Begin VB.Label lbl_Err 
      Caption         =   "错误号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   750
      TabIndex        =   6
      Top             =   1095
      Width           =   3255
   End
   Begin VB.Label Label3 
      Caption         =   "Label3"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   750
      TabIndex        =   5
      Top             =   1845
      Width           =   6810
   End
   Begin VB.Label Label5 
      Caption         =   "Label5"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   750
      TabIndex        =   4
      Top             =   2505
      Width           =   6825
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cobCardNO_Click()
'选择板卡
    m_cardNO = cobCardNO.ListIndex + ZT8408_GetBaseNO
    'MsgBox ZT8408_GetDllRefCount
'Exit Sub
    If ZT8408_OpenDevice(m_cardNO) <> 0 Then
        MsgBox "打开设备失败，找不到指定的板卡。"
        Exit Sub
    End If
    lblBaseAddr.Caption = Hex(ZT8408_GetBaseAddr(m_cardNO))
End Sub

Private Sub Command4_Click()
'开关量输出，输出010101...
    ZT8408_DOAll m_cardNO, &H5555 '从16到1
'    ZT8408_DOAll m_cardNO, &HFFFF '从16到1
    lbl_Err.Caption = "错误号：" & ZT8408_GetLastErr  '返回函数执行的状态
End Sub

Private Sub Command5_Click()
'开关量输出，输出101010...
    ZT8408_DOAll m_cardNO, &HAAAA '从16到1
'    ZT8408DOAll m_cardNO, &HFFFFFFFF '从32到1
    lbl_Err.Caption = "错误号：" & ZT8408_GetLastErr  '返回函数执行的状态
End Sub

Private Sub Command6_Click()
'所有通道开关量输入，从16到1，十六进制显示
    Label5.Caption = "DI数据十六进制显示：" & Hex(ZT8408_DIAll(m_cardNO))
    lbl_Err.Caption = "错误号：" & ZT8408_GetLastErr  '返回函数执行的状态
End Sub

Private Sub Command7_Click()
'所有通道开关量输入，从16到1，二进制显示
    Dim outStr As String
    outStr = ""
    For i = 15 To 0 Step -1
        'outStr = ZT8408DIBit(m_m_cardNO, i + 1) & " " & outStr
        outStr = outStr & "" & ZT8408_DIBit(m_cardNO, i + 1)
        If i Mod 4 = 0 Then outStr = outStr & " , "
        'If (i + 1) Mod 4 = 0 Then outStr = " , " & outStr
    Next i
    outStr = IIf(Right(outStr, 3) = " , ", Left(outStr, Len(outStr) - 3), outStr)
    Label3.Caption = "DI数据 二进制 显示：" & outStr
    
    lbl_Err.Caption = "错误号：" & ZT8408_GetLastErr  '返回函数执行的状态
End Sub

Private Sub Form_Load()
'打开设备

    If ZT8408_GetCardCount() <= 0 Then
        MsgBox "打开设备失败，找不到此类板卡。" & vbCrLf & _
               "可能是未插卡或未安装驱动"
        '使所有控件失效
'        For Each ctl In Me.Controls
'            ctl.Enabled = False
'        Next ctl
'        Exit Sub
        End
    End If
    Me.Caption = "系统中已识别的此类板卡的数量为：" & ZT8408_GetCardCount & " 块"
    For i = 0 To ZT8408_GetCardCount - 1
        cobCardNO.AddItem "第 " & i + 1 & " 块卡"
    Next i
    If ZT8408_GetCardCount > 0 Then cobCardNO.ListIndex = 0
    
    Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
'关闭设备
    If ZT8408_CloseDevice(m_cardNO) <> 0 Then
        'MsgBox "关闭设备失败"
    End If
End Sub

Private Sub Timer1_Timer()
    Command7_Click
    Command6_Click
End Sub