mdimain.frm

AD9954源码

    #If FullDebugMode Then
    #Else
    'Disable DUT Tabs that aren't usable
    Select Case EvalBd.DutsInstalled
        Case 0:
            frmControl.sstChooseDUT.TabEnabled(1) = False
            frmControl.sstChooseDUT.TabEnabled(0) = False
            frmFrequency.sstChooseDUT.TabEnabled(1) = False
            frmFrequency.sstChooseDUT.TabEnabled(0) = False
            frmAmplitude.sstChooseDUT.TabEnabled(1) = False
            frmAmplitude.sstChooseDUT.TabEnabled(0) = False
            frmRegisterMap.sstChooseDUT.TabEnabled(1) = False
            frmRegisterMap.sstChooseDUT.TabEnabled(0) = False
            frmRAMConfig.sstChooseDUT.TabEnabled(3) = False
            frmRAMConfig.sstChooseDUT.TabEnabled(2) = False
            frmRAMConfig.sstChooseDUT.TabEnabled(1) = False
            frmRAMConfig.sstChooseDUT.TabEnabled(0) = False
        Case 1:
            frmControl.sstChooseDUT.TabEnabled(1) = False
            frmControl.sstChooseDUT.TabEnabled(0) = True
            frmFrequency.sstChooseDUT.TabEnabled(1) = False
            frmFrequency.sstChooseDUT.TabEnabled(0) = True
            frmAmplitude.sstChooseDUT.TabEnabled(1) = False
            frmAmplitude.sstChooseDUT.TabEnabled(0) = True
            frmRegisterMap.sstChooseDUT.TabEnabled(1) = False
            frmRegisterMap.sstChooseDUT.TabEnabled(0) = True
            frmRAMConfig.sstChooseDUT.TabEnabled(3) = False
            frmRAMConfig.sstChooseDUT.TabEnabled(2) = False
            frmRAMConfig.sstChooseDUT.TabEnabled(1) = True
            frmRAMConfig.sstChooseDUT.TabEnabled(0) = True
        Case 2:
            frmControl.sstChooseDUT.TabEnabled(0) = False
            frmControl.sstChooseDUT.TabEnabled(1) = True
            frmFrequency.sstChooseDUT.TabEnabled(0) = False
            frmFrequency.sstChooseDUT.TabEnabled(1) = True
            frmAmplitude.sstChooseDUT.TabEnabled(0) = False
            frmAmplitude.sstChooseDUT.TabEnabled(1) = True
            frmRegisterMap.sstChooseDUT.TabEnabled(0) = False
            frmRegisterMap.sstChooseDUT.TabEnabled(1) = True
            frmRAMConfig.sstChooseDUT.TabEnabled(1) = False
            frmRAMConfig.sstChooseDUT.TabEnabled(0) = False
            frmRAMConfig.sstChooseDUT.TabEnabled(3) = True
            frmRAMConfig.sstChooseDUT.TabEnabled(2) = True
        Case 3:
            frmControl.sstChooseDUT.TabEnabled(1) = True
            frmControl.sstChooseDUT.TabEnabled(0) = True
            frmControl.chkLoadBothDUTs.Enabled = True
            frmFrequency.sstChooseDUT.TabEnabled(1) = True
            frmFrequency.sstChooseDUT.TabEnabled(0) = True
            frmFrequency.chkLoadBothDUTs.Enabled = True
            frmAmplitude.sstChooseDUT.TabEnabled(1) = True
            frmAmplitude.sstChooseDUT.TabEnabled(0) = True
            frmAmplitude.chkLoadBothDUTs.Enabled = True
            frmRegisterMap.sstChooseDUT.TabEnabled(1) = True
            frmRegisterMap.sstChooseDUT.TabEnabled(0) = True
            frmRAMConfig.sstChooseDUT.TabEnabled(3) = True
            frmRAMConfig.sstChooseDUT.TabEnabled(2) = True
            frmRAMConfig.sstChooseDUT.TabEnabled(1) = True
            frmRAMConfig.sstChooseDUT.TabEnabled(0) = True
    End Select
    #End If
    
    If NumOfDUTsDetected <> 0 Then
        MsgBox "An evaluation board was successfully detected on LPT" & EvalBdDetected & ".", vbInformation, "Eval Board Detection Results"
    Else
        MsgBox "Evaluation board detection failed!", vbInformation, "Eval Board Detection Results"
    End If

