fout.frm

研华PCL-836 VB源代码 研华PCL-836 VB源代码 研华PCL-836 VB源代码

VERSION 5.00
Begin VB.Form formFout 
   Caption         =   "Fout"
   ClientHeight    =   3105
   ClientLeft      =   5640
   ClientTop       =   4950
   ClientWidth     =   6015
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3105
   ScaleWidth      =   6015
   Begin VB.CommandButton btnExit 
      Caption         =   "Exit"
      Height          =   435
      Left            =   4680
      TabIndex        =   8
      Top             =   2280
      Width           =   1095
   End
   Begin VB.CommandButton btnStop 
      Caption         =   "Stop"
      Height          =   435
      Left            =   2520
      TabIndex        =   7
      Top             =   2280
      Width           =   1095
   End
   Begin VB.CommandButton btnStart 
      Caption         =   "Start"
      Height          =   435
      Left            =   240
      TabIndex        =   6
      Top             =   2280
      Width           =   1095
   End
   Begin VB.Frame frmDivider 
      Caption         =   "Divider"
      Height          =   855
      Left            =   4440
      TabIndex        =   5
      Top             =   1200
      Width           =   1455
      Begin VB.TextBox cmbDivider 
         Height          =   285
         Left            =   240
         TabIndex        =   11
         Text            =   "1000"
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.Frame frmFoutSrc 
      Caption         =   "FoutSrc"
      Height          =   855
      Left            =   2430
      TabIndex        =   4
      Top             =   1200
      Width           =   1335
      Begin VB.ComboBox cmbFoutSrc 
         Height          =   315
         ItemData        =   "Fout.frx":0000
         Left            =   120
         List            =   "Fout.frx":001C
         TabIndex        =   10
         Text            =   "10MHZ"
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.Frame frmChannel 
      Caption         =   "Channel"
      Height          =   855
      Left            =   150
      TabIndex        =   3
      Top             =   1200
      Width           =   1335
      Begin VB.ComboBox cmbChannel 
         Height          =   315
         ItemData        =   "Fout.frx":0063
         Left            =   120
         List            =   "Fout.frx":0073
         TabIndex        =   9
         Text            =   "0"
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.Frame frmDeviceSelection 
      Caption         =   "Device Selection"
      Height          =   735
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   5775
      Begin VB.CommandButton btnSelectDevice 
         Caption         =   "Select Device"
         Height          =   375
         Left            =   4080
         TabIndex        =   2
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label labDeviceName 
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   3855
      End
   End
End
Attribute VB_Name = "formFout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ptDevFeatures As DEVFEATURES         ' structure for device features
Dim ptDevGetFeatures As PT_DeviceGetFeatures
Dim ptFreqOutStart As PT_FreqOutStart

Public DeviceNum As Long
Public DriverHandle As Long
Public ErrorNum As Long
Public lBoardID As Long
Public usMaxFoutNum As Integer

Public bRun As Boolean

Private Sub btnExit_Click()
   End
End Sub

Private Sub btnSelectDevice_Click()
   Dim Description As String
   Dim i As Integer

   Description = String(80, vbNullChar)
   ErrorNum = DRV_SelectDevice(hWnd, False, DeviceNum, Description)
   labDeviceName.Caption = Description
   
   ErrorNum = DRV_DeviceOpen(DeviceNum, DriverHandle)
   If CheckError(ErrorNum) <> 0 Then
      Exit Sub
   End If

   ptDevGetFeatures.buffer = DRV_GetAddress(ptDevFeatures)
   'ptDevGetFeatures.size = sizeof(DEVFEATURES)

   ErrorNum = DRV_DeviceGetFeatures(DriverHandle, ptDevGetFeatures)
   If CheckError(ErrorNum) <> 0 Then
      DRV_DeviceClose (DriverHandle)
      Exit Sub
   End If
   
   lBoardID = ptDevFeatures.dwBoardID
   DRV_DeviceClose (DriverHandle)
   'If (lBoardID = BD_PCL836) Then
      usMaxFoutNum = 6
   'End If
   
   cmbChannel.Clear
   While (i < usMaxFoutNum)
     cmbChannel.AddItem (Str(i))
     i = i + 1
   Wend
   
   cmbFoutSrc.Clear
   'If (lBoardID <> BD_PCM3780) Then
     'cmbFoutSrc.AddItem ("External CLK")
   'End If
   'cmbFoutSrc.AddItem ("CLK N")
   'cmbFoutSrc.AddItem ("FOUT N-1")
   cmbFoutSrc.AddItem ("10MHZ")
   'cmbFoutSrc.AddItem ("1MHZ")
   'cmbFoutSrc.AddItem ("100KHZ")
   'cmbFoutSrc.AddItem ("10KHZ")
   'cmbFoutSrc.AddItem ("1KHZ")
   
   cmbFoutSrc.ListIndex = 0
   cmbChannel.ListIndex = 0
     
   bRun = False
End Sub

Private Sub btnStart_Click()
   Dim iSrc As Integer
   ErrorNum = DRV_DeviceOpen(DeviceNum, DriverHandle)
   If CheckError(ErrorNum) <> 0 Then
      Exit Sub
   End If

   ptDevGetFeatures.buffer = DRV_GetAddress(ptDevFeatures)
   'ptDevGetFeatures.size = sizeof(DEVFEATURES)

   ErrorNum = DRV_DeviceGetFeatures(DriverHandle, ptDevGetFeatures)
   If CheckError(ErrorNum) <> 0 Then
      DRV_DeviceClose (DriverHandle)
      Exit Sub
   End If

   ' check number of counter channels
   If ptDevFeatures.usMaxTimerChl = 0 Then
      MsgBox "No Counter Channel", vbInformation, "Driver Message"
      DRV_DeviceClose (DriverHandle)
      Exit Sub
   End If
   
   'start Fout
   iSrc = cmbFoutSrc.ListIndex
   If (lBoardID = BD_PCM3780) Then
      iSrc = iSrc + 1
   End If
   Select Case iSrc
          Case 0
          ptFreqOutStart.usFoutSrc = PA_FOUT_SRC_CLK_10MHZ
          
    End Select
   
  
          ptFreqOutStart.usChannel = Val(cmbChannel.Text)
          ptFreqOutStart.usDivider = Val(cmbDivider.Text)
          
          ErrorNum = DRV_FreqOutStart(DriverHandle, ptFreqOutStart)
          If CheckError(ErrorNum) <> 0 Then
             DRV_DeviceClose (DriverHandle)
             Exit Sub
          End If
          
          frmDeviceSelection.Enabled = False
          frmChannel.Enabled = False
          frmFoutSrc.Enabled = False
          frmDivider.Enabled = False
          btnStart.Enabled = False
          btnExit.Enabled = False
          btnStop.Enabled = True
          bRun = True
             
End Sub

Private Sub btnStop_Click()
    Dim inChannel As Integer
    inChannel = Val(cmbChannel.Text)
    ErrorNum = DRV_FreqOutReset(DriverHandle, inChannel)
    ErrorNum = DRV_DeviceClose(DriverHandle)
    
    frmDeviceSelection.Enabled = True
    frmChannel.Enabled = True
    frmFoutSrc.Enabled = True
    frmDivider.Enabled = True
    btnStart.Enabled = True
    btnExit.Enabled = True
    btnStop.Enabled = False
    bRun = False
    
End Sub

Private Sub Form_Load()
    btnSelectDevice_Click
End Sub

Public Function CheckError(ByVal lErrCde As Long) As Boolean
   Dim szErrMsg As String * 80

   If (lErrCde <> 0) Then
      DRV_GetErrorMessage lErrCde, szErrMsg
      Response = MsgBox(szErrMsg, vbOKOnly, "Error!!")
      CheckError = True
   Else
      CheckError = False
   End If
End Function


Private Sub Form_Terminate()
    If (bRun = True) Then
      Call btnStop_Click
    End If
      
End Sub