aiuto per script

[genios]

Mi servirebbe aiuto per uno script che calcoli quale sia stato il ritardo storico per la sorte di ambo per ciascuna ruota dei 10 numeri in ritardo dalla posizione 1 a 10 dalla posizione 11 a 20 dalla posizione 11 a 30 e cosi via fino alla posizione 81 a 90 . Inoltre dovrebbe restituire anche i ritardi attuali .

Ciao Eugenio

 

[antonio65]

Ciao genios, ti invio uno script di Mike...vedi se fa al caso tuo..devi soltanto cambiare i numeri ciao...



Sub Main

Dim a(10)'NUMERO DA MODIFICARE IN BASE ALLE COMBINAZIONI INSERITEa
Dim Ru(1)
Dim k
Dim nu
ReDim aruote(12)
Scrivi "( antonio ) Ruota di... ",1,0,4
If ScegliRuote(aruote) > 0 Then
For k = 1 To UBound(aruote)
If aruote(k) > 0 Then
Scrivi " " & NomeRuota(aruote(k)),1,0,3
End If
Next
End If
'rt = CInt(InputBox("Quale ruota analizzare ",Ruota,4))
'Ru(1) = rt
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneIni
Scrivi NomeRuota(Ru(1)),1,0
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
ReDim atitoli(33)
atitoli(1) = "TOT."
'atitoli(2) = " esito "
atitoli(3) = "Combinazioni"
'atitoli(4) = " esito "
'atitoli(5) = " estratti "
atitoli(6) = "RCA1"
atitoli(7) = "RCA2"
atitoli(8) = "RCA3"
atitoli(9) = "RCA4"
atitoli(10) = "RCA5"
atitoli(13) = "RS1"
atitoli(14) = "RS2"
atitoli(15) = "RS3"
atitoli(16) = "RS4"
atitoli(17) = "RS5"
atitoli(20) = "FRE1"
atitoli(21) = "FRE2"
atitoli(22) = "FRE3"
atitoli(23) = "FRE4"
atitoli(24) = "FRE5"
atitoli(27) = "RD1"
atitoli(28) = "RD2"
atitoli(29) = "RD3"
atitoli(30) = "RD4"
atitoli(31) = "RD5"
Call InitTabella(atitoli,1,,2,5)
'-------------inserimento combinazioni --------------------------
a(01) = "01-02"
a(02) = "01-03"
a(03) = "01-04"
a(04) = "01-05"
a(05) = "02-03"
a(06) = "02-04"
a(07) = "02-05"
a(08) = "03-04"
a(09) = "03-05"
a(10) = "04-05"
'----------------- fine combinazioni ------------------------------
For N = 1 To UBound(a)
nu = Split("0-" &(a),"-")
sr1 = SerieRitardo(Ini,fin,nu,aruote,1)', 1 scrive il ritardo dell'estratto
sr2 = SerieRitardo(Ini,fin,nu,aruote,2)
sr3 = SerieRitardo(Ini,fin,nu,aruote,3)
sr4 = SerieRitardo(Ini,fin,nu,aruote,4)
sr5 = SerieRitardo(Ini,fin,nu,aruote,5)
st1 = SerieStorico(Ini,fin,nu,aruote,1)
st2 = SerieStorico(Ini,fin,nu,aruote,2)
st3 = SerieStorico(Ini,fin,nu,aruote,3)
st4 = SerieStorico(Ini,fin,nu,aruote,4)
st5 = SerieStorico(Ini,fin,nu,aruote,5)
sf1 = SerieFreq(Ini,Fin,nu,aruote,1)
sf2 = SerieFreq(Ini,Fin,nu,aruote,2)
sf3 = SerieFreq(Ini,Fin,nu,aruote,3)
sf4 = SerieFreq(Ini,Fin,nu,aruote,4)
sf5 = SerieFreq(Ini,fin,nu,aruote,5)
Call VerificaEsito(nu,aruote,fin,2,1,,retesito,,retestratti)
ReDim avalori(33)
avalori(1) = n
'avalori(2) = " esito "
avalori(3) = StringaNumeri(nu)

avalori(6) = sr1
avalori(7) = sr2
avalori(8) = sr3
avalori(9) = sr4
avalori(10) = sr5

avalori(13) = st1
avalori(14) = st2
avalori(15) = st3
avalori(16) = st4
avalori(17) = st5
avalori(20) = sf1
avalori(21) = sf2
avalori(22) = sf3
avalori(23) = sf4
avalori(24) = sf5
avalori(28) = RitDiPos(nu,2,aruote)
avalori(29) = RitDiPos(nu,3,aruote)
avalori(30) = RitDiPos(nu,4,aruote)
avalori(31) = RitDiPos(nu,5,aruote)
Call AddRigaTabella(avalori)
ImpostaGiocata n,nu,aruote,posta,18
'---------colora colonne---------------------
' 1 esempio ------
Call SetColoreCella(1,,vbBlue)
Call SetColoreCella(3,,vbRed)' colora la colonna 2 sfondo ciano scritta gialla
Call SetColoreCella(2,3,4)
Call SetColoreCella(4,3,4)
Call SetColoreCella(5,3,4)
Call SetColoreCella(11,3,4)
Call SetColoreCella(12,3,4)
Call SetColoreCella(18,3,4)
Call SetColoreCella(19,3,4)
Call SetColoreCella(25,3,4)
Call SetColoreCella(26,3,4)
Call SetColoreCella(32,3,4)
Call SetColoreCella(33,3,4)
Call SetColoreCella(27,RGB(254,249,180),vbBlue)
Call SetColoreCella(28,RGB(254,249,180),vbBlue)
Call SetColoreCella(29,RGB(254,249,180),vbBlue)
Call SetColoreCella(30,RGB(254,249,180),vbBlue)
Call SetColoreCella(31,RGB(254,249,180),vbBlue)
'2 esempio ----------------------------------
' colora la colonna 1 sfondo default bianco scritta verde
Call SetColoreCella(6,4,0)
Call SetColoreCella(7,0,4)
Call SetColoreCella(8,4,0)
Call SetColoreCella(9,0,4)
Call SetColoreCella(10,4,0)
Next
Scrivi
Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
Scrivi
Call CreaTabella()
Scrivi"------------------------------------------------ Dettaglio ultime 18 giocate ---------------------------------------------"
Gioca(fin - 18),,,1
ScriviResoconto(True)
'PicClear
Call PicStampaTesto(1,10,"Listed by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
Function RitDiPos(nu,pos,aruote)
ReDim apos(5)
apos(pos) = True
RitDiPos = RitardoCombinazione(aruote,nu,1,0,apos)
End Function

 

[jp4]

Ciao Genios,
Non so aiutarti con uno script ma se ti puo' servire ecco due tabelle delle decine naturali di posizione x ambo con i ritardi che cerchi. Inoltre c'è anche la frequenza
(l'archivo parte dal 8/7/1939 nascita del lotto a 10 ruote)
le ho ricavate con L8 utilizzando l'archivio dinamico.

da notare il ritardo minimo di 23 estrazioni, in 4 ruote (ca-ro-ve-nz), delle posizioni da 11 a 20

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/i65.tinypic.com\/2w3n97s.png"}[/IMG2]

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/i66.tinypic.com\/hvxk4p.png"}[/IMG2]