End Sub

Private Sub mnuPCIO_SelLPTPort_Click()
    Call frmLPTSelect.LPTSelectDialog("Select LPT Port", "Select the LPT Port you want to use.", True)
End Sub

Private Sub mnuFileSaveSettings_Click()
    'Setup an error handler
    On Error GoTo ErrorHandler
    
    'Setup the common dialog for opening files
    cdgFileOpenSave.flags = cdlOFNHideReadOnly + cdlOFNLongNames + cdlOFNNoChangeDir
    cdgFileOpenSave.DialogTitle = "Save Setup File"
    cdgFileOpenSave.CancelError = True
    cdgFileOpenSave.filter = "Setup Files (*.stp)|*.stp|Text (*.txt)|*.txt"
    cdgFileOpenSave.FilterIndex = 0
    cdgFileOpenSave.InitDir = App.path
    
    'Show the open dialog
    cdgFileOpenSave.ShowSave
    
    'Write the current setup to a file
    SaveSetup cdgFileOpenSave.filename
    
    'Exit the subroutine before the errorhandler
    Exit Sub

'Define an error handler
ErrorHandler:
    'Check for the cancel button hit error
    If Err.Number = cdlCancel Then
        'Exit the subroutine if the cancel button was hit
        Exit Sub
    End If
End Sub

Private Sub mnuToolBarPopupButtonsOnly_Click()
    Dim cntr As Integer
    
    'Show toolbar text
    If mnuToolBarPopupButtonsOnly.Checked Then
        mnuToolBarPopupButtonsOnly.Checked = False
    Else
        mnuToolBarPopupButtonsOnly.Checked = True
    End If
    
    If mnuToolBarPopupButtonsOnly.Checked Then
        'Loop through all toolbar buttons and remove the text
        For cntr = 1 To tlbMainToolBar.Buttons.Count
            'Add the text to the collection
            tlbMainToolBar.Buttons(cntr).Caption = ""
        Next cntr
    Else
        'Loop through all toolbar buttons and remove the text
        For cntr = 1 To tlbMainToolBar.Buttons.Count
            'Add the text to the collection
            tlbMainToolBar.Buttons(cntr).Caption = ToolBarMenuText(cntr)
        Next cntr
    End If
    
End Sub

Private Sub mnuToolBarPopupShowText_Click()
    Dim cntr As Integer
    
    'Show toolbar text
    mnuToolBarPopupShowText.Checked = True
    mnuToolBarPopupButtonsOnly.Checked = False

    'Loop through all toolbar buttons and remove the text
    For cntr = 1 To tlbMainToolBar.Buttons.Count
        'Add the text to the collection
        tlbMainToolBar.Buttons(cntr).Caption = ToolBarMenuText(cntr)
    Next cntr

End Sub

Private Sub mnuViewDUTSignalsTW_Click()

End Sub

Private Sub mnuWindow_Click()
    'Setup the menu
    mnuWindowControl.Checked = frmControl.Visible
    mnuWindowFreq.Checked = frmFrequency.Visible
    mnuWindowIOInterface.Checked = frmIOInterface.Visible
    mnuWindowRAMConfig.Checked = frmRAMConfig.Visible
    mnuWindowAmplitude.Checked = frmAmplitude.Visible
    mnuWindowDUTSignalsTW.Checked = frmDUTSignals.Visible
    If IsLoaded("frmDebug") Then
        mnuWindowDebug.Checked = frmDebug.Visible
    Else
        mnuWindowDebug.Checked = False
    End If
    If IsLoaded("frmRegisterMap") Then
        mnuWindowRegMap.Checked = frmRegisterMap.Visible
    Else
        mnuWindowRegMap.Checked = False
    End If
End Sub

Private Sub mnuWindowAmplitude_Click()
    'Show the form if it isn't visible
    frmAmplitude.Visible = True
    frmAmplitude.WindowState = 0
    frmAmplitude.ZOrder (0)
'    'Check the menu if the form is visible
'    frmAmplitude.Checked = frmAmplitude.Visible
End Sub

Private Sub mnuWindowControl_Click()
    'Show the form if it isn't visible
    frmControl.Visible = True
    frmControl.WindowState = 0
    frmControl.ZOrder (0)
End Sub

Private Sub mnuWindowDebug_Click()
    'Show the form if it isn't visible
    frmDebug.Visible = True
    frmDebug.WindowState = 0
    frmDebug.ZOrder (0)
End Sub

Private Sub mnuWindowDUTSignalsTW_Click()
    'Show the form if it isn't visible
    frmDUTSignals.Visible = True
    frmDUTSignals.WindowState = 0
    frmDUTSignals.ZOrder (0)
End Sub

Private Sub mnuWindowFreq_Click()
    'Show the form if it isn't visible
    frmFrequency.Visible = True
    frmFrequency.WindowState = 0
    frmFrequency.ZOrder (0)
End Sub

Public Sub mnuWindowIOInterface_Click()
    'Show the form if it isn't visible
    frmIOInterface.Visible = True
    frmIOInterface.WindowState = 0
    frmIOInterface.ZOrder (0)
    
    'unpress the button on the control window
    frmControl.IsUpdating = True
        frmControl.chkIOInterface.value = 1
    frmControl.IsUpdating = False
End Sub

Private Sub mnuWindowRAMConfig_Click()
    'Show the form if it isn't visible
    frmRAMConfig.Visible = True
    frmRAMConfig.WindowState = 0
    frmRAMConfig.ZOrder (0)
End Sub

Private Sub mnuWindowReadBack_Click()
    'Show the form and bring it to the top
    frmReadback.Show
    frmReadback.WindowState = 0
    frmReadback.ZOrder (0)
    mnuWindowReadBack.Checked = True
End Sub

Private Sub mnuWindowRegMap_Click()
    'Show the form and bring it to the top
    frmRegisterMap.Show
    frmRegisterMap.WindowState = 0
    frmRegisterMap.ZOrder (0)
End Sub

Private Sub mnuWindowSVGARes_Click()
    Me.WindowState = 0
    Me.Width = Screen.TwipsPerPixelX * 800
    Me.Height = Screen.TwipsPerPixelY * 600
End Sub

Private Sub picSideBarFrame_Resize()
    'Resize everything in the sidebar to fit nicely
    If picSideBarFrame.Width - (3 * Screen.TwipsPerPixelY) > 0 And picSideBarFrame.Height - (1 * Screen.TwipsPerPixelY) > 0 Then
        picSideBar.Move 0, 0, picSideBarFrame.Width - (3 * Screen.TwipsPerPixelY), picSideBarFrame.Height - (1 * Screen.TwipsPerPixelY)
    End If
        
    cmdDUTSigCapts.Width = picSideBar.Width - (4 * Screen.TwipsPerPixelX)
End Sub

Private Sub mnuWindowTestReg_Click()
    frmTestReg.Show
    mnuWindowTestReg.Checked = True
End Sub

Private Sub tlbMainToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
'    Debug.Print "ButtonClick"
'    Select Case Button.Key
'        Case "ioconfig":
'            'Show the configure IO window
'            If Button.value = tbrPressed Then
'                frmIOInterface.Visible = True
'            Else
'                frmIOInterface.Visible = False
'            End If
'
'        Case "fud_dut1"
'            'FUD Dut 1 if clicked
'            EvalBd.FUD_DUT1 = abvLow
'            EvalBd.WriteEvbBuffVal evb59Buff1
'            EvalBd.FUD_DUT1 = abvHigh
'            EvalBd.WriteEvbBuffVal evb59Buff1
'            EvalBd.FUD_DUT1 = abvLow
'            EvalBd.WriteEvbBuffVal evb59Buff1
'        Case "fud_dut2"
'            'FUD Dut 1 if clicked
'            EvalBd.FUD_DUT2 = abvLow
'            EvalBd.WriteEvbBuffVal evb59Buff1
'            EvalBd.FUD_DUT2 = abvHigh
'            EvalBd.WriteEvbBuffVal evb59Buff1