Per Mike58 modifica script

edesimone · 16 Marzo 2018

Buona sera Mike58
Mi serve modificare questo tuo script
Praticamente deve eseguire la ricerca di ritardo solo per il primo estratto,
se vedi estratti lui evidenzia il 75 in quarta posizione, come detto sopra
vorrei che la ricerca deve essere fatto solo in prima posizione.
Naturalmente deve essere aggiornato sia il ritardo, RitMax, estratto mancante,rit. estratto mancante, Ritmax E. manc.
Spero che non sia troppo complicato.
Grazie per la disponibilità.
edesimoneri t.esrit.estratto mancante tratto mancante
Ambi doppi a somma 91 ***** Script Richiesto codicebinario **** Forum LOttoced **** Listed by Mike58 **** Estremi della Ricerca dalla data... 05.09.1953 Alla data... 15.03.2018 - Totali estrazioni...5133 RUOTA DI... Bari

casi	Numeri	Ritardo	RitMax	incrMax	Frequenza	Esito	Estratti	data estrazione	estratto mancante	rit.estratto mancante	Ritmax E. manc.	Freq E.manc.
558	16.75.19.72	25	31	0	1108	Estratto	BA .. .. .. 75 ..	16.01.2018	16.19	30	57	533
649	19.72.29.62	18	23	0	1107	Estratto	BA 62 .. .. .. ..	01.02.2018	19.29	30	58	540
568	16.75.29.62	18	49	0	1141	Estratto	BA 62 .. .. .. ..	01.02.2018	16.29	48	72	523

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

qt = InputBox("Quante estrazioni vuoi analizzare",,5133)
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) = " estratto mancante "
atitoli(11) = " rit.estratto mancante "
atitoli(12) = " Ritmax E. manc."
atitoli(13) = " Freq E.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,1,rit,ritmax,Incr,fre,Ini,fin)
Call VerificaEsitoTurbo(n,rt,fin - rit,1,fin - rit,,esito,colpi,estratti,id)
ReDim avalori(13)
avalori(1) = casi
avalori(2) = StringaNumeri

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 = "Estratto" 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,1,rita,ritamax,,frea,Ini,fin)
avalori(11) = rita
avalori(12) = ritamax
avalori(13) = frea

'Scrivi casi & " - " & StringaNumeri

& " Ritardo ..." & rit
Call AddRigaTabella(avalori,,,5)
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

Mike58 · 16 Marzo 2018

Ciao Edesimone, è un tipo di filtro che non mai sperimentato non saprei se è corretto.
Avrei messo la verificaEsito come da tuo esempio per la sola posizione 1 e quindi va ad elencare solo gli esiti avuti in posizione 1.

La ricerca comunque lo script la fa su tutti gli ambi condizionati.
Non saprei se cosi ti va bene, poi non ricordando lo scopo dello script mi risulta complesso mettere mano sul resto.

prova a vedere ho solo aggiunto questa parte

Codice:

ReDim aPos(5)
aPos(1) = True
'aPos(2) = True
'aPos(3) = True
'aPos(4) = True
'aPos(5) = True
Call StatisticaFormazioneTurbo(n,rt,1,rit,ritmax,Incr,fre,Ini,fin)
Call VerificaEsitoTurbo(n,rt,fin - rit,1,fin - rit,aPos,esito,colpi,estratti,id)

script intero

Codice:

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

qt = InputBox("Quante estrazioni vuoi analizzare",,5133)
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) = " estratto mancante "
atitoli(11) = " rit.estratto mancante "
atitoli(12) = " Ritmax E. manc."
atitoli(13) = " Freq E.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
ReDim aPos(5)
aPos(1) = True
'aPos(2) = True
'aPos(3) = True
'aPos(4) = True
'aPos(5) = True
Call StatisticaFormazioneTurbo(n,rt,1,rit,ritmax,Incr,fre,Ini,fin)
Call VerificaEsitoTurbo(n,rt,fin - rit,1,fin - rit,aPos,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 = "Estratto" 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,1,rita,ritamax,, frea,Ini,fin)
avalori(11) = rita
avalori(12) = ritamax
avalori(13) = frea

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

End If
End If
Next
Next

Call SetTableWidth ("100%")
Call CreaTabella(3,,,righe) ' 3 = ordine tabella x ritardo

End Sub

edesimone · 17 Marzo 2018

Grazie Mike58
La modifica funziona in particolare,
quello che non aggiorna è il rit, ritmax, rit.estratto mancante,ritmaxE. mancante,più le frequenze.
Ti faccio un esempio lanciando lo script mi da questa questa quartina 16 75 19 72 con ritardo 25
rit.max 31, estratto mancante 16 19 rit.estratto mancante 30, ritmaxE. mancante 57.
Facendo una statistica con formazione veloce sempre 1° estratto di bari, mi da questi valori:
16 75 19 72 con ritardo 32, rit.max 136, estratto mancante 16 19 rit.estratto mancante 54,
ritmaxE. mancante 236. tutto con partenza archivio 14-09-1946.
Se ritieni che le modifiche sono troppo impegnative sul programma non importa,
quando e se vuoi con calma rifare un nuovo script ne sarei grado.
Un saluto edesimone

