I have several scripts which present the user with a dialog box with many check boxes to specify options (about 15-30 boxes in dialog box). I run a Subroutine called initialize before I present the dialog box which puts "checks" in the most commonly used checkboxes and then allows the user to make changes and process rest of script. In one app I even have buttons for Check All/Clear All.
With the upgrade to 7.4.004 none of my initialize operations are working. The user can still manually check the boxes but the default is unchecked for all and Check All/Clear All don't work.
Is their a change with how 7.4 uses dialog boxes or perhaps with subroutines in general?
Thanks
dbish
Initialize Dialog Box in 7.4.004
Moderators: Dorian (MJT support), JRL
dbish,
No way to answer your question without seeing a sample of what is failing and/or looking at log output.
I have several dialogs doing the same type of tasks that you are talking about. They were written earlier this year after I got a handle on how the Non-Modal dialogs worked. They are still working under version 7.4.004. I took one and rewrote it to provide you with a sample of something that worked before and still works.
Hope this is helpful...
Let>1stHalf=TRUE
Let>2ndHalf=FALSE
Dialog>Dialog1
Caption=Check box test
Width=440
Height=300
Top=200
Left=200
CheckBox=Checkbox1,Check1,82,58,60,%1stHalf%
CheckBox=Checkbox2,Check2,82,88,60,%1stHalf%
CheckBox=Checkbox3,Check3,82,118,60,%1stHalf%
CheckBox=Checkbox4,Check4,82,148,60,%1stHalf%
CheckBox=Checkbox5,Check5,82,178,60,%1stHalf%
CheckBox=Checkbox6,Check6,194,56,60,%1stHalf%
CheckBox=Checkbox7,Check7,194,86,60,%1stHalf%
CheckBox=Checkbox8,Check8,194,116,60,%1stHalf%
CheckBox=Checkbox9,Check9,194,146,60,%2ndHalf%
CheckBox=Checkbox10,Check10,194,176,60,%2ndHalf%
CheckBox=Checkbox11,Check11,290,54,60,%2ndHalf%
CheckBox=Checkbox12,Check12,290,84,60,%2ndHalf%
CheckBox=Checkbox13,Check13,290,114,60,%2ndHalf%
CheckBox=Checkbox14,Check14,290,144,60,%2ndHalf%
CheckBox=Checkbox15,Check15,290,174,60,%2ndHalf%
Button=Select All,76,16,75,25,3
Button=Clear All,184,16,75,25,4
Button=Toggle,288,16,75,25,5
EndDialog>Dialog1
show>Dialog1
Label>ActionLoop
GetDialogAction>Dialog1,r
if>r=3,SelectAll
if>r=4,ClearAll
if>r=5,ToggleAll
if>r=2,finish
Goto>ActionLoop
SRT>SelectAll
Let>state=True
Let>ku1=0
Repeat>ku1
Let>ku1=ku1+1
Let>dialog1.Checkbox%ku1%=%state%
Until>ku1,15
ResetDialogAction>Dialog1
END>SelectAll
SRT>ClearAll
Let>state=False
Let>ku2=0
Repeat>ku2
Let>ku2=ku2+1
Let>dialog1.Checkbox%ku2%=%state%
Until>ku2,15
ResetDialogAction>Dialog1
END>ClearAll
SRT>ToggleAll
Let>ku3=0
Repeat>ku3
Let>ku3=ku3+1
IF>dialog1.Checkbox%ku3%=True
Let>state=False
Else
Let>state=True
EndIf
Let>dialog1.Checkbox%ku3%=%state%
Until>ku3,15
ResetDialogAction>Dialog1
END>ToggleAll
Label>finish
Dick
No way to answer your question without seeing a sample of what is failing and/or looking at log output.
I have several dialogs doing the same type of tasks that you are talking about. They were written earlier this year after I got a handle on how the Non-Modal dialogs worked. They are still working under version 7.4.004. I took one and rewrote it to provide you with a sample of something that worked before and still works.
Hope this is helpful...
Let>1stHalf=TRUE
Let>2ndHalf=FALSE
Dialog>Dialog1
Caption=Check box test
Width=440
Height=300
Top=200
Left=200
CheckBox=Checkbox1,Check1,82,58,60,%1stHalf%
CheckBox=Checkbox2,Check2,82,88,60,%1stHalf%
CheckBox=Checkbox3,Check3,82,118,60,%1stHalf%
CheckBox=Checkbox4,Check4,82,148,60,%1stHalf%
CheckBox=Checkbox5,Check5,82,178,60,%1stHalf%
CheckBox=Checkbox6,Check6,194,56,60,%1stHalf%
CheckBox=Checkbox7,Check7,194,86,60,%1stHalf%
CheckBox=Checkbox8,Check8,194,116,60,%1stHalf%
CheckBox=Checkbox9,Check9,194,146,60,%2ndHalf%
CheckBox=Checkbox10,Check10,194,176,60,%2ndHalf%
CheckBox=Checkbox11,Check11,290,54,60,%2ndHalf%
CheckBox=Checkbox12,Check12,290,84,60,%2ndHalf%
CheckBox=Checkbox13,Check13,290,114,60,%2ndHalf%
CheckBox=Checkbox14,Check14,290,144,60,%2ndHalf%
CheckBox=Checkbox15,Check15,290,174,60,%2ndHalf%
Button=Select All,76,16,75,25,3
Button=Clear All,184,16,75,25,4
Button=Toggle,288,16,75,25,5
EndDialog>Dialog1
show>Dialog1
Label>ActionLoop
GetDialogAction>Dialog1,r
if>r=3,SelectAll
if>r=4,ClearAll
if>r=5,ToggleAll
if>r=2,finish
Goto>ActionLoop
SRT>SelectAll
Let>state=True
Let>ku1=0
Repeat>ku1
Let>ku1=ku1+1
Let>dialog1.Checkbox%ku1%=%state%
Until>ku1,15
ResetDialogAction>Dialog1
END>SelectAll
SRT>ClearAll
Let>state=False
Let>ku2=0
Repeat>ku2
Let>ku2=ku2+1
Let>dialog1.Checkbox%ku2%=%state%
Until>ku2,15
ResetDialogAction>Dialog1
END>ClearAll
SRT>ToggleAll
Let>ku3=0
Repeat>ku3
Let>ku3=ku3+1
IF>dialog1.Checkbox%ku3%=True
Let>state=False
Else
Let>state=True
EndIf
Let>dialog1.Checkbox%ku3%=%state%
Until>ku3,15
ResetDialogAction>Dialog1
END>ToggleAll
Label>finish
Dick
I pasted the entire script below. The basic logic is to first run the SUB named INITIALIZE which sets the checkbox values to zero or nonzero values. The PARAMETER dialog box is then shown. When the user clicks OK a SUB called CAPTURE is run to capture the settings the user chose and then a URL is created and sent to IE6 which gets a webpage. When that webpage is closed a second dialog (called CONTINUE) appears which asks whether the user wants to do it again. If so, the values that were captured are inserted into Dialog box PARAMETER and the cycle starts again.
The reason that I suspected a change with 7.4.004 is that my Dialog macros worked only a couple days ago and now don't with the change in MCHED. No other changes have happpened to my computer.
Thanks for looking.
dbish
=====================================
Dialog>PARAMETER
Caption=STARTUP OPTIONS
Top=20
Width=1000
Left=20
Height=700
Label=CHART SIZE:,35,15
ComboBox=Size,35,37,75,Default%CRLF%Small%CRLF%Medium%CRLF%Large%CRLF%Huge%CRLF%Wide%CRLF%SuperTall
Let>PARAMETER.Size.ItemIndex=%var_Size%
Label=BAR INTERVAL:,140,15
ComboBox=BarInterval,140,37,80,Daily%CRLF%1 minute%CRLF%5 minutes%CRLF%10 minutes%CRLF%15 minutes%CRLF%30 minutes%CRLF%60 minutes%CRLF%weekly%CRLF%monthly
Let>PARAMETER.BarInterval.ItemIndex=%var_BarInterval%
Label=LINE STYLE:,250,15
ComboBox=LineStyle,250,37,95,CandleStick%CRLF%OHLC%CRLF%Line
Let>PARAMETER.LineStyle.ItemIndex=%var_LineStyle%
Label=Y-SCALE:,355,15
ComboBox=YScaleStyle,355,37,135,Regular Scale%CRLF%Log Scale%CRLF%No Scale%CRLF%Reg Scale - Reverse Axis%CRLF%Log Scale - Reverse Axis%CRLF%No Scale - Reverse Axis
Let>PARAMETER.YScaleStyle.ItemIndex=%var_YScaleStyle%
Label=GRIDLINES:,510,15
ComboBox=Gridline,510,37,95,Both%CRLF%More Horiz. Lines%CRLF%Fewer Horiz. Lines
Let>PARAMETER.Gridline.ItemIndex=%var_Gridline%
Label=DATERANGE:,625,15
ComboBox=DateRange,625,37,110,1 year%CRLF%1 month%CRLF%3 months%CRLF%6 months%CRLF%2 years%CRLF%3 years%CRLF%4 years%CRLF%5 years%CRLF%7 years%CRLF%10 years%CRLF%Custom - # Days%CRLF%Custom - Date Range
Let>PARAMETER.DateRange.ItemIndex=%var_DateRange%
Label======= CUSTOM DATE RANGES ======,745,5
Label=# DAYS,745,20
Edit=DAYS,745,37,50,%var_DAYS%
Label=INITIAL DATE,810,20
Edit=DateRange1,810,37,70,%var_DateRange1%
Label=ENDING DATE,885,20
Label=Use "z" for Today,885,65
Edit=DateRange2,885,37,70,%var_DateRange2%
Label========================= PRICE INDICATORS ======================== SYMBOL:,20,80
Edit=SYMBOL,555,97,80,%var_SYMBOL%
CheckBox=chkboxSMA,SMA,20,97,50,%var_chkboxSMA%
Edit=SMA1,80,97,30,%var_SMA1%
Edit=SMA2,115,97,30,%var_SMA2%
Edit=SMA3,150,97,30,%var_SMA3%
Edit=SMA4,185,97,30,%var_SMA4%
Edit=SMA5,220,97,30,%var_SMA5%
Edit=SMA6,255,97,30,%var_SMA6%
Edit=SMA7,297,97,30,%var_SMA7%
Edit=SMA8,325,97,30,%var_SMA8%
Edit=SMA9,360,97,30,%var_SMA9%
Edit=SMA10,395,97,30,%var_SMA10%
CheckBox=chkboxEMA,EMA,20,127,50,%var_chkboxEMA%
Edit=EMA1,80,127,30,%var_EMA1%
Edit=EMA2,115,127,30,%var_EMA2%
Edit=EMA3,150,127,30,%var_EMA3%
Edit=EMA4,185,127,30,%var_EMA4%
Edit=EMA5,220,127,30,%var_EMA5%
Edit=EMA6,255,127,30,%var_EMA6%
Edit=EMA7,290,127,30,%var_EMA7%
Edit=EMA8,325,127,30,%var_EMA8%
Edit=EMA9,360,127,30,%var_EMA9%
Edit=EMA10,395,127,30,%var_EMA10%
CheckBox=chkboxHZ,Horizonal Line,20,157,90,%var_chkboxHZ%
Edit=HZ1,115,157,30,%var_HZ1%
Edit=HZ2,150,157,30,%var_HZ2%
Edit=HZ3,185,157,30,%var_HZ3%
Edit=HZ4,220,157,30,%var_HZ4%
CheckBox=chkboxBB,Bollinger Bands,260,157,95,%var_chkboxBB%
Edit=BB1,360,157,30,%var_BB1%
Edit=BB2,395,157,30,%var_BB2%
CheckBox=chkboxPriceLabels,PRICE LABELS on Turning Pts,20,187,170,%var_chkboxPriceLabels%
CheckBox=chkboxPricebyVolume,PRICE by VOLUME (left axis),195,187,160,%var_chkboxPricebyVolume%
CheckBox=chkboxVolume,SHOW VOLUME?,20,217,110,%var_chkboxVolume%
CheckBox=chkboxVolumeMA,USE VOLUME MA? Amount?,140,217,165,%var_chkboxVolumeMA%
Edit=VOLUMEMA1,315,217,30,%var_VOLUMEMA1%
Label================================== TECHNICAL INDICATORS =================================,20,250
Label= U L U L,20,267
CheckBox=chkboxMACDline,MACD,20,283,125,%var_chkboxMACDline%
CheckBox=chkboxMACDlineU,,150,283,15,%var_chkboxMACDlineU%
CheckBox=chkboxMACDlineL,,165,283,15,%var_chkboxMACDlineL%
Edit=MACDline1,185,283,30,%var_MACDline1%
Edit=MACDline2,220,283,30,%var_MACDline2%
Edit=MACDline3,255,283,30,%var_MACDline3%
CheckBox=chkboxMACDHist,MACD Histogram,20,313,125,%var_chkboxMACDHist%
CheckBox=chkboxMACDHistU,,150,313,15,%var_chkboxMACDHistU%
CheckBox=chkboxMACDHistL,,165,313,15,%var_chkboxMACDHistL%
Edit=MACDHist1,185,313,30,%var_MACDHist1%
Edit=MACDHist2,220,313,30,%var_MACDHist2%
Edit=MACDHist3,255,313,30,%var_MACDHist3%
CheckBox=chkboxSTOslow,STOCHASTIC Slow,20,343,125,%var_chkboxSTOslow%
CheckBox=chkboxSTOslowU,,150,343,15,%var_chkboxSTOslowU%
CheckBox=chkboxSTOslowL,,165,343,15,%var_chkboxSTOslowL%
Edit=STOslow1,185,343,30,%var_STOslow1%
Edit=STOslow2,220,343,30,%var_STOslow2%
CheckBox=chkboxSTOfast,STOCHASTIC Fast,20,373,125,%var_chkboxSTOfast%
CheckBox=chkboxSTOfastU,,150,373,15,%var_chkboxSTOfastU%
CheckBox=chkboxSTOfastL,,165,373,15,%var_chkboxSTOfastL%
Edit=STOfast1,185,373,30,%var_STOfast1%
Edit=STOfast2,220,373,30,%var_STOfast2%
CheckBox=chkboxSTOfull,STOCHASTIC FULL,20,403,125,%var_chkboxSTOfull%
CheckBox=chkboxSTOfullU,,150,403,15,%var_chkboxSTOfullU%
CheckBox=chkboxSTOfullL,,165,403,15,%var_chkboxSTOfullL%
Edit=STOfull1,185,403,30,%var_STOfull1%
Edit=STOfull2,220,403,30,%var_STOfull2%
Edit=STOfull3,255,403,30,%var_STOfull3%
CheckBox=chkboxACCUMDIST,Accum/Distribution,20,433,125,%var_chkboxACCUMDIST%
CheckBox=chkboxACCUMDISTU,,150,433,15,%var_chkboxACCUMDISTU%
CheckBox=chkboxACCUMDISTL,,165,433,15,%var_chkboxACCUMDISTL%
Edit=ACCUMDIST1,185,433,30,%var_ACCUMDIST1%
CheckBox=chkboxADX,ADX (DI+/DI-),20,463,125,%var_chkboxADX%
CheckBox=chkboxADXU,,150,463,15,%var_chkboxADXU%
CheckBox=chkboxADXL,,165,463,15,%var_chkboxADXL%
Edit=ADX1,185,463,30,%var_ADX1%
CheckBox=chkboxOBV,On Balance Volume,300,283,125,%var_chkboxOBV%
CheckBox=chkboxOBVU,,430,283,15,%var_chkboxOBVU%
CheckBox=chkboxMOBVL,,445,283,15,%var_chkboxMOBVL%
Edit=OBV1,465,283,30,%var_OBV1%
CheckBox=chkboxCMF,Chaikin Money Flow,300,313,125,%var_chkboxCMF%
CheckBox=chkboxCMFU,,430,313,15,%var_chkboxCMFU%
CheckBox=chkboxCMFL,,445,313,15,%var_chkboxCMFL%
Edit=CMF1,465,313,30,%var_CMF1%
CheckBox=chkboxRSI,RSI (Rel Strength),300,343,125,%var_chkboxRSI%
CheckBox=chkboxRSIU,,430,343,15,%var_chkboxRSIU%
CheckBox=chkboxRSIL,,445,343,15,%var_chkboxRSIL%
Edit=RSI1,465,343,30,%var_RSI1%
CheckBox=chkboxRSIstoch,RSI Stochastic,300,373,125,%var_chkboxRSIstoch%
CheckBox=chkboxRSIstochU,,430,373,15,%var_chkboxRSIstochU%
CheckBox=chkboxRSIstochL,,445,373,15,%var_chkboxRSIstochL%
Edit=RSIstoch1,465,373,30,%var_RSIstoch1%
CheckBox=chkboxWilliamR,Williams %R,300,403,125,%var_chkboxWilliamR%
CheckBox=chkboxWilliamRU,,430,403,15,%var_chkboxWilliamRU%
CheckBox=chkboxWilliamRL,,445,403,15,%var_chkboxWilliamRL%
Edit=WilliamR1,465,403,30,%var_WilliamR1%
CheckBox=chkboxATR,Average True Range,300,433,125,%var_chkboxATR%
CheckBox=chkboxATRU,,430,433,15,%var_chkboxATRU%
CheckBox=chkboxATRL,,445,433,15,%var_chkboxATRL%
Edit=ATR1,465,433,30,%var_ATR1%
CheckBox=chkboxPriceRel,Price Relative to ___,300,463,125,%var_chkboxPriceRel%
CheckBox=chkboxPriceRelU,,430,463,15,%var_chkboxPriceRelU%
CheckBox=chkboxPriceRelL,,445,463,15,%var_chkboxPriceRelL%
Edit=PriceRel1,465,463,80,%var_PriceRel1%
Button=SYMBOL LOOKUP,645,410,150,25,3
Button=OKAY,320,610,75,25,1
Button=CANCEL,645,610,75,25,2
EndDialog>PARAMETER
Dialog>CONTINUE
Caption=ANOTHER CHART?
Top=300
Width=300
Left=300
Height=100
Remark>Label=ANOTHER CHART OR QUIT?,35,15
Button=ANOTHER CHART,20,30,125,25,1
Button=QUIT,170,30,100,25,2
EndDialog>CONTINUE
GoSub>INITIALIZE
Let>ITERATION_COUNT=0
Label>SHOWDIALOG
Let>ITERATION_COUNT=ITERATION_COUNT+1
SHOW>PARAMETER,RESULT
If>RESULT=2,ENDPOINT
If>RESULT=3,SYMBOLLOOKUP
Gosub>CAPTURE
Remark>===================== COMBOBOX INDICATORs APPLICATION ==============================================================
Remark>SIZE Determination
Let>SIZECODE=980,600
If>PARAMETER.Size.ItemIndex=1,SIZESMALL
If>PARAMETER.Size.ItemIndex=2,SIZEMEDIUM
If>PARAMETER.Size.ItemIndex=3,SIZELARGE
If>PARAMETER.Size.ItemIndex=4,SIZEHUGE
If>PARAMETER.Size.ItemIndex=5,SIZEWIDE
If>PARAMETER.Size.ItemIndex=6,SIZESUPERTALL
Goto>SIZEDONE
Label>SIZESMALL
Let>SIZECODE=s,a
Goto>SIZEDONE
Label>SIZEMEDIUM
Let>SIZECODE=m,a
Goto>SIZEDONE
Label>SIZELARGE
Let>SIZECODE=l,a
Goto>SIZEDONE
Label>SIZEHUGE
Let>SIZECODE=h,a
Goto>SIZEDONE
Label>SIZEWIDE
Let>SIZECODE=e,a
Goto>SIZEDONE
Label>SIZESUPERTALL
Let>SIZECODE=980,950
Label>SIZEDONE
Remark>BARINTERVAL Determination
Let>BARINTERVALCODE=d
If>PARAMETER.BarInterval.ItemIndex=1,BARINTERVAL1
If>PARAMETER.BarInterval.ItemIndex=2,BARINTERVAL5
If>PARAMETER.BarInterval.ItemIndex=3,BARINTERVAL10
If>PARAMETER.BarInterval.ItemIndex=4,BARINTERVAL15
If>PARAMETER.BarInterval.ItemIndex=5,BARINTERVAL30
If>PARAMETER.BarInterval.ItemIndex=6,BARINTERVAL60
If>PARAMETER.BarInterval.ItemIndex=7,BARINTERVALw
If>PARAMETER.BarInterval.ItemIndex=8,BARINTERVALm
Goto>BARINTERVALDONE
Label>BARINTERVAL1
Let>BARINTERVALCODE=j
Goto>BARINTERVALDONE
Label>BARINTERVAL5
Let>BARINTERVALCODE=i
Goto>BARINTERVALDONE
Label>BARINTERVAL10
Let>BARINTERVALCODE=h
Goto>BARINTERVALDONE
Label>BARINTERVAL15
Let>BARINTERVALCODE=g
Goto>BARINTERVALDONE
Label>BARINTERVAL30
Let>BARINTERVALCODE=f
Goto>BARINTERVALDONE
Label>BARINTERVAL60
Let>BARINTERVALCODE=e
Goto>BARINTERVALDONE
Label>BARINTERVALw
Let>BARINTERVALCODE=w
Label>BARINTERVALm
Let>BARINTERVALCODE=m
Label>BARINTERVALDONE
Remark>LINESTYLE Determination
Let>LINESTYLECODE=c
If>PARAMETER.LINESTYLE.ItemIndex=1,LINESTYLEOHLC
If>PARAMETER.LINESTYLE.ItemIndex=2,LINESTYLELINE
Goto>LINESTYLEDONE
Label>LINESTYLEOHLC
Let>LINESTYLECODE=h
Goto>LINESTYLEDONE
Label>LINESTYLELINE
Let>LINESTYLECODE=l
Label>LINESTYLEDONE
Remark>YSCALESTYLE Determination
Let>YSCALESTYLECODE=a
If>PARAMETER.YSCALESTYLE.ItemIndex=1,YSCALESTYLELOG
If>PARAMETER.YSCALESTYLE.ItemIndex=2,YSCALESTYLENOSCALE
If>PARAMETER.YSCALESTYLE.ItemIndex=3,YSCALESTYLEREGreverse
If>PARAMETER.YSCALESTYLE.ItemIndex=4,YSCALESTYLELOGreverse
If>PARAMETER.YSCALESTYLE.ItemIndex=5,YSCALESTYLENOreverse
Goto>YSCALESTYLEDONE
Label>YSCALESTYLELOG
Let>YSCALESTYLECODE=l
Goto>YSCALESTYLEDONE
Label>YSCALESTYLENOSCALE
Let>YSCALESTYLECODE=c
Goto>YSCALESTYLEDONE
Label>YSCALESTYLEREGreverse
Let>YSCALESTYLECODE=b
Goto>YSCALESTYLEDONE
Label>YSCALESTYLELOGreverse
Let>YSCALESTYLECODE=k
Goto>YSCALESTYLEDONE
Label>YSCALESTYLENOreverse
Let>YSCALESTYLECODE=e
Label>YSCALESTYLEDONE
Remark>GRIDLINE Determination
Let>GRIDLINECODE=a
If>PARAMETER.GRIDLINE.ItemIndex=1,GRIDLINEMORE
If>PARAMETER.GRIDLINE.ItemIndex=2,GRIDLINELESS
Goto>GRIDLINEDONE
Label>GRIDLINEMORE
Let>GRIDLINECODE=h
Goto>GRIDLINEDONE
Label>GRIDLINELESS
Let>GRIDLINECODE=l
Label>GRIDLINEDONE
Remark>DATERANGE Determination
Let>DATERANGECODE=dd
If>PARAMETER.DATERANGE.ItemIndex=1,DATERANGE1
If>PARAMETER.DATERANGE.ItemIndex=2,DATERANGE3
If>PARAMETER.DATERANGE.ItemIndex=3,DATERANGE6
If>PARAMETER.DATERANGE.ItemIndex=4,DATERANGE24
If>PARAMETER.DATERANGE.ItemIndex=5,DATERANGE36
If>PARAMETER.DATERANGE.ItemIndex=6,DATERANGE48
If>PARAMETER.DATERANGE.ItemIndex=7,DATERANGE60
If>PARAMETER.DATERANGE.ItemIndex=8,DATERANGE84
If>PARAMETER.DATERANGE.ItemIndex=9,DATERANGE120
If>PARAMETER.DATERANGE.ItemIndex=10,DATERANGECustdays
If>PARAMETER.DATERANGE.ItemIndex=11,DATERANGECustDateRange
Goto>DATERANGEDONE
Label>DATERANGE1
Let>DATERANGECODE=da
Goto>DATERANGEDONE
Label>DATERANGE3
Let>DATERANGECODE=db
Goto>DATERANGEDONE
Label>DATERANGE6
Let>DATERANGECODE=dc
Goto>DATERANGEDONE
Label>DATERANGE24
Let>DATERANGECODE=de
Goto>DATERANGEDONE
Label>DATERANGE36
Let>DATERANGECODE=df
Goto>DATERANGEDONE
Label>DATERANGE48
Let>DATERANGECODE=dh
Goto>DATERANGEDONE
Label>DATERANGE60
Let>DATERANGECODE=di
Goto>DATERANGEDONE
Label>DATERANGE84
Let>DATERANGECODE=dj
Goto>DATERANGEDONE
Label>DATERANGE120
Let>DATERANGECODE=dk
Goto>DATERANGEDONE
Label>DATERANGECustDateRange
Let>DATERANGECODE=d%var_DateRange1%,%var_DateRange2%
If>var_DateRange_HOLD10,SKIP_DATERANGE_FIX
Let>DATERANGECODE=d%var_DateRange1_HOLD%,%var_DateRange2_HOLD%
Label>SKIP_DATERANGE_FIX
Goto>DATERANGEDONE
Label>DATERANGECustdays
Gosub>DAYSCALC
Let>var_DateRange1_HOLD=%var_DateRange1%
Let>var_DateRange2_HOLD=%var_DateRange2%
Let>var_DateRange_HOLD=10
Let>DATERANGECODE=d%var_DateRange1%,%var_DateRange2%
Let>var_DateRange=11
Let>PARAMETER.DateRange.ItemIndex=%var_DateRange%
Let>var_DAYS=#Days
Label>DATERANGEDONE
Remark>===================== PRICE INDICATOR APPLICATION ==============================================================
Let>SMA1CODE=
Let>SMA2CODE=
Let>SMA3CODE=
Let>SMA4CODE=
Let>SMA5CODE=
Let>SMA6CODE=
Let>SMA7CODE=
Let>SMA8CODE=
Let>SMA9CODE=
Let>SMA10CODE=
If>%var_chkboxSMA%=False,SMACOLLECT
Label>SMA1TEST
If>%var_SMA1%>0,SMA1GOOD
Goto>SMA2TEST
Label>SMA1GOOD
Let>SMA1CODE=!b%var_SMA1%
Label>SMA2TEST
If>%var_SMA2%>0,SMA2GOOD
Goto>SMA3TEST
Label>SMA2GOOD
Let>SMA2CODE=!b%var_SMA2%
Label>SMA3TEST
If>%var_SMA3%>0,SMA3GOOD
Goto>SMA4TEST
Label>SMA3GOOD
Let>SMA3CODE=!b%var_SMA3%
Label>SMA4TEST
If>%var_SMA4%>0,SMA4GOOD
Goto>SMA5TEST
Label>SMA4GOOD
Let>SMA4CODE=!b%var_SMA4%
Label>SMA5TEST
If>%var_SMA5%>0,SMA5GOOD
Goto>SMA6TEST
Label>SMA5GOOD
Let>SMA5CODE=!b%var_SMA5%
Label>SMA6TEST
If>%var_SMA6%>0,SMA6GOOD
Goto>SMA7TEST
Label>SMA6GOOD
Let>SMA6CODE=!b%var_SMA6%
Label>SMA7TEST
If>%var_SMA7%>0,SMA7GOOD
Goto>SMA8TEST
Label>SMA7GOOD
Let>SMA7CODE=!b%var_SMA7%
Label>SMA8TEST
If>%var_SMA8%>0,SMA8GOOD
Goto>SMA9TEST
Label>SMA8GOOD
Let>SMA8CODE=!b%var_SMA8%
Label>SMA9TEST
If>%var_SMA9%>0,SMA9GOOD
Goto>SMA10TEST
Label>SMA9GOOD
Let>SMA9CODE=!b%var_SMA9%
Label>SMA10TEST
If>%var_SMA10%>0,SMA10GOOD
Goto>SMACOLLECT
Label>SMA10GOOD
Let>SMA10CODE=!b%var_SMA10%
Label>SMACOLLECT
Let>SMAVALUECODE=%SMA1CODE%%SMA2CODE%%SMA3CODE%%SMA4CODE%%SMA5CODE%%SMA6CODE%%SMA7CODE%%SMA8CODE%%SMA9CODE%%SMA10CODE%
Label>SMADONE
Let>EMA1CODE=
Let>EMA2CODE=
Let>EMA3CODE=
Let>EMA4CODE=
Let>EMA5CODE=
Let>EMA6CODE=
Let>EMA7CODE=
Let>EMA8CODE=
Let>EMA9CODE=
Let>EMA10CODE=
If>%var_chkboxEMA%=False,EMACOLLECT
Label>EMA1TEST
If>%var_EMA1%>0,EMA1GOOD
Goto>EMA2TEST
Label>EMA1GOOD
Let>EMA1CODE=!c%var_EMA1%
Label>EMA2TEST
If>%var_EMA2%>0,EMA2GOOD
Goto>EMA3TEST
Label>EMA2GOOD
Let>EMA2CODE=!c%var_EMA2%
Label>EMA3TEST
If>%var_EMA3%>0,EMA3GOOD
Goto>EMA4TEST
Label>EMA3GOOD
Let>EMA3CODE=!c%var_EMA3%
Label>EMA4TEST
If>%var_EMA4%>0,EMA4GOOD
Goto>EMA5TEST
Label>EMA4GOOD
Let>EMA4CODE=!c%var_EMA4%
Label>EMA5TEST
If>%var_EMA5%>0,EMA5GOOD
Goto>EMA6TEST
Label>EMA5GOOD
Let>EMA5CODE=!c%var_EMA5%
Label>EMA6TEST
If>%var_EMA6%>0,EMA6GOOD
Goto>EMA7TEST
Label>EMA6GOOD
Let>EMA6CODE=!c%var_EMA6%
Label>EMA7TEST
If>%var_EMA7%>0,EMA7GOOD
Goto>EMA8TEST
Label>EMA7GOOD
Let>EMA7CODE=!c%var_EMA7%
Label>EMA8TEST
If>%var_EMA8%>0,EMA8GOOD
Goto>EMA9TEST
Label>EMA8GOOD
Let>EMA8CODE=!c%var_EMA8%
Label>EMA9TEST
If>%var_EMA9%>0,EMA9GOOD
Goto>EMA10TEST
Label>EMA9GOOD
Let>EMA9CODE=!c%var_EMA9%
Label>EMA10TEST
If>%var_EMA10%>0,EMA10GOOD
Goto>EMACOLLECT
Label>EMA10GOOD
Let>EMA10CODE=!c%var_EMA10%
Label>EMACOLLECT
Let>EMAVALUECODE=%EMA1CODE%%EMA2CODE%%EMA3CODE%%EMA4CODE%%EMA5CODE%%EMA6CODE%%EMA7CODE%%EMA8CODE%%EMA9CODE%%EMA10CODE%
Label>EMADONE
Let>HZ1CODE=
Let>HZ2CODE=
Let>HZ3CODE=
Let>HZ4CODE=
If>%var_chkboxHZ%=False,HZCOLLECT
Label>HZ1TEST
If>%var_HZ1%>0,HZ1GOOD
Goto>HZ2TEST
Label>HZ1GOOD
Let>HZ1CODE=!a%var_HZ1%
Label>HZ2TEST
If>%var_HZ2%>0,HZ2GOOD
Goto>HZ3TEST
Label>HZ2GOOD
Let>HZ2CODE=!a%var_HZ2%
Label>HZ3TEST
If>%var_HZ3%>0,HZ3GOOD
Goto>HZ4TEST
Label>HZ3GOOD
Let>HZ3CODE=!a%var_HZ3%
Label>HZ4TEST
If>%var_HZ4%>0,HZ4GOOD
Goto>HZCOLLECT
Label>HZ4GOOD
Let>HZ4CODE=!a%var_HZ4%
Label>HZCOLLECT
Let>HZVALUECODE=%HZ1CODE%%HZ2CODE%%HZ3CODE%%HZ4CODE%
Label>HZDONE
Let>BBCODE=
If>%var_chkboxBB%=False,BBDONE
Let>BBCOMMA=,
Let>BBCODE=!d%var_BB1%,%var_BB2%
Label>BBDONE
Let>PRICELABELSCODE=
If>%var_chkboxPRICELABELS%=False,PRICELABELSDONE
Let>PRICELABELSCODE=!f
Label>PRICELABELSDONE
Let>PRICEBYVOLUMECODE=
If>%var_chkboxPRICEBYVOLUME%=False,PRICEBYVOLUMEDONE
Let>PRICEBYVOLUMECODE=!i
Label>PRICEBYVOLUMEDONE
Let>VOLUMECODE=n
Let>VOLUMEMACODE=
If>%var_chkboxVOLUME%=False,VOLUMEDONE
Let>VOLUMECODE=y
If>%var_chkboxVOLUMEMA%=False,VOLUMEDONE
Let>VOLUMEMACODE=vc%var_VOLUMEMA1%
Label>VOLUMEDONE
Remark>===================== TECHNICAL INDICATORS APPLICATION ========================================================
Let>MACDLINELOCATIONCODE=
Let>MACDLINEVALUECODE=
If>%var_chkboxMACDLINE%=False,MACDLINEDONE
If>%var_chkboxMACDLINEU%=False,MACDLINELOWER
Let>MACDLINELOCATIONCODE=!Ua
Goto>MACDLINELOCATIONDONE
Label>MACDLINELOWER
Let>MACDLINELOCATIONCODE=!La
Label>MACDLINELOCATIONDONE
Let>MACDLINEVALUECODE=%var_MACDLINE1%,%var_MACDLINE2%,%var_MACDline3%
Label>MACDLINEDONE
Let>MACDHISTLOCATIONCODE=
Let>MACDHISTVALUECODE=
If>%var_chkboxMACDHIST%=False,MACDHISTDONE
If>%var_chkboxMACDHISTU%=False,MACDHISTLOWER
Let>MACDHISTLOCATIONCODE=!Uah
Goto>MACDHISTLOCATIONDONE
Label>MACDHISTLOWER
Let>MACDHISTLOCATIONCODE=!Lah
Label>MACDHISTLOCATIONDONE
Let>MACDHISTVALUECODE=%var_MACDHIST1%,%var_MACDHIST2%,%var_MACDHIST3%
Label>MACDHISTDONE
Let>STOSLOWLOCATIONCODE=
Let>STOSLOWVALUECODE=
If>%var_chkboxSTOSLOW%=False,STOSLOWDONE
If>%var_chkboxSTOSLOWU%=False,STOSLOWLOWER
Let>STOSLOWLOCATIONCODE=!Uh
Goto>STOSLOWLOCATIONDONE
Label>STOSLOWLOWER
Let>STOSLOWLOCATIONCODE=!Lh
Label>STOSLOWLOCATIONDONE
Let>STOSLOWVALUECODE=%var_STOSLOW1%,%var_STOSLOW2%
Label>STOSLOWDONE
Let>STOFASTLOCATIONCODE=
Let>STOFASTVALUECODE=
If>%var_chkboxSTOFAST%=False,STOFASTDONE
If>%var_chkboxSTOFASTU%=False,STOFASTLOWER
Let>STOFASTLOCATIONCODE=!Ui
Goto>STOFASTLOCATIONDONE
Label>STOFASTLOWER
Let>STOFASTLOCATIONCODE=!Li
Label>STOFASTLOCATIONDONE
Let>STOFASTVALUECODE=%var_STOFAST1%,%var_STOFAST2%
Label>STOFASTDONE
Let>STOFULLLOCATIONCODE=
Let>STOFULLVALUECODE=
If>%var_chkboxSTOFULL%=False,STOFULLDONE
If>%var_chkboxSTOFULLU%=False,STOFULLLOWER
Let>STOFULLLOCATIONCODE=!Up
Goto>STOFULLLOCATIONDONE
Label>STOFULLLOWER
Let>STOFULLLOCATIONCODE=!Lp
Label>STOFULLLOCATIONDONE
Let>STOFULLVALUECODE=%var_STOFULL1%,%var_STOFULL2%,%var_STOFULL3%
Label>STOFULLDONE
Let>ACCUMDISTLOCATIONCODE=
Let>ACCUMDISTVALUECODE=
If>%var_chkboxACCUMDIST%=False,ACCUMDISTDONE
If>%var_chkboxACCUMDISTU%=False,ACCUMDISTLOWER
Let>ACCUMDISTLOCATIONCODE=!Uf
Goto>ACCUMDISTLOCATIONDONE
Label>ACCUMDISTLOWER
Let>ACCUMDISTLOCATIONCODE=!Lf
Label>ACCUMDISTLOCATIONDONE
Let>ACCUMDISTVALUECODE=%var_ACCUMDIST1%
Label>ACCUMDISTDONE
Let>ADXLOCATIONCODE=
Let>ADXVALUECODE=
If>%var_chkboxADX%=False,ADXDONE
If>%var_chkboxADXU%=False,ADXLOWER
Let>ADXLOCATIONCODE=!Ul
Goto>ADXLOCATIONDONE
Label>ADXLOWER
Let>ADXLOCATIONCODE=!Ll
Label>ADXLOCATIONDONE
Let>ADXVALUECODE=%var_ADX1%
Label>ADXDONE
Let>OBVLOCATIONCODE=
Let>OBVVALUECODE=
If>%var_chkboxOBV%=False,OBVDONE
If>%var_chkboxOBVU%=False,OBVLOWER
Let>OBVLOCATIONCODE=!Ug
Goto>OBVLOCATIONDONE
Label>OBVLOWER
Let>OBVLOCATIONCODE=!Lg
Label>OBVLOCATIONDONE
Let>OBVVALUECODE=%var_OBV1%
Label>OBVDONE
Let>CMFLOCATIONCODE=
Let>CMFVALUECODE=
If>%var_chkboxCMF%=False,CMFDONE
If>%var_chkboxCMFU%=False,CMFLOWER
Let>CMFLOCATIONCODE=!Uc
Goto>CMFLOCATIONDONE
Label>CMFLOWER
Let>CMFLOCATIONCODE=!Lc
Label>CMFLOCATIONDONE
Let>CMFVALUECODE=%var_CMF1%
Label>CMFDONE
Let>RSILOCATIONCODE=
Let>RSIVALUECODE=
If>%var_chkboxRSI%=False,RSIDONE
If>%var_chkboxRSIU%=False,RSILOWER
Let>RSILOCATIONCODE=!Ub
Goto>RSILOCATIONDONE
Label>RSILOWER
Let>RSILOCATIONCODE=!Lb
Label>RSILOCATIONDONE
Let>RSIVALUECODE=%var_RSI1%
Label>RSIDONE
Let>RSISTOCHLOCATIONCODE=
Let>RSISTOCHVALUECODE=
If>%var_chkboxRSISTOCH%=False,RSISTOCHDONE
If>%var_chkboxRSISTOCHU%=False,RSISTOCHLOWER
Let>RSISTOCHLOCATIONCODE=!Uo
Goto>RSISTOCHLOCATIONDONE
Label>RSISTOCHLOWER
Let>RSISTOCHLOCATIONCODE=!Lo
Label>RSISTOCHLOCATIONDONE
Let>RSISTOCHVALUECODE=%var_RSISTOCH1%
Label>RSISTOCHDONE
Let>WilliamRLOCATIONCODE=
Let>WilliamRVALUECODE=
If>%var_chkboxWilliamR%=False,WilliamRDONE
If>%var_chkboxWilliamRU%=False,WilliamRLOWER
Let>WilliamRLOCATIONCODE=!Uk
Goto>WilliamRLOCATIONDONE
Label>WilliamRLOWER
Let>WilliamRLOCATIONCODE=!Lk
Label>WilliamRLOCATIONDONE
Let>WilliamRVALUECODE=%var_WilliamR1%
Label>WilliamRDONE
Let>ATRLOCATIONCODE=
Let>ATRVALUECODE=
If>%var_chkboxATR%=False,ATRDONE
If>%var_chkboxATRU%=False,ATRLOWER
Let>ATRLOCATIONCODE=!Ur
Goto>ATRLOCATIONDONE
Label>ATRLOWER
Let>ATRLOCATIONCODE=!Lr
Label>ATRLOCATIONDONE
Let>ATRVALUECODE=%var_ATR1%
Label>ATRDONE
Let>PriceRelLOCATIONCODE=
Let>PriceRelVALUECODE=
If>%var_chkboxPriceRel%=False,PriceRelDONE
If>%var_chkboxPriceRelU%=False,PriceRelLOWER
Let>PriceRelLOCATIONCODE=!Uj
Goto>PriceRelLOCATIONDONE
Label>PriceRelLOWER
Let>PriceRelLOCATIONCODE=!Lj
Label>PriceRelLOCATIONDONE
Let>PriceRelVALUECODE=[%var_PriceRel1%]
Label>PriceRelDONE
Remark>============================== BUILD URL ========================================================
Let>URL1=http://stockcharts.com/def/servlet/Shar ... SYMBOL%,uu[%SIZECODE%]
Let>URL2=%BARINTERVALCODE%a%LINESTYLECODE%%YSCALESTYLECODE%y%VOLUMECODE%%GRIDLINECODE%y[%DATERANGECODE%]
Let>URL3=[p%SMAVALUECODE%%EMAVALUECODE%%HZVALUECODE%%BBCODE%%PRICELABELSCODE%%PRICEBYVOLUMECODE%][%VOLUMEMACODE%]
Let>URL4=[i%MACDLINELOCATIONCODE%%MACDLINEVALUECODE%%MACDHISTLOCATIONCODE%%MACDHISTVALUECODE%%STOSLOWLOCATIONCODE%%STOSLOWVALUECODE%%STOFASTLOCATIONCODE%%STOFASTVALUECODE%%STOFULLLOCATIONCODE%%STOFULLVALUECODE%%ACCUMDISTLOCATIONCODE%%ACCUMDISTVALUECODE%%ADXLOCATIONCODE%%ADXVALUECODE%%OBVLOCATIONCODE%%OBVVALUECODE%%CMFLOCATIONCODE%%CMFVALUECODE%%RSILOCATIONCODE%%RSIVALUECODE%%RSISTOCHLOCATIONCODE%%RSISTOCHVALUECODE%%WilliamRLOCATIONCODE%%WilliamRVALUECODE%%ATRLOCATIONCODE%%ATRVALUECODE%%PriceRelLOCATIONCODE%%PriceRelVALUECODE%]
Let>BISHWAITURL=C:\Program Files\Macro Scheduler\BISHWAITPAGE.htm
Run Program>"C:\Program Files\Internet Explorer\IEXPLORE.EXE" "C:\Program Files\Macro Scheduler\BISHWAITPAGE.htm"
WaitWindowOpen>BISHWAIT*
PutClipBoard>%URL1%%URL2%%URL3%%URL4%
SetFocus>BISHWAIT*
GoSub>ADDRESSPASTE
WaitWindowOpen>stockcharts.com*
WaitWindowClosed>stockcharts.com*
SHOW>CONTINUE,RESULT2
If>RESULT2=2,ENDPOINT
ResetDialogAction>PARAMETER
Goto>SHOWDIALOG
Label>SYMBOLLOOKUP
Let>BISHWAITURL=C:\Program Files\Macro Scheduler\BISHWAITPAGE.htm
Run Program>"C:\Program Files\Internet Explorer\IEXPLORE.EXE" "C:\Program Files\Macro Scheduler\BISHWAITPAGE.htm"
WaitWindowOpen>BISHWAIT*
PutClipBoard>http://stockcharts.com/charts/catalog/Aa.html
SetFocus>BISHWAIT*
GoSub>ADDRESSPASTE
WaitWindowOpen>Symbol Catalog*
Let>WF_TYPE=2
WaitWindowClosed>Symbol Catalog*
Goto>SHOWDIALOG
Label>ENDPOINT
Remark> ================================= SUBROUTINES ====================================================
SRT>INITIALIZE
Let>var_Size=0
Let>var_BarInterval=0
Let>var_LineStyle=0
Let>var_YScaleStyle=0
Let>var_Gridline=0
Let>var_DateRange=3
Let>var_DAYS=#Days
Let>var_DateRange1=yyyymmdd
Let>var_DateRange2=yyyymmdd
Let>var_SYMBOL=$NDX
Let>var_chkboxSMA=False
Let>var_SMA1=20
Let>var_SMA2=50
Let>var_SMA3=200
Let>var_SMA4=
Let>var_SMA5=
Let>var_SMA6=
Let>var_SMA7=
Let>var_SMA8=
Let>var_SMA9=
Let>var_SMA10=
Let>var_chkboxEMA=True
Let>var_EMA1=20
Let>var_EMA2=50
Let>var_EMA3=200
Let>var_EMA4=
Let>var_EMA5=
Let>var_EMA6=
Let>var_EMA7=
Let>var_EMA8=
Let>var_EMA9=
Let>var_EMA10=
Let>var_chkboxHZ=False
Let>var_HZ1=
Let>var_HZ2=
Let>var_HZ3=
Let>var_HZ4=
Let>var_chkboxBB=False
Let>var_BB1=30
Let>var_BB2=2
Let>var_chkboxPriceLabels=False
Let>var_chkboxPricebyVolume=False
Let>var_chkboxVolume=False
Let>var_chkboxVolumeMA=False
Let>var_VOLUMEMA1=60
Let>var_chkboxMACDline=True
Let>var_chkboxMACDlineU=True
Let>var_chkboxMACDlineL=False
Let>var_MACDline1=20
Let>var_MACDline2=40
Let>var_MACDline3=25
Let>var_chkboxMACDHist=False
Let>var_chkboxMACDHistU=True
Let>var_chkboxMACDHistL=False
Let>var_MACDHist1=20
Let>var_MACDHist2=40
Let>var_MACDHist3=25
Let>var_chkboxSTOslow=
Let>var_chkboxSTOslowU=True
Let>var_chkboxSTOslowL=False
Let>var_STOslow1=21
Let>var_STOslow2=14
Let>var_chkboxSTOfast=False
Let>var_chkboxSTOfastU=True
Let>var_chkboxSTOfastL=False
Let>var_STOfast1=21
Let>var_STOfast2=14
Let>var_chkboxSTOfull=True
Let>var_chkboxSTOfullU=True
Let>var_chkboxSTOfullL=False
Let>var_STOfull1=21
Let>var_STOfull2=14
Let>var_STOfull3=9
Let>var_chkboxACCUMDIST=False
Let>var_chkboxACCUMDISTU=True
Let>var_chkboxACCUMDISTL=False
Let>var_ACCUMDIST1=13
Let>var_chkboxADX=True
Let>var_chkboxADXU=False
Let>var_chkboxADXL=True
Let>var_ADX1=21
Let>var_chkboxOBV=False
Let>var_chkboxOBVU=False
Let>var_chkboxMOBVL=True
Let>var_OBV1=21
Let>var_chkboxCMF=False
Let>var_chkboxCMFU=False
Let>var_chkboxCMFL=True
Let>var_CMF1=21
Let>var_chkboxRSI=False
Let>var_chkboxRSIU=False
Let>var_chkboxRSIL=True
Let>var_RSI1=21
Let>var_chkboxRSIstoch=True
Let>var_chkboxRSIstochU=False
Let>var_chkboxRSIstochL=True
Let>var_RSIstoch1=40
Let>var_chkboxWilliamR=False
Let>var_chkboxWilliamRU=False
Let>var_chkboxWilliamRL=True
Let>var_WilliamR1=21
Let>var_chkboxATR=False
Let>var_chkboxATRU=False
Let>var_chkboxATRL=True
Let>var_ATR1=21
Let>var_chkboxPriceRel=False
Let>var_chkboxPriceRelU=False
Let>var_chkboxPriceRelL=True
Let>var_PriceRel1=
END>INITIALIZE
SRT>CAPTURE
Let>var_Size=PARAMETER.Size.ItemIndex
Let>var_BarInterval=PARAMETER.BarInterval.ItemIndex
Let>var_LineStyle=PARAMETER.LineStyle.ItemIndex
Let>var_YScaleStyle=PARAMETER.YScaleStyle.ItemIndex
Let>var_Gridline=PARAMETER.Gridline.ItemIndex
Let>var_DateRange=PARAMETER.DateRange.ItemIndex
Let>var_DAYS=PARAMETER.DAYS
Let>var_DateRange1=PARAMETER.DateRange1
Let>var_DateRange2=PARAMETER.DateRange2
Let>var_SYMBOL=PARAMETER.SYMBOL
Let>var_chkboxSMA=PARAMETER.chkboxSMA
Let>var_SMA1=PARAMETER.SMA1
Let>var_SMA2=PARAMETER.SMA2
Let>var_SMA3=PARAMETER.SMA3
Let>var_SMA4=PARAMETER.SMA4
Let>var_SMA5=PARAMETER.SMA5
Let>var_SMA6=PARAMETER.SMA6
Let>var_SMA7=PARAMETER.SMA7
Let>var_SMA8=PARAMETER.SMA8
Let>var_SMA9=PARAMETER.SMA9
Let>var_SMA10=PARAMETER.SMA10
Let>var_chkboxEMA=PARAMETER.chkboxEMA
Let>var_EMA1=PARAMETER.EMA1
Let>var_EMA2=PARAMETER.EMA2
Let>var_EMA3=PARAMETER.EMA3
Let>var_EMA4=PARAMETER.EMA4
Let>var_EMA5=PARAMETER.EMA5
Let>var_EMA6=PARAMETER.EMA6
Let>var_EMA7=PARAMETER.EMA7
Let>var_EMA8=PARAMETER.EMA8
Let>var_EMA9=PARAMETER.EMA9
Let>var_EMA10=PARAMETER.EMA10
Let>var_chkboxHZ=PARAMETER.chkboxHZ
Let>var_HZ1=PARAMETER.HZ1
Let>var_HZ2=PARAMETER.HZ2
Let>var_HZ3=PARAMETER.HZ3
Let>var_HZ4=PARAMETER.HZ4
Let>var_chkboxBB=PARAMETER.chkboxBB
Let>var_BB1=PARAMETER.BB1
Let>var_BB2=PARAMETER.BB2
Let>var_chkboxPriceLabels=PARAMETER.chkboxPriceLabels
Let>var_chkboxPricebyVolume=PARAMETER.chkboxPricebyVolume
Let>var_chkboxVolume=PARAMETER.chkboxVolume
Let>var_chkboxVolumeMA=PARAMETER.chkboxVolumeMA
Let>var_VOLUMEMA1=PARAMETER.VOLUMEMA1
Let>var_chkboxMACDline=PARAMETER.chkboxMACDline
Let>var_chkboxMACDlineU=PARAMETER.chkboxMACDlineU
Let>var_chkboxMACDlineL=PARAMETER.chkboxMACDlineL
Let>var_MACDline1=PARAMETER.MACDline1
Let>var_MACDline2=PARAMETER.MACDline2
Let>var_MACDline3=PARAMETER.MACDline3
Let>var_chkboxMACDHist=PARAMETER.chkboxMACDHist
Let>var_chkboxMACDHistU=PARAMETER.chkboxMACDHistU
Let>var_chkboxMACDHistL=PARAMETER.chkboxMACDHistL
Let>var_MACDHist1=PARAMETER.MACDHist1
Let>var_MACDHist2=PARAMETER.MACDHist2
Let>var_MACDHist3=PARAMETER.MACDHist3
Let>var_chkboxSTOslow=PARAMETER.chkboxSTOslow
Let>var_chkboxSTOslowU=PARAMETER.chkboxSTOslowU
Let>var_chkboxSTOslowL=PARAMETER.chkboxSTOslowL
Let>var_STOslow1=PARAMETER.STOslow1
Let>var_STOslow2=PARAMETER.STOslow2
Let>var_chkboxSTOfast=PARAMETER.chkboxSTOfast
Let>var_chkboxSTOfastU=PARAMETER.chkboxSTOfastU
Let>var_chkboxSTOfastL=PARAMETER.chkboxSTOfastL
Let>var_STOfast1=PARAMETER.STOfast1
Let>var_STOfast2=PARAMETER.STOfast2
Let>var_chkboxSTOfull=PARAMETER.chkboxSTOfull
Let>var_chkboxSTOfullU=PARAMETER.chkboxSTOfullU
Let>var_chkboxSTOfullL=PARAMETER.chkboxSTOfullL
Let>var_STOfull1=PARAMETER.STOfull1
Let>var_STOfull2=PARAMETER.STOfull2
Let>var_STOfull3=PARAMETER.STOfull3
Let>var_chkboxACCUMDIST=PARAMETER.chkboxACCUMDIST
Let>var_chkboxACCUMDISTU=PARAMETER.chkboxACCUMDISTU
Let>var_chkboxACCUMDISTL=PARAMETER.chkboxACCUMDISTL
Let>var_ACCUMDIST1=PARAMETER.ACCUMDIST1
Let>var_chkboxADX=PARAMETER.chkboxADX
Let>var_chkboxADXU=PARAMETER.chkboxADXU
Let>var_chkboxADXL=PARAMETER.chkboxADXL
Let>var_ADX1=PARAMETER.ADX1
Let>var_chkboxOBV=PARAMETER.chkboxOBV
Let>var_chkboxOBVU=PARAMETER.chkboxOBVU
Let>var_chkboxMOBVL=PARAMETER.chkboxMOBVL
Let>var_OBV1=PARAMETER.OBV1
Let>var_chkboxCMF=PARAMETER.chkboxCMF
Let>var_chkboxCMFU=PARAMETER.chkboxCMFU
Let>var_chkboxCMFL=PARAMETER.chkboxCMFL
Let>var_CMF1=PARAMETER.CMF1
Let>var_chkboxRSI=PARAMETER.chkboxRSI
Let>var_chkboxRSIU=PARAMETER.chkboxRSIU
Let>var_chkboxRSIL=PARAMETER.chkboxRSIL
Let>var_RSI1=PARAMETER.RSI1
Let>var_chkboxRSIstoch=PARAMETER.chkboxRSIstoch
Let>var_chkboxRSIstochU=PARAMETER.chkboxRSIstochU
Let>var_chkboxRSIstochL=PARAMETER.chkboxRSIstochL
Let>var_RSIstoch1=PARAMETER.RSIstoch1
Let>var_chkboxWilliamR=PARAMETER.chkboxWilliamR
Let>var_chkboxWilliamRU=PARAMETER.chkboxWilliamRU
Let>var_chkboxWilliamRL=PARAMETER.chkboxWilliamRL
Let>var_WilliamR1=PARAMETER.WilliamR1
Let>var_chkboxATR=PARAMETER.chkboxATR
Let>var_chkboxATRU=PARAMETER.chkboxATRU
Let>var_chkboxATRL=PARAMETER.chkboxATRL
Let>var_ATR1=PARAMETER.ATR1
Let>var_chkboxPriceRel=PARAMETER.chkboxPriceRel
Let>var_chkboxPriceRelU=PARAMETER.chkboxPriceRelU
Let>var_chkboxPriceRelL=PARAMETER.chkboxPriceRelL
Let>var_PriceRel1=PARAMETER.PriceRel1
END>CAPTURE
SRT>DAYSCALC
Remark> ====== Code to convert #Days DATERANGE to specifing Start/End Date Ranges ==========
Day>var_DAY2
Month>var_MONTH2
Year>var_YEAR2
If>%var_MONTH2%=1,DAY2COUNT_1
If>%var_MONTH2%=2,DAY2COUNT_2
If>%var_MONTH2%=3,DAY2COUNT_3
If>%var_MONTH2%=4,DAY2COUNT_4
If>%var_MONTH2%=5,DAY2COUNT_5
If>%var_MONTH2%=6,DAY2COUNT_6
If>%var_MONTH2%=7,DAY2COUNT_7
If>%var_MONTH2%=8,DAY2COUNT_8
If>%var_MONTH2%=9,DAY2COUNT_9
If>%var_MONTH2%=10,DAY2COUNT_10
If>%var_MONTH2%=11,DAY2COUNT_11
If>%var_MONTH2%=12,DAY2COUNT_12
Label>DAY2COUNT_1
Let>var_DAY2COUNT=0
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_2
Let>var_DAY2COUNT=31
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_3
Let>var_DAY2COUNT=59
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_4
Let>var_DAY2COUNT=90
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_5
Let>var_DAY2COUNT=120
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_6
Let>var_DAY2COUNT=151
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_7
Let>var_DAY2COUNT=181
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_8
Let>var_DAY2COUNT=212
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_9
Let>var_DAY2COUNT=243
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_10
Let>var_DAY2COUNT=273
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_11
Let>var_DAY2COUNT=304
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_12
Let>var_DAY2COUNT=334
Label>DAY2COUNT_COLLECT
Let>var_DAY2COUNT=%var_DAY2COUNT%+365
Let>var_DAY2COUNT=%var_DAY2COUNT%+%var_DAY2%
Let>var_DAY1COUNT=%var_DAY2COUNT%-%var_DAYS%
Let>var_YEAR1=%var_YEAR2%
If>%var_DAY1COUNT%>365,SAMEYEAR
Let>var_YEAR1=%var_YEAR2%-1
Let>var_DAY1COUNT=%var_DAY1COUNT%+365
Label>SAMEYEAR
Let>var_DAY1COUNT=%var_DAY1COUNT%-365
Label>DAY1COUNT_12
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-334
Let>var_MONTH1=12
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_11
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-304
Let>var_MONTH1=11
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_10
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-273
Let>var_MONTH1=10
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_9
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-243
Let>var_MONTH1=09
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_8
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-212
Let>var_MONTH1=08
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_7
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-181
Let>var_MONTH1=07
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_6
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-151
Let>var_MONTH1=06
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_5
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-120
Let>var_MONTH1=05
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_4
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-90
Let>var_MONTH1=04
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_3
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-59
Let>var_MONTH1=03
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_2
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-31
Let>var_MONTH1=02
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_1
Let>var_MONTH1=01
Label>DAY1COUNT_COLLECT
Let>var_DAY1=%var_DAY1COUNT%
If>%var_MONTH2%MONTHOKAY
Label>INCRMONTH2
Let>var_MONTH2=%var_MONTH2%
Label>MONTHOKAY
If>%var_DAY2%DAY2OKAY
Label>INCRDAY2
Let>var_DAY2=0%var_DAY2%
Label>DAY2OKAY
If>%var_DAY1%DAY1OKAY
Label>INCRDAY1
Let>var_DAY1=0%var_DAY1%
Label>DAY1OKAY
Let>var_DateRange1=%var_YEAR1%%var_MONTH1%%var_DAY1%
Let>var_DateRange2=%var_YEAR2%%var_MONTH2%%var_DAY2%
END>DAYSCALC
SRT>ADDRESSPASTE
Press ALT
Send Character/Text>D
Release ALT
Wait>.5
Press CTRL
Send Character/Text>V
Release CTRL
Wait>.5
Press Enter
END>ADDRESSPASTE
The reason that I suspected a change with 7.4.004 is that my Dialog macros worked only a couple days ago and now don't with the change in MCHED. No other changes have happpened to my computer.
Thanks for looking.
dbish
=====================================
Dialog>PARAMETER
Caption=STARTUP OPTIONS
Top=20
Width=1000
Left=20
Height=700
Label=CHART SIZE:,35,15
ComboBox=Size,35,37,75,Default%CRLF%Small%CRLF%Medium%CRLF%Large%CRLF%Huge%CRLF%Wide%CRLF%SuperTall
Let>PARAMETER.Size.ItemIndex=%var_Size%
Label=BAR INTERVAL:,140,15
ComboBox=BarInterval,140,37,80,Daily%CRLF%1 minute%CRLF%5 minutes%CRLF%10 minutes%CRLF%15 minutes%CRLF%30 minutes%CRLF%60 minutes%CRLF%weekly%CRLF%monthly
Let>PARAMETER.BarInterval.ItemIndex=%var_BarInterval%
Label=LINE STYLE:,250,15
ComboBox=LineStyle,250,37,95,CandleStick%CRLF%OHLC%CRLF%Line
Let>PARAMETER.LineStyle.ItemIndex=%var_LineStyle%
Label=Y-SCALE:,355,15
ComboBox=YScaleStyle,355,37,135,Regular Scale%CRLF%Log Scale%CRLF%No Scale%CRLF%Reg Scale - Reverse Axis%CRLF%Log Scale - Reverse Axis%CRLF%No Scale - Reverse Axis
Let>PARAMETER.YScaleStyle.ItemIndex=%var_YScaleStyle%
Label=GRIDLINES:,510,15
ComboBox=Gridline,510,37,95,Both%CRLF%More Horiz. Lines%CRLF%Fewer Horiz. Lines
Let>PARAMETER.Gridline.ItemIndex=%var_Gridline%
Label=DATERANGE:,625,15
ComboBox=DateRange,625,37,110,1 year%CRLF%1 month%CRLF%3 months%CRLF%6 months%CRLF%2 years%CRLF%3 years%CRLF%4 years%CRLF%5 years%CRLF%7 years%CRLF%10 years%CRLF%Custom - # Days%CRLF%Custom - Date Range
Let>PARAMETER.DateRange.ItemIndex=%var_DateRange%
Label======= CUSTOM DATE RANGES ======,745,5
Label=# DAYS,745,20
Edit=DAYS,745,37,50,%var_DAYS%
Label=INITIAL DATE,810,20
Edit=DateRange1,810,37,70,%var_DateRange1%
Label=ENDING DATE,885,20
Label=Use "z" for Today,885,65
Edit=DateRange2,885,37,70,%var_DateRange2%
Label========================= PRICE INDICATORS ======================== SYMBOL:,20,80
Edit=SYMBOL,555,97,80,%var_SYMBOL%
CheckBox=chkboxSMA,SMA,20,97,50,%var_chkboxSMA%
Edit=SMA1,80,97,30,%var_SMA1%
Edit=SMA2,115,97,30,%var_SMA2%
Edit=SMA3,150,97,30,%var_SMA3%
Edit=SMA4,185,97,30,%var_SMA4%
Edit=SMA5,220,97,30,%var_SMA5%
Edit=SMA6,255,97,30,%var_SMA6%
Edit=SMA7,297,97,30,%var_SMA7%
Edit=SMA8,325,97,30,%var_SMA8%
Edit=SMA9,360,97,30,%var_SMA9%
Edit=SMA10,395,97,30,%var_SMA10%
CheckBox=chkboxEMA,EMA,20,127,50,%var_chkboxEMA%
Edit=EMA1,80,127,30,%var_EMA1%
Edit=EMA2,115,127,30,%var_EMA2%
Edit=EMA3,150,127,30,%var_EMA3%
Edit=EMA4,185,127,30,%var_EMA4%
Edit=EMA5,220,127,30,%var_EMA5%
Edit=EMA6,255,127,30,%var_EMA6%
Edit=EMA7,290,127,30,%var_EMA7%
Edit=EMA8,325,127,30,%var_EMA8%
Edit=EMA9,360,127,30,%var_EMA9%
Edit=EMA10,395,127,30,%var_EMA10%
CheckBox=chkboxHZ,Horizonal Line,20,157,90,%var_chkboxHZ%
Edit=HZ1,115,157,30,%var_HZ1%
Edit=HZ2,150,157,30,%var_HZ2%
Edit=HZ3,185,157,30,%var_HZ3%
Edit=HZ4,220,157,30,%var_HZ4%
CheckBox=chkboxBB,Bollinger Bands,260,157,95,%var_chkboxBB%
Edit=BB1,360,157,30,%var_BB1%
Edit=BB2,395,157,30,%var_BB2%
CheckBox=chkboxPriceLabels,PRICE LABELS on Turning Pts,20,187,170,%var_chkboxPriceLabels%
CheckBox=chkboxPricebyVolume,PRICE by VOLUME (left axis),195,187,160,%var_chkboxPricebyVolume%
CheckBox=chkboxVolume,SHOW VOLUME?,20,217,110,%var_chkboxVolume%
CheckBox=chkboxVolumeMA,USE VOLUME MA? Amount?,140,217,165,%var_chkboxVolumeMA%
Edit=VOLUMEMA1,315,217,30,%var_VOLUMEMA1%
Label================================== TECHNICAL INDICATORS =================================,20,250
Label= U L U L,20,267
CheckBox=chkboxMACDline,MACD,20,283,125,%var_chkboxMACDline%
CheckBox=chkboxMACDlineU,,150,283,15,%var_chkboxMACDlineU%
CheckBox=chkboxMACDlineL,,165,283,15,%var_chkboxMACDlineL%
Edit=MACDline1,185,283,30,%var_MACDline1%
Edit=MACDline2,220,283,30,%var_MACDline2%
Edit=MACDline3,255,283,30,%var_MACDline3%
CheckBox=chkboxMACDHist,MACD Histogram,20,313,125,%var_chkboxMACDHist%
CheckBox=chkboxMACDHistU,,150,313,15,%var_chkboxMACDHistU%
CheckBox=chkboxMACDHistL,,165,313,15,%var_chkboxMACDHistL%
Edit=MACDHist1,185,313,30,%var_MACDHist1%
Edit=MACDHist2,220,313,30,%var_MACDHist2%
Edit=MACDHist3,255,313,30,%var_MACDHist3%
CheckBox=chkboxSTOslow,STOCHASTIC Slow,20,343,125,%var_chkboxSTOslow%
CheckBox=chkboxSTOslowU,,150,343,15,%var_chkboxSTOslowU%
CheckBox=chkboxSTOslowL,,165,343,15,%var_chkboxSTOslowL%
Edit=STOslow1,185,343,30,%var_STOslow1%
Edit=STOslow2,220,343,30,%var_STOslow2%
CheckBox=chkboxSTOfast,STOCHASTIC Fast,20,373,125,%var_chkboxSTOfast%
CheckBox=chkboxSTOfastU,,150,373,15,%var_chkboxSTOfastU%
CheckBox=chkboxSTOfastL,,165,373,15,%var_chkboxSTOfastL%
Edit=STOfast1,185,373,30,%var_STOfast1%
Edit=STOfast2,220,373,30,%var_STOfast2%
CheckBox=chkboxSTOfull,STOCHASTIC FULL,20,403,125,%var_chkboxSTOfull%
CheckBox=chkboxSTOfullU,,150,403,15,%var_chkboxSTOfullU%
CheckBox=chkboxSTOfullL,,165,403,15,%var_chkboxSTOfullL%
Edit=STOfull1,185,403,30,%var_STOfull1%
Edit=STOfull2,220,403,30,%var_STOfull2%
Edit=STOfull3,255,403,30,%var_STOfull3%
CheckBox=chkboxACCUMDIST,Accum/Distribution,20,433,125,%var_chkboxACCUMDIST%
CheckBox=chkboxACCUMDISTU,,150,433,15,%var_chkboxACCUMDISTU%
CheckBox=chkboxACCUMDISTL,,165,433,15,%var_chkboxACCUMDISTL%
Edit=ACCUMDIST1,185,433,30,%var_ACCUMDIST1%
CheckBox=chkboxADX,ADX (DI+/DI-),20,463,125,%var_chkboxADX%
CheckBox=chkboxADXU,,150,463,15,%var_chkboxADXU%
CheckBox=chkboxADXL,,165,463,15,%var_chkboxADXL%
Edit=ADX1,185,463,30,%var_ADX1%
CheckBox=chkboxOBV,On Balance Volume,300,283,125,%var_chkboxOBV%
CheckBox=chkboxOBVU,,430,283,15,%var_chkboxOBVU%
CheckBox=chkboxMOBVL,,445,283,15,%var_chkboxMOBVL%
Edit=OBV1,465,283,30,%var_OBV1%
CheckBox=chkboxCMF,Chaikin Money Flow,300,313,125,%var_chkboxCMF%
CheckBox=chkboxCMFU,,430,313,15,%var_chkboxCMFU%
CheckBox=chkboxCMFL,,445,313,15,%var_chkboxCMFL%
Edit=CMF1,465,313,30,%var_CMF1%
CheckBox=chkboxRSI,RSI (Rel Strength),300,343,125,%var_chkboxRSI%
CheckBox=chkboxRSIU,,430,343,15,%var_chkboxRSIU%
CheckBox=chkboxRSIL,,445,343,15,%var_chkboxRSIL%
Edit=RSI1,465,343,30,%var_RSI1%
CheckBox=chkboxRSIstoch,RSI Stochastic,300,373,125,%var_chkboxRSIstoch%
CheckBox=chkboxRSIstochU,,430,373,15,%var_chkboxRSIstochU%
CheckBox=chkboxRSIstochL,,445,373,15,%var_chkboxRSIstochL%
Edit=RSIstoch1,465,373,30,%var_RSIstoch1%
CheckBox=chkboxWilliamR,Williams %R,300,403,125,%var_chkboxWilliamR%
CheckBox=chkboxWilliamRU,,430,403,15,%var_chkboxWilliamRU%
CheckBox=chkboxWilliamRL,,445,403,15,%var_chkboxWilliamRL%
Edit=WilliamR1,465,403,30,%var_WilliamR1%
CheckBox=chkboxATR,Average True Range,300,433,125,%var_chkboxATR%
CheckBox=chkboxATRU,,430,433,15,%var_chkboxATRU%
CheckBox=chkboxATRL,,445,433,15,%var_chkboxATRL%
Edit=ATR1,465,433,30,%var_ATR1%
CheckBox=chkboxPriceRel,Price Relative to ___,300,463,125,%var_chkboxPriceRel%
CheckBox=chkboxPriceRelU,,430,463,15,%var_chkboxPriceRelU%
CheckBox=chkboxPriceRelL,,445,463,15,%var_chkboxPriceRelL%
Edit=PriceRel1,465,463,80,%var_PriceRel1%
Button=SYMBOL LOOKUP,645,410,150,25,3
Button=OKAY,320,610,75,25,1
Button=CANCEL,645,610,75,25,2
EndDialog>PARAMETER
Dialog>CONTINUE
Caption=ANOTHER CHART?
Top=300
Width=300
Left=300
Height=100
Remark>Label=ANOTHER CHART OR QUIT?,35,15
Button=ANOTHER CHART,20,30,125,25,1
Button=QUIT,170,30,100,25,2
EndDialog>CONTINUE
GoSub>INITIALIZE
Let>ITERATION_COUNT=0
Label>SHOWDIALOG
Let>ITERATION_COUNT=ITERATION_COUNT+1
SHOW>PARAMETER,RESULT
If>RESULT=2,ENDPOINT
If>RESULT=3,SYMBOLLOOKUP
Gosub>CAPTURE
Remark>===================== COMBOBOX INDICATORs APPLICATION ==============================================================
Remark>SIZE Determination
Let>SIZECODE=980,600
If>PARAMETER.Size.ItemIndex=1,SIZESMALL
If>PARAMETER.Size.ItemIndex=2,SIZEMEDIUM
If>PARAMETER.Size.ItemIndex=3,SIZELARGE
If>PARAMETER.Size.ItemIndex=4,SIZEHUGE
If>PARAMETER.Size.ItemIndex=5,SIZEWIDE
If>PARAMETER.Size.ItemIndex=6,SIZESUPERTALL
Goto>SIZEDONE
Label>SIZESMALL
Let>SIZECODE=s,a
Goto>SIZEDONE
Label>SIZEMEDIUM
Let>SIZECODE=m,a
Goto>SIZEDONE
Label>SIZELARGE
Let>SIZECODE=l,a
Goto>SIZEDONE
Label>SIZEHUGE
Let>SIZECODE=h,a
Goto>SIZEDONE
Label>SIZEWIDE
Let>SIZECODE=e,a
Goto>SIZEDONE
Label>SIZESUPERTALL
Let>SIZECODE=980,950
Label>SIZEDONE
Remark>BARINTERVAL Determination
Let>BARINTERVALCODE=d
If>PARAMETER.BarInterval.ItemIndex=1,BARINTERVAL1
If>PARAMETER.BarInterval.ItemIndex=2,BARINTERVAL5
If>PARAMETER.BarInterval.ItemIndex=3,BARINTERVAL10
If>PARAMETER.BarInterval.ItemIndex=4,BARINTERVAL15
If>PARAMETER.BarInterval.ItemIndex=5,BARINTERVAL30
If>PARAMETER.BarInterval.ItemIndex=6,BARINTERVAL60
If>PARAMETER.BarInterval.ItemIndex=7,BARINTERVALw
If>PARAMETER.BarInterval.ItemIndex=8,BARINTERVALm
Goto>BARINTERVALDONE
Label>BARINTERVAL1
Let>BARINTERVALCODE=j
Goto>BARINTERVALDONE
Label>BARINTERVAL5
Let>BARINTERVALCODE=i
Goto>BARINTERVALDONE
Label>BARINTERVAL10
Let>BARINTERVALCODE=h
Goto>BARINTERVALDONE
Label>BARINTERVAL15
Let>BARINTERVALCODE=g
Goto>BARINTERVALDONE
Label>BARINTERVAL30
Let>BARINTERVALCODE=f
Goto>BARINTERVALDONE
Label>BARINTERVAL60
Let>BARINTERVALCODE=e
Goto>BARINTERVALDONE
Label>BARINTERVALw
Let>BARINTERVALCODE=w
Label>BARINTERVALm
Let>BARINTERVALCODE=m
Label>BARINTERVALDONE
Remark>LINESTYLE Determination
Let>LINESTYLECODE=c
If>PARAMETER.LINESTYLE.ItemIndex=1,LINESTYLEOHLC
If>PARAMETER.LINESTYLE.ItemIndex=2,LINESTYLELINE
Goto>LINESTYLEDONE
Label>LINESTYLEOHLC
Let>LINESTYLECODE=h
Goto>LINESTYLEDONE
Label>LINESTYLELINE
Let>LINESTYLECODE=l
Label>LINESTYLEDONE
Remark>YSCALESTYLE Determination
Let>YSCALESTYLECODE=a
If>PARAMETER.YSCALESTYLE.ItemIndex=1,YSCALESTYLELOG
If>PARAMETER.YSCALESTYLE.ItemIndex=2,YSCALESTYLENOSCALE
If>PARAMETER.YSCALESTYLE.ItemIndex=3,YSCALESTYLEREGreverse
If>PARAMETER.YSCALESTYLE.ItemIndex=4,YSCALESTYLELOGreverse
If>PARAMETER.YSCALESTYLE.ItemIndex=5,YSCALESTYLENOreverse
Goto>YSCALESTYLEDONE
Label>YSCALESTYLELOG
Let>YSCALESTYLECODE=l
Goto>YSCALESTYLEDONE
Label>YSCALESTYLENOSCALE
Let>YSCALESTYLECODE=c
Goto>YSCALESTYLEDONE
Label>YSCALESTYLEREGreverse
Let>YSCALESTYLECODE=b
Goto>YSCALESTYLEDONE
Label>YSCALESTYLELOGreverse
Let>YSCALESTYLECODE=k
Goto>YSCALESTYLEDONE
Label>YSCALESTYLENOreverse
Let>YSCALESTYLECODE=e
Label>YSCALESTYLEDONE
Remark>GRIDLINE Determination
Let>GRIDLINECODE=a
If>PARAMETER.GRIDLINE.ItemIndex=1,GRIDLINEMORE
If>PARAMETER.GRIDLINE.ItemIndex=2,GRIDLINELESS
Goto>GRIDLINEDONE
Label>GRIDLINEMORE
Let>GRIDLINECODE=h
Goto>GRIDLINEDONE
Label>GRIDLINELESS
Let>GRIDLINECODE=l
Label>GRIDLINEDONE
Remark>DATERANGE Determination
Let>DATERANGECODE=dd
If>PARAMETER.DATERANGE.ItemIndex=1,DATERANGE1
If>PARAMETER.DATERANGE.ItemIndex=2,DATERANGE3
If>PARAMETER.DATERANGE.ItemIndex=3,DATERANGE6
If>PARAMETER.DATERANGE.ItemIndex=4,DATERANGE24
If>PARAMETER.DATERANGE.ItemIndex=5,DATERANGE36
If>PARAMETER.DATERANGE.ItemIndex=6,DATERANGE48
If>PARAMETER.DATERANGE.ItemIndex=7,DATERANGE60
If>PARAMETER.DATERANGE.ItemIndex=8,DATERANGE84
If>PARAMETER.DATERANGE.ItemIndex=9,DATERANGE120
If>PARAMETER.DATERANGE.ItemIndex=10,DATERANGECustdays
If>PARAMETER.DATERANGE.ItemIndex=11,DATERANGECustDateRange
Goto>DATERANGEDONE
Label>DATERANGE1
Let>DATERANGECODE=da
Goto>DATERANGEDONE
Label>DATERANGE3
Let>DATERANGECODE=db
Goto>DATERANGEDONE
Label>DATERANGE6
Let>DATERANGECODE=dc
Goto>DATERANGEDONE
Label>DATERANGE24
Let>DATERANGECODE=de
Goto>DATERANGEDONE
Label>DATERANGE36
Let>DATERANGECODE=df
Goto>DATERANGEDONE
Label>DATERANGE48
Let>DATERANGECODE=dh
Goto>DATERANGEDONE
Label>DATERANGE60
Let>DATERANGECODE=di
Goto>DATERANGEDONE
Label>DATERANGE84
Let>DATERANGECODE=dj
Goto>DATERANGEDONE
Label>DATERANGE120
Let>DATERANGECODE=dk
Goto>DATERANGEDONE
Label>DATERANGECustDateRange
Let>DATERANGECODE=d%var_DateRange1%,%var_DateRange2%
If>var_DateRange_HOLD10,SKIP_DATERANGE_FIX
Let>DATERANGECODE=d%var_DateRange1_HOLD%,%var_DateRange2_HOLD%
Label>SKIP_DATERANGE_FIX
Goto>DATERANGEDONE
Label>DATERANGECustdays
Gosub>DAYSCALC
Let>var_DateRange1_HOLD=%var_DateRange1%
Let>var_DateRange2_HOLD=%var_DateRange2%
Let>var_DateRange_HOLD=10
Let>DATERANGECODE=d%var_DateRange1%,%var_DateRange2%
Let>var_DateRange=11
Let>PARAMETER.DateRange.ItemIndex=%var_DateRange%
Let>var_DAYS=#Days
Label>DATERANGEDONE
Remark>===================== PRICE INDICATOR APPLICATION ==============================================================
Let>SMA1CODE=
Let>SMA2CODE=
Let>SMA3CODE=
Let>SMA4CODE=
Let>SMA5CODE=
Let>SMA6CODE=
Let>SMA7CODE=
Let>SMA8CODE=
Let>SMA9CODE=
Let>SMA10CODE=
If>%var_chkboxSMA%=False,SMACOLLECT
Label>SMA1TEST
If>%var_SMA1%>0,SMA1GOOD
Goto>SMA2TEST
Label>SMA1GOOD
Let>SMA1CODE=!b%var_SMA1%
Label>SMA2TEST
If>%var_SMA2%>0,SMA2GOOD
Goto>SMA3TEST
Label>SMA2GOOD
Let>SMA2CODE=!b%var_SMA2%
Label>SMA3TEST
If>%var_SMA3%>0,SMA3GOOD
Goto>SMA4TEST
Label>SMA3GOOD
Let>SMA3CODE=!b%var_SMA3%
Label>SMA4TEST
If>%var_SMA4%>0,SMA4GOOD
Goto>SMA5TEST
Label>SMA4GOOD
Let>SMA4CODE=!b%var_SMA4%
Label>SMA5TEST
If>%var_SMA5%>0,SMA5GOOD
Goto>SMA6TEST
Label>SMA5GOOD
Let>SMA5CODE=!b%var_SMA5%
Label>SMA6TEST
If>%var_SMA6%>0,SMA6GOOD
Goto>SMA7TEST
Label>SMA6GOOD
Let>SMA6CODE=!b%var_SMA6%
Label>SMA7TEST
If>%var_SMA7%>0,SMA7GOOD
Goto>SMA8TEST
Label>SMA7GOOD
Let>SMA7CODE=!b%var_SMA7%
Label>SMA8TEST
If>%var_SMA8%>0,SMA8GOOD
Goto>SMA9TEST
Label>SMA8GOOD
Let>SMA8CODE=!b%var_SMA8%
Label>SMA9TEST
If>%var_SMA9%>0,SMA9GOOD
Goto>SMA10TEST
Label>SMA9GOOD
Let>SMA9CODE=!b%var_SMA9%
Label>SMA10TEST
If>%var_SMA10%>0,SMA10GOOD
Goto>SMACOLLECT
Label>SMA10GOOD
Let>SMA10CODE=!b%var_SMA10%
Label>SMACOLLECT
Let>SMAVALUECODE=%SMA1CODE%%SMA2CODE%%SMA3CODE%%SMA4CODE%%SMA5CODE%%SMA6CODE%%SMA7CODE%%SMA8CODE%%SMA9CODE%%SMA10CODE%
Label>SMADONE
Let>EMA1CODE=
Let>EMA2CODE=
Let>EMA3CODE=
Let>EMA4CODE=
Let>EMA5CODE=
Let>EMA6CODE=
Let>EMA7CODE=
Let>EMA8CODE=
Let>EMA9CODE=
Let>EMA10CODE=
If>%var_chkboxEMA%=False,EMACOLLECT
Label>EMA1TEST
If>%var_EMA1%>0,EMA1GOOD
Goto>EMA2TEST
Label>EMA1GOOD
Let>EMA1CODE=!c%var_EMA1%
Label>EMA2TEST
If>%var_EMA2%>0,EMA2GOOD
Goto>EMA3TEST
Label>EMA2GOOD
Let>EMA2CODE=!c%var_EMA2%
Label>EMA3TEST
If>%var_EMA3%>0,EMA3GOOD
Goto>EMA4TEST
Label>EMA3GOOD
Let>EMA3CODE=!c%var_EMA3%
Label>EMA4TEST
If>%var_EMA4%>0,EMA4GOOD
Goto>EMA5TEST
Label>EMA4GOOD
Let>EMA4CODE=!c%var_EMA4%
Label>EMA5TEST
If>%var_EMA5%>0,EMA5GOOD
Goto>EMA6TEST
Label>EMA5GOOD
Let>EMA5CODE=!c%var_EMA5%
Label>EMA6TEST
If>%var_EMA6%>0,EMA6GOOD
Goto>EMA7TEST
Label>EMA6GOOD
Let>EMA6CODE=!c%var_EMA6%
Label>EMA7TEST
If>%var_EMA7%>0,EMA7GOOD
Goto>EMA8TEST
Label>EMA7GOOD
Let>EMA7CODE=!c%var_EMA7%
Label>EMA8TEST
If>%var_EMA8%>0,EMA8GOOD
Goto>EMA9TEST
Label>EMA8GOOD
Let>EMA8CODE=!c%var_EMA8%
Label>EMA9TEST
If>%var_EMA9%>0,EMA9GOOD
Goto>EMA10TEST
Label>EMA9GOOD
Let>EMA9CODE=!c%var_EMA9%
Label>EMA10TEST
If>%var_EMA10%>0,EMA10GOOD
Goto>EMACOLLECT
Label>EMA10GOOD
Let>EMA10CODE=!c%var_EMA10%
Label>EMACOLLECT
Let>EMAVALUECODE=%EMA1CODE%%EMA2CODE%%EMA3CODE%%EMA4CODE%%EMA5CODE%%EMA6CODE%%EMA7CODE%%EMA8CODE%%EMA9CODE%%EMA10CODE%
Label>EMADONE
Let>HZ1CODE=
Let>HZ2CODE=
Let>HZ3CODE=
Let>HZ4CODE=
If>%var_chkboxHZ%=False,HZCOLLECT
Label>HZ1TEST
If>%var_HZ1%>0,HZ1GOOD
Goto>HZ2TEST
Label>HZ1GOOD
Let>HZ1CODE=!a%var_HZ1%
Label>HZ2TEST
If>%var_HZ2%>0,HZ2GOOD
Goto>HZ3TEST
Label>HZ2GOOD
Let>HZ2CODE=!a%var_HZ2%
Label>HZ3TEST
If>%var_HZ3%>0,HZ3GOOD
Goto>HZ4TEST
Label>HZ3GOOD
Let>HZ3CODE=!a%var_HZ3%
Label>HZ4TEST
If>%var_HZ4%>0,HZ4GOOD
Goto>HZCOLLECT
Label>HZ4GOOD
Let>HZ4CODE=!a%var_HZ4%
Label>HZCOLLECT
Let>HZVALUECODE=%HZ1CODE%%HZ2CODE%%HZ3CODE%%HZ4CODE%
Label>HZDONE
Let>BBCODE=
If>%var_chkboxBB%=False,BBDONE
Let>BBCOMMA=,
Let>BBCODE=!d%var_BB1%,%var_BB2%
Label>BBDONE
Let>PRICELABELSCODE=
If>%var_chkboxPRICELABELS%=False,PRICELABELSDONE
Let>PRICELABELSCODE=!f
Label>PRICELABELSDONE
Let>PRICEBYVOLUMECODE=
If>%var_chkboxPRICEBYVOLUME%=False,PRICEBYVOLUMEDONE
Let>PRICEBYVOLUMECODE=!i
Label>PRICEBYVOLUMEDONE
Let>VOLUMECODE=n
Let>VOLUMEMACODE=
If>%var_chkboxVOLUME%=False,VOLUMEDONE
Let>VOLUMECODE=y
If>%var_chkboxVOLUMEMA%=False,VOLUMEDONE
Let>VOLUMEMACODE=vc%var_VOLUMEMA1%
Label>VOLUMEDONE
Remark>===================== TECHNICAL INDICATORS APPLICATION ========================================================
Let>MACDLINELOCATIONCODE=
Let>MACDLINEVALUECODE=
If>%var_chkboxMACDLINE%=False,MACDLINEDONE
If>%var_chkboxMACDLINEU%=False,MACDLINELOWER
Let>MACDLINELOCATIONCODE=!Ua
Goto>MACDLINELOCATIONDONE
Label>MACDLINELOWER
Let>MACDLINELOCATIONCODE=!La
Label>MACDLINELOCATIONDONE
Let>MACDLINEVALUECODE=%var_MACDLINE1%,%var_MACDLINE2%,%var_MACDline3%
Label>MACDLINEDONE
Let>MACDHISTLOCATIONCODE=
Let>MACDHISTVALUECODE=
If>%var_chkboxMACDHIST%=False,MACDHISTDONE
If>%var_chkboxMACDHISTU%=False,MACDHISTLOWER
Let>MACDHISTLOCATIONCODE=!Uah
Goto>MACDHISTLOCATIONDONE
Label>MACDHISTLOWER
Let>MACDHISTLOCATIONCODE=!Lah
Label>MACDHISTLOCATIONDONE
Let>MACDHISTVALUECODE=%var_MACDHIST1%,%var_MACDHIST2%,%var_MACDHIST3%
Label>MACDHISTDONE
Let>STOSLOWLOCATIONCODE=
Let>STOSLOWVALUECODE=
If>%var_chkboxSTOSLOW%=False,STOSLOWDONE
If>%var_chkboxSTOSLOWU%=False,STOSLOWLOWER
Let>STOSLOWLOCATIONCODE=!Uh
Goto>STOSLOWLOCATIONDONE
Label>STOSLOWLOWER
Let>STOSLOWLOCATIONCODE=!Lh
Label>STOSLOWLOCATIONDONE
Let>STOSLOWVALUECODE=%var_STOSLOW1%,%var_STOSLOW2%
Label>STOSLOWDONE
Let>STOFASTLOCATIONCODE=
Let>STOFASTVALUECODE=
If>%var_chkboxSTOFAST%=False,STOFASTDONE
If>%var_chkboxSTOFASTU%=False,STOFASTLOWER
Let>STOFASTLOCATIONCODE=!Ui
Goto>STOFASTLOCATIONDONE
Label>STOFASTLOWER
Let>STOFASTLOCATIONCODE=!Li
Label>STOFASTLOCATIONDONE
Let>STOFASTVALUECODE=%var_STOFAST1%,%var_STOFAST2%
Label>STOFASTDONE
Let>STOFULLLOCATIONCODE=
Let>STOFULLVALUECODE=
If>%var_chkboxSTOFULL%=False,STOFULLDONE
If>%var_chkboxSTOFULLU%=False,STOFULLLOWER
Let>STOFULLLOCATIONCODE=!Up
Goto>STOFULLLOCATIONDONE
Label>STOFULLLOWER
Let>STOFULLLOCATIONCODE=!Lp
Label>STOFULLLOCATIONDONE
Let>STOFULLVALUECODE=%var_STOFULL1%,%var_STOFULL2%,%var_STOFULL3%
Label>STOFULLDONE
Let>ACCUMDISTLOCATIONCODE=
Let>ACCUMDISTVALUECODE=
If>%var_chkboxACCUMDIST%=False,ACCUMDISTDONE
If>%var_chkboxACCUMDISTU%=False,ACCUMDISTLOWER
Let>ACCUMDISTLOCATIONCODE=!Uf
Goto>ACCUMDISTLOCATIONDONE
Label>ACCUMDISTLOWER
Let>ACCUMDISTLOCATIONCODE=!Lf
Label>ACCUMDISTLOCATIONDONE
Let>ACCUMDISTVALUECODE=%var_ACCUMDIST1%
Label>ACCUMDISTDONE
Let>ADXLOCATIONCODE=
Let>ADXVALUECODE=
If>%var_chkboxADX%=False,ADXDONE
If>%var_chkboxADXU%=False,ADXLOWER
Let>ADXLOCATIONCODE=!Ul
Goto>ADXLOCATIONDONE
Label>ADXLOWER
Let>ADXLOCATIONCODE=!Ll
Label>ADXLOCATIONDONE
Let>ADXVALUECODE=%var_ADX1%
Label>ADXDONE
Let>OBVLOCATIONCODE=
Let>OBVVALUECODE=
If>%var_chkboxOBV%=False,OBVDONE
If>%var_chkboxOBVU%=False,OBVLOWER
Let>OBVLOCATIONCODE=!Ug
Goto>OBVLOCATIONDONE
Label>OBVLOWER
Let>OBVLOCATIONCODE=!Lg
Label>OBVLOCATIONDONE
Let>OBVVALUECODE=%var_OBV1%
Label>OBVDONE
Let>CMFLOCATIONCODE=
Let>CMFVALUECODE=
If>%var_chkboxCMF%=False,CMFDONE
If>%var_chkboxCMFU%=False,CMFLOWER
Let>CMFLOCATIONCODE=!Uc
Goto>CMFLOCATIONDONE
Label>CMFLOWER
Let>CMFLOCATIONCODE=!Lc
Label>CMFLOCATIONDONE
Let>CMFVALUECODE=%var_CMF1%
Label>CMFDONE
Let>RSILOCATIONCODE=
Let>RSIVALUECODE=
If>%var_chkboxRSI%=False,RSIDONE
If>%var_chkboxRSIU%=False,RSILOWER
Let>RSILOCATIONCODE=!Ub
Goto>RSILOCATIONDONE
Label>RSILOWER
Let>RSILOCATIONCODE=!Lb
Label>RSILOCATIONDONE
Let>RSIVALUECODE=%var_RSI1%
Label>RSIDONE
Let>RSISTOCHLOCATIONCODE=
Let>RSISTOCHVALUECODE=
If>%var_chkboxRSISTOCH%=False,RSISTOCHDONE
If>%var_chkboxRSISTOCHU%=False,RSISTOCHLOWER
Let>RSISTOCHLOCATIONCODE=!Uo
Goto>RSISTOCHLOCATIONDONE
Label>RSISTOCHLOWER
Let>RSISTOCHLOCATIONCODE=!Lo
Label>RSISTOCHLOCATIONDONE
Let>RSISTOCHVALUECODE=%var_RSISTOCH1%
Label>RSISTOCHDONE
Let>WilliamRLOCATIONCODE=
Let>WilliamRVALUECODE=
If>%var_chkboxWilliamR%=False,WilliamRDONE
If>%var_chkboxWilliamRU%=False,WilliamRLOWER
Let>WilliamRLOCATIONCODE=!Uk
Goto>WilliamRLOCATIONDONE
Label>WilliamRLOWER
Let>WilliamRLOCATIONCODE=!Lk
Label>WilliamRLOCATIONDONE
Let>WilliamRVALUECODE=%var_WilliamR1%
Label>WilliamRDONE
Let>ATRLOCATIONCODE=
Let>ATRVALUECODE=
If>%var_chkboxATR%=False,ATRDONE
If>%var_chkboxATRU%=False,ATRLOWER
Let>ATRLOCATIONCODE=!Ur
Goto>ATRLOCATIONDONE
Label>ATRLOWER
Let>ATRLOCATIONCODE=!Lr
Label>ATRLOCATIONDONE
Let>ATRVALUECODE=%var_ATR1%
Label>ATRDONE
Let>PriceRelLOCATIONCODE=
Let>PriceRelVALUECODE=
If>%var_chkboxPriceRel%=False,PriceRelDONE
If>%var_chkboxPriceRelU%=False,PriceRelLOWER
Let>PriceRelLOCATIONCODE=!Uj
Goto>PriceRelLOCATIONDONE
Label>PriceRelLOWER
Let>PriceRelLOCATIONCODE=!Lj
Label>PriceRelLOCATIONDONE
Let>PriceRelVALUECODE=[%var_PriceRel1%]
Label>PriceRelDONE
Remark>============================== BUILD URL ========================================================
Let>URL1=http://stockcharts.com/def/servlet/Shar ... SYMBOL%,uu[%SIZECODE%]
Let>URL2=%BARINTERVALCODE%a%LINESTYLECODE%%YSCALESTYLECODE%y%VOLUMECODE%%GRIDLINECODE%y[%DATERANGECODE%]
Let>URL3=[p%SMAVALUECODE%%EMAVALUECODE%%HZVALUECODE%%BBCODE%%PRICELABELSCODE%%PRICEBYVOLUMECODE%][%VOLUMEMACODE%]
Let>URL4=[i%MACDLINELOCATIONCODE%%MACDLINEVALUECODE%%MACDHISTLOCATIONCODE%%MACDHISTVALUECODE%%STOSLOWLOCATIONCODE%%STOSLOWVALUECODE%%STOFASTLOCATIONCODE%%STOFASTVALUECODE%%STOFULLLOCATIONCODE%%STOFULLVALUECODE%%ACCUMDISTLOCATIONCODE%%ACCUMDISTVALUECODE%%ADXLOCATIONCODE%%ADXVALUECODE%%OBVLOCATIONCODE%%OBVVALUECODE%%CMFLOCATIONCODE%%CMFVALUECODE%%RSILOCATIONCODE%%RSIVALUECODE%%RSISTOCHLOCATIONCODE%%RSISTOCHVALUECODE%%WilliamRLOCATIONCODE%%WilliamRVALUECODE%%ATRLOCATIONCODE%%ATRVALUECODE%%PriceRelLOCATIONCODE%%PriceRelVALUECODE%]
Let>BISHWAITURL=C:\Program Files\Macro Scheduler\BISHWAITPAGE.htm
Run Program>"C:\Program Files\Internet Explorer\IEXPLORE.EXE" "C:\Program Files\Macro Scheduler\BISHWAITPAGE.htm"
WaitWindowOpen>BISHWAIT*
PutClipBoard>%URL1%%URL2%%URL3%%URL4%
SetFocus>BISHWAIT*
GoSub>ADDRESSPASTE
WaitWindowOpen>stockcharts.com*
WaitWindowClosed>stockcharts.com*
SHOW>CONTINUE,RESULT2
If>RESULT2=2,ENDPOINT
ResetDialogAction>PARAMETER
Goto>SHOWDIALOG
Label>SYMBOLLOOKUP
Let>BISHWAITURL=C:\Program Files\Macro Scheduler\BISHWAITPAGE.htm
Run Program>"C:\Program Files\Internet Explorer\IEXPLORE.EXE" "C:\Program Files\Macro Scheduler\BISHWAITPAGE.htm"
WaitWindowOpen>BISHWAIT*
PutClipBoard>http://stockcharts.com/charts/catalog/Aa.html
SetFocus>BISHWAIT*
GoSub>ADDRESSPASTE
WaitWindowOpen>Symbol Catalog*
Let>WF_TYPE=2
WaitWindowClosed>Symbol Catalog*
Goto>SHOWDIALOG
Label>ENDPOINT
Remark> ================================= SUBROUTINES ====================================================
SRT>INITIALIZE
Let>var_Size=0
Let>var_BarInterval=0
Let>var_LineStyle=0
Let>var_YScaleStyle=0
Let>var_Gridline=0
Let>var_DateRange=3
Let>var_DAYS=#Days
Let>var_DateRange1=yyyymmdd
Let>var_DateRange2=yyyymmdd
Let>var_SYMBOL=$NDX
Let>var_chkboxSMA=False
Let>var_SMA1=20
Let>var_SMA2=50
Let>var_SMA3=200
Let>var_SMA4=
Let>var_SMA5=
Let>var_SMA6=
Let>var_SMA7=
Let>var_SMA8=
Let>var_SMA9=
Let>var_SMA10=
Let>var_chkboxEMA=True
Let>var_EMA1=20
Let>var_EMA2=50
Let>var_EMA3=200
Let>var_EMA4=
Let>var_EMA5=
Let>var_EMA6=
Let>var_EMA7=
Let>var_EMA8=
Let>var_EMA9=
Let>var_EMA10=
Let>var_chkboxHZ=False
Let>var_HZ1=
Let>var_HZ2=
Let>var_HZ3=
Let>var_HZ4=
Let>var_chkboxBB=False
Let>var_BB1=30
Let>var_BB2=2
Let>var_chkboxPriceLabels=False
Let>var_chkboxPricebyVolume=False
Let>var_chkboxVolume=False
Let>var_chkboxVolumeMA=False
Let>var_VOLUMEMA1=60
Let>var_chkboxMACDline=True
Let>var_chkboxMACDlineU=True
Let>var_chkboxMACDlineL=False
Let>var_MACDline1=20
Let>var_MACDline2=40
Let>var_MACDline3=25
Let>var_chkboxMACDHist=False
Let>var_chkboxMACDHistU=True
Let>var_chkboxMACDHistL=False
Let>var_MACDHist1=20
Let>var_MACDHist2=40
Let>var_MACDHist3=25
Let>var_chkboxSTOslow=
Let>var_chkboxSTOslowU=True
Let>var_chkboxSTOslowL=False
Let>var_STOslow1=21
Let>var_STOslow2=14
Let>var_chkboxSTOfast=False
Let>var_chkboxSTOfastU=True
Let>var_chkboxSTOfastL=False
Let>var_STOfast1=21
Let>var_STOfast2=14
Let>var_chkboxSTOfull=True
Let>var_chkboxSTOfullU=True
Let>var_chkboxSTOfullL=False
Let>var_STOfull1=21
Let>var_STOfull2=14
Let>var_STOfull3=9
Let>var_chkboxACCUMDIST=False
Let>var_chkboxACCUMDISTU=True
Let>var_chkboxACCUMDISTL=False
Let>var_ACCUMDIST1=13
Let>var_chkboxADX=True
Let>var_chkboxADXU=False
Let>var_chkboxADXL=True
Let>var_ADX1=21
Let>var_chkboxOBV=False
Let>var_chkboxOBVU=False
Let>var_chkboxMOBVL=True
Let>var_OBV1=21
Let>var_chkboxCMF=False
Let>var_chkboxCMFU=False
Let>var_chkboxCMFL=True
Let>var_CMF1=21
Let>var_chkboxRSI=False
Let>var_chkboxRSIU=False
Let>var_chkboxRSIL=True
Let>var_RSI1=21
Let>var_chkboxRSIstoch=True
Let>var_chkboxRSIstochU=False
Let>var_chkboxRSIstochL=True
Let>var_RSIstoch1=40
Let>var_chkboxWilliamR=False
Let>var_chkboxWilliamRU=False
Let>var_chkboxWilliamRL=True
Let>var_WilliamR1=21
Let>var_chkboxATR=False
Let>var_chkboxATRU=False
Let>var_chkboxATRL=True
Let>var_ATR1=21
Let>var_chkboxPriceRel=False
Let>var_chkboxPriceRelU=False
Let>var_chkboxPriceRelL=True
Let>var_PriceRel1=
END>INITIALIZE
SRT>CAPTURE
Let>var_Size=PARAMETER.Size.ItemIndex
Let>var_BarInterval=PARAMETER.BarInterval.ItemIndex
Let>var_LineStyle=PARAMETER.LineStyle.ItemIndex
Let>var_YScaleStyle=PARAMETER.YScaleStyle.ItemIndex
Let>var_Gridline=PARAMETER.Gridline.ItemIndex
Let>var_DateRange=PARAMETER.DateRange.ItemIndex
Let>var_DAYS=PARAMETER.DAYS
Let>var_DateRange1=PARAMETER.DateRange1
Let>var_DateRange2=PARAMETER.DateRange2
Let>var_SYMBOL=PARAMETER.SYMBOL
Let>var_chkboxSMA=PARAMETER.chkboxSMA
Let>var_SMA1=PARAMETER.SMA1
Let>var_SMA2=PARAMETER.SMA2
Let>var_SMA3=PARAMETER.SMA3
Let>var_SMA4=PARAMETER.SMA4
Let>var_SMA5=PARAMETER.SMA5
Let>var_SMA6=PARAMETER.SMA6
Let>var_SMA7=PARAMETER.SMA7
Let>var_SMA8=PARAMETER.SMA8
Let>var_SMA9=PARAMETER.SMA9
Let>var_SMA10=PARAMETER.SMA10
Let>var_chkboxEMA=PARAMETER.chkboxEMA
Let>var_EMA1=PARAMETER.EMA1
Let>var_EMA2=PARAMETER.EMA2
Let>var_EMA3=PARAMETER.EMA3
Let>var_EMA4=PARAMETER.EMA4
Let>var_EMA5=PARAMETER.EMA5
Let>var_EMA6=PARAMETER.EMA6
Let>var_EMA7=PARAMETER.EMA7
Let>var_EMA8=PARAMETER.EMA8
Let>var_EMA9=PARAMETER.EMA9
Let>var_EMA10=PARAMETER.EMA10
Let>var_chkboxHZ=PARAMETER.chkboxHZ
Let>var_HZ1=PARAMETER.HZ1
Let>var_HZ2=PARAMETER.HZ2
Let>var_HZ3=PARAMETER.HZ3
Let>var_HZ4=PARAMETER.HZ4
Let>var_chkboxBB=PARAMETER.chkboxBB
Let>var_BB1=PARAMETER.BB1
Let>var_BB2=PARAMETER.BB2
Let>var_chkboxPriceLabels=PARAMETER.chkboxPriceLabels
Let>var_chkboxPricebyVolume=PARAMETER.chkboxPricebyVolume
Let>var_chkboxVolume=PARAMETER.chkboxVolume
Let>var_chkboxVolumeMA=PARAMETER.chkboxVolumeMA
Let>var_VOLUMEMA1=PARAMETER.VOLUMEMA1
Let>var_chkboxMACDline=PARAMETER.chkboxMACDline
Let>var_chkboxMACDlineU=PARAMETER.chkboxMACDlineU
Let>var_chkboxMACDlineL=PARAMETER.chkboxMACDlineL
Let>var_MACDline1=PARAMETER.MACDline1
Let>var_MACDline2=PARAMETER.MACDline2
Let>var_MACDline3=PARAMETER.MACDline3
Let>var_chkboxMACDHist=PARAMETER.chkboxMACDHist
Let>var_chkboxMACDHistU=PARAMETER.chkboxMACDHistU
Let>var_chkboxMACDHistL=PARAMETER.chkboxMACDHistL
Let>var_MACDHist1=PARAMETER.MACDHist1
Let>var_MACDHist2=PARAMETER.MACDHist2
Let>var_MACDHist3=PARAMETER.MACDHist3
Let>var_chkboxSTOslow=PARAMETER.chkboxSTOslow
Let>var_chkboxSTOslowU=PARAMETER.chkboxSTOslowU
Let>var_chkboxSTOslowL=PARAMETER.chkboxSTOslowL
Let>var_STOslow1=PARAMETER.STOslow1
Let>var_STOslow2=PARAMETER.STOslow2
Let>var_chkboxSTOfast=PARAMETER.chkboxSTOfast
Let>var_chkboxSTOfastU=PARAMETER.chkboxSTOfastU
Let>var_chkboxSTOfastL=PARAMETER.chkboxSTOfastL
Let>var_STOfast1=PARAMETER.STOfast1
Let>var_STOfast2=PARAMETER.STOfast2
Let>var_chkboxSTOfull=PARAMETER.chkboxSTOfull
Let>var_chkboxSTOfullU=PARAMETER.chkboxSTOfullU
Let>var_chkboxSTOfullL=PARAMETER.chkboxSTOfullL
Let>var_STOfull1=PARAMETER.STOfull1
Let>var_STOfull2=PARAMETER.STOfull2
Let>var_STOfull3=PARAMETER.STOfull3
Let>var_chkboxACCUMDIST=PARAMETER.chkboxACCUMDIST
Let>var_chkboxACCUMDISTU=PARAMETER.chkboxACCUMDISTU
Let>var_chkboxACCUMDISTL=PARAMETER.chkboxACCUMDISTL
Let>var_ACCUMDIST1=PARAMETER.ACCUMDIST1
Let>var_chkboxADX=PARAMETER.chkboxADX
Let>var_chkboxADXU=PARAMETER.chkboxADXU
Let>var_chkboxADXL=PARAMETER.chkboxADXL
Let>var_ADX1=PARAMETER.ADX1
Let>var_chkboxOBV=PARAMETER.chkboxOBV
Let>var_chkboxOBVU=PARAMETER.chkboxOBVU
Let>var_chkboxMOBVL=PARAMETER.chkboxMOBVL
Let>var_OBV1=PARAMETER.OBV1
Let>var_chkboxCMF=PARAMETER.chkboxCMF
Let>var_chkboxCMFU=PARAMETER.chkboxCMFU
Let>var_chkboxCMFL=PARAMETER.chkboxCMFL
Let>var_CMF1=PARAMETER.CMF1
Let>var_chkboxRSI=PARAMETER.chkboxRSI
Let>var_chkboxRSIU=PARAMETER.chkboxRSIU
Let>var_chkboxRSIL=PARAMETER.chkboxRSIL
Let>var_RSI1=PARAMETER.RSI1
Let>var_chkboxRSIstoch=PARAMETER.chkboxRSIstoch
Let>var_chkboxRSIstochU=PARAMETER.chkboxRSIstochU
Let>var_chkboxRSIstochL=PARAMETER.chkboxRSIstochL
Let>var_RSIstoch1=PARAMETER.RSIstoch1
Let>var_chkboxWilliamR=PARAMETER.chkboxWilliamR
Let>var_chkboxWilliamRU=PARAMETER.chkboxWilliamRU
Let>var_chkboxWilliamRL=PARAMETER.chkboxWilliamRL
Let>var_WilliamR1=PARAMETER.WilliamR1
Let>var_chkboxATR=PARAMETER.chkboxATR
Let>var_chkboxATRU=PARAMETER.chkboxATRU
Let>var_chkboxATRL=PARAMETER.chkboxATRL
Let>var_ATR1=PARAMETER.ATR1
Let>var_chkboxPriceRel=PARAMETER.chkboxPriceRel
Let>var_chkboxPriceRelU=PARAMETER.chkboxPriceRelU
Let>var_chkboxPriceRelL=PARAMETER.chkboxPriceRelL
Let>var_PriceRel1=PARAMETER.PriceRel1
END>CAPTURE
SRT>DAYSCALC
Remark> ====== Code to convert #Days DATERANGE to specifing Start/End Date Ranges ==========
Day>var_DAY2
Month>var_MONTH2
Year>var_YEAR2
If>%var_MONTH2%=1,DAY2COUNT_1
If>%var_MONTH2%=2,DAY2COUNT_2
If>%var_MONTH2%=3,DAY2COUNT_3
If>%var_MONTH2%=4,DAY2COUNT_4
If>%var_MONTH2%=5,DAY2COUNT_5
If>%var_MONTH2%=6,DAY2COUNT_6
If>%var_MONTH2%=7,DAY2COUNT_7
If>%var_MONTH2%=8,DAY2COUNT_8
If>%var_MONTH2%=9,DAY2COUNT_9
If>%var_MONTH2%=10,DAY2COUNT_10
If>%var_MONTH2%=11,DAY2COUNT_11
If>%var_MONTH2%=12,DAY2COUNT_12
Label>DAY2COUNT_1
Let>var_DAY2COUNT=0
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_2
Let>var_DAY2COUNT=31
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_3
Let>var_DAY2COUNT=59
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_4
Let>var_DAY2COUNT=90
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_5
Let>var_DAY2COUNT=120
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_6
Let>var_DAY2COUNT=151
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_7
Let>var_DAY2COUNT=181
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_8
Let>var_DAY2COUNT=212
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_9
Let>var_DAY2COUNT=243
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_10
Let>var_DAY2COUNT=273
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_11
Let>var_DAY2COUNT=304
Goto>DAY2COUNT_COLLECT
Label>DAY2COUNT_12
Let>var_DAY2COUNT=334
Label>DAY2COUNT_COLLECT
Let>var_DAY2COUNT=%var_DAY2COUNT%+365
Let>var_DAY2COUNT=%var_DAY2COUNT%+%var_DAY2%
Let>var_DAY1COUNT=%var_DAY2COUNT%-%var_DAYS%
Let>var_YEAR1=%var_YEAR2%
If>%var_DAY1COUNT%>365,SAMEYEAR
Let>var_YEAR1=%var_YEAR2%-1
Let>var_DAY1COUNT=%var_DAY1COUNT%+365
Label>SAMEYEAR
Let>var_DAY1COUNT=%var_DAY1COUNT%-365
Label>DAY1COUNT_12
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-334
Let>var_MONTH1=12
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_11
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-304
Let>var_MONTH1=11
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_10
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-273
Let>var_MONTH1=10
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_9
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-243
Let>var_MONTH1=09
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_8
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-212
Let>var_MONTH1=08
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_7
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-181
Let>var_MONTH1=07
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_6
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-151
Let>var_MONTH1=06
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_5
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-120
Let>var_MONTH1=05
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_4
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-90
Let>var_MONTH1=04
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_3
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-59
Let>var_MONTH1=03
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_2
If>%var_DAY1COUNT%var_DAY1COUNT=%var_DAY1COUNT%-31
Let>var_MONTH1=02
Goto>DAY1COUNT_COLLECT
Label>DAY1COUNT_1
Let>var_MONTH1=01
Label>DAY1COUNT_COLLECT
Let>var_DAY1=%var_DAY1COUNT%
If>%var_MONTH2%MONTHOKAY
Label>INCRMONTH2
Let>var_MONTH2=%var_MONTH2%
Label>MONTHOKAY
If>%var_DAY2%DAY2OKAY
Label>INCRDAY2
Let>var_DAY2=0%var_DAY2%
Label>DAY2OKAY
If>%var_DAY1%DAY1OKAY
Label>INCRDAY1
Let>var_DAY1=0%var_DAY1%
Label>DAY1OKAY
Let>var_DateRange1=%var_YEAR1%%var_MONTH1%%var_DAY1%
Let>var_DateRange2=%var_YEAR2%%var_MONTH2%%var_DAY2%
END>DAYSCALC
SRT>ADDRESSPASTE
Press ALT
Send Character/Text>D
Release ALT
Wait>.5
Press CTRL
Send Character/Text>V
Release CTRL
Wait>.5
Press Enter
END>ADDRESSPASTE
I ran your script as-posted and you are correct, the checkboxes that would seem to be set to "True" in the "INITIALIZE" subroutine do not show up as checked. I then moved the line:
GoSub>INITIALIZE
to the front of the script and all boxes that were initialized to "True" show up checked in the dialog when the script is run. Apparently, the variables need to be set ahead of where the dialog is defined. If you notice in my sample that was what I had done. I don't know if it has always been this way or if it is new...Well that said... if your script worked pre 7.4 then I guess this feature is new.
hope this helps,
Dick
GoSub>INITIALIZE
to the front of the script and all boxes that were initialized to "True" show up checked in the dialog when the script is run. Apparently, the variables need to be set ahead of where the dialog is defined. If you notice in my sample that was what I had done. I don't know if it has always been this way or if it is new...Well that said... if your script worked pre 7.4 then I guess this feature is new.
hope this helps,
Dick
Just finished testing your script in versions 7.2 and version 7.3. It works as you would like it to work in both previous versions. So I think you are correct, something has changed in version 7.4.
To have the variables function properly they must be placed ahead of the dialog.
Hope this is helpful,
Dick
To have the variables function properly they must be placed ahead of the dialog.
Hope this is helpful,
Dick
First, I must say WELL DONE to Dick for finding this. I did as you suggested and moved my INITIALIZE SUB to the top and it acted as it used to. Good catch.
Marcus, can you weigh in on this? If this is indeed a necessary change to code the 7.4 executable then it opens up a whole can of worms in my scripts. I routinely will loop though multiple appearances of the dialog box (user makes a make small change in a parameter - allows code to run - then says Another Chart and tweaks the next parameter). My other dialog apps will be a lot of work to fix (and yes, I will be making frequent stops in this forum).
If the change is not critical to 7.4 - can you change the dialog box behavior back to 7.3 version.
Thanks you.
And thanks again to Dick for finding the problem so quickly. Kudos!
dbish
Marcus, can you weigh in on this? If this is indeed a necessary change to code the 7.4 executable then it opens up a whole can of worms in my scripts. I routinely will loop though multiple appearances of the dialog box (user makes a make small change in a parameter - allows code to run - then says Another Chart and tweaks the next parameter). My other dialog apps will be a lot of work to fix (and yes, I will be making frequent stops in this forum).
If the change is not critical to 7.4 - can you change the dialog box behavior back to 7.3 version.
Thanks you.
And thanks again to Dick for finding the problem so quickly. Kudos!
dbish
Checkbox problems also in 7.4.004
I believe I am experiencing the checkbox problems also as reported. Here is a code snippet that illustrates the problem. The "check all" and "uncheck all" buttons used to work in 7.3.11.4....now a no go. Yes, I could move the static call to "checkall" before the dialog, but the bigger issue is being able to control the checkboxes using the buttons on the form.
// Checkbox problem
// ver 7.4.004
Dialog>FinTests
Caption=Financial Tests Manager
Top=152
Width=1008
Left=3
Height=500
Label=Select Tests To Run,62,12
CheckBox=Test1,Test1,72,40,97,%Chk1%
CheckBox=Test1E,,144,40,17,%Test1ChkE%
CheckBox=Test2,Test2,72,72,97,%Chk2%
CheckBox=Test2E,,144,72,17,%Test2ChkE%
CheckBox=Test3,Test3,72,104,97,%Chk3%
CheckBox=Test3E,,144,104,17,%Test3ChkE%
CheckBox=Test4,Test4,72,136,97,%Chk4%
CheckBox=Test4E,,144,136,17,%Test4ChkE%
CheckBox=Test5,Test5,72,168,97,%Chk5%
CheckBox=Test5E,,144,168,17,%Test5ChkE%
CheckBox=VersionChecking,Enable Version Checking,552,392,153,True
CheckBox=AccessViolations,Enable Access Violation Checking,552,416,197,False
Button=Go,56,392,75,25,3
Button=Check All,304,392,75,25,5
Button=Un Check All,400,392,75,25,6
Button=Exit,152,392,75,25,2
EndDialog>FinTests
Gosub>CheckAll
Label>ActionLoop
Let>GlobalError=0
Let>FinTests.LoopStop=Error%CRLF%NoError
Show>FinTests,button_click_result
If>button_click_result=5
Gosub>CheckAll
Endif
If>button_click_result=6
Gosub>UnCheckAll
Endif
If>button_click_result=2,myend
If>button_click_result=3,StartTests
Goto>ActionLoop
Label>StartTests
SRT>CheckAll
Let>j=0
Repeat>j
Let>j=j+1
Let>Chk%j%=True
Until>j,5
End>CheckAll
SRT>UnCheckAll
Let>k=0
Repeat>k
Let>k=k+1
Let>Chk%k%=False
Until>k,5
End>UnCheckAll
Label>myend
Label>Bad
