Novità

Convertire Script del 10eLotto per il SuperEnalotto

stupl

Senior Member
Messaggi
149
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
 

magia

Super Member >PLATINUM<
Messaggi
493
Punti reazione
16
Punti
18
Buongiorno ,
Salutando gli intervenuti .
Postiamo il listato modificato .

'Convertire Script del 10eLotto per il SuperEnalotto di stupl
'https://forum.lottoced.com/threads/convertire-script-del-10elotto-per-il-superenalotto.2191475/
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)
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",8))
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
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
casi = 00
ultest = EstrazioniArchivioSE' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
ini = EstrazioniArchivioSE - 250
fin = EstrazioniArchivioSE
For es = ini To fin
'If IndiceMensilese(es) = ind Then
'If(((eval(ind) = 0)And(es = ultest))Or((Indicemensilese(es) = eval(ind)And(eval(ind) > 0))Or((Indicemensilese(es + 1) = 1)And(eval(ind) = 0)))) Then
If IndiceMensileSE(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensileSE(es) = eval(ind)And(eval(ind) > 00))Or((IndiceMensileSE(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) & ") " & DataEstrazioneSE(es) & " [" & es & "] " & StringaEstrattiSE(es),1
co = 00
For nu = 01 To 90
co = co + 01
a01 = EstrattoSE(es,p01)'a = EstrattoSE(es,p)
a02 = EstrattoSE(es,p02)'aa = EstrattoSE(es,p2)
a03 = EstrattoSE(es,p03)'a3 = EstrattoSE(es,p3)
a04 = EstrattoSE(es,p04)'a4 = EstrattoSE(es,p4)
a05 = EstrattoSE(es,p05)'a5 = EstrattoSE(es,p5)
a06 = EstrattoSE(es,p06)
a07 = EstrattoSE(es,p07)
a08 = EstrattoSE(es,p08)
'''-----------------------------------------------------------------
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)
'''-----------------------------------------------------------------
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
'''-----------------------------------------------------------------
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
'''-----------------------------------------------------------------
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
'''-----------------------------------------------------------------
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
'''-----------------------------------------------------------------
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
esncg = es + ncg
If esncg > ultest Then esncg = ultest End If
For ess = es + 01 To esncg
For pp = 01 To 8
e = EstrattoSE(ess,pp)
If e = b01 Then
n01(co,05) = n01(co,05) + 01
nn(01) = n01(co,6)
n01(co,07) = SerieFreqSE(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) = SerieFreqSE(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) = SerieFreqSE(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) = SerieFreqSE(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) = SerieFreqSE(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) = SerieFreqSE(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) = SerieFreqSE(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) = SerieFreqSE(es + 01,ess,nn,01)
End If
Next
Next
Next
End If
'End If
Next
Scrivi String(90,"-"),1
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazioneSE(ini) & " al " & DataEstrazioneSE(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 " & GetInfoEstrazioneSE(ultest) & " " & StringaEstrattiSE(ultest),1
''''
'01° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p01 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatriceTurbo n01,- 1,5
For ca = 01 To 5
mm(01) = n01(ca,06)
rat01 = SerieRitardoSE(fin - 250,fin,mm,01)
freq01 = SerieFreqSE(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
OrdinaMatriceTurbo n01,- 1,8
''''
'02° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p02 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatriceTurbo n02,- 1,5
For ca = 01 To 5
mm(01) = n02(ca,06)
rat02 = SerieRitardoSE(fin - 250,fin,mm,1)
freq02 = SerieFreqSE(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
OrdinaMatriceTurbo n02,- 1,8
''''
'03° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p03 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatriceTurbo n03,- 1,5
For ca = 01 To 5
mm(01) = n03(ca,06)
rat03 = SerieRitardoSE(fin - 250,fin,mm,1)
freq03 = SerieFreqSE(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
OrdinaMatriceTurbo n03,- 1,8
''''
'04° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p04 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatriceTurbo n04,- 1,5
For ca = 01 To 5
mm(01) = n04(ca,06)
rat04 = SerieRitardoSE(fin - 250,fin,mm,1)
freq04 = SerieFreqSE(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
OrdinaMatriceTurbo n04,- 1,8
''''
'05° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p05 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatriceTurbo n05,- 1,5
For ca = 01 To 5
mm(01) = n05(ca,06)
rat05 = SerieRitardoSE(fin - 250,fin,mm,1)
freq05 = SerieFreqSE(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
OrdinaMatriceTurbo n05,- 1,8
''''
'06° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p06 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatriceTurbo n06,- 1,5
For ca = 01 To 5
mm(01) = n06(ca,06)
rat06 = SerieRitardoSE(fin - 250,fin,mm,1)
freq06 = SerieFreqSE(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
OrdinaMatriceTurbo n06,- 1,8
''''
'07° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p07 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatriceTurbo n07,- 1,5
For ca = 01 To 5
mm(01) = n07(ca,06)
rat07 = SerieRitardoSE(fin - 250,fin,mm,01)
freq07 = SerieFreqSE(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
OrdinaMatriceTurbo n07,- 1,8
''''
'08° POSIZIONE'''---------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p08 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatriceTurbo n08,- 1,5
For ca = 01 To 5
mm(01) = n08(ca,06)
rat08 = SerieRitardoSE(fin - 250,fin,mm,01)
freq08 = SerieFreqSE(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
OrdinaMatriceTurbo n08,- 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 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

Controllare Sempre .
Salvo Errori ed Omissis .
 

fillotto

Advanced Member >PLATINUM<
Messaggi
1.085
Punti reazione
4
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
20.471
Punti reazione
113
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 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90

Ultimi Messaggi

Alto