X luigib

[codicebinario]

Ciao Luigi, questo semplice script visualizza delle quartine formate da 2 ambi a somma 91,e' possibile sapere quali di queste quartine e' maggiormente in ritardo(per ambo) su una qualsiasi ruota,la frequenza e il ritardo storico?
l'idea e' giocare su una ristretta cerchia di ambi . Ti allego lo script t.Grazie sin d'ora.

Sub Main()
Dim n(4)
For x = 1 To 44
n(1) = x
n(2) =(91 - x)
For y = x + 1 To 45
n(3) = y
n(4) =(91 - y)

Scrivi StringaNumeri

Next
Next
End Sub

 

[Mike58]

Ciao Codice,senza disturbare Luigi per questo titpo di richieste eccoti lo script.

Sub Main()
Dim n(4),rt(1)
Ini = EstrazioneIni
fin = EstrazioneFin
ReDim atitoli(9)
atitoli(1) = " casi "
atitoli(2) = " Numeri "
atitoli(3) = " Ritardo "
atitoli(4) = " RitMax "
atitoli(5) = " incrMax "
atitoli(6) = " Frequenza "
atitoli(7) = " Esito "
atitoli(8) = " Estratti "
atitoli(9) = " data "
Call InitTabella(atitoli,1,,3,5)
rt(1) = 1 
casi = 0
For x = 1 To 44
n(1) = x
n(2) =(91 - x)
For y = x + 1 To 45
n(3) = y
n(4) =(91 - y)
casi = casi + 1
Call StatisticaFormazioneTurbo(n,rt,2,rit,ritmax,Incr,fre,Ini,fin)
Call VerificaEsitoTurbo(n,rt,fin-rit,2,fin-rit,,esito,colpi,estratti,id)
ReDim avalori(9)
avalori(1) = casi
avalori(2) = StringaNumeri(n)
avalori(3) = rit
avalori(4) = ritmax
avalori(5) = Incr
avalori(6) = fre
avalori(7) = esito
avalori(8) = estratti
avalori(9) = DataEstrazione(id)
'Scrivi casi & " - "  & StringaNumeri(n) & " Ritardo ..." & rit
Call AddRigaTabella(avalori,,,3)

Next
Next
Call CreaTabella(3) ' 3 = ordine tabella x ritardo
End Sub

 

[edesimone]

Un saluto Mike 58
Volevo chiederti gentilmente se lo script appena fatto, si poteva
applicare con una modifica per il 10elotto classico lasciando tutte
le funzioni, l'archivio deve partire dalla data 11/06/2009.
Grazie

 

[Mike58]

Si Edesimone si può fare eccolo.

un saluto

P.S. se dovesse essere lungo nei tempi puoi visualizzare meno righe delle conteggiate totali ordinate per ritardo
la stringa è questa ed imposti esempio 100
modificare
creatabella(3)
con
creatabella(3,,,100)

        Sub Main()
ImpostaArchivio10ELotto(1)
sorte = CInt (InputBox("Quale sorte verificare ",,2))
        Dim n(4),rt(1)
Scrivi "Quartine a somma 91 per il 10 e lotto serale **** forum Lottoced **** Richieta Edesimone **** Listed By Mike58 ",1,-1,3
        Ini = 8076
        fin = EstrazioniArchivioDL
tt = fin-Ini

Scrivi "Estremi di Ricerca dalla data di... " & DataEstrazioneDL(Ini) & "  alla data di fine... " & DataEstrazioneDL(fin) & "  Tot estrazioni... " & tt,1
Scrivi "Analizzo per sorte di... " & sorte

        ReDim atitoli(9)
        atitoli(1) = " casi "
        atitoli(2) = " Numeri "
        atitoli(3) = " Ritardo "
        atitoli(4) = " RitMax "
        atitoli(5) = " incrMax "
        atitoli(6) = " Frequenza "
        atitoli(7) = " Esito "
        atitoli(8) = " Estratti "
        atitoli(9) = " data "
        Call InitTabella(atitoli,1,,3,5)
        rt(1) = 1 
        casi = 0
        For x = 1 To 44
        n(1) = x
        n(2) =(91 - x)
        For y = x + 1 To 45
        n(3) = y
        n(4) =(91 - y)
        casi = casi + 1
        Call StatisticaFormazioneDL(n,sorte,rit,ritmax,Incr,fre,Ini,fin)
        Call VerificaEsitoDL(n,fin-rit,sorte,fin-rit,esito,colpi,estratti,id)
        ReDim avalori(9)
        avalori(1) = casi
        avalori(2) = StringaNumeri(n)
        avalori(3) = rit
        avalori(4) = ritmax
        avalori(5) = Incr
        avalori(6) = fre
        avalori(7) = esito
        avalori(8) = estratti
        avalori(9) = DataEstrazioneDL(id)
        'Scrivi casi & " - "  & StringaNumeri(n) & " Ritardo ..." & rit
        Call AddRigaTabella(avalori,,,3)

        Next
        Next
        Call CreaTabella(3) ' 3 = ordine tabella x ritardo
        End Sub

 

[codicebinario]

Grazie MIKE58,ottimo lavoro. Se posso chiedere,sarebbe possibile inserire un imput box dove scegliere la ruota(senza passare cioe al modificare lo script ogni volta) e il range di ricerca? non so tipo "inserisci inizio ricerca N° estrazione " unitamente all'evidenziazione dell'ambo rimanente non sortito delle prime cinque quartine piu' ritardate? Di questi ambi trovati si dovrebbero avere le stesse informazioni,cioe' ritmax\ritatt\freq...so che e' un lavoraccio,se fosse possibile ......grazie comunque !!!!!

 

[Mike58]

Ciao Codice, visto che ero in debito con te , questa volta mi sono impegnato un pò di + e sono arrivato a questa conclusione.
Spero vada Bene.

Ciao Mike

Sub Main()
Dim n(4),rt(1),anum(2)

qt = InputBox("Quante estrazioni vuoi analizzare",,1000)
qr = InputBox("Quale ruota ",,1)
righe = InputBox("Quante righe vuoi vedere ",,100)
Ini = EstrazioneFin - qt
fin = EstrazioneFin
tt = fin-Ini
Scrivi "Ambi doppi a somma 91 ***** Script Richiesto codicebinario **** Forum LOttoced **** Listed by Mike58 **** ",1,-1,3
Scrivi
Scrivi "Estremi della Ricerca dalla data... " & DataEstrazione(Ini) & " Alla data... " & DataEstrazione(fin) & " - Totali estrazioni..." & tt,1,1,4
Scrivi "RUOTA DI... " & nomeruota(qr),1
ReDim atitoli(13)
atitoli(1) = " casi "
atitoli(2) = " Numeri "
atitoli(3) = " Ritardo "
atitoli(4) = " RitMax "
atitoli(5) = " incrMax "
atitoli(6) = " Frequenza "
atitoli(7) = "  Esito  "
atitoli(8) = "  Estratti  "
atitoli(9) = "  data estrazione  "
atitoli(10) = " ambo mancante "
atitoli(11) = " rit.Ambo mancante "
atitoli(12) = " Ritmax A. manc."
atitoli(13) = " Freq A.manc."
Call InitTabella(atitoli,1,,3,5)
rt(1) = qr
casi = 0
For x = 1 To 44
n(1) = x
n(2) =(91 - x)
For y = x + 1 To 45
n(3) = y
n(4) =(91 - y)
casi = casi + 1
Call StatisticaFormazioneTurbo(n,rt,2,rit,ritmax,Incr,fre,Ini,fin)
Call VerificaEsitoTurbo(n,rt,fin - rit,2,fin - rit,,esito,colpi,estratti,id)
ReDim avalori(13)
avalori(1) = casi
avalori(2) = StringaNumeri(n)
avalori(3) = rit
avalori(4) = ritmax
avalori(5) = Incr
avalori(6) = fre
avalori(7) = esito
avalori(8) = estratti
If esito = "" Then avalori(9) = "-"
If esito = "Ambo" Then  avalori(9) = DataEstrazione(id)
If esito = "Terno" Then  avalori(9) = DataEstrazione(id)

If EstrattoRitardoTurbo(qr,x,fin-rit,fin-rit) > 0 Then 
If EstrattoRitardoTurbo(qr,y,fin-rit,fin-rit) > 0 Then 
anum(1) = x
anum(2) = y


avalori(10) =  StringaNumeri (anum) 'x & "." & y
Call StatisticaFormazioneTurbo(anum,rt,2,rita,ritamax,,frea,Ini,fin)
avalori(11) = rita
avalori(12) = ritamax
avalori(13) = frea

'Scrivi casi & " - "  & StringaNumeri(n) & " Ritardo ..." & rit
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(10,vbMagenta)
Call SetColoreCella(8,vbGreen)

End If
End If
Next
Next


Call CreaTabella(3,,,righe) ' 3 = ordine tabella x ritardo

End Sub

 

[codicebinario]

SEMPLICEMENTE PERFETTO ! Grazie Mike58. Ora al lavoro !!!!!!

 

[edesimone]

Grazie Mike58
Solo ora mi sono accorto dello script, avevo problemi di rete.