edesimone · 17 Marzo 2018

Mike58
Fatto delle verifiche e i vari rit. ecc. il programma li calcola su tutti i 5 estratti,
se non ti rimane difficile farli fare solo in 1° posizione.
Grazie edesimone

Mike58 · 17 Marzo 2018

Non lo so, sono anche di fretta ho messo la ricerca statistica anche in posizione
verifica se corrisponde ai dati che devi ottenere, vado di fretta la batteria pc mi lascia

Codice:

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

qt = InputBox("Quante estrazioni vuoi analizzare",,5133)
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) = " estratto mancante "
atitoli(11) = " rit.estratto mancante "
atitoli(12) = " Ritmax E. manc."
atitoli(13) = " Freq E.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
ReDim aPos(5)
aPos(1) = True
'aPos(2) = True
'aPos(3) = True
'aPos(4) = True
'aPos(5) = True
Call StatisticaFormazioneTurbo(n,rt,1,rit,ritmax,Incr,fre,Ini,fin,,aPos)
Call VerificaEsitoTurbo(n,rt,fin - rit,1,fin - rit,aPos,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 = "Estratto" Then avalori(9) = DataEstrazione(id)
If esito = "Terno" Then avalori(9) = DataEstrazione(id)

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


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

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

End If
End If
Next
Next

Call SetTableWidth ("100%")
Call CreaTabella(3,,,righe) ' 3 = ordine tabella x ritardo

End Sub

edesimone · 17 Marzo 2018

Mike58
Perfetto il rit. e rit.max, quello che non calcola bene è ritardo estratto mancante e Ritmax E. mancante.
Grazie edesimone

Mike58 · 17 Marzo 2018

C'era una altra riga da definire con la posizione 1

Controlla

Codice:

Sub Main()
 Dim n(4),rt(1),anum(2)
 qt = InputBox("Quante estrazioni vuoi analizzare",,5133)
 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) = " estratto mancante "
 atitoli(11) = " rit.estratto mancante "
 atitoli(12) = " Ritmax E. manc."
 atitoli(13) = " Freq E.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
   ReDim aPos(5)
   aPos(1) = True
   'aPos(2) = True
   'aPos(3) = True
   'aPos(4) = True
   'aPos(5) = True
   Call StatisticaFormazioneTurbo(n,rt,1,rit,ritmax,Incr,fre,Ini,fin,,aPos)
   Call VerificaEsitoTurbo(n,rt,fin - rit,1,fin - rit,aPos,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 = "Estratto" Then avalori(9) = DataEstrazione(id)
   If esito = "Terno" Then avalori(9) = DataEstrazione(id)
   If EstrattoRitardoTurbo(qr,x,fin - rit,fin - rit,,,aPos) > 0 Then
    If EstrattoRitardoTurbo(qr,y,fin - rit,fin - rit,,,aPos) > 0 Then
     anum(1) = x
     anum(2) = y
     avalori(10) = StringaNumeri(anum) 'x & "." & y
     Call StatisticaFormazioneTurbo(anum,rt,1,rita,ritamax,,frea,Ini,fin,,aPos)
     avalori(11) = rita
     avalori(12) = ritamax
     avalori(13) = frea
     'Scrivi casi & " - " & StringaNumeri(n) & " Ritardo ..." & rit
     Call AddRigaTabella(avalori,,,5)
     Call SetColoreCella(10,vbMagenta)
     Call SetColoreCella(8,vbGreen)
    End If
   End If
  Next
 Next
 Call SetTableWidth("100%")
 Call CreaTabella(3,,,righe) ' 3 = ordine tabella x ritardo
End Sub

edesimone · 17 Marzo 2018

Grazie Mike58
Funziona

sensorial · 22 Marzo 2018

Salve a tutti. Leggo con piacere questo intervento sul lavoro di programmazione. Potrei sapere se privatamente qualcuno di voi può contattarmi per un lavoro utile di programmazione o darmi qualche suggerimento utile? Grazie anticipatamente. Il mio indirizzo è: sensorial1955@libero,it

Mike58 · 22 Marzo 2018

Ciao Sensorial, non vorrei deluderti, ma io non faccio programmazione vera e propria, mi diletto a mettere con dei codici esistenti insieme delle istruzioni per realizzare un possibile progetto o metodo o una sorte di statistica applicata al gioco e alle varie lotterie.

Il tutto in forma libera e visibile sui forum in modo che anche altri possono beneficiarne e magari anche intervenire per migliorie.

Poi il tempo manca un po' a tutti e quindi il tutto si fa nei ritagli dello stesso tempo.

Sicuramente se leggi bene sul forum qualcuno di più qualificato c'è che può fare qualcosa nei casi più impegnativi.

Ciao

sensorial · 22 Marzo 2018

Ti ringrazio comunque.

Cerca

Cerca

Per Mike58 modifica script

edesimone

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

edesimone

Advanced Member >PLATINUM<

edesimone

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

edesimone

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

edesimone

Advanced Member >PLATINUM<

sensorial

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

sensorial

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi