cls9859evbd.cls

AD9954源码

Public Property Get FUD_DUT1() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.FUD
    FUD_DUT1 = GetBitVal(evb59Buff1, bnFUD_DUT1)
End Property



Public Property Let CSB_DUT2(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.Reset = Form1
    If mvarEnabled Then
        
        'Set the bit value
        SetBitVal evb59Buff3, bnCSB_DUT2, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff3
        'Latch the data through the buffer
'        Clock_F = abvHigh
'        Clock_F = abvLow
    End If
End Property


Public Property Get CSB_DUT2() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Reset
    CSB_DUT2 = GetBitVal(evb59Buff3, bnCSB_DUT2)
End Property



Public Property Let SDIO(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.SPMode = Form1
    If mvarEnabled Then
        mvarSPMode = vData
        
        'Set the bit value
        SetBitVal evb59Buff3, bnSDIO, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff3
        
        'Latch the data through the buffer
'        Clock_F = abvHigh
'        Clock_F = abvLow
    End If
End Property


Public Property Get SDIO() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.SPMode
    SDIO = GetBitVal(evb59Buff3, bnSDIO)
End Property



Public Property Let IOSync_DUT1(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.PS1 = Form1
    If mvarEnabled Then
        'mvarPS1 = vData
        
        'Set the bit value
        SetBitVal evb59Buff2, bnIOSync_DUT1, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff2
        
        'Latch the data through the buffer
'        Clock_F = abvHigh
'        Clock_F = abvLow
    End If
End Property


Public Property Get IOSync_DUT1() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.PS1
    IOSync_DUT1 = GetBitVal(evb59Buff2, bnIOSync_DUT1)
End Property



Public Property Let FUD_DUT2(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.PS0 = Form1
    If mvarEnabled Then
        'mvarPS0 = vData
        
        'Set the bit value
        SetBitVal evb59Buff1, bnFUD_DUT2, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff1
        
        'Latch the data through the buffer
'        Clock_F = abvHigh
'        Clock_F = abvLow
    End If
End Property


Public Property Get FUD_DUT2() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.PS0
    FUD_DUT2 = GetBitVal(evb59Buff1, bnFUD_DUT2)
End Property






Public Property Let OSK_DUT2(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.A5 = Form1
    If mvarEnabled Then
        'mvarA5 = vData
        
        'Set the bit value
        SetBitVal evb59Buff1, bnOSK_DUT2, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff1
        
        'Latch the data through the buffer
'        Clock_A = abvHigh
'        Clock_A = abvLow
    End If
End Property


Public Property Get OSK_DUT2() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.A5
    A5 = GetBitVal(evb59Buff1, bnOSK_DUT2)
End Property



Public Property Let OSK_DUT1(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.A4 = Form1
    If mvarEnabled Then
        'mvarA4 = vData
        
        'Set the bit value
        SetBitVal evb59Buff1, bnOSK_DUT1, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff1
        
        
        'Latch the data through the buffer
'        Clock_A = abvHigh
'        Clock_A = abvLow
    End If
End Property


Public Property Get OSK_DUT1() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.A4
    OSK_DUT1 = GetBitVal(evb59Buff1, bnOSK_DUT1)
End Property



Public Property Let PS1_DUT2(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.A3 = Form1
    If mvarEnabled Then
        'mvarA3 = vData
        
        'Set the bit value
        SetBitVal evb59Buff1, bnPS1_DUT2, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff1
        
        'Latch the data through the buffer
'        Clock_A = abvHigh
'        Clock_A = abvLow
    End If
End Property


Public Property Get PS1_DUT2() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.A3
    PS1_DUT2 = GetBitVal(evb59Buff1, bnPS1_DUT2)
End Property



Public Property Let PS0_DUT2(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.A2_IOReset = Form1
    If mvarEnabled Then
        'mvarA2_IOReset = vData
        
        'Set the bit value
        SetBitVal evb59Buff1, bnPS0_DUT2, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff1
        
        'Latch the data through the buffer
'        Clock_A = abvHigh
'        Clock_A = abvLow
    End If
End Property


Public Property Get PS0_DUT2() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.A2_IOReset
    PS0_DUT2 = GetBitVal(evb59Buff1, bnPS0_DUT2)
End Property



Public Property Let PS1_DUT1(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.A1 = Form1
    If mvarEnabled Then
        'mvarA1 = vData
        
        'Set the bit value
        SetBitVal evb59Buff1, bnPS1_DUT1, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff1
        
        'Latch the data through the buffer
'        Clock_A = abvHigh
'        Clock_A = abvLow
    End If
End Property


Public Property Get PS1_DUT1() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.A1
    PS1_DUT1 = GetBitVal(evb59Buff1, bnPS1_DUT1)
End Property



Public Property Let PS0_DUT1(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.A0_SDIO = Form1
    If mvarEnabled Then
        'mvarA0_SDIO = vData
        
        'Set the bit value
        SetBitVal evb59Buff1, bnPS0_DUT1, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff1
        
        'Latch the data through the buffer
'        Clock_A = abvHigh
'        Clock_A = abvLow
    End If
End Property


Public Property Get PS0_DUT1() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.A0_SDIO
    PS0_DUT1 = GetBitVal(evb59Buff1, bnPS0_DUT1)
End Property



Public Property Let REF_CLK(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.D7 = Form1
    If mvarEnabled Then
        'mvarD7 = vData
        
        'Set the bit value
        SetBitVal evb59Buff3, bnREF_CLK, vData
        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff3
        
        'Latch the data through the buffer
'        Clock_D = abvHigh
'        Clock_D = abvLow
    End If
End Property


Public Property Get REF_CLK() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.D7
    REF_CLK = GetBitVal(evb59Buff3, bnREF_CLK)
End Property

Public Property Let ClkMdSel_DUT2(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.D7 = Form1
    If mvarEnabled Then
        'mvarD7 = vData
        
        'Set the bit value
        SetBitVal evb59Buff2, bnClkMdSel_DUT2, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff2
        
        'Latch the data through the buffer
'        Clock_D = abvHigh
'        Clock_D = abvLow
    End If
End Property
Public Property Get ClkMdSel_DUT2() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.D7
    ClkMdSel_DUT2 = GetBitVal(evb59Buff2, bnClkMdSel_DUT2)
End Property



Public Property Let Reset_DUT2(ByVal vData As adiBinValues)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.D5 = Form1
    Dim wPwdwn As Boolean
    If mvarEnabled Then
        'mvarD5 = vData
        
        'Set the bit value
        SetBitVal evb59Buff2, bnReset_DUT2, vData
'        'Write the value to the buffer
'        WriteEvbBuffVal evb59Buff2
        
        'If the reset line is going from 0 to a 1
        If mvarReset_DUT2 = abvHigh And vData = abvLow Then
            'If either of the major powerdown bits are high then the dut was powered down
            If sGetRegMapBitVal(1, 0, 7) = abvHigh Or sGetNewRegMapBitVal(1, 0, 4) = abvHigh Then
                wPwdwn = True
            Else
                wPwdwn = False
            End If
            
            'Clear out the register map buffers
            ResetREGMAP (2)
            RaiseEvent ResetOccured(2, wPwdwn)
            mvarLSBFirstDUT2 = False
            mvarSerialIOModeDUT2 = TwoWire
        End If
        mvarReset_DUT2 = vData
        
        'Latch the data through the buffer
'        Clock_D = abvHigh
'        Clock_D = abvLow
    End If
End Property


Public Property Get Reset_DUT2() As adiBinValues
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.D5
    Reset_DUT2 = GetBitVal(evb59Buff2, bnReset_DUT2)
End Property