Novità

x mike58

ciao Mike
mi rivolgo ancora a te per aggiungere ancora una colonna a questo script,
vorrei aggiungere una colonna che chiamerò "somma 1"
che mi somma i numeri che sono nella colonna "conta estratti" (che è la decima colonna)
con "conta fin, -1" (che è la tredicesima colonna)
ad esempio se nella colonna Conta Estratti c'è il numero 11 e
nella colonna Conta fin, -1 c'è il numero 9
nella nuova colonna somma 1 dovrà esserci il numero 20

ti ringrazio anticipatamente se avrei tempo e voglia di farlo

ciao




ppaaoolloo ha scritto:
Sub Main
Dim a(36)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))

'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(15)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
atitoli(9) = " Ultima ESTR_Esito "
atitoli(10) = " Conta Estratti "
atitoli(11) = " Media uscita "
atitoli(12) = " I.C. "
atitoli(13) = " Conta fin, -1 "
atitoli(14) = " Conta fin, -2 "
atitoli(15) = " Conta fin, -3 "
Call InitTabella(atitoli,2,,2,5)
a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estrF)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,,estrF)
aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)


'End If
If fre > 0 Then
ReDim avalori(15)
avalori(1) = " Dec. " & Format2(n)
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
avalori(9) = esitof & " : " & estrF
avalori(10) = aaa
avalori(11) = Round(qt/fre,2)
avalori(12) = Round(fre/qt*rit,2)
avalori(13) = bbb
avalori(14) = ccc
avalori(15) = ddd

Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 12
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(6)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
Clicca per espandere...
 
Paolo scusami, ma in questi ultimi tempi ho poco spazio per il lotto e forum in genere e poi non avevo visto.
Il tuo quesito di primo impatto e con questo script non si riesce ad isolare i numeri estratti e addizionarli ( ma solo di primo impatto ).

Se dovessi trovare il tempo ed una escomotage e se ti è veramente utile vedrò (impegni familiari permettendo) cosa posso fare.

Di nuovo scusami.... e un saluto.
 
ciao Mike
ci mancherebbe, non ti devi scusare assolutamente
hai fatto moltissimo per tutti noi,

dovessi vincere una bella cifra hai assicurato
una percentuale

un saluto ed un abbraccio

ciao
 
Ultima modifica:
ciao Mike
ti ripropongo qui sotto lo script che avevi preso da joe e modificato
per le mie esigenze, vorrei chiederti una piccolissima aggiunta
cioè di poter colorare di rosso la lunghetta che ha il maggior ritardo

ti ringrazio moltissimo per la tua disponibilità

ciao


Sub Main()
Dim Ru(1),nu(20)
ReDim aRuote(11)
sorte = CInt(InputBox("SORTE",,1))
Fin = EstrazioneFin
If ScegliRuote(aRuote) > 0 Then
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For R = 1 To 12 : Ru(1) = r
min = 1000 : max = 0
For d = 0 To 8
For u = 1 To 15 : nu(u) = Fuori90(10*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
srup = SerieFreq(fin,fin,nu,Ru,1)
sf = SerieFreq(fin - 1000,fin,nu,Ru,sorte)
st = SerieStorico(fin - 1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,Ru,fin,1,1,,esitoU,,estrattiU,idU)
If id = fin Then
ColoreTesto 6
Scrivi SiglaRuota(k) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
Else
ColoreTesto 0
Scrivi SiglaRuota(k) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
End If
'End If
Next
End If
ColoreTesto 0
Scrivi SiglaRuota(k) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi SiglaRuota(k) & " Max = " & FormatSpace(max,3,1),1,1
Scrivi
Next
Scrivi "Ruote Unite.......................Per sorte di : " & NomeSorte(sorte),1
ReDim T(10)
T(1) = " Ruote "
T(2) = " Combinazione "
T(3) = " Rc "
T(4) = " RS "
T(5) = " Freq "
T(6) = " Fre_es & Fre_es-1 "
T(7) = " Esito a Rc "
T(8) = " Data a Rc "
T(9) = " Esito Fin "
T(10) = " Esito fin-1 "
Call InitTabella(T,2,,1,5)
For d = 0 To 8
For u = 1 To 15
nu(u) = Fuori90(10*d + u)
Next
Sr = SerieRitardo(fin - 1000,fin,nu,aRuote,sorte)
srup = SerieFreq(fin,fin,nu,aRuote,1)
srp = SerieFreq(fin-1,fin-1,nu,aRuote,1)
sf = SerieFreq(fin - 1000,fin,nu,aRuote,sorte)
st = SerieStorico(fin - 1000,fin,nu,aRuote,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,aRuote,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,aRuote,fin,1,1,,esitoU,,estrattiU,idU)
Call VerificaEsito(nu,aRuote,fin-1,1,1,,esitoP,,estrattiP,idP)
'If id = fin Then
ReDim V(10)
V(1) = StringaRuote(aRuote)
V(2) = StringaNumeri(nu,,1)
V(3) = sr
V(4) = st
V(5) = sf
V(6) = srup & " - " & srp
V(7) = estratti
V(8) = GetInfoEstrazione(id)
V(9) = estrattiU
V(10) = estrattiP
Call AddRigaTabella(V,,,1)
Next
Call SetTableWidth("100%")
CreaTabella
End If
 
Paolo, proprio in questo non mi riesce, ho provato in vari modi, ma forse il conteggio lo fa a fine calcolo combinazioni e non scrive in rosso quello che voglio far scrivere,
se puoi accontentarti cosi per il momento, magari ci riprovo.

Codice: 
 [SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][B]Sub[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]()[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](20)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](11)[/SIZE]
  [SIZE=2]sorte [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]CInt[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]SORTE[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",,1))[/SIZE]
  [SIZE=2]Fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScegliRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]UBound[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k)[/SIZE]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'For R = 1 To 12 : Ru(1) = r[/COLOR][/SIZE][/COLOR][/SIZE]
  [SIZE=2]min [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1000 : max [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] d [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 8[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] u [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 15 : [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](u) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](10[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]*[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]d [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] u) : [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [SIZE=2]Sr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieRitardo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1000,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],sorte)[/SIZE]
  [SIZE=2]srup [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],1)[/SIZE]
  [SIZE=2]sf [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1000,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],sorte)[/SIZE]
  [SIZE=2]st [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieStorico[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1000,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],sorte)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Sr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Min [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] min [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Sr[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] max [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] max [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sr[/SIZE]
   
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]VerificaEsito[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sr,sorte,,,,,estratti,id)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]VerificaEsito[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],fin,1,1,,esitoU,,estrattiU,idU)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] id [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] fin [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RC = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](Sr,3,1),0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Sto = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](st,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Freq = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](sf,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Fre_es : [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] srup,0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] estratti,0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GetInfoEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](id),0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbTab[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] estrattiU[/SIZE]
   
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ElseIf[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] max [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 2[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RC = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](Sr,3,1),1,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Sto = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](st,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Freq = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](sf,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Fre_es : [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] srup,1,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] estratti,1,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GetInfoEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](id),1,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbTab[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] estrattiU[/SIZE]
   
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'ColoreTesto 0[/COLOR][/SIZE][/COLOR][/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ElseIf[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] max [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]And[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] min [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RC = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](Sr,3,1),0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Sto = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](st,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Freq = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](sf,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Fre_es : [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] srup,0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] estratti,0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GetInfoEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](id),0,0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbTab[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] estrattiU[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Else[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
   
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Min = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](min,3,1),1,1[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](k) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Max = [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](max,3,1),1,1[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Ruote Unite.......................Per sorte di : [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]NomeSorte[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](sorte),1[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](10)[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Ruote [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Combinazione [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Rc [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RS [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Freq [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](6) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Fre_es & Fre_es-1 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](7) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Esito a Rc [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](8) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Data a Rc [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](9) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Esito Fin [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](10) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Esito fin-1 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]InitTabella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]T[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],2,,1,5)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] d [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 8[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] u [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 15[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](u) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Fuori90[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](10[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]*[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]d [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] u)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [SIZE=2]Sr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieRitardo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1000,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],sorte)[/SIZE]
  [SIZE=2]srup [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],1)[/SIZE]
  [SIZE=2]srp [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],1)[/SIZE]
  [SIZE=2]sf [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1000,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],sorte)[/SIZE]
  [SIZE=2]st [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieStorico[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1000,fin,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],sorte)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Sr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Min [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] min [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Sr[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] max [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] max [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sr[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]VerificaEsito[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sr,sorte,,,,,estratti,id)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]VerificaEsito[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],fin,1,1,,esitoU,,estrattiU,idU)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]VerificaEsito[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,1,1,,esitoP,,estrattiP,idP)[/SIZE]
  [SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'If id = fin Then[/COLOR][/SIZE][/COLOR][/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](10)[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aRuote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],,1)[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] Sr[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] st[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] sf[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](6) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] srup [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] - [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] srp[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](7) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] estratti[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](8) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GetInfoEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](id)[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](9) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] estrattiU[/SIZE]
  [B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](10) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] estrattiP[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]AddRigaTabella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]V[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],,,1)[/SIZE]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetTableWidth[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]100%[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]")[/SIZE]
  [B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]CreaTabella[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
  [SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][B]End[/B][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]

non capisco cosa succede per farmelo incollare cosi racchiuso fra i code, Bho
 
ciao Mike
ti chiedo un'ultima cortesia se ti è possibile,
questo tuo script da la possibilità di poter selezionare più ruote
come se fossero una sola,
si potrebbe avere anche la possibilità di avere la stessa funzione
ma con ruote divise?

ti ringrazio ancora per la tua disponibilità e cortesia

fammi sapere

grazie

ciao


Sub Main
Dim a(09)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))

'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(15)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
atitoli(9) = " Ultima ESTR_Esito "
atitoli(10) = " Conta Estratti "
atitoli(11) = " Media uscita "
atitoli(12) = " I.C. "
atitoli(13) = " Conta fin, -1 "
atitoli(14) = " Conta fin, -2 "
atitoli(15) = " Conta fin, -3 "
Call InitTabella(atitoli,2,,2,5)
a(01) = "01-02-03-04-05-06-07-08-09-10"
a(02) = "11-12-13-14-15-16-17-18-19-20"
a(03) = "21-22-23-24-25-26-27-28-29-30"
a(04) = "31-32-33-34-35-36-37-38-39-40"
a(05) = "41-42-43-44-45-46-47-48-49-50"
a(06) = "51-52-53-54-55-56-57-58-59-60"
a(07) = "61-62-63-64-65-66-67-68-69-70"
a(08) = "71-72-73-74-75-76-77-78-79-80"
a(09) = "81-82-83-84-85-86-87-88-89-90"

'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estrF)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,,estrF)
aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
'End If
If fre > 0 Then
ReDim avalori(15)
avalori(1) = " Dec. " & Format2(n)
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
avalori(9) = esitof & " : " & estrF
avalori(10) = aaa
avalori(13) = bbb
avalori(14) = ccc
avalori(15) = ddd

avalori(11) = Round(qt/fre,2)
avalori(12) = Round(fre/qt*rit,2)
Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 12
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(6)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto