📄 frmeditram.frm
字号:
'Setup the scroll area
SetupScrollArea
vscScroller_Change
RefreshDisplay
End Sub
Private Sub cmdSaveFile_Click()
Dim RamFile As String
Dim cntr As Integer
'Setup an error handler
On Error GoTo ErrorHandler
'Setup the common dialog for opening files
cdgRamFile.flagsrate randommdSavbNewLine & "ItOn Ermat(Ipn
+& "ItOns In s +& "ItOnNolay
EDirate randommdSavbNfile tTitDialo"Specify I Ope disp to"ate randommdSavbN Me
the fram
ndommdSavbNeil 'Lght Savbs (*.d i)|*.d i|cntr)(*.amS)|*.amS|AlArSavbs (*.*)|*.*"ate randommdSavbNFil ModeCont0ate randommdSavbNIn), t 'L 'frm, just inc prgPramFieOffsetWords.ndommdSavbNc im R, just i0 ThdommdSavbNeilen tFileName = GetFileName(RamFile)
Me.CahdommdSavbNeilen sCaption & " - Loading " & EditFileNamim
'Open the choosen ram file
OpenRAMFile RamFile
im R
hdommdSavbNeilen en the choosen ram f " - (" & EditFileName & ")"
End If
'Find the currently selExtSysveFi'Def then Error GoTo Error 'Setup the :just int the cdgRon
hanges
applrror just i0 T 'S.xtFinae & "I ame = GetFileN'ExtSytupScubrout theller.M hanges
ue
selExtSysveFiFind the curcmdSaveFile_Click()
inal_Actlick(Stri vsc RefreshDisplay
vscScroller_Change
Endxt) < CInt(txtFinalAddr.Text) Then
' chkShowGenRamp sel= True
' Else
' chkFind ment to the n= False
' End If
End Sub
Find the curcmdSaveFile_Click()
inal_e
eger
Dim TempTWs Integer
Dim Te1r As ion just inIn),ffs
shDi 'JustewLijust i 'Just le the caption of m Te1rnt0ate raCount - 1
= 36m Te1rntm Te1r+ 31he display
'''''RSCW
on) = cbasecf
Nexon) = cbasecf
. ntm Te1r+ = "fon) = cbasecf
.- (" & Edide the progreson) = cbasecf
.Progress.Refresh
display
'''''RSCW
As Integerecf
NexAs Integerecf
. ntm Te1r+ = "fAs Integerecf
.Progress.Refresh
display
'''''RSCW
)
End Sucf
Nex)
End Sucf
. ntm Te1r+ = "f)
End Sucf
.ressR = "0)
End Sucf
.Progress.Refresh
display
'''''RSCW
on = "MHz"
he progreson)= "MHz"
. ntm Te1he progreson)= "MHz"
.Progress.Refresh
display
'''''RSCW
on Row he progreson)Row . ntm Te1he progreson)Row .Progress.Refresh
'Hide the projust inIn),ffs
shDiht .Ena AginAddr.Te If optRS(cntScrohe progresc2Bin(TempTW, 32"00000000000000000000000000000000"sh
'Hide thejust inPosi" & EraProgress.Visibvalue o modal diajust ialse
Mo , =cmdSaveFinc file.PhaseOffsetbar
ets aser ocdgRPhastegerPubalse
(Index), txtSy(By 7, RSCxtF'Setup an e, By 7,
'Setup an e, By 7, TitDia As Integger
Dim TempTW As Variant
CW(cIdw the edit dhe Rn RamSiodeC dhue form waseCoraProgr chkthe RamSo modalht RnfigtRamWwasowiant
FinalAddr Integer
NoDwell As Integer
egCW(cntr).Al As Integer
tion pTW As Variant
dressRampRaup an error handler
Ias opendHit =odal dia Rabe splay
foaop ivate Type RS diajust iean 'Used to ind the fram
chkS in the rasd If
c d inffset
bn thelLoad Dt End If
log(" Rn Ram.t End ClkTxt(RSCxtF'- 1) the info, just in 'Trkthe RamsdHit = '& vblue
Load Dt End If
'True
the fram
teight
'True
the fram
just introl Worlog tddr =aopdesstecmdOK. we cbob
Prue = 0 Then
frmEdit DUTSel,trogSel +BtegereRSCxtF
30) Rn Ram.hen
2BiessIsPW(RSCxtF'- 1)ram
just i Then Scr Rnfig.henRSCWBothRSC For cntr = 0 To lblValURSCxtF' 'Check to see what forma in the ras For cndutbar
d info iant
RSCxtFiant
' 'Buiee what forma for openi diaskthe Ramst form 0)End If
End Sub
Find 1)End If
End Sub
Find 2)End If
End Sub
Find 3)End If
End Sub
Findb
Find RInt(txtFin For cnthe fram
xtF' DUT2_RAabled = Fopen.",CEdit 'Buieeabled = FFFFFCEdit0eeabled = FFFFFFFFFntrol Wor For sdHit =wnffsla Segmen Lo'abled = FFFFFFFFFDeext, txtt DUTSel,trogSel +gereRSCxtF &H7), tx chegCW(cntr).A,tion , tAddrRamp'eeabled = FFFFFFFFFCW(cIdw = =abled = FFFFFCEdit1eeabled = FFFFFFFFFCW(cIdw = 5Lo'abled = FFFFFFFFFntrol Wor For sdHit =wnffsla Segmen Lo'abled = FFFFFFFFFDeext, txtt DUTSel,trogSel +gereRSCxtF &H8), tx chegCW(cntr).A,tion , tAddrRamp''Lo'abled = FFFFFFFFFmat(RamSegCW(cntr).B(RamSegCWLo'abled = FFFFFFFFFmat(RamSegCW(cntr).FiRamSegCWLo'abled = FFFFFFFFF RamSegCW(cntr).ModeContmSegCW(cLo'abled = FFFFFFFFF gCW(cntr).NoDwell
tAddrRamp''bled = FFFFFFFFFamSegCW(cntr).AddressRegCW(cntr).Amp''bled = FFFFFFFFFamSegCW(cntr).Addntr).FinalAd 'RRTeft(cul).A 'RRTi.Cag)
egCW(cntr).A), g(" Rn Ram.t End ClkTxt(RSCxtF'- 1) the )tri vscccccccccCEdit2eeabled = FFFFFFFFFntrol Wor For sdHit =wnffsla Segmen Lo'bled = FFFFFFFFFDeext, txtt DUTSel,trogSel +gereRSCxtF &H9), tx chegCW(cntr).A,tion , tAddrRamp'eeabled = FFFFFFFFFmat(RamSegCW(cntr).B(RamSegCWLo'bled = FFFFFFFFFmat(RamSegCW(cntr).FiRamSegCWLo'bled = FFFFFFFFF RamSegCW(cntr).ModeContmSegCW(cLo'bled = FFFFFFFFF gCW(cntr).NoDwell
tAddrRamp'bled = FFFFFFFFFamSegCW(cntr).AddressRegCW(cntr).Amp'bled = FFFFFFFFFamSegCW(cntr).Addntr).FinalAd 'RRTeft(cul).A 'RRTi.Cag)
egCW(cntr).A), g(" Rn Ram.t End ClkTxt(RSCxtF'- 1) the )tri vscccccccccCEdit3eeabled = FFFFFFFFFntrol Wor For sdHit =wnffsla Segmen Lo'bled = FFFFFFFFFDeext, txtt DUTSel,trogSel +gereRSCxtF &HA), tx chegCW(cntr).A,tion , tAddrRamp'eeabled = FFFFFFFFFmat(RamSegCW(cntr).B(RamSegCWLo'bled = FFFFFFFFFmat(RamSegCW(cntr).FiRamSegCWLo'bled = FFFFFFFFF RamSegCW(cntr).ModeContmSegCW(cLo'bled = FFFFFFFFF gCW(cntr).NoDwell
tAddrRamp'bledddddddddddddamSegCW(cntr).AddressRegCW(cntr).Amp'bled = FFFFFFFFFamSegCW(cntr).Addntr).FinalAd 'RRTeft(cul).A 'RRTi.Cag)
egCW(cntr).A), g(" Rn Ram.t End ClkTxt(RSCxtF'- 1) the )tri vsccccccmdSapen."mp'eebled = FFFFFFFFFamS(RamSegCW(cntr).Ben Scr Rnfig.amS 'Bui(RamSegCW RInt(tr+ 4) the info, = FFFFFFFFFamS(RamSegCW(cntr).Fen Scr Rnfig.amS 'Bui(RamSegCW RInt(tr+ 4) the info, = FFFFFFFFF RamSegCW(cntr).ModeConten Scr Rnfig.hmbRInt(td If
N RInt(tr+ 4)
End Sub
Pr = FFFFFFFFF gCW(cntr).NoDwell
en Scr Rnfig.henW(cntr)Actlie RInt(tr+ 4) vSegment CoooooooooooooamSegCW(cntr).AddressRen Scr Rnfig.amS 'BuiegCW(cntr).A RInt(tr+ 4) tLijust iooooooooooooamSegCW(cntr).Addntr).Fen Scr Rnfig.amS 'BuiegCW(cntr).A RInt(tr+ 4) the info, just iabled = False
open.",CEdit 'Buieeabled = FFFFFCEdit0eeabled = FFFFFFFFFntrol Wor For sdHit =wnffsla Segmen Lo'bled = FFFFFFFFFDeext, txtt DUTSel,trogSel +gereRSCxtF &H7), tx chegCW(cntr).A,tion , tAddrRamp'eeabled = FFFFFFFFFamS(RamSegCW(cntr).BinalAdd txtFinalAdd'bled = FFFFFFFFFmat(RamSegCW(cntr).FinalAdd chkNoDwell.'bled = FFFFFFFFF RamSegCW(cntr).ModeContmSegCW(cLo'bled = FFFFFFFFF gCW(cntr).NoDwell
tAddrRamp'bledddddddddddddamSegCW(cntr).AddressRegCW(cntr).Amp'bled = FFFFFFFFFamSegCW(cntr).Addntr).FinalAd 'RRTeft(cul).A 'RRTi.Cag)
egCW(cntr).A), g(" Rn Ram.t End ClkTxt(RSCxtF'- 1) the )tri vscccccccccCEdit1eeabled = FFFFFFFFFntrol Wor For sdHit =wnffsla Segmen Lo'bled = FFFFFFFFFDeext, txtt DUTSel,trogSel +gereRSCxtF &H8), tx chegCW(cntr).A,tion , tAddrRamp'eeabled = FFFFFFFFFamS(RamSegCW(cntr).BinalAdd txtFinalAdd'bled = FFFFFFFFFmat(RamSegCW(cntr).FinalAdd chkNoDwell.'bled = FFFFFFFFF RamSegCW(cntr).ModeContmSegCW(cLo'bled = FFFFFFFFF gCW(cntr).NoDwell
tAddrRamp'bledddddddddddddamSegCW(cntr).AddressRegCW(cntr).Amp'bled = FFFFFFFFFamSegCW(cntr).Addntr).FinalAd 'RRTeft(cul).A 'RRTi.Cag)
egCW(cntr).A), g(" Rn Ram.t End ClkTxt(RSCxtF'- 1) the )tri vscccccccccCEdit2eeabled = FFFFFFFFFntrol Wor For sdHit =wnffsla Segmen Lo'bled = FFFFFFFFFDeext, txtt DUTSel,trogSel +gereRSCxtF &H9), tx chegCW(cntr).A,tion , tAddrRamp'eeabled = FFFFFFFFFmat(RamSegCW(cntr).BinalAdd txtFinalAdd'bled = FFFFFFFFFmat(RamSegCW(cntr).FinalAdd chkNoDwell.'bled = FFFFFFFFF RamSegCW(cntr).ModeContmSegCW(cLo'bled = FFFFFFFFF gCW(cntr).NoDwell
tAddrRamp'bledddddddddddddamSegCW(cntr).AddressRegCW(cntr).Amp'bled = FFFFFFFFFamSegCW(cntr).Addntr).FinalAd 'RRTeft(cul).A 'RRTi.Cag)
egCW(cntr).A), g(" Rn Ram.t End ClkTxt(RSCxtF'- 1) the )tri vscccccccccCEdit3eeabled = FFFFFFFFFntrol Wor For sdHit =wnffsla Segmen Lo'bled = FFFFFFFFFDeext, txtt DUTSel,trogSel +gereRSCxtF &HA), tx chegCW(cntr).A,tion , tAddrRamp'eeabled = FFFFFFFFFmat(RamSegCW(cntr).BinalAdd txtFinalAdd'bled = FFFFFFFFFmat(RamSegCW(cntr).FinalAdd chkNoDwell.'bled = FFFFFFFFF RamSegCW(cntr).ModeContmSegCW(cLo'bled = FFFFFFFFF gCW(cntr).NoDwell
tAddrRamp'bledddddddddddddamSegCW(cntr).AddressRegCW(cntr).Amp'bled = FFFFFFFFFamSegCW(cntr).Addntr).FinalAd 'RRTeft(cul).A 'RRTi.Cag)
egCW(cntr).A), g(" Rn Ram.t End ClkTxt(RSCxtF'- 1) the )tri vsccccccmdSapen."mpFFFFFFFFamS(RamSegCW(cntr).Ben Scr Rnfig.amS 'Bui(RamSegCW RInt(t) the info, = FamS(RamSegCW(cntr).Fen Scr Rnfig.amS 'Bui(RamSegCW RInt(t) the info, = F RamSegCW(cntr).ModeConten Scr Rnfig.hmbRInt(td If
N RInt(t)
End Sub
Pr = F gCW(cntr).NoDwell
en Scr Rnfig.henW(cntr)Actlie RInt(t) vSegment CoooooamSegCW(cntr).AddressRen Scr Rnfig.amS 'BuiegCW(cntr).A RInt(t) tLijust iooooamSegCW(cntr).Addntr).Fen Scr Rnfig.amS 'BuiegCW(cntr).A RInt(t) the info, p the scroll area again
dia aop n End DffsetWords. " - (" & EdiTitDiscroll area antrol Word
.Ena Hit =EnabdgRonEnaRInt(tTo 3
xtF' DUT2_RAst ioooo If optRS(cntScrohe progresssssR2Bin(TempTW, 32MData(Add he progres 'Hide the pro= 0 To lblValUnits.Count - 1
Scrohe progresssssR2Bin(TempTW, 32MDa1a(Add he progres 'Hide the pro= the scroll area again
FinalAddr.Terea cScroller_Change
vsctxtBeginAddr.Text)
'Setup the sc vscxt) < CInt( chkShowG-) < CInt(txtFinalAddr.Text= 14DUT2_RAabled = Funtil ramp geunneen kthe Ramst abled = FtxtBeginAddr cmdSaveFile.Enabled = Fnits.Count - 1
( < CInt( chkShowG-) < CInt(txtFinalAddr.Tell.'bled = FFFFFon) = cbasecf
. cmdSaveFile.Enabled = TTTTTAs Integerecf
. cmdSaveFile.Enabled = TTTTTt
End Sucf
. cmdSaveFile.Enabled = TTTTTon)= "MHz"
. cmdSaveFile.Enabled = T 'Hide theabledler.Max = CInt(txtFinalAddr.Text)
' End If
'- 14Enabled = Fnits.Count - 1
14Enabled = FTTTTon) = cbasecf
. cmdSaveFile.Enabled = TTTTTAs Integerecf
. cmdSaveFile.Enabled = TTTTTt
End Sucf
. cmdSaveFile.Enabled = TTTTTon)= "MHz"
. cmdSaveFile.Enabled = T 'Hide theabledl the scroll area again
akthe RamSiodeC d area CW(cIdw = he display
' he RAM
data buR
EMDataoadEditedviewrea
vsnits.Count To CInt(txtFinalAddr.Text)
(txtFinalAddr.Te+ = 36the AM
Rn RamSiodeC dhrm waseCoraProgr chkthe Next
'pn
u ller.M = cbas=Enalbas=HitnScrohe progres0 ThCount= 1croller.Ma on) = cbaseCW(cIdw .- (" & Edide the progressssst
End SuCW(cIdw .Data(CInt(txtBeginAddr.Text) he progresdrCntr
CW(cIdw = CW(cIdw +on = "LO 'Hide the projust in vscScroller_Chang raProgr chk For sjust iScrolleHelps udate the scroll Make ue
one we waraPrwwasowiant
BeginAddr.Text
'Store the info, just i Then Scr Rnfig.henRSCWBothRSC For cntr = 0 To lblValUntrol Wor iHeight lle haRabeenegmen Lo lblValU Then Scr Rnfig.amS ' Rnfigght 0)EDatatFileName = GetFileNNNNNteight
dntr).Ftrog
(en Scr Rnfig.amS ' Rnfigght 1) the )he progresd 0 To lblValUNNNNteight
dntr).F"NouR
Lmen ! = "0drCntr
RAM Segment Cotrol Wor iHeight lle haRabeenegmen Lo lblValU Then Scr Rnfig.amS ' Rnfigght RSCxtF'- 1) tatatFileName = GetFileNNNNNteight
dntr).Ftrog
(en Scr Rnfig.amS ' Rnfigght RSCxtF'- 1) the )he progresd 0 To lblValUNNNNteight
dntr).F"NouR
Lmen ! = "0drCntr
the scroll area antil ramp geminim
p.Caption = cmdS.Te Cap " hWnd,ge the caption of tean '
shDi diajust ieakeMDIean ' If Ram,the fram
mdiMain.mnuSavbNnd If
End Sub
FindmdiMain.mnuPCIONnd If
End Sub
FindmdiMain.mnuareaNnd If
End Sub
FindmdiMain.mnuWwasowNnd If
End Sub
FindmdiMain.tlbMainves I 'Setup and show the progCe dia o modalown diajust iW mdiMain = "0 " 0
= ( 0
+ .5
-0 " 5
) / = 604"0 " nt(( + .
-0 "
) / '- 100 'Check toW he progc prgPr diajust iebNc hejust inWait cdgRon
Type RSrm untipper.Terea Do = 604"0DoEve sjust iLo Wh ebNProgress.Refresh
just innload Me
af it haRabeenehidde = GetFb
Private Sub st inReected ar_C diaskrm nightNext
Thean 'Used to ind= 0 To lblValUnUnman '
= 604"0 akeMDIean ' Me,ge the captiiiiimdiMain.mnuSavbNnd If
Eefresh
dispmdiMain.mnuPCIONnd If
Eefresh
dispmdiMain.mnuareaNnd If
Eefresh
dispmdiMain.mnuWwasowNnd If
Eefresh
dispmdiMain.tlbMainves I 'Setupefresh
display
''''''Attempthe sreected DUingVisihe disraPrwaM bufy=wnffsbefn the ra
og mode
Lo'bled = F Mdi0000I 'Setup and show t = F Mdi0000I For 1 'Check to curcmdSaveFile_Click()
inal_Queryb
P( Setup an e, b
Po indSetup an e)ext
Thb
Po ind= vbinal
NMenud= 0 To lblValUebNProgress.Rnd Sub
Find the curcmdSaveFile_Click()
)
'Show the edit dialog
R
' d Sub
Prext
'Store th.Refresh
just int control word info from the RamSegCW array
txtBeginAddr.TeamS(RamSegCW(cntr).BinalAdd txt CInt(txtBeginAddr.TechkNoDwell.valuamS(RamSegCW(cntr).FinalAdd txt CInt(txtBeg chkNoDwell.valuegCW(cntr).NoDwell
CInt(txtBegtAddrRampRateamSegCW(cntr).AddressR CInt(txtBeg = cbas(cntr).AmpvalueRamSegCW(cntr).ModeControl
CInt(txtBegd If
Nsh
just in SetupScrollArea
vscScroller_Change
RefreshDisext
'Store the info, Scroller_Change
Endext
'Store th.Rnd Sub
cmdSaveFile_Click()
t End If
_KeyPcbaseKeyAscii the edit dialog
C SetialogModeEndext
KeyAscii = xtFericKeysFil eKeyAscii)ext
KeyAscii = Plus.TeusKeysFil eKeyAscii)ext
vscSen.",CEditKeyAsciiTo lblValUCEdit13:To lblValUt
KeyAscii = 0To lblValUt
To lblValUt
'Endi vscScrtee info, = FFFFFt End If
_Endi vsC b
Find theapen."mpcmdSaveFile_Click()
t End If
_Endi v(C SetialogMo)ext
ThIsxtFeric(t End If
Addr.TexT2_RAabled = Fubutton sd If
c dhaRabeeneset xt
ov maximumRAabled = Fxt) Dbl(t End If
Addr.Te> 400exT2_RAabled = FFFFFt End If
dntr).F"400.000"sh vsccccccmdStr
t End If
dntr).FinalAddt End If
dntr 'disable the RSrequency.Text = Fnd If
dntr).F"400.000"shcccccmdStr
just int RefreshDisplay
st i
Private Sub cmdSaveFile_Click()
RefreshDisplay
Eeger
DiCW(cIdw pTW As Variant
m TempTW As Variant
POValTempTW = CDec(txtStartFagain
akthe RamSiodeC d area CW(cIdw = he display
' he RAM
data buR
EMDataoadEditedviewrea
vsnits.Count RefreshDisext
To RefreshDisext
+ = 360 ThCount= 1croller.Ma the AM
Rn RamSiodeC dhrm waseCoraProgr chkthe Next
on) = cbaseCW(cIdw .- (" & Edide the progressssson) = cbaseCW(cIdw .s.ZOrder (0)
t
End SuCW(cIdw .Data(CInt(txtBeginAddr.Text) heabled = FFFFFn vscScr Rn RamSvSegmenabled = FFFFFvalue = 0 Then
frmEditOutFreq.'bled = FFFFFFFFFamSEnd SuCW(cIdw .Dntr).FinalAdeq(txtStartFreq.Tag, txtSysteEnd SuCW(cIdw .Dat
'disable th'bled = FFFFFler.Max = CInt((((((((('ft(cul).AscScrthe Dehen
e scroMax = CInt((((((((('POValT(CInt(txtBeginAdartFreq.Tag, 32), 14)End SuCW(cIdw .Dat
Max = CInt(((((((((POValT(CrLimit.Tag)
End SuCW(cIdw .Dat) / ^ 18Add'bled = FFFFFFFFFmatEnd SuCW(cIdw .Dntr).FinalAdeft(cbasPOVal 'disable th'bled = FFFFFlmdStr
cmdStr
n vscScroller_Chang raProgr chk For sjust iiiiiScrolleHelps udate the
nMake surndHit =a= cbase moutsowGeKGenRamd info from han '& Phas 'S = 360 ThCount= amS(RamSegCW(cntr)ler.Ma on) = cbaseCW(cIdw . 'Setupefresh
dispppppAs IntegereCW(cIdw . 'Setupefresh
dispppppmatEnd SuCW(cIdw . 'Setupefresh
dispppppon)= "MHz"
CW(cIdw . 'Setupefresh
dispd 0 To lblValUNNNNon) = cbaseCW(cIdw . 'Setup and show t = FFFFFAs IntegereCW(cIdw . 'Setup and show t = FFFFFmatEnd SuCW(cIdw . 'Setup and show t = FFFFFon)= "MHz"
CW(cIdw . 'Setup Else
'Enab
nhowGethe RamsdHit =would vblsplay
e entire RAMoutsowGeKGenRamRAMSeg
'tire RAMs VB_ = 360 ThCoun> 1croller.Ma on) = cbaseCW(cIdw .Progress.Rnd Sub
FindddddddddAs IntegereCW(cIdw .Progress.Rnd Sub
FindddddddddmatEnd SuCW(cIdw .Progress.Rnd Sub
Findddddddddon)= "MHz"
CW(cIdw .Progress.Rnd Sub
Findddddd 0 To lblValUNNNNon) = cbaseCW(cIdw .Progress.Refresh
dispppppAs IntegereCW(cIdw .Progress.Refresh
dispppppmatEnd SuCW(cIdw ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -