Novità

Per Luigi -- funzione SerieFreq

X Luigi, il parametro sorte in VerificaEsito contempla anche gli estratti determinati ED1 ED2 ecc così come ImpostaGiocata ?
ti chiedo questo perchè ho provato con sorte il val 10 x 5° estratto e poi anche con aPosizione con un vettore a valore 5
ma non mi considera verificato un pronostico con che è in posizione 4 mentre deve darmelo non verificati.

proverò a postarti uno script per la demo.

ciao
 
Ultima modifica:
no pero puoi passargli le posizioni da analizzare cosi puoi escludere quelle che non ti interessano
 
Ultima modifica di un moderatore:
Ho fatto lo script di controllo e mi da sempre l'esito verificato anche cambiando le posizioni da controllare


tratto dall'help:
aPosizioni = vettore contenente le posizioni estrazionali valide se omesso tutte le posizioni da 1 a 5 sono considerate valide


Codice: 
Sub Main
    ReDim aNum(4) ' array contenente il pronostico
    ReDim aRt(2) ' array contenente le ruote
    Dim idEstrInizio ' estrazione da dove comincia la verifica dell'esito
    Dim aPosizioni(5) 
    Dim RetEsito ' torna il nome della sorte (estratto , ambo ...ecc)
    Dim RetColpi ' torna i colpi impiegti fino al raggiungimento dell'esito
    Dim RetEstratti ' torna i numeri estratti
    Dim RetIdEstr ' torna lidentificativo numerico dell'estrazione in cui si è avuto l'esito
    Dim pos

    'imposto il pronostico da verificare
    aNum(1) = 44
    ' imposto le ruote su cui giocare
    aRt(1) =  FI_
    'aRt(2) = RO_
    ' imposto l'estrazione da dove parte la verifica
    idEstrInizio = 8491
        Call Scrivi(" Controlo per estrazione n° " & GetInfoEstrazione(idEstrInizio) &" - estratti " & StringaEstratti(idEstrInizio,aRt(1)))
        Scrivi
    For pos = 1 To 5        
    aPosizioni(1)= pos
    'gioco per ED  senza un numero di colpi limite


    If VerificaEsito(aNum,aRt,idEstrInizio,1,,aPosizioni,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
    
        Call Scrivi(" estrazione n° " & GetInfoEstrazione(RetIdEstr) & " esito di: " & RetEsito & " colpi : " & RetColpi & " nella posizione " & aPosizioni(1) & " " & RetEstratti)
        Else
        Call Scrivi(" esito non verificato ")
        End If
        Next 
End Sub

ciao
 
Ultima modifica:
claudio8 ha scritto:
Eccoti l' output completo x 1000 estrazioni -48 casi

Codice: 
OMESSA TABELLA  ..


non demordere BLACK
Clicca per espandere...

Ecco, cosa mancava, ad un miserrimo scripter autodidatta,

mancava di sapere quali sono i "maestri". Mi manca la sQuola del Trap.

Grazie Claudio... giuro, non l'avrei mai capito ... come non capisco niente di calcio.

Di Filosofia Matematica, possiamo parlarne. Spero.

"Er-" dovrebbe essere "Er-" ed invece ce n'è uno in più ... tra i tanti casi ...

perchè lo script conta 1001 estrazioni mentre ... per il programma 1000 vuol dire 1000.

Ma ricorda ... è solo ... la solita questione, di quello che va a cercare il pelo-filosofico.

Sapere leggere scrivere e contare ... sono cose elementari.

Tolta l'estrazione la 1001-esima estrazione quella del 10.09.2005 i casi diventano 47.

Con filosofia, delle due, una, o si accetta di contare nel "giusto" .... o si accetttano risultati più o meno "giusti".

O no?

:) Buona Giornata.

Ora, un meritato ... omaggio al grande maestro:

 
Dicevo:

Dicevo:

Codice: 
[COLOR=#000080]Sub Main()
 'Dim n(2),x(2),a1(3),xc(3),ru(1),nu1(4005,4),nn(2),rtt(1),mat(4005,4)
 'Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3),nx(90),ne(2)
 'aa = InputBox("Inserisci il numero spia","Numero di Ricerca(Su 1 Ruota)","76")
 'aa = "0." & aa
 's = Split(aa,".")
 'n(1) = CInt(s(1))
 'ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",6)
 tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",1000)
 'rtt(1) = 11
 'Erase nu1
 'Erase nu2
 'Erase nu3
 'Erase nu4
 'Erase mat
 fin = EstrazioneFin
 ini = EstrazioneFin - tmp
 For es = ini To fin
  k=k+1
 Next 

Scrivi k
End Sub[/COLOR]
[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2][/SIZE][/FONT][/SIZE][/FONT]
 
Che c'e Joe ti è andato di traverso il Trap ?

Ti faccio notare che se ti interessi delle cose altrui, devi leggere attentamente l'argomento dei post.

Black faceva riferimento ai "frequenti dopo la spia" e non alle "cadenze + frequenti insieme al 76" (la spia in oggetto).
Questo fatto dell'andare "fuori tema" mi preoccupa, meno male che, repentinamente ma non troppo, hai cancellato
tutte le tracce del tuo intervento ivi compreso lo script che avevi postato, fatto tra l'altro da altri ( Rosanna & C.),
dimostrando che la rilettura ti fa rendere conto dell'errore e ci metti qualche "pezza".


Non vado oltre nel commentare quello che vedo da parte tua però ti chiedo ancora una volta di evitare
commenti squallidi su miei interventi che non saranno mai + rivolti a te.

Come scrivo e mi rapporto con altri al di fuori di te sono cose che non ti devono interessare.

Lascia perdere altri aggettivi chiudendo qui il tuo intervento di filosofia matematica.
 
Non so se questo script ti puo servire balck.
Serve per conteggiare la frequenza degli ambi piu usciti dopo un determinato numero.

Codice: 
Option Explicit
Class clsAmbo
	Public aNumeri(2)
	Public Presenze
End Class
Sub Main
	Dim nSpia
	Dim nInizio,nFine , nColpi
	Dim idEstr,k,e,i 
	Dim nRuota
	Dim aColonne
	Dim cAmbo
	Dim sKey
	Dim CollAmbi
	Dim bTrovato
	nSpia = CInt(InputBox("Inserisci Numero Spia"))
	nColpi = CInt(InputBox("Inserisci colpi" ,,10))
	
	
	nInizio = EstrazioneIni
	nFine = EstrazioneFin
	nRuota = ScegliRuota
	Set CollAmbi = GetNewCollection
	If isNumeroValidoLotto(nSpia) And nColpi > 0  And nRuota > 0 Then
	
		For idEstr = nInizio To nFine
			bTrovato = False
			For e = 1 To 5
				If Estratto(idEstr,nRuota,e) = nSpia Then
					bTrovato = True
					Exit For
				End If
			Next
			If bTrovato Then
				For i = idEstr + 1 To(idEstr - 1) + nColpi
					ReDim aNum(0)
					Call GetArrayNumeriRuota(i,nRuota,aNum)
					Call OrdinaMatrice(aNum,1)
					aColonne = SviluppoIntegrale(aNum,2)
					For k = 1 To UBound(aColonne)
						sKey = "k" & Format2(aColonne(k,1)) & "-" & Format2(aColonne(k,2))
						Set cAmbo = GetItem(sKey,CollAmbi)
						If cAmbo Is Nothing Then
							Set cAmbo = New clsAmbo
							cAmbo.aNumeri(1) = aColonne(k,1)
							cAmbo.aNumeri(2) = aColonne(k,2)
							cAmbo.Presenze = 1
							CollAmbi.Add cAmbo,sKey
						Else
							cAmbo.Presenze = cAmbo.Presenze + 1
						End If
					Next
				Next
			End If
			Call AvanzamentoElab( nInizio , nFine ,idEstr)
			If ScriptInterrotto Then Exit For 
		Next
		Call OrdinaItemCollection(CollAmbi,"Presenze")
		ReDim aTitoli(2)
		aTitoli(1) = "Ambo"
		aTitoli(2) = "Presenze"
		Call InitTabella(aTitoli)
		For Each cAmbo In CollAmbi
			ReDim aValori(2)
			aValori(1) = StringaNumeri(cAmbo.anumeri,,True)
			aValori(2) = cAmbo.presenze
			Call AddRigaTabella(aValori)
		Next
		Call CreaTabella
	End If
End Sub
Function GetItem(sKey,CollAmbi)
	On Error Resume Next
	Set GetItem = Nothing
	Set GetItem = CollAmbi(sKey)
End Function
 
Caro Claudio ...

E' problema tuo ... che hai riconosciuto ... in un contemporaneo

la paternità ... quelle parole ... appunto .... ipse dixit ... il tuo maestro.

Lo script di cui parli è mio ... tutto mio... e avevo scritto che non intendevo pubblicarlo.

Ho cancellato l'output ... perchè era errato a causa di un errore nell'archivio.

E quindi ho ritenuto giusto comportarmi così.

Rosanna. Si reputo sia stata per me una Maestra ... alla quale devo rispetto e riconoscenza.

Lo stesso dicasi di Ramco.

Punto.

Il mio intervento è a tema ed è pertinente ... considerata la richiesta ... avanzata da altri ...

Risolve "uno" dei tanti problemi.

SECONDO PUNTO.

Mentre il tuo conteggio è SBAGLIATO.

TERZO PUNTO ... dal quale, se vuoi, puoi provare ad arrampicarti sugli specchi.
 
Grazie Luigi, purtroppo però mi segnala errore, non so dove mettere le mani
Ho inserito la spia 76 su Bari, ho provato anche con altre ma non cambia
Ho Spazio v.1.3.32

93112939.jpg


82052897.jpg
 
il range è quello della barra rosa direttamente nel programma , lo prende in automatico
 
Anche a me da lo stesso identico errore.
Ho messo la spia 76 a bari x 10 colpi

Ho l'archivio aggiornato al 31-01-2012
 
Blackmore ha scritto:
Ciao ragazzi, è da un mese che sto dietro a questo script, e mi ha stufato
Se c'è qualche anima benevola che riesce a sistemarlo "definivamente" lo ringrazio
Altrimenti pazienza, userò un programma.

Questo è il mio script: SPIA 76 SU BARI - RANGE DI RICERCA: ULTIME 1000 ESTRAZIONI - COLPI DI GIOCO: 6
CALCOLA GLI AMBI PIU' FREQUENTI E PIU' PRESENTI


Codice: 
Sub Main()
    Dim n(2),x(2),a1(3),xc(3),ru(1),nu1(4005,4),nn(2),rtt(1),mat(4005,4)
    Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3),nx(90),ne(2)
    aa = InputBox("Inserisci il numero spia","Numero di Ricerca(Su 1 Ruota)","76")
    aa = "0." & aa
    s = Split(aa,".")
    n(1) = CInt(s(1))
    ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",6)
    tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",1000)
    rtt(1) = 11
    Erase nu1
    Erase nu2
    Erase nu3
    Erase nu4
    Erase mat
    fin = EstrazioneFin
    ini = EstrazioneFin - tmp
    For es = ini To fin
        Messaggio " Numeri Spia " & StringaNumeri(n) & " Data " & DataEstrazione(es)
        For r = 1 To 1
            For p = 1 To 5
                a = Estratto(es,r,p)
                If(a = n(1)) Then
                    Call informa(es,r,a)
                    casi = casi + 1
                    ess = es + ww
                    If ess > fin Then ess = fin End If
                    If SerieFreq(es + 1,es + ww,n,ru,1) < 1 Then
                        co = 0
                        For x1 = 1 To 89
                            For y1 = x1 + 1 To 90
                                co = co + 1
                                nu1(co,1) = co
                                nu1(co,2) = x1
                                nu1(co,3) = y1
                                nn(1) = x1
                                nn(2) = y1
                                ru(1) = r
                                k1 = SerieFreq(es + 1,ess,nn,ru,2)
                                nu1(co,4) = nu1(co,4) + k1
                                nu2(co,1) = co
                                nu2(co,2) = x1
                                nu2(co,3) = y1
                                nn1(1) = x1
                                nn1(2) = y1
                                k2 = SerieFreq(es + 1,ess,nn1,ru,2)
                                If k2 > 1 Then k2 = 1
                                nu2(co,4) = nu2(co,4) + k2
                                mat(co,1) = co
                                mat(co,2) = x1
                                mat(co,3) = y1
                                ne(1) = x1
                                ne(2) = y1
                                xf = SerieFreq(es + 1,ess,ne,rtt,2)
                                mat(co,4) = mat(co,4) + xf
                            Next
                        Next
                        co = 0
                        For xx = 1 To 90
                            co = co + 1
                            nu3(co,1) = co
                            nu3(co,2) = xx
                            nn2(1) = xx
                            ru(1) = r
                            k3 = SerieFreq(es + 1,ess,nn2,ru,1)
                            If k3 > 1 Then k3 = 1
                            nu3(co,3) = nu3(co,3) + k3
                            nu4(co,1) = co
                            nu4(co,2) = xx
                            nn2(1) = xx
                            k4 = SerieFreq(es + 1,ess,nn2,ru,1)
                            nu4(co,3) = nu4(co,3) + k4
                        Next
                    End If
                End If
            Next
        Next
    Next
    OrdinaMatrice mat,- 1,4
    OrdinaMatrice nu1,- 1,4
    OrdinaMatrice nu2,- 1,4
    OrdinaMatrice nu3,- 1,3
    OrdinaMatrice nu4,- 1,3
    ColoreTesto 2
    Scrivi "Formazione Spia Cercata su ruota " & StringaNumeri(n) & " dal " & _
    DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""
    ColoreTesto 1
    Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
    " estrazioni sucessive "
    ColoreTesto 2
    Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATA la SPIA"
    ColoreTesto 1
    Scrivi "Ambi+frequenti / Ambi+presenti nei cicli / Estratti" & _
    "+presenti nei c. / Estratti+frequenti "
    Scrivi
    ColoreTesto 2
    Scrivi Space(6) & "Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE "
    ColoreTesto 0
    For wx = 1 To 20
        riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & " tot " & Format2(nu1(wx,4)) & Space(4) & _
        Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & " tot " & Format2(nu2(wx,4)) & Space(5) & _
        Format2(nu3(wx,2)) & " tot " & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & " tot " & _
        Format2(nu4(wx,3))
        Scrivi Space(7) & riga,1
        riga = ""
    Next
    Scrivi String(90,"*")
    Scrivi
    ColoreTesto 1
    Scrivi Space(4) & "Ambi + frequenti a TUTTE",1
    ColoreTesto 0
    For wx = 1 To 20
        riga = Format2(mat(wx,2)) & "-" & Format2(mat(wx,3)) & " tot. " & Format2(mat(wx,4))
        Scrivi Space(8) & riga,1
        riga = ""
    Next
End Sub
Function informa(es,r,a)
    Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & Format2(a)
End Function


QUESTO E' L'OUTPUT DELLO SCRIPT

Codice: 
10.09.2005 BA 76
20.10.2005 BA 76
21.01.2006 BA 76
04.02.2006 BA 76
23.02.2006 BA 76
23.03.2006 BA 76
28.03.2006 BA 76
24.06.2006 BA 76
03.08.2006 BA 76
05.09.2006 BA 76
16.09.2006 BA 76
28.10.2006 BA 76
11.11.2006 BA 76
02.12.2006 BA 76
04.01.2007 BA 76
04.06.2007 BA 76
13.09.2007 BA 76
23.02.2008 BA 76
05.06.2008 BA 76
12.07.2008 BA 76
30.10.2008 BA 76
13.11.2008 BA 76
15.11.2008 BA 76
06.08.2009 BA 76
08.10.2009 BA 76
05.12.2009 BA 76
15.12.2009 BA 76
20.02.2010 BA 76
09.03.2010 BA 76
15.04.2010 BA 76
01.06.2010 BA 76
17.06.2010 BA 76
01.07.2010 BA 76
12.08.2010 BA 76
28.08.2010 BA 76
19.10.2010 BA 76
23.11.2010 BA 76
25.11.2010 BA 76
09.12.2010 BA 76
16.12.2010 BA 76
03.03.2011 BA 76
04.06.2011 BA 76
22.09.2011 BA 76
08.10.2011 BA 76
08.11.2011 BA 76
20.12.2011 BA 76
17.01.2012 BA 76
28.01.2012 BA 76
Formazione Spia Cercata su ruota 76 dal 08.09.2005 al 28.01.2012
Casi riscontrati 48 - Analisi effettuata sulle 6 estrazioni sucessive 
CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATA la SPIA
Ambi+frequenti / Ambi+presenti nei cicli / Estratti+presenti nei c. / Estratti+frequenti 

      Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE 
       22-78 tot 04    06-59 tot 04     22 tot 18      22 tot 23
       44-82 tot 04    08-20 tot 04     81 tot 16      44 tot 20
       15-84 tot 04    22-64 tot 04     44 tot 16      47 tot 18
       22-64 tot 04    44-72 tot 04     78 tot 15      90 tot 18
       08-20 tot 04    22-78 tot 04     90 tot 15      78 tot 18
       60-61 tot 04    15-84 tot 04     79 tot 14      43 tot 17
       24-34 tot 04    22-34 tot 04     26 tot 13      12 tot 17
       06-59 tot 04    24-34 tot 04     23 tot 13      81 tot 17
       47-70 tot 04    45-67 tot 04     24 tot 13      67 tot 17
       44-72 tot 04    08-80 tot 04     34 tot 13      46 tot 17
       08-80 tot 04    28-81 tot 03     85 tot 13      88 tot 16
       45-67 tot 04    04-15 tot 03     88 tot 13      48 tot 16
       22-34 tot 04    12-18 tot 03     46 tot 13      26 tot 15
       23-38 tot 03    71-85 tot 03     67 tot 13      34 tot 15
       26-56 tot 03    56-85 tot 03     12 tot 12      85 tot 15
       52-85 tot 03    04-72 tot 03     04 tot 12      23 tot 15
       44-71 tot 03    27-52 tot 03     66 tot 12      38 tot 14
       04-68 tot 03    18-39 tot 03     57 tot 12      79 tot 14
       12-18 tot 03    04-68 tot 03     71 tot 12      52 tot 14
       20-80 tot 03    17-59 tot 03     06 tot 12      59 tot 14
*******************************************************************

    Ambi + frequenti a TUTTE
        41-55 tot. 17
        12-79 tot. 15
        27-79 tot. 13
        65-85 tot. 13
        23-58 tot. 13
        63-90 tot. 13
        10-45 tot. 13
        05-56 tot. 13
        71-76 tot. 13
        22-34 tot. 13
        88-90 tot. 13
        14-66 tot. 13
        24-65 tot. 12
        02-11 tot. 12
        07-56 tot. 12
        43-49 tot. 12
        07-82 tot. 12
        61-81 tot. 12
        43-53 tot. 12
        02-56 tot. 12


QUESTO INVECE E' IL PROGRAMMA CHE USO, E, MI DA RISULTATI DIVERSI


60141377.jpg
Clicca per espandere...


Se leggi con attenzione :

Formazione Spia Cercata su ruota 76 dal 08.09.2005 al 28.01.2012

E visto che vuoi insegnare l'onestà ...

Riporta onestamente quello che avevo scritto, ovvero che era difficile controllare ... ed avevo un mio script

che poteva essere utile per fornire dati con cui fare confronti.

Cosi ... avevo postato

Codice: 
[B][10.09.2005] [/B]90.[B]76[/B].62.56.66[B] R.E. =   1[/B]
[B][20.10.2005] [/B][B]76[/B].79.19.31.58[B] R.E. =  16[/B]
[B][21.01.2006] [/B]07.21.83.[B]76[/B].22[B] R.E. =  39[/B]
[B][04.02.2006] [/B]70.47.[B]76[/B].25.03[B] R.E. =   5[/B]
[B][23.02.2006] [/B][B]76[/B].14.81.53.04[B] R.E. =   7[/B]
[B][23.03.2006] [/B][B]76[/B].69.42.88.87[B] R.E. =  11[/B]
[B][28.03.2006] [/B]57.[B]76[/B].23.72.17[B] R.E. =   1[/B]
[B][24.06.2006] [/B]05.27.[B]76[/B].20.84[B] R.E. =  37[/B]
[B][03.08.2006] [/B][B]76[/B].31.33.27.38[B] R.E. =  16[/B]
[B][05.09.2006] [/B]64.[B]76[/B].31.32.04[B] R.E. =  13[/B]
[B][16.09.2006] [/B]34.11.66.85.[B]76[/B][B] R.E. =   4[/B]
[B][28.10.2006] [/B]15.70.56.84.[B]76[/B][B] R.E. =  17[/B]
[B][11.11.2006] [/B][B]76[/B].67.19.30.65[B] R.E. =   5[/B]
[B][02.12.2006] [/B]63.48.60.23.[B]76[/B][B] R.E. =   8[/B]
[B][04.01.2007] [/B]77.[B]76[/B].03.36.26[B] R.E. =  13[/B]
[B][04.06.2007] [/B]39.26.38.62.[B]76[/B][B] R.E. =  63[/B]
[B][13.09.2007] [/B]59.23.85.[B]76[/B].03[B] R.E. =  43[/B]
[B][23.02.2008] [/B][B]76[/B].32.71.25.38[B] R.E. =  69[/B]
[B][05.06.2008] [/B]22.[B]76[/B].88.56.13[B] R.E. =  43[/B]
[B][12.07.2008] [/B]67.[B]76[/B].13.25.78[B] R.E. =  15[/B]
[B][30.10.2008] [/B]41.46.[B]76[/B].74.49[B] R.E. =  46[/B]
[B][13.11.2008] [/B]86.23.[B]76[/B].28.14[B] R.E. =   5[/B]
[B][15.11.2008] [/B]05.[B]76[/B].13.48.15[B] R.E. =   0[/B]
[B][06.08.2009] [/B]86.38.52.[B]76[/B].57[B] R.E. = 112[/B]
[B][08.10.2009] [/B]89.24.26.16.[B]76[/B][B] R.E. =  26[/B]
[B][05.12.2009] [/B]60.[B]76[/B].20.46.39[B] R.E. =  24[/B]
[B][15.12.2009] [/B]68.[B]76[/B].23.11.83[B] R.E. =   3[/B]
[B][20.02.2010] [/B][B]76[/B].61.66.33.43[B] R.E. =  28[/B]
[B][09.03.2010] [/B]31.27.46.[B]76[/B].90[B] R.E. =   6[/B]
[B][15.04.2010] [/B][B]76[/B].61.52.15.77[B] R.E. =  15[/B]
[B][01.06.2010] [/B]80.[B]76[/B].74.34.37[B] R.E. =  19[/B]
[B][17.06.2010] [/B]03.83.37.[B]76[/B].47[B] R.E. =   6[/B]
[B][01.07.2010] [/B][B]76[/B].73.62.06.81[B] R.E. =   5[/B]
[B][12.08.2010] [/B][B]76[/B].84.03.51.68[B] R.E. =  17[/B]
[B][28.08.2010] [/B]37.55.03.[B]76[/B].62[B] R.E. =   6[/B]
[B][19.10.2010] [/B][B]76[/B].61.25.22.46[B] R.E. =  21[/B]
[B][23.11.2010] [/B]27.56.69.64.[B]76[/B][B] R.E. =  14[/B]
[B][25.11.2010] [/B]39.42.19.[B]76[/B].48[B] R.E. =   0[/B]
[B][09.12.2010] [/B]08.55.77.[B]76[/B].21[B] R.E. =   5[/B]
[B][16.12.2010] [/B]79.11.[B]76[/B].81.05[B] R.E. =   2[/B]
[B][03.03.2011] [/B]52.36.[B]76[/B].16.25[B] R.E. =  32[/B]
[B][04.06.2011] [/B]25.43.70.38.[B]76[/B][B] R.E. =  39[/B]
[B][22.09.2011] [/B]35.[B]76[/B].89.51.12[B] R.E. =  46[/B]
[B][08.10.2011] [/B]52.30.[B]76[/B].67.51[B] R.E. =   6[/B]
[B][08.11.2011] [/B]67.11.79.[B]76[/B].71[B] R.E. =  12[/B]
[B][20.12.2011] [/B]29.[B]76[/B].34.84.83[B] R.E. =  17[/B]
[B][17.01.2012] [/B]16.81.13.[B]76[/B].46[B] R.E. =  11[/B]
[B][28.01.2012] [/B]80.13.04.07.[B]76[/B][B] R.E. =   4[/B]
 
[B]Dal 08.09.2005 al 28.01.2012, 1001 Estrazioni.[/B]
 
[B]76 Bari :  Freq. = 48 / R.C. = 0[/B]
 
[B]Posizione     1°    2°    3°    4°    5°  [/B]
[B]Frequenze [/B]    11    12     7    10     8
[B]Rit. Estr.[/B]   200    17    48     5     0
[B]Rit. Pres.[/B]    12     2     4     1     0

:) Capittto mi hai?
 
perche nel range che usate capita di sicuro qualche estrazione non valida.
In questo script ho fatto attenzione a questo caso

Codice: 
Option Explicit
Class clsAmbo
	Public aNumeri(2)
	Public Presenze
End Class
Sub Main
	Dim nSpia
	Dim nInizio,nFine,nColpi
	Dim idEstr,k,e,i
	Dim nRuota
	Dim aColonne
	Dim cAmbo
	Dim sKey
	Dim CollAmbi
	Dim bTrovato
	nSpia = CInt(InputBox("Inserisci Numero Spia"))
	nColpi = CInt(InputBox("Inserisci colpi",,10))
	nInizio = EstrazioneIni
	nFine = EstrazioneFin
	nRuota = ScegliRuota
	Set CollAmbi = GetNewCollection
	If isNumeroValidoLotto(nSpia) And nColpi > 0 And nRuota > 0 Then
		For idEstr = nInizio To nFine
			bTrovato = False
			For e = 1 To 5
				If Estratto(idEstr,nRuota,e) = nSpia Then
					bTrovato = True
					Exit For
				End If
			Next
			If bTrovato Then
				For i = idEstr + 1 To(idEstr - 1) + nColpi
					ReDim aNum(0)
					Call GetArrayNumeriRuota(i,nRuota,aNum)
					If aNum(1) > 0 Then
						Call OrdinaMatrice(aNum,1)
						aColonne = SviluppoIntegrale(aNum,2)
						For k = 1 To UBound(aColonne)
							sKey = "k" & Format2(aColonne(k,1)) & "-" & Format2(aColonne(k,2))
							Set cAmbo = GetItem(sKey,CollAmbi)
							If cAmbo Is Nothing Then
								Set cAmbo = New clsAmbo
								cAmbo.aNumeri(1) = aColonne(k,1)
								cAmbo.aNumeri(2) = aColonne(k,2)
								cAmbo.Presenze = 1
								CollAmbi.Add cAmbo,sKey
							Else
								cAmbo.Presenze = cAmbo.Presenze + 1
							End If
						Next
					End If
				Next
			End If
			Call AvanzamentoElab(nInizio,nFine,idEstr)
			If ScriptInterrotto Then Exit For
		Next
		Call OrdinaItemCollection(CollAmbi,"Presenze")
		ReDim aTitoli(2)
		aTitoli(1) = "Ambo"
		aTitoli(2) = "Presenze"
		Call InitTabella(aTitoli)
		For Each cAmbo In CollAmbi
			ReDim aValori(2)
			aValori(1) = StringaNumeri(cAmbo.anumeri,,True)
			aValori(2) = cAmbo.presenze
			Call AddRigaTabella(aValori)
		Next
		Call CreaTabella
	End If
End Sub
Function GetItem(sKey,CollAmbi)
	On Error Resume Next
	Set GetItem = Nothing
	Set GetItem = CollAmbi(sKey)
End Function
 
Ultima modifica di un moderatore:
Joe91 ha scritto:
Se leggi con attenzione :

Formazione Spia Cercata su ruota 76 dal 08.09.2005 al 28.01.2012

E visto che vuoi insegnare l'onestà ...

Riporta onestamente quello che avevo scritto, ovvero che era difficile controllare ... ed avevo un mio script

che poteva essere utile per fornire dati con cui fare confronti.

Cosi ... avevo postato

Codice: 
[B][10.09.2005] [/B]90.[B]76[/B].62.56.66[B] R.E. =   1[/B]
[B][20.10.2005] [/B][B]76[/B].79.19.31.58[B] R.E. =  16[/B]
[B][21.01.2006] [/B]07.21.83.[B]76[/B].22[B] R.E. =  39[/B]
[B][04.02.2006] [/B]70.47.[B]76[/B].25.03[B] R.E. =   5[/B]
[B][23.02.2006] [/B][B]76[/B].14.81.53.04[B] R.E. =   7[/B]
[B][23.03.2006] [/B][B]76[/B].69.42.88.87[B] R.E. =  11[/B]
[B][28.03.2006] [/B]57.[B]76[/B].23.72.17[B] R.E. =   1[/B]
[B][24.06.2006] [/B]05.27.[B]76[/B].20.84[B] R.E. =  37[/B]
[B][03.08.2006] [/B][B]76[/B].31.33.27.38[B] R.E. =  16[/B]
[B][05.09.2006] [/B]64.[B]76[/B].31.32.04[B] R.E. =  13[/B]
[B][16.09.2006] [/B]34.11.66.85.[B]76[/B][B] R.E. =   4[/B]
[B][28.10.2006] [/B]15.70.56.84.[B]76[/B][B] R.E. =  17[/B]
[B][11.11.2006] [/B][B]76[/B].67.19.30.65[B] R.E. =   5[/B]
[B][02.12.2006] [/B]63.48.60.23.[B]76[/B][B] R.E. =   8[/B]
[B][04.01.2007] [/B]77.[B]76[/B].03.36.26[B] R.E. =  13[/B]
[B][04.06.2007] [/B]39.26.38.62.[B]76[/B][B] R.E. =  63[/B]
[B][13.09.2007] [/B]59.23.85.[B]76[/B].03[B] R.E. =  43[/B]
[B][23.02.2008] [/B][B]76[/B].32.71.25.38[B] R.E. =  69[/B]
[B][05.06.2008] [/B]22.[B]76[/B].88.56.13[B] R.E. =  43[/B]
[B][12.07.2008] [/B]67.[B]76[/B].13.25.78[B] R.E. =  15[/B]
[B][30.10.2008] [/B]41.46.[B]76[/B].74.49[B] R.E. =  46[/B]
[B][13.11.2008] [/B]86.23.[B]76[/B].28.14[B] R.E. =   5[/B]
[B][15.11.2008] [/B]05.[B]76[/B].13.48.15[B] R.E. =   0[/B]
[B][06.08.2009] [/B]86.38.52.[B]76[/B].57[B] R.E. = 112[/B]
[B][08.10.2009] [/B]89.24.26.16.[B]76[/B][B] R.E. =  26[/B]
[B][05.12.2009] [/B]60.[B]76[/B].20.46.39[B] R.E. =  24[/B]
[B][15.12.2009] [/B]68.[B]76[/B].23.11.83[B] R.E. =   3[/B]
[B][20.02.2010] [/B][B]76[/B].61.66.33.43[B] R.E. =  28[/B]
[B][09.03.2010] [/B]31.27.46.[B]76[/B].90[B] R.E. =   6[/B]
[B][15.04.2010] [/B][B]76[/B].61.52.15.77[B] R.E. =  15[/B]
[B][01.06.2010] [/B]80.[B]76[/B].74.34.37[B] R.E. =  19[/B]
[B][17.06.2010] [/B]03.83.37.[B]76[/B].47[B] R.E. =   6[/B]
[B][01.07.2010] [/B][B]76[/B].73.62.06.81[B] R.E. =   5[/B]
[B][12.08.2010] [/B][B]76[/B].84.03.51.68[B] R.E. =  17[/B]
[B][28.08.2010] [/B]37.55.03.[B]76[/B].62[B] R.E. =   6[/B]
[B][19.10.2010] [/B][B]76[/B].61.25.22.46[B] R.E. =  21[/B]
[B][23.11.2010] [/B]27.56.69.64.[B]76[/B][B] R.E. =  14[/B]
[B][25.11.2010] [/B]39.42.19.[B]76[/B].48[B] R.E. =   0[/B]
[B][09.12.2010] [/B]08.55.77.[B]76[/B].21[B] R.E. =   5[/B]
[B][16.12.2010] [/B]79.11.[B]76[/B].81.05[B] R.E. =   2[/B]
[B][03.03.2011] [/B]52.36.[B]76[/B].16.25[B] R.E. =  32[/B]
[B][04.06.2011] [/B]25.43.70.38.[B]76[/B][B] R.E. =  39[/B]
[B][22.09.2011] [/B]35.[B]76[/B].89.51.12[B] R.E. =  46[/B]
[B][08.10.2011] [/B]52.30.[B]76[/B].67.51[B] R.E. =   6[/B]
[B][08.11.2011] [/B]67.11.79.[B]76[/B].71[B] R.E. =  12[/B]
[B][20.12.2011] [/B]29.[B]76[/B].34.84.83[B] R.E. =  17[/B]
[B][17.01.2012] [/B]16.81.13.[B]76[/B].46[B] R.E. =  11[/B]
[B][28.01.2012] [/B]80.13.04.07.[B]76[/B][B] R.E. =   4[/B]
 
[B]Dal 08.09.2005 al 28.01.2012, 1001 Estrazioni.[/B]
 
[B]76 Bari :  Freq. = 48 / R.C. = 0[/B]
 
[B]Posizione     1°    2°    3°    4°    5°  [/B]
[B]Frequenze [/B]    11    12     7    10     8
[B]Rit. Estr.[/B]   200    17    48     5     0
[B]Rit. Pres.[/B]    12     2     4     1     0

:) Capittto mi hai?
Clicca per espandere...
Joe 91, io non voglio insegnare niente a nessuno, anzi sono il 1° a dover imparare, ma perchè ora te la prendi con me???????
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 gennaio 2025
    Bari
    10
    87
    77
    23
    60
    Cagliari
    75
    33
    60
    24
    15
    Firenze
    45
    34
    66
    41
    17
    Genova
    05
    65
    15
    53
    86
    Milano
    20
    84
    74
    76
    01
    Napoli
    90
    29
    38
    52
    68
    Palermo
    33
    36
    02
    20
    68
    Roma
    68
    12
    59
    07
    74
    Torino
    03
    22
    29
    90
    28
    Venezia
    81
    24
    35
    18
    03
    Nazionale
    06
    31
    35
    89
    74
    Estrazione Simbolotto
    Bari
    14
    24
    17
    13
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto