Novità

Convertire Script del 10eLotto per il SuperEnalotto

stupl

Super member
Messaggi
156
Punti reazione
3
Punti
18
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

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
 

fillotto

Advanced Member >PLATINUM<
Messaggi
1.121
Punti reazione
8
Punti
38
X MAGIA si può fare questo script per una lotteria estera (svizzera 6x42)
ci ho provato sostituendo SE con FT e altre correzioni ma non riesco.....
Se puoi, quando puoi :)
 

Alien.

Advanced Premium Member
Messaggi
22.943
Punti reazione
219
Punti
63
è ottimo ma fa i "conti" su 8 numeri ? al super sono 6 + 1 superstar (volendo ma è da escludere)
il primo script per il 10elotto mi da errore si può correggere ? grazie.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 settembre 2020
    Bari
    14
    86
    85
    68
    16
    Cagliari
    31
    45
    42
    79
    21
    Firenze
    74
    69
    10
    63
    35
    Genova
    67
    32
    79
    36
    66
    Milano
    89
    59
    36
    77
    90
    Napoli
    58
    33
    06
    18
    56
    Palermo
    30
    19
    62
    90
    17
    Roma
    33
    70
    35
    75
    21
    Torino
    15
    20
    57
    21
    35
    Venezia
    36
    29
    71
    15
    26
    Nazionale
    73
    02
    20
    72
    10
    Estrazione Simbolotto
    Palermo
    21
    07
    14
    16
    18
Alto