form1.frm

AD9954源码

            Top             =   1200
            Width           =   1815
         End
      End
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   2400
      Top             =   6720
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      UseMaskColor    =   0   'False
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   2
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":578E
            Key             =   "Cosine"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":58A2
            Key             =   "Cosnie"
         EndProperty
      EndProperty
   End
   Begin VB.Image imgFullBtn 
      Height          =   1065
      Index           =   2
      Left            =   3960
      Picture         =   "Form1.frx":59B6
      Top             =   6720
      Width           =   345
      Visible         =   0   'False
   End
   Begin VB.Image imgFullBtn 
      Height          =   1065
      Index           =   1
      Left            =   3600
      Picture         =   "Form1.frx":5D8C
      Top             =   6720
      Width           =   345
      Visible         =   0   'False
   End
   Begin VB.Image imgFullBtn 
      Height          =   1065
      Index           =   0
      Left            =   3240
      Picture         =   "Form1.frx":6162
      Top             =   6720
      Width           =   345
      Visible         =   0   'False
   End
   Begin VB.Image imgSlideSwi4Pos 
      Height          =   315
      Index           =   3
      Left            =   120
      Picture         =   "Form1.frx":6538
      Top             =   7800
      Width           =   2175
      Visible         =   0   'False
   End
   Begin VB.Image imgSlideSwi4Pos 
      Height          =   315
      Index           =   2
      Left            =   120
      Picture         =   "Form1.frx":893E
      Top             =   7440
      Width           =   2175
      Visible         =   0   'False
   End
   Begin VB.Image imgSlideSwi4Pos 
      Height          =   315
      Index           =   1
      Left            =   120
      Picture         =   "Form1.frx":AD44
      Top             =   7080
      Width           =   2175
      Visible         =   0   'False
   End
   Begin VB.Image imgSlideSwi4Pos 
      Height          =   315
      Index           =   0
      Left            =   120
      Picture         =   "Form1.frx":D14A
      Top             =   6720
      Width           =   2175
      Visible         =   0   'False
   End
End
Attribute VB_Name = "frmControl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public IsUpdating As Boolean
Dim IntProfileCtrlInfo(0 To 6) As String

Private Sub chk800MhzAutoSync_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR2, 11, chk800MhzAutoSync(Index).value
    End If
End Sub

Private Sub chkAmpDither_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 20, chkAmpDither(Index).value
    End If
End Sub

Private Sub chkAutoClrFreqAccum_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 14, chkAutoClrFreqAccum(Index).value
    End If
End Sub

Private Sub chkAutoClrPhaseAccum_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 13, chkAutoClrPhaseAccum(Index).value
    End If
End Sub

Private Sub chkAutoMultiSync_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 23, chkAutoMultiSync(Index).value
    End If
End Sub

Private Sub chkAutoOutputShpKey_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 24, chkAutoOutputShpKey(Index).value
    End If
End Sub

Private Sub chkClearFreqAccum_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 11, chkClearFreqAccum(Index).value
    End If
End Sub

Private Sub chkClearPhaseAccum_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 10, chkClearPhaseAccum(Index).value
    End If
End Sub

Private Sub chkClockInputPwrDwn_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 4, chkClockInputPwrDwn(Index).value
    
        If chkDigitalPwrDwn(Index).value = 0 And chkClockInputPwrDwn(Index).value = 0 And (EvalBd.sGetRegMapBitVal(Index + 1, CFR1, 7) = abvHigh Or EvalBd.sGetRegMapBitVal(Index + 1, CFR1, 4) = abvHigh) Then
            chkDACPwrDwn(Index).Enabled = True
            If HasComparator(Index + 1) Then
                chkCompPwrDwn(Index).Enabled = True
            End If
            chkExternalPwrDwn(Index).Enabled = True
            chkDigitalPwrDwn(Index).Enabled = True
        End If
    End If
End Sub

Private Sub chkCompPwrDwn_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 6, chkCompPwrDwn(Index).value
    End If
End Sub


Private Sub chkDacPrimeDataDisable_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR2, 8, chkDacPrimeDataDisable(Index).value
    End If
End Sub

Private Sub chkDACPwrDwn_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 5, chkDACPwrDwn(Index).value
    End If
End Sub

Private Sub chkDigitalPwrDwn_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 7, chkDigitalPwrDwn(Index).value
    
        If chkDigitalPwrDwn(Index).value = 0 And chkClockInputPwrDwn(Index).value = 0 And (EvalBd.sGetRegMapBitVal(Index + 1, CFR1, 7) = abvHigh Or EvalBd.sGetRegMapBitVal(Index + 1, CFR1, 4) = abvHigh) Then
            chkDACPwrDwn(Index).Enabled = True
            If HasComparator(Index + 1) Then
                chkCompPwrDwn(Index).Enabled = True
            End If
            chkExternalPwrDwn(Index).Enabled = True
            chkClockInputPwrDwn(Index).Enabled = True
        End If
    End If
End Sub


Private Sub chkExternalPwrDwn_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 3, chkExternalPwrDwn(Index).value
    End If
End Sub



Private Sub chkHardwareManSync_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR2, 10, chkHardwareManSync(Index).value
    End If
End Sub

Private Sub chkIOInterface_Click()
    If Not IsUpdating Then
        frmIOInterface.Visible = CBool(chkIOInterface.value)
    End If
End Sub

Private Sub chkLinearSwpEnable_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 21, chkLinearSwpEnable(Index).value
    End If
    
    'Make sure that RAM is not enabled
    If chkLinearSwpEnable(Index).value = 1 Then
        chkRAMEnable(Index).Enabled = False
        chkRAMEnable(Index).value = 0
    Else
        If Index = 0 Then
            'Only enable the ram enable check box if the DUT is not the AD80XXX
            If DUT1_CFR2 <> "00001100" Then
                chkRAMEnable(Index).Enabled = True
            End If
        Else
            'Only enable the ram enable check box if the DUT is not the AD80XXX
            If DUT2_CFR2 <> "00001100" Then
                chkRAMEnable(Index).Enabled = True
            End If
        End If
    End If
End Sub

Private Sub chkLinSwpNoDwell_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 2, chkLinSwpNoDwell(Index).value
    End If
End Sub

Private Sub chkLoadARRatFud_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 26, chkLoadARRatFud(Index).value
    End If
End Sub

Private Sub chkLoadBothDUTs_Click()
    If chkLoadBothDUTs.value = 1 Then
        'Make sure that you select the dut1 tab before disabling the dut2 tab
        If sstChooseDUT.Tab = 1 Then
            sstChooseDUT.Tab = 0
        End If
        
        sstChooseDUT.TabEnabled(1) = False
        With EvalBd
            'Set DUT2's Regmap = DUT1's Regmap
            .sSetNewRegMapVal 2, 0, .sGetNewRegMapVal(1, 0)
            .sSetNewRegMapVal 2, 1, .sGetNewRegMapVal(1, 1)
        End With
    Else
        sstChooseDUT.TabEnabled(1) = True
        'Refresh the form
        RefreshControls
    End If
End Sub

Private Sub chkLoadSRRatFud_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 15, chkLoadSRRatFud(Index).value
    End If
End Sub

Private Sub chkManualSync_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 22, chkManualSync(Index).value
    End If
End Sub

Private Sub chkOutputShpKeyEnable_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 25, chkOutputShpKeyEnable(Index).value
    End If
End Sub

Private Sub chkPhaseDither0_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 16, chkPhaseDither0(Index).value
    End If

End Sub

Private Sub chkPhaseDither1_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then
        'Set the bit in the Register Map Buffer
        EvalBd.sSetNewRegMapBitVal Index + 1, CFR1, 17, chkPhaseDither1(Index).value
    End If

End Sub

Private Sub chkPhaseDither2_Click(Index As Integer)
    'If the form isn't being updated then set the bit in the registermap
    If Not IsUpdating Then