📄 frmeditram.frm
字号:
Top = 720
Width = 495
End
Begin VB.TextBox txtBeginAddr
Height = 285
Left = 1945
Locked = -1 'True
TabIndex = 10
Text = "0000"
Top = 360
Width = 495
End
Begin VB.Label lblAddrErr
BackColor = &H000000FF&
Height = 705
Left = 1290
TabIndex = 74
Top = 330
Visible = 0 'False
Width = 1185
End
Begin VB.Label lblSec
Caption = "s"
Height = 255
Left = 1800
TabIndex = 69
Top = 1680
Width = 135
End
Begin VB.Label lblns
Caption = "m"
BeginProperty Font
Name = "Symbol"
Size = 8.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 1680
TabIndex = 21
Top = 1680
Width = 135
End
Begin VB.Label lblRampRate
Caption = "Address Ramp Rate:"
Height = 255
Left = 120
TabIndex = 16
Top = 1440
Width = 1575
End
Begin VB.Label lblModeCtrl
Caption = "Mode Control:"
Height = 255
Left = 120
TabIndex = 13
Top = 2160
Width = 1095
End
Begin VB.Label lblFinalAddr
Caption = "Final Addr:"
Height = 255
Left = 120
TabIndex = 11
Top = 720
Width = 855
End
Begin VB.Label lblBeginingAddr
Caption = "Beginning Addr:"
Height = 255
Left = 120
TabIndex = 9
Top = 360
Width = 1215
End
End
Begin VB.CommandButton cmdReadRAM
Caption = "Read RAM"
Height = 375
Left = 8520
TabIndex = 6
Top = 3480
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Height = 375
Left = 8520
TabIndex = 5
Top = 1320
Width = 975
End
Begin VB.CommandButton cmdOK
Caption = "OK"
Height = 375
Left = 8520
TabIndex = 4
Top = 840
Width = 975
End
Begin VB.OptionButton optRS
Caption = "RAM Seg. 3"
Height = 495
Index = 3
Left = 7320
Style = 1 'Graphical
TabIndex = 3
Top = 120
Width = 1095
End
Begin VB.OptionButton optRS
Caption = "RAM Seg. 2"
Height = 495
Index = 2
Left = 6075
Style = 1 'Graphical
TabIndex = 2
Top = 120
Width = 1095
End
Begin VB.OptionButton optRS
Caption = "RAM Seg. 1"
Height = 495
Index = 1
Left = 4845
Style = 1 'Graphical
TabIndex = 1
Top = 120
Width = 1095
End
Begin VB.OptionButton optRS
Caption = "RAM Seg. 0"
Height = 495
Index = 0
Left = 3600
Style = 1 'Graphical
TabIndex = 0
Top = 120
Value = -1 'True
Width = 1095
End
Begin VB.Frame fraFileInfo
BorderStyle = 0 'None
Height = 1935
Left = 120
TabIndex = 37
Top = 4200
Width = 3375
Begin VB.TextBox txtFileInfo
Height = 1575
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 38
Text = "frmEditRam.frx":0614
Top = 360
Width = 3375
End
Begin VB.Label lblFileInfo
Caption = "File Information:"
Height = 255
Left = 0
TabIndex = 39
Top = 120
Width = 1215
End
End
Begin VB.CheckBox chkShowGenRamp
Caption = "Gen Ramp"
Height = 375
Left = 8520
Style = 1 'Graphical
TabIndex = 50
ToolTipText = "Displays the ramp data generator."
Top = 2520
Width = 975
End
Begin VB.CheckBox chkGenRand
Caption = "Gen Rnd"
Height = 375
Left = 8520
Style = 1 'Graphical
TabIndex = 66
ToolTipText = "Displays the random data generator."
Top = 3000
Width = 975
End
Begin VB.CommandButton cmdOpenFile
Caption = "Open File"
Height = 735
Left = 8520
Picture = "frmEditRam.frx":0623
Style = 1 'Graphical
TabIndex = 68
ToolTipText = "Opens a RAM file."
Top = 840
UseMaskColor = -1 'True
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton cmdSaveFile
Caption = "Save File"
Height = 735
Left = 8520
Picture = "frmEditRam.frx":0C8D
Style = 1 'Graphical
TabIndex = 7
ToolTipText = "Saves the current data to a file."
Top = 1680
UseMaskColor = -1 'True
Visible = 0 'False
Width = 975
End
Begin VB.Image imgEditorIcon
Height = 480
Left = 2040
Picture = "frmEditRam.frx":12F7
Top = 6240
Visible = 0 'False
Width = 480
End
Begin VB.Label lblRsError
BackColor = &H000000FF&
Height = 555
Index = 3
Left = 7290
TabIndex = 73
Top = 90
Visible = 0 'False
Width = 1155
End
Begin VB.Label lblRsError
BackColor = &H000000FF&
Height = 555
Index = 2
Left = 6045
TabIndex = 72
Top = 90
Visible = 0 'False
Width = 1155
End
Begin VB.Label lblRsError
BackColor = &H000000FF&
Height = 555
Index = 1
Left = 4815
TabIndex = 71
Top = 90
Visible = 0 'False
Width = 1155
End
Begin VB.Label lblRsError
BackColor = &H000000FF&
Height = 555
Index = 0
Left = 3570
TabIndex = 70
Top = 90
Visible = 0 'False
Width = 1155
End
End
Attribute VB_Name = "frmEditRam"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RAMData(0 To 1023) As String
'Used to store the currently selected RAM Segment
Private RAMSegSel As Integer
'Used to store the currently selected DUT
Private DUTSel As Integer
Private OKHit As Boolean
Private IsUpdating As Boolean
Private ModalDialogMode As Boolean 'Used to indicate when the form was opend in modal dialog mode
Private Type RSCWInfo
BeginAddr As Integer
FinalAddr As Integer
NoDwell As Long
AddressRampRate As Long
ModeControl As Integer
End Type
Private RamSegCW(0 To 3) As RSCWInfo
Private sCaption
Private Sub chkGenRand_Click()
'Uncheck the other so that we can se the one we want
If fraGenerateRamp.Visible Then
chkShowGenRamp.value = 0
End If
'Check to see what format the displays are in
If chkPhaseOffsetWords.value Then
txtRndMsg.Text = "This will generate random phase values between the Lower and Upper limts set below. " & vbNewLine & vbNewLine & "It will start at the begining address and fill the entire RAM segment."
Else
txtRndMsg.Text = "This will generate random frequency values between the Lower and Upper limts set below. " & vbNewLine & vbNewLine & "It will start at the begining address and fill the entire RAM segment."
End If
fraGenRandom.Visible = chkGenRand.value
'If showing the Ramp Gen then get the start freq from the RAM
If chkGenRand.value Then
If chkPhaseOffsetWords.value = 0 Then
'disable the RSCW frame until finished with ramp generation
fraRSCW.Enabled = False
Else
'disable the RSCW frame until finished with ramp generation
fraRSCW.Enabled = False
End If
Else
'Enable the RSCW frame
fraRSCW.Enabled = True
End If
'Disable the ok button until ramp generation is finished
cmdOK.Enabled = Not (CBool(chkGenRand.value))
End Sub
Private Sub chkNoDwell_Click()
If Not IsUpdating Then
'Store the info, just incase the form is in FileEditMode
RamSegCW(RAMSegSel).NoDwell = chkNoDwell.value
End If
End Sub
Private Sub chkPhaseOffsetWords_Click()
Dim cntr As Integer
If chkPhaseOffsetWords.value = 1 Then
For cntr = 0 To lblValUnits.Count - 1
lblValUnits(cntr).Caption = "Deg"
Next
For cntr = 1 To lblMHz.Count - 1
lblMHz(cntr).Caption = "Deg"
Next
Else
For cntr = 0 To lblValUnits.Count - 1
lblValUnits(cntr).Caption = "MHz"
Next
For cntr = 1 To lblMHz.Count - 1
lblMHz(cntr).Caption = "MHz"
Next
End If
'Update the scroll area
vscScroller_Change
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -