Script da lotto a 10&lotto 5 minuti

antonio65 · 23 Dicembre 2015

Salve , qualcuno potrebbe convertire questo script da lotto a 10&lotto 5 minuti Grazie Antonio 65

'Estratto + num fisso su ruota -List. da Ramco e mod. da Mike58....Mod, Blackmore 2

'Ultima estrazione numeri estratti Bari - 12.72.35.01.45

'ATTENZIONE ANALISI DELLA POSIZIONE. 1
' Colpo n°. 12

'1°Ba + 08 su Bari è uscito 11 su 12 casi - Num. [48] Ultimo Calcolato Rit.Att. 04 ... SFALDATO ... freq...14 - Esito al colpo... 8
'1°Ba + 06 su Bari è uscito 10 su 12 casi - Num. [46] Ultimo Calcolato Rit.Att. 88 ... in corso ... freq...6

' ATTENZIONE ANALISI DELLA POSIZIONE. 2
' Colpo n°. 12

'2°Ba + 22 su Bari è uscito 13 su 12 casi - Num. [84] Ultimo Calcolato Rit.Att. 11 ... SFALDATO ... freq...08 - Esito al colpo... 10
'2°Ba + 11 su Bari è uscito 11 su 12 casi - Num. [73] Ultimo Calcolato; Rit.Att. 20 ... in corso ... freq...10

Sub Main()
ColoreTesto 1: Scrivi
Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",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(1)
Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8 ),n5(90,8)
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,0))

ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",9))
nStart = Timer ' partenza tempo di elaborazione
For nru1 = 1 To 12
If nru1 = 11 Then nru1 = 12
ColoreTesto 0:Scrivi String(115,"=")
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 8
nam(x,y) = 0
nt(x,y) = 0
n3(x,y) = 0
n4(x,y) = 0
n5(x,y) = 0
Next
Next
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
casi = 0
ultest = 8968 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
ini = 7694
fin = EstrazioneFin
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 IndiceMensile(es) = ind Or(((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

colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 1
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 90
co = co + 1
a = Estratto(es,nru1,p)
aa = Estratto(es,nru1,p2)
a3 = Estratto(es,nru1,p3)
b = Fuori90(a + nu)
bb = Fuori90(aa + nu)
b3 = Fuori90(a3 + nu)
a4 = Estratto(es,nru1,p4)
a5 = Estratto(es,nru1,p5)
b4 = Fuori90(a4 + nu)
b5 = Fuori90(a5 + nu)
nam(co,1) = co
nt(co,1) = co
n3(co,1) = co
n4(co,1) = co
n5(co,1) = co
nam(co,2) = nru1
nt(co,2) = nru1
n3(co,2) = nru1
n4(co,2) = nru1
n5(co,2) = nru1
nam(co,3) = p
nt(co,3) = p2
n3(co,3) = p3
n4(co,3) = p4
n5(co,3) = p5
nam(co,4) = nu
nt(co,4) = nu
n3(co,4) = nu
n4(co,4) = nu
n5(co,4) = nu
nam(co,6) = b
nt(co,6) = bb
n3(co,6) = b3
n4(co,6) = b4
n5(co,6) = b5
nam(co,7) = 0
nt(co,7) = 0
n3(co,7) = 0
n4(co,7) = 0
n5(co,7) = 0
esncg = es + ncg
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
For ess = es + 1 To esncg
For pp = 1 To 5
e = Estratto(ess,nru1,pp)
If e = b Then
nam(co,5) = nam(co,5) + 1
nn(1) = nam(co,6)
nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = bb Then
nt(co,5) = nt(co,5) + 1
nn(1) = nt(co,6)
nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b3 Then
n3(co,5) = n3(co,5) + 1
nn(1) = n3(co,6)
n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b4 Then
n4(co,5) = n4(co,5) + 1
nn(1) = n4(co,6)
n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b5 Then
n5(co,5) = n5(co,5) + 1
nn(1) = n5(co,6)
n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
Next
Next
Next
End If
'End If
Next
Scrivi "------------------------------------------"
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi

If ind = 0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind > 0 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),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 " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 25
mm(1) = nam(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
esitoo = colpo - ratt
'esitoo= Abs(ind - ratt)
If nam(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nam(ca,7) > 0 Then
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esitoo,1
'cc = 0
cc = cc + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice nt,- 1,5
For ca = 1 To 25
mm(1) = nt(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito1 = colpo - ratt
esito1 = Abs(ind - ratt)
If nt(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nt(ca,7) > 0 Then
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito1,1
dd = dd + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 25
mm(1) = n3(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito2 = colpo - ratt
esito2 = Abs(ind - ratt)
If n3(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n3(ca,7) > 0 Then
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito2,1
hh = hh + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 25
mm(1) = n4(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito3 = colpo - ratt
esito3 = Abs(ind - ratt)
If n4(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n4(ca,7) > 0 Then
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito3,1
ff = ff + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 25
mm(1) = n5(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito4 = colpo - ratt
esito4 = Abs(ind - ratt)
If n5(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n5(ca,7) > 0 Then
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito4,1
gg = gg + 1
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
Scrivi String(115,"="),1
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 Sub
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

Membro cancellato 16574 · 29 Dicembre 2015

Buonanotte,
Salutando tutti
Diamo due consigli :
Il primo e' quello di postare i listati , usando i tasti CODE , per interderci , quel tasto con cancelletto.
Secondo consiglio :molte volte sarebbe meglio spiegare quello che si vuole e fare un listato exnovo.
Piuttosto che modificare uno esistente.
Altresi le ricordiamo di andare a leggere questa discussione ,

http://forum.lottoced.com/forum/lottoced/area-download/117347-codici-con-suffisso-ft/page6

al messaggio 81 , e di contribuire facendo la sua parte.
Grazie.
Comunque alleghiamo listato modificato, per ora solo per il 10elotto serale.
Pregasi Controllare.

Codice:

'Estratto + num fisso su ruota -List. da Ramco e mod. da Mike58....Mod, Blackmore 2
'Ultima estrazione numeri estratti Bari - 12.72.35.01.45
'ATTENZIONE ANALISI DELLA POSIZIONE. 1
' Colpo n°. 12
'1°Ba + 08 su Bari è uscito 11 su 12 casi - Num. [48] Ultimo Calcolato Rit.Att. 04 ... SFALDATO ... freq...14 - Esito al colpo... 8
'1°Ba + 06 su Bari è uscito 10 su 12 casi - Num. [46] Ultimo Calcolato Rit.Att. 88 ... in corso ... freq...6
' ATTENZIONE ANALISI DELLA POSIZIONE. 2
' Colpo n°. 12
'2°Ba + 22 su Bari è uscito 13 su 12 casi - Num. [84] Ultimo Calcolato Rit.Att. 11 ... SFALDATO ... freq...08 - Esito al colpo... 10
'2°Ba + 11 su Bari è uscito 11 su 12 casi - Num. [73] Ultimo Calcolato; Rit.Att. 20 ... in corso ... freq...10
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, ....)",,0))
        ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",9))
        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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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 25
            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

antonio65 · 24 Gennaio 2016

Mi scuso per il ritardo, il listato funziona benissimo...bisogna variare per il 10&Lotto 5 minuti...grazie di vero cuore !!!

Cerca

Cerca

Script da lotto a 10&lotto 5 minuti

antonio65

Super Member >PLATINUM<

Membro cancellato 16574

Guest

antonio65

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi