stupl
Super member
Salve a tutti, come da oggetto chiedo, per favore e sempre che sia possibile, di convertire il listato postato sotto per usarlo col SuperEnalotto.
Grazie
Grazie
Codice:
Sub Main()
ColoreTesto 1: Scrivi
Scrivi String(27," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI ",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi
Dim mm(01),nn(01)
Dim n01(90,08),n02(90,08),n03(90,08),n04(90,08),n05(90,08),n06(90,08)',n07(90,08),n08(90,08),n09(90,08),n10(90,08)
Dim n11(90,08),n12(90,08),n13(90,08),n14(90,08),n15(90,08),n16(90,08),n17(90,08),n18(90,08),n19(90,08),n20(90,08),n21(90,08)
Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,8))
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",3))
nStart = Timer ' partenza tempo di elaborazione
ColoreTesto 0
Scrivi String(90,"-"),1
For x = 01 To 90
For y = 01 To 08
n01(x,y) = 00
n02(x,y) = 00
n03(x,y) = 00
n04(x,y) = 00
n05(x,y) = 00
n06(x,y) = 00
n07(x,y) = 00
n08(x,y) = 00
n09(x,y) = 00
n10(x,y) = 00
n11(x,y) = 00
n12(x,y) = 00
n13(x,y) = 00
n14(x,y) = 00
n15(x,y) = 00
n16(x,y) = 00
n17(x,y) = 00
n18(x,y) = 00
n19(x,y) = 00
n20(x,y) = 00
n21(x,y) = 00
Next
Next
p01 = 01'p = 1
p02 = 02'p2 = 2
p03 = 03'p3 = 3
p04 = 04'p4 = 4
p05 = 05'p5 = 5
p06 = 06
p07 = 07
p08 = 08
p09 = 09
p10 = 10
p11 = 11
p12 = 12
p13 = 13
p14 = 14
p15 = 15
p16 = 16
p17 = 17
p18 = 18
p19 = 19
p20 = 20
p21 = 21
casi = 00
ultest = EstrazioneFinDL' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
ini = EstrazioneFinDL - 250
fin = EstrazioneFinDL
For es = ini To fin
'If IndiceMensile(es) = ind Then
'If(((eval(ind) = 0)And(es = ultest))Or((Indicemensile(es) = eval(ind)And(eval(ind) > 0))Or((Indicemensile(es + 1) = 1)And(eval(ind) = 0)))) Then
If IndiceMensileDL(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensileDL(es) = eval(ind)And(eval(ind) > 00))Or((IndiceMensileDL(es + 01) = 01)And(eval(ind) = 00)))) Then
colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 01
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
Scrivi Format2(casi) & ") " & DataEstrazioneDL(es) & " [" & es & "] " & StringaEstrattiDL(es) & "...." & NumeroOroDL(es),1
co = 00
For nu = 01 To 90
co = co + 01
a01 = EstrattoDL(es,p01)'a = EstrattoDL(es,p)
a02 = EstrattoDL(es,p02)'aa = EstrattoDL(es,p2)
a03 = EstrattoDL(es,p03)'a3 = EstrattoDL(es,p3)
a04 = EstrattoDL(es,p04)'a4 = EstrattoDL(es,p4)
a05 = EstrattoDL(es,p05)'a5 = EstrattoDL(es,p5)
a06 = EstrattoDL(es,p06)
a07 = EstrattoDL(es,p07)
a08 = EstrattoDL(es,p08)
a09 = EstrattoDL(es,p09)
a10 = EstrattoDL(es,p10)
a11 = EstrattoDL(es,p11)
a12 = EstrattoDL(es,p12)
a13 = EstrattoDL(es,p13)
a14 = EstrattoDL(es,p14)
a15 = EstrattoDL(es,p15)
a16 = EstrattoDL(es,p16)
a17 = EstrattoDL(es,p17)
a18 = EstrattoDL(es,p18)
a19 = EstrattoDL(es,p19)
a20 = EstrattoDL(es,p20)
a21 = NumeroOroDL(es)
'''-----------------------------------------------------------------
b01 = Fuori90(a01 + nu)'b = Fuori90(a + nu)
b02 = Fuori90(a02 + nu)'bb = Fuori90(aa + nu)
b03 = Fuori90(a03 + nu)'b3 = Fuori90(a3 + nu)
b04 = Fuori90(a04 + nu)'b4 = Fuori90(a4 + nu)
b05 = Fuori90(a05 + nu)'b5 = Fuori90(a5 + nu)
b06 = Fuori90(a06 + nu)
b07 = Fuori90(a07 + nu)
b08 = Fuori90(a08 + nu)
b09 = Fuori90(a09 + nu)
b10 = Fuori90(a10 + nu)
b11 = Fuori90(a11 + nu)
b12 = Fuori90(a12 + nu)
b13 = Fuori90(a13 + nu)
b14 = Fuori90(a14 + nu)
b15 = Fuori90(a15 + nu)
b16 = Fuori90(a16 + nu)
b17 = Fuori90(a17 + nu)
b18 = Fuori90(a18 + nu)
b19 = Fuori90(a19 + nu)
b20 = Fuori90(a20 + nu)
b21 = Fuori90(a21 + nu)
'''-----------------------------------------------------------------
n01(co,01) = co
n02(co,01) = co
n03(co,01) = co
n04(co,01) = co
n05(co,01) = co
n06(co,01) = co
n07(co,01) = co
n08(co,01) = co
n09(co,01) = co
n10(co,01) = co
n11(co,01) = co
n12(co,01) = co
n13(co,01) = co
n14(co,01) = co
n15(co,01) = co
n16(co,01) = co
n17(co,01) = co
n18(co,01) = co
n19(co,01) = co
n20(co,01) = co
n21(co,01) = co
'''-----------------------------------------------------------------
n01(co,03) = p01'nam(co,3) = p
n02(co,03) = p02'nt(co,3) = p2
n03(co,03) = p03'n3(co,3) = p3
n04(co,03) = p04'n4(co,3) = p4
n05(co,03) = p05'n5(co,3) = p5
n06(co,03) = p06
n07(co,03) = p07
n08(co,03) = p08
n09(co,03) = p09
n10(co,03) = p10
n11(co,03) = p11
n12(co,03) = p12
n13(co,03) = p13
n14(co,03) = p14
n15(co,03) = p15
n16(co,03) = p16
n17(co,03) = p17
n18(co,03) = p18
n19(co,03) = p19
n20(co,03) = p20
n21(co,03) = p21
'''-----------------------------------------------------------------
n01(co,04) = nu
n02(co,04) = nu
n03(co,04) = nu
n04(co,04) = nu
n05(co,04) = nu
n06(co,04) = nu
n07(co,04) = nu
n08(co,04) = nu
n09(co,04) = nu
n10(co,04) = nu
n11(co,04) = nu
n12(co,04) = nu
n13(co,04) = nu
n14(co,04) = nu
n15(co,04) = nu
n16(co,04) = nu
n17(co,04) = nu
n18(co,04) = nu
n19(co,04) = nu
n20(co,04) = nu
n21(co,04) = nu
'''-----------------------------------------------------------------
n01(co,06) = b01'nam(co,6) = b
n02(co,06) = b02'nt(co,6) = bb
n03(co,06) = b03'n3(co,6) = b3
n04(co,06) = b04'n4(co,6) = b4
n05(co,06) = b05'n5(co,6) = b5
n06(co,06) = b06
n07(co,06) = b07
n08(co,06) = b08
n09(co,06) = b09
n10(co,06) = b10
n11(co,06) = b11
n12(co,06) = b12
n13(co,06) = b13
n14(co,06) = b14
n15(co,06) = b15
n16(co,06) = b16
n17(co,06) = b17
n18(co,06) = b18
n19(co,06) = b19
n20(co,06) = b20
n21(co,06) = b21
'''-----------------------------------------------------------------
n01(co,07) = 00
n02(co,07) = 00
n03(co,07) = 00
n04(co,07) = 00
n05(co,07) = 00
n06(co,07) = 00
n07(co,07) = 00
n08(co,07) = 00
n09(co,07) = 00
n10(co,07) = 00
n11(co,07) = 00
n12(co,07) = 00
n13(co,07) = 00
n14(co,07) = 00
n15(co,07) = 00
n16(co,07) = 00
n17(co,07) = 00
n18(co,07) = 00
n19(co,07) = 00
n20(co,07) = 00
n21(co,07) = 00
esncg = es + ncg
If esncg > EstrazioneFinDL Then esncg = EstrazioneFinDL End If
For ess = es + 01 To esncg
For pp = 01 To 20
e = EstrattoDL(ess,pp)
If e = b01 Then
n01(co,05) = n01(co,05) + 01
nn(01) = n01(co,6)
n01(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b02 Then
n02(co,05) = n02(co,05) + 01
nn(01) = n02(co,06)
n02(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b03 Then
n03(co,05) = n03(co,05) + 01
nn(01) = n03(co,06)
n03(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b04 Then
n04(co,05) = n04(co,05) + 01
nn(01) = n04(co,06)
n04(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b05 Then
n05(co,05) = n05(co,05) + 01
nn(01) = n05(co,06)
n05(co,7) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b06 Then
n06(co,05) = n06(co,05) + 01
nn(01) = n06(co,06)
n06(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b07 Then
n07(co,05) = n07(co,05) + 01
nn(01) = n07(co,06)
n07(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b08 Then
n08(co,05) = n08(co,05) + 01
nn(01) = n08(co,06)
n08(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b09 Then
n09(co,05) = n09(co,05) + 01
nn(01) = n09(co,06)
n09(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b10 Then
n10(co,05) = n10(co,05) + 01
nn(01) = n10(co,06)
n10(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b11 Then
n11(co,05) = n11(co,05) + 01
nn(01) = n11(co,06)
n11(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b12 Then
n12(co,05) = n12(co,05) + 01
nn(01) = n12(co,06)
n12(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b13 Then
n13(co,05) = n13(co,05) + 01
nn(01) = n13(co,06)
n13(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b14 Then
n14(co,05) = n14(co,05) + 01
nn(01) = n14(co,06)
n14(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b15 Then
n15(co,05) = n15(co,05) + 01
nn(01) = n15(co,06)
n15(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b16 Then
n16(co,05) = n16(co,05) + 01
nn(01) = n16(co,06)
n16(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b17 Then
n17(co,05) = n17(co,05) + 01
nn(01) = n17(co,06)
n17(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b18 Then
n18(co,05) = n18(co,05) + 01
nn(01) = n18(co,06)
n18(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b19 Then
n19(co,05) = n19(co,05) + 01
nn(01) = n19(co,06)
n19(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b20 Then
n20(co,05) = n20(co,05) + 01
nn(01) = n20(co,06)
n20(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b21 Then
n21(co,05) = n21(co,05) + 01
nn(01) = n21(co,06)
n21(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
Next
Next
Next
End If
'End If
Next
Scrivi String(90,"-"),1
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazioneDL(ini) & " al " & DataEstrazioneDL(fin),1
Scrivi
If ind = 00 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind > 00 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi
Scrivi "Ultima estrazione numeri estratti " & StringaEstrattiDL(EstrazioneFinDL) & "...." & NumeroOroDL(EstrazioneFinDL),1
''''
'01° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p01 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n01,- 1,5
For ca = 01 To 5
mm(01) = n01(ca,06)
rat01 = SerieRitardoDL(fin - 250,fin,mm,01)
freq01 = SerieFreqDL(fin - ne,fin,mm,01)
esito01 = Abs(ind - rat01)
If n01(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n01(ca,03)) & "° + " & Format2(n01(ca,04)) & " è uscito " & FormatSpace(n01(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n01(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat01) & " ... in corso ..." & " freq..." & Format2(freq01),1
Else
ColoreTesto 2
If n01(ca,07) > 00 Then
Scrivi eval(n01(ca,03)) & "° + " & Format2(n01(ca,04)) & " è uscito " & FormatSpace(n01(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n01(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat01) & " ... SFALDATO ..." & " freq..." & Format2(freq01),0,0
Scrivi " - Esito al colpo... " & esito01,1
c01 = c01 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c01,1
ColoreTesto 0
OrdinaMatrice n01,- 1,8
''''
'02° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p02 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice n02,- 1,5
For ca = 01 To 5
mm(01) = n02(ca,06)
rat02 = SerieRitardoDL(fin - 250,fin,mm,1)
freq02 = SerieFreqDL(fin - ne,fin,mm,1)
esito02 = Abs(ind - rat02)
If n02(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n02(ca,03)) & "° + " & Format2(n02(ca,04)) & " è uscito " & FormatSpace(n02(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n02(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat02) & " ... in corso ..." & " freq..." & Format2(freq02),1
Else
ColoreTesto 2
If n02(ca,07) > 00 Then
Scrivi eval(n02(ca,03)) & "° + " & Format2(n02(ca,04)) & " è uscito " & FormatSpace(n02(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n02(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat02) & " ... SFALDATO ..." & " freq..." & Format2(freq02),0,0
Scrivi " - Esito al colpo... " & esito02,1
c02 = c02 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & c02,1
ColoreTesto 0
OrdinaMatrice n02,- 1,8
''''
'03° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p03 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n03,- 1,5
For ca = 01 To 5
mm(01) = n03(ca,06)
rat03 = SerieRitardoDL(fin - 250,fin,mm,1)
freq03 = SerieFreqDL(fin - ne,fin,mm,1)
esito03 = Abs(ind - rat03)
If n03(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n03(ca,03)) & "° + " & Format2(n03(ca,04)) & " è uscito " & FormatSpace(n03(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n03(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat03) & " ... in corso ..." & " freq..." & Format2(freq03),1
Else
ColoreTesto 2
If n03(ca,07) > 00 Then
Scrivi eval(n03(ca,03)) & "° + " & Format2(n03(ca,04)) & " è uscito " & FormatSpace(n03(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n03(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat03) & " ... SFALDATO ..." & " freq..." & Format2(freq03),0,0
Scrivi " - Esito al colpo... " & esito03,1
c03 = c03 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & c03,1
ColoreTesto 0
OrdinaMatrice n03,- 1,8
''''
'04° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p04 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n04,- 1,5
For ca = 01 To 5
mm(01) = n04(ca,06)
rat04 = SerieRitardoDL(fin - 250,fin,mm,1)
freq04 = SerieFreqDL(fin - ne,fin,mm,1)
esito04 = Abs(ind - rat04)
If n04(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n04(ca,03)) & "° + " & Format2(n04(ca,04)) & " è uscito " & FormatSpace(n04(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n04(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat04) & " ... in corso ..." & " freq..." & Format2(freq04),1
Else
ColoreTesto 2
If n04(ca,07) > 00 Then
Scrivi eval(n04(ca,03)) & "° + " & Format2(n04(ca,04)) & " è uscito " & FormatSpace(n04(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n04(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat04) & " ... SFALDATO ..." & " freq..." & Format2(freq04),0,0
Scrivi " - Esito al colpo... " & esito04,1
c04 = c04 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & c04,1
ColoreTesto 0
OrdinaMatrice n04,- 1,8
''''
'05° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p05 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n05,- 1,5
For ca = 01 To 5
mm(01) = n05(ca,06)
rat05 = SerieRitardoDL(fin - 250,fin,mm,1)
freq05 = SerieFreqDL(fin - ne,fin,mm,1)
esito05 = Abs(ind - rat05)
If n05(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n05(ca,03)) & "° + " & Format2(n05(ca,04)) & " è uscito " & FormatSpace(n05(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n05(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat05) & " ... in corso ..." & " freq..." & Format2(freq05),1
Else
ColoreTesto 2
If n05(ca,07) > 00 Then
Scrivi eval(n05(ca,03)) & "° + " & Format2(n05(ca,04)) & " è uscito " & FormatSpace(n05(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n05(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat05) & " ... SFALDATO ..." & " freq..." & Format2(freq05),0,0
Scrivi " - Esito al colpo... " & esito05,1
c05 = c05 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & c05,1
ColoreTesto 0
OrdinaMatrice n05,- 1,8
''''
'06° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p06 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n06,- 1,5
For ca = 01 To 5
mm(01) = n06(ca,06)
rat06 = SerieRitardoDL(fin - 250,fin,mm,1)
freq06 = SerieFreqDL(fin - ne,fin,mm,1)
esito06 = Abs(ind - rat06)
If n06(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n06(ca,03)) & "° + " & Format2(n06(ca,04)) & " è uscito " & FormatSpace(n06(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n06(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat06) & " ... in corso ..." & " freq..." & Format2(freq06),1
Else
ColoreTesto 2
If n06(ca,07) > 00 Then
Scrivi eval(n06(ca,03)) & "° + " & Format2(n06(ca,04)) & " è uscito " & FormatSpace(n06(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n06(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat06) & " ... SFALDATO ..." & " freq..." & Format2(freq06),0,0
Scrivi " - Esito al colpo... " & esito06,1
c06 = c06 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & c06,1
ColoreTesto 0
OrdinaMatrice n06,- 1,8
''''
'07° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p07 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n07,- 1,5
For ca = 01 To 5
mm(01) = n07(ca,06)
rat07 = SerieRitardoDL(fin - 250,fin,mm,01)
freq07 = SerieFreqDL(fin - ne,fin,mm,01)
esito07 = Abs(ind - rat07)
If n07(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n07(ca,03)) & "° + " & Format2(n07(ca,04)) & " è uscito " & FormatSpace(n07(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n07(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat07) & " ... in corso ..." & " freq..." & Format2(freq07),1
Else
ColoreTesto 2
If n07(ca,07) > 00 Then
Scrivi eval(n07(ca,03)) & "° + " & Format2(n07(ca,04)) & " è uscito " & FormatSpace(n07(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n07(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat07) & " ... SFALDATO ..." & " freq..." & Format2(freq07),0,0
Scrivi " - Esito al colpo... " & esito07,1
c07 = c07 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c07,1
ColoreTesto 0
OrdinaMatrice n07,- 1,8
''''
'08° POSIZIONE'''---------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p08 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n08,- 1,5
For ca = 01 To 5
mm(01) = n08(ca,06)
rat08 = SerieRitardoDL(fin - 250,fin,mm,01)
freq08 = SerieFreqDL(fin - ne,fin,mm,01)
esito08 = Abs(ind - rat08)
If n08(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n08(ca,03)) & "° + " & Format2(n08(ca,04)) & " è uscito " & FormatSpace(n08(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n08(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat08) & " ... in corso ..." & " freq..." & Format2(freq08),1
Else
ColoreTesto 2
If n08(ca,07) > 00 Then
Scrivi eval(n08(ca,03)) & "° + " & Format2(n08(ca,04)) & " è uscito " & FormatSpace(n08(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n08(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat08) & " ... SFALDATO ..." & " freq..." & Format2(freq08),0,0
Scrivi " - Esito al colpo... " & esito08,1
c08 = c08 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c08,1
ColoreTesto 0
OrdinaMatrice n08,- 1,8
''''
'09° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p09 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n09,- 1,5
For ca = 01 To 5
mm(01) = n09(ca,06)
rat09 = SerieRitardoDL(fin - 250,fin,mm,01)
freq09 = SerieFreqDL(fin - ne,fin,mm,01)
esito09 = Abs(ind - rat09)
If n09(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n09(ca,03)) & "° + " & Format2(n09(ca,04)) & " è uscito " & FormatSpace(n09(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n09(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat09) & " ... in corso ..." & " freq..." & Format2(freq09),1
Else
ColoreTesto 2
If n09(ca,07) > 00 Then
Scrivi eval(n09(ca,03)) & "° + " & Format2(n09(ca,04)) & " è uscito " & FormatSpace(n09(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n09(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat09) & " ... SFALDATO ..." & " freq..." & Format2(freq09),0,0
Scrivi " - Esito al colpo... " & esito09,1
c09 = c09 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c09,1
ColoreTesto 0
OrdinaMatrice n09,- 1,8
''''
'10° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p10 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n10,- 1,5
For ca = 01 To 5
mm(01) = n10(ca,06)
rat10 = SerieRitardoDL(fin - 250,fin,mm,01)
freq10 = SerieFreqDL(fin - ne,fin,mm,01)
esito10 = Abs(ind - rat10)
If n10(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n10(ca,03)) & "° + " & Format2(n10(ca,04)) & " è uscito " & FormatSpace(n10(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n10(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat10) & " ... in corso ..." & " freq..." & Format2(freq10),1
Else
ColoreTesto 2
If n10(ca,07) > 00 Then
Scrivi eval(n10(ca,03)) & "° + " & Format2(n10(ca,04)) & " è uscito " & FormatSpace(n10(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n10(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat10) & " ... SFALDATO ..." & " freq..." & Format2(freq10),0,0
Scrivi " - Esito al colpo... " & esito10,1
c10 = c10 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c10,1
ColoreTesto 0
OrdinaMatrice n10,- 1,8
''''
'11° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p11 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n11,- 1,5
For ca = 01 To 5
mm(01) = n11(ca,06)
rat11 = SerieRitardoDL(fin - 250,fin,mm,01)
freq11 = SerieFreqDL(fin - ne,fin,mm,01)
esito11 = Abs(ind - rat11)
If n11(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n11(ca,03)) & "° + " & Format2(n11(ca,04)) & " è uscito " & FormatSpace(n11(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n11(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat11) & " ... in corso ..." & " freq..." & Format2(freq11),1
Else
ColoreTesto 2
If n11(ca,07) > 00 Then
Scrivi eval(n11(ca,03)) & "° + " & Format2(n11(ca,04)) & " è uscito " & FormatSpace(n11(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n11(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat11) & " ... SFALDATO ..." & " freq..." & Format2(freq11),0,0
Scrivi " - Esito al colpo... " & esito11,1
c11 = c11 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c11,1
ColoreTesto 0
OrdinaMatrice n11,- 1,8
''''
'12° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p12 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n12,- 1,5
For ca = 01 To 5
mm(01) = n12(ca,06)
rat12 = SerieRitardoDL(fin - 250,fin,mm,01)
freq12 = SerieFreqDL(fin - ne,fin,mm,01)
esito12 = Abs(ind - rat12)
If n12(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n12(ca,03)) & "° + " & Format2(n12(ca,04)) & " è uscito " & FormatSpace(n12(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n12(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat12) & " ... in corso ..." & " freq..." & Format2(freq12),1
Else
ColoreTesto 2
If n12(ca,07) > 00 Then
Scrivi eval(n12(ca,03)) & "° + " & Format2(n12(ca,04)) & " è uscito " & FormatSpace(n12(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n12(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat12) & " ... SFALDATO ..." & " freq..." & Format2(freq12),0,0
Scrivi " - Esito al colpo... " & esito12,1
c12 = c12 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c12,1
ColoreTesto 0
OrdinaMatrice n12,- 1,8
''''
'13° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p13 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n13,- 1,5
For ca = 01 To 5
mm(01) = n13(ca,06)
rat13 = SerieRitardoDL(fin - 250,fin,mm,01)
freq13 = SerieFreqDL(fin - ne,fin,mm,01)
esito13 = Abs(ind - rat13)
If n13(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n13(ca,03)) & "° + " & Format2(n13(ca,04)) & " è uscito " & FormatSpace(n13(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n13(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat13) & " ... in corso ..." & " freq..." & Format2(freq13),1
Else
ColoreTesto 2
If n13(ca,07) > 00 Then
Scrivi eval(n13(ca,03)) & "° + " & Format2(n13(ca,04)) & " è uscito " & FormatSpace(n13(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n13(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat13) & " ... SFALDATO ..." & " freq..." & Format2(freq13),0,0
Scrivi " - Esito al colpo... " & esito13,1
c13 = c13 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c13,1
ColoreTesto 0
OrdinaMatrice n13,- 1,8
''''
'14° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p14 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n14,- 1,5
For ca = 01 To 5
mm(01) = n14(ca,06)
rat14 = SerieRitardoDL(fin - 250,fin,mm,01)
freq14 = SerieFreqDL(fin - ne,fin,mm,01)
esito14 = Abs(ind - rat14)
If n14(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n14(ca,03)) & "° + " & Format2(n14(ca,04)) & " è uscito " & FormatSpace(n14(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n14(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat14) & " ... in corso ..." & " freq..." & Format2(freq14),1
Else
ColoreTesto 2
If n14(ca,07) > 00 Then
Scrivi eval(n14(ca,03)) & "° + " & Format2(n14(ca,04)) & " è uscito " & FormatSpace(n14(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n14(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat14) & " ... SFALDATO ..." & " freq..." & Format2(freq14),0,0
Scrivi " - Esito al colpo... " & esito14,1
c14 = c14 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c14,1
ColoreTesto 0
OrdinaMatrice n14,- 1,8
''''
'15° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p15 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n15,- 1,5
For ca = 01 To 5
mm(01) = n15(ca,06)
rat15 = SerieRitardoDL(fin - 250,fin,mm,01)
freq15 = SerieFreqDL(fin - ne,fin,mm,01)
esito15 = Abs(ind - rat15)
If n15(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n15(ca,03)) & "° + " & Format2(n15(ca,04)) & " è uscito " & FormatSpace(n15(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n15(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat15) & " ... in corso ..." & " freq..." & Format2(freq15),1
Else
ColoreTesto 2
If n15(ca,07) > 00 Then
Scrivi eval(n15(ca,03)) & "° + " & Format2(n15(ca,04)) & " è uscito " & FormatSpace(n15(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n15(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat15) & " ... SFALDATO ..." & " freq..." & Format2(freq15),0,0
Scrivi " - Esito al colpo... " & esito15,1
c15 = c15 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c15,1
ColoreTesto 0
OrdinaMatrice n15,- 1,8
''''
'16° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p16 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n16,- 1,5
For ca = 01 To 5
mm(01) = n16(ca,06)
rat16 = SerieRitardoDL(fin - 250,fin,mm,01)
freq16 = SerieFreqDL(fin - ne,fin,mm,01)
esito16 = Abs(ind - rat16)
If n16(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n16(ca,03)) & "° + " & Format2(n16(ca,04)) & " è uscito " & FormatSpace(n16(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n16(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat16) & " ... in corso ..." & " freq..." & Format2(freq16),1
Else
ColoreTesto 2
If n16(ca,07) > 00 Then
Scrivi eval(n16(ca,03)) & "° + " & Format2(n16(ca,04)) & " è uscito " & FormatSpace(n16(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n16(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat16) & " ... SFALDATO ..." & " freq..." & Format2(freq16),0,0
Scrivi " - Esito al colpo... " & esito16,1
c16 = c16 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c16,1
ColoreTesto 0
OrdinaMatrice n16,- 1,8
''''
'17° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p17 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n17,- 1,5
For ca = 01 To 5
mm(01) = n17(ca,06)
rat17 = SerieRitardoDL(fin - 250,fin,mm,01)
freq17 = SerieFreqDL(fin - ne,fin,mm,01)
esito17 = Abs(ind - rat17)
If n17(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n17(ca,03)) & "° + " & Format2(n17(ca,04)) & " è uscito " & FormatSpace(n17(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n17(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat17) & " ... in corso ..." & " freq..." & Format2(freq17),1
Else
ColoreTesto 2
If n17(ca,07) > 00 Then
Scrivi eval(n17(ca,03)) & "° + " & Format2(n17(ca,04)) & " è uscito " & FormatSpace(n17(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n17(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat17) & " ... SFALDATO ..." & " freq..." & Format2(freq17),0,0
Scrivi " - Esito al colpo... " & esito17,1
c17 = c17 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c17,1
ColoreTesto 0
OrdinaMatrice n17,- 1,8
''''
'18° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p18 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n18,- 1,5
For ca = 01 To 5
mm(01) = n18(ca,06)
rat18 = SerieRitardoDL(fin - 250,fin,mm,01)
freq18 = SerieFreqDL(fin - ne,fin,mm,01)
esito18 = Abs(ind - rat18)
If n18(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n18(ca,03)) & "° + " & Format2(n18(ca,04)) & " è uscito " & FormatSpace(n18(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n18(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat18) & " ... in corso ..." & " freq..." & Format2(freq18),1
Else
ColoreTesto 2
If n18(ca,07) > 00 Then
Scrivi eval(n18(ca,03)) & "° + " & Format2(n18(ca,04)) & " è uscito " & FormatSpace(n18(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n18(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat18) & " ... SFALDATO ..." & " freq..." & Format2(freq18),0,0
Scrivi " - Esito al colpo... " & esito18,1
c18 = c18 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c18,1
ColoreTesto 0
OrdinaMatrice n18,- 1,8
''''
'19° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p19 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n19,- 1,5
For ca = 01 To 5
mm(01) = n19(ca,06)
rat19 = SerieRitardoDL(fin - 250,fin,mm,01)
freq19 = SerieFreqDL(fin - ne,fin,mm,01)
esito19 = Abs(ind - rat19)
If n19(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n19(ca,03)) & "° + " & Format2(n19(ca,04)) & " è uscito " & FormatSpace(n19(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n19(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat19) & " ... in corso ..." & " freq..." & Format2(freq19),1
Else
ColoreTesto 2
If n19(ca,07) > 00 Then
Scrivi eval(n19(ca,03)) & "° + " & Format2(n19(ca,04)) & " è uscito " & FormatSpace(n19(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n19(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat19) & " ... SFALDATO ..." & " freq..." & Format2(freq19),0,0
Scrivi " - Esito al colpo... " & esito19,1
c19 = c19 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c19,1
ColoreTesto 0
OrdinaMatrice n19,- 1,8
''''
'20° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p20 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n20,- 1,5
For ca = 01 To 5
mm(01) = n20(ca,06)
rat20 = SerieRitardoDL(fin - 250,fin,mm,01)
freq20 = SerieFreqDL(fin - ne,fin,mm,01)
esito20 = Abs(ind - rat20)
If n20(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n20(ca,03)) & "° + " & Format2(n20(ca,04)) & " è uscito " & FormatSpace(n20(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n20(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat20) & " ... in corso ..." & " freq..." & Format2(freq20),1
Else
ColoreTesto 2
If n20(ca,07) > 00 Then
Scrivi eval(n20(ca,03)) & "° + " & Format2(n20(ca,04)) & " è uscito " & FormatSpace(n20(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n20(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat20) & " ... SFALDATO ..." & " freq..." & Format2(freq20),0,0
Scrivi " - Esito al colpo... " & esito20,1
c20 = c20 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c20,1
ColoreTesto 0
OrdinaMatrice n20,- 1,8
''''
'NUMERO ORO 21° POSIZIONE '''-------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p21 & " NUMERO ORO ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n21,- 1,5
For ca = 01 To 5
mm(01) = n21(ca,06)
rat21 = SerieRitardoDL(fin - 250,fin,mm,01)
freq21 = SerieFreqDL(fin - ne,fin,mm,01)
esito21 = Abs(ind - rat21)
If n21(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n21(ca,03)) & "° + " & Format2(n21(ca,04)) & " è uscito " & FormatSpace(n21(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n21(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat21) & " ... in corso ..." & " freq..." & Format2(freq21),1
Else
ColoreTesto 2
If n21(ca,07) > 00 Then
Scrivi eval(n21(ca,03)) & "° + " & Format2(n21(ca,04)) & " è uscito " & FormatSpace(n21(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n21(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat21) & " ... SFALDATO ..." & " freq..." & Format2(freq21),0,0
Scrivi " - Esito al colpo... " & esito21,1
c21 = c21 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c21,1
ColoreTesto 0
OrdinaMatrice n21,- 1,8
''''--------------------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,0,"Scegli aechivio") + 01
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
