datadisp.frm

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

VERSION 5.00
Begin VB.Form frmDataDisp 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Advantech Demo: Data display"
   ClientHeight    =   3585
   ClientLeft      =   2745
   ClientTop       =   2745
   ClientWidth     =   3705
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3585
   ScaleWidth      =   3705
   Begin VB.ListBox DataList 
      Height          =   3375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3495
   End
   Begin VB.Menu file 
      Caption         =   "&File"
      Begin VB.Menu ExitDisp 
         Caption         =   "E&xit"
      End
   End
End
Attribute VB_Name = "frmDataDisp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub ExitDisp_Click()
    Unload frmDataDisp
End Sub

Private Sub Form_Load()
    Dim i As Long
    Dim ptFAIData As PT_FAITransfer
    Dim sDataBuffer() As Single
    Dim iDataBuffer() As Integer
    Dim wOverrun As Integer

    'Stop Timer action
    frmRun.FAIChkTmr.Enabled = False

    'Stop AI conversion
    ErrCde = DRV_FAITerminate(DeviceHandle)
    If (ChkErr(ErrCde) = 1) Then
       DRV_DeviceClose (DeviceHandle)
       Exit Sub
    End If

    'Get the AI conversion data
    ptFAIData.Overrun = DRV_GetAddress(wOverrun)
    ptFAIData.Count = ptAiStart.Count
    ptFAIData.start = 0                    'Start from buffer begging
    ptFAIData.DataType = frmSelDev.chkFloatData.value
    ptFAIData.ActiveBuf = 0                'Single buffer

    'If want floating data
    If (ptFAIData.DataType) = 1 Then
        ReDim sDataBuffer(ptFAIData.Count)
        ptFAIData.DataBuffer = DRV_GetAddress(sDataBuffer(0))
    'Else need Raw data
    Else
        ReDim iDataBuffer(ptFAIData.Count)
        ptFAIData.DataBuffer = DRV_GetAddress(iDataBuffer(0))
    End If

    'Read data from driver
    ErrCde = DRV_FAITransfer(DeviceHandle, ptFAIData)
    If (ChkErr(ErrCde) = 1) Then
        ReDim sDataBuffer(0)
        ReDim iDataBuffer(0)
        DRV_DeviceClose (DeviceHandle)
        Exit Sub
    End If

    'Save data to data show screen
    frmDataDisp.DataList.Clear

    For i = 0 To ptFAIData.Count - 1
        If ptFAIData.DataType = 1 Then
           'Converting to Floating data
            frmDataDisp.DataList.AddItem "Buffer[" & i & "] = " & Format(sDataBuffer(i), "#,##0.000000")

        Else
            'Convert to Hex data
            frmDataDisp.DataList.AddItem "Buffer[" & i & "] = " & Hex(iDataBuffer(i))
        End If
    Next i

    'Free data buffer
    ReDim sDataBuffer(0)
    ReDim iDataBuffer(0)

    'Close device
    DRV_DeviceClose (DeviceHandle)

End Sub

Private Sub Form_Unload(Cancel As Integer)
    frmSelDev.Show
End Sub