Novità

ricerca script

lottofortune

Advanced Member >PLATINUM<
Buongiorno a tutti amici, esiste qualche script che mi trovi gli abbinamenti più frequenti con un numero.? Es. Io ho ambata 34 a Bari, esiste lo script che mi mostri i numeri con i quali si è accoppiato più frequentemente? Chiedo scusa..
 

Mike58

Advanced Member >PLATINUM PLUS<
Prova questo

Codice:
Sub Main
Dim n1,n2,anum(2),spia(1),abb(1)
'Dim ruote(1)
'r = InputBox("Quale Ruota",,1)
qn = CInt(InputBox("Quale Capogioco",,15))
'qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
ReDim ruote(0)
'ruote(1) = r
r = ScegliRuote(ruote)
ReDim atitoli(12)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
atitoli(11) = "Ritardo abbinamento"
atitoli(12) = " Dec ABB "
Call InitTabella(atitoli,1,,3,5)
spia(1) = qn
Ini = 3950'EstrazioneIni'Fin - qe
fin = EstrazioneFin
df = fin - Ini
sp = SerieFreq(Ini,fin,spia,ruote,1)
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df + 1,1,- 1,3
Scrivi "presenze del numero Capogioco.... " & sp,1
Messaggio "elaboro... ruota di " '& NomeRuota(r)
Call AvanzamentoElab(1,10,100)
n1 = qn
For n2 = 1 To 90
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
abb(1) = n2
Call StatisticaFormazioneTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
Call StatisticaFormazioneTurbo(abb,ruote,1,rit1,,,,Ini,fin)
Call VerificaEsitoTurbo(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
ReDim avalori(12)
avalori(1) = DataEstrazione(fin)
avalori(2) = StringaRuote(ruote)
avalori(3) = StringaNumeri(anum,,1)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
avalori(9) = retesito
If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
If retesito = "" Then avalori(10) = " -- "
avalori(11) = rit1
avalori(12) = Decina(n2)
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(8,,7)
Call SetColoreCella(7,vbGreen)
If rit = 0 Then Call SetColoreCella(10,vbYellow)
End If
Next
Call SetTableWidth("100%")
Call CreaTabellaOrdinabile(7,,,100) ' riga x ordinamento colonna
Call Scrivi(" ******* Tabella by Mike58 ******* ",True,True,2,4,4)
End Sub


Ciao
 

solare

Advanced Member >PLATINUM<
Ciao Mike58, si può avere la possibilità di selezionare quante estrazioni usare per la statistica ?
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao solare in origine lo script era stato creato con questa caratteristica.
Basta cambiare e attivare la riga "qe" quante estrazioni e ridefinire l'inizio "ini"
le righe sono qui.

Codice:
'qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
ReDim ruote(0)
'ruote(1) = r
r = ScegliRuote(ruote)
ReDim atitoli(12)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
atitoli(11) = "Ritardo abbinamento"
atitoli(12) = " Dec ABB "
Call InitTabella(atitoli,1,,3,5)
spia(1) = qn
Ini = 3950'EstrazioneIni'Fin - qe
 

solare

Advanced Member >PLATINUM<
Ciao Mike58, facendo la modifica che mi hai indicato nel listato
nella finestra quante estrazioni voglio analizzare "Ho indicato 50" pero alla fine mi riporta statistica dal 14/9/46
ho sbagliato qualcosa ?
 

Mike58

Advanced Member >PLATINUM PLUS<
No non sbagli è solo che l'istruzione inizio era prima della istruzione fine e quindi non potevi fare l'operazione fin-qe.
Ho spostato la fine alla riga prima.

eccoti lo script.

Codice:
Sub Main
 Dim n1,n2,anum(2),spia(1),abb(1)
 'Dim ruote(1)
 'r = InputBox("Quale Ruota",,1)
 qn = CInt(InputBox("Quale Capogioco",,15))
 qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
 ReDim ruote(0)
 'ruote(1) = r
 r = ScegliRuote(ruote)
 ReDim atitoli(12)
 atitoli(1) = " Data "
 atitoli(2) = " Ruota "
 atitoli(3) = " Numero "
 atitoli(4) = " Ritardo "
 atitoli(5) = " Rit Max "
 atitoli(6) = " incr Max "
 atitoli(7) = " frequenza "
 atitoli(8) = " Esito ultimo "
 atitoli(9) = " Tipo esito "
 atitoli(10) = " Data esito "
 atitoli(11) = "Ritardo abbinamento"
 atitoli(12) = " Dec ABB "
 Call InitTabella(atitoli,1,,3,5)
 spia(1) = qn
 fin = EstrazioneFin
 Ini = Fin - qe
 df = fin - Ini
 sp = SerieFreq(Ini,fin,spia,ruote,1)
 Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df + 1,1,- 1,3
 Scrivi "presenze del numero Capogioco.... " & sp,1
 Messaggio "elaboro... ruota di " '& NomeRuota(r)
 Call AvanzamentoElab(1,10,100)
 n1 = qn
 For n2 = 1 To 90
  If n1 <> n2 Then
   anum(1) = n1
   anum(2) = n2
   abb(1) = n2
   Call StatisticaFormazioneTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
   Call StatisticaFormazioneTurbo(abb,ruote,1,rit1,,,,Ini,fin)
   Call VerificaEsitoTurbo(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
   ReDim avalori(12)
   avalori(1) = DataEstrazione(fin)
   avalori(2) = StringaRuote(ruote)
   avalori(3) = StringaNumeri(anum,,1)
   avalori(4) = rit
   avalori(5) = ritmax
   avalori(6) = Incrmax
   avalori(7) = freq
   avalori(8) = retestratti
   avalori(9) = retesito
   If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
   If retesito = "" Then avalori(10) = " -- "
   avalori(11) = rit1
   avalori(12) = Decina(n2)
   Call AddRigaTabella(avalori,,,3)
   Call SetColoreCella(4,vbMagenta)
   Call SetColoreCella(3,,1)
   Call SetColoreCella(8,,7)
   Call SetColoreCella(7,vbGreen)
   If rit = 0 Then Call SetColoreCella(10,vbYellow)
  End If
 Next
 Call SetTableWidth("100%")
 Call CreaTabellaOrdinabile(7,,,100) ' riga x ordinamento colonna
 Call Scrivi(" ******* Tabella by Mike58 ******* ",True,True,2,4,4)
End Sub
 

dario25

Advanced Member
ciao a tutti volevo chiedervi se ce uno script per verificare i numeri da me scelti e mi da i risultati tipo fre rit e ic di convenienza. sia ambate che ambo-
 

Mike58

Advanced Member >PLATINUM PLUS<
prova questo mio vecchio script con inserimento I.C.

Ciao

Codice:
Sub Main()
 Dim num(10),numero(10),ruota(1),sorte

 est = InputBox("Quante estrazioni analizzi",,1000)
 sorte = CInt(InputBox("Quale sorte verificare ",,1))

 ScegliNumeri(num)
 nStart = Timer ' partenza tempo di elaborazione
 Ini = EstrazioneFin-est
 fin = EstrazioneFin
 diff = fin - Ini + 1
 Scrivi"Statistica Veloce su combinazione di Numeri scelti" & "   ",True,False,6,0,3
 Scrivi"  " & StringaNumeri(num) & "  ",True,False,2,4,3
 Scrivi"  Per sorte..." & "   " & NomeSorte(sorte) & "  ",True,True,3,0,3
 Scrivi String(130,"=")
 Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & "  - Estrazioni Totali " & DIFF,1
 Scrivi String(130,"=")
 Scrivi
 '--------- crea tabella---------------
 ReDim atitoli(15)
 atitoli(1) = "   Ruota   "
 'atitoli(2) = "   Combinazione    "
 atitoli(3) = " RD1 "
 atitoli(4) = " RD2 "
 atitoli(5) = " RD3 "
 atitoli(6) = " RD4 "
 atitoli(7) = " RD5 "
 atitoli(8) = "  Ritardo attuale  "
 atitoli(9) = "  Ritardo Storico  "
 atitoli(10) = " incr. storico "
 atitoli(11) = "  Frequenza  "
 atitoli(12) = "   - esito -   "
 atitoli(13) = "   -  stringa Esito  -    "
 atitoli(14) = "    data estraz.uscita     "
 atitoli(15) = " Indice Convenienza "
 ' inizializzo la tabella
 Call InitTabella(atitoli,1,,3,5)
 For r = 1 To 12
  'If r = 11 Then r = 12
  ruota(1) = r
  Call AvanzamentoElab(Ini,fin,n)
  If ScriptInterrotto Then Exit For
  Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
  Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
  ic = Round((freq/diff*rit),2)
  '----- calcolo valori in tabella --------------
  ReDim avalori(15)
  avalori(1) = NomeRuota(r)
  avalori(3) = RitDiPos(num,1,ruota)
  avalori(4) = RitDiPos(num,2,ruota)
  avalori(5) = RitDiPos(num,3,ruota)
  avalori(6) = RitDiPos(num,4,ruota)
  avalori(7) = RitDiPos(num,5,ruota)
  avalori(8) = rit
  avalori(9) = ritmax
  avalori(10) = incrRitMax
  avalori(11) = freq
  avalori(12) = retesito
  avalori(13) = retestratti
  If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
  If retesito = "" Then avalori(14) = " -- "
  avalori(15) = ic
  Call AddRigaTabella(avalori,,,3,,"cambria")
  If r = 11 Then Call SetColoreCella(11,3,1)
  If retidestr = fin Then Call SetColoreCella(14,3,1)
  If ic > 1 Then Call SetColoreCella(15,4,2)
 Next
 Call SetTableWidth("100%")
 Call CreaTabella()
 Scrivi " Script By Mike58 ",1,- 1,6
 nend = Timer
 Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
 ReDim apos(5)
 ReDim aruota(1)
 ReDim anum(1)
 anum(1) = num
 apos(pos) = True
 aruota(1) = ruota
 RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
 'Questa Function trasforma il numero di secondi passato come parametro in una stringa
 ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
 ' s ---> Numero di secondi da formattare
 ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
 Dim hh
 Dim Mm
 Dim Ss
 Dim TimeStr
 hh = s \ 3600
 Mm =(s Mod 3600) \ 60
 Ss = s -((hh * 3600) +(Mm * 60))
 TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
 FormattaSecondi = TimeStr
End Function
 
Ultima modifica:

dario25

Advanced Member
Ciao mike58 grazie di avermi risposto, se si poteva scegliere anche le ruote era meglio,perche lui verifica su tutte le ruote a me serve uno specifico su ruote scelte da me , lo provato su spaziometria va bene
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Prova questa altra tipologia su scelta ruota e con anche altri parametri, il tutto in tabellaOrdinabile.

Codice:
Sub Main
 Dim N(1),T,V,nLiv
 Ini = EstrazioneIni' - 200
 fin = EstrazioneFin
 Tot = fin - Ini
 ReDim R(0)
 Rr = ScegliRuote(R)
 Scrivi "Statistica Numeri Su Ruote di : " & StringaRuote(R),1
 Scrivi
 T = Array(T,"Numero","Ritardo","Storico","Incr","Frequenza","Ind CV ","Peso 36","RitsincLiv","RrCrono")
 Call InitTabella(T,RGB(146,139,126),,3,5)
 For x = 1 To 90
  N(1) = x
  Call StatisticaFormazioneTurbo(N,R,1,Rit,max,Incr,fre,Ini,fin)
  IndCV = Round(fre/Tot*Rit,2)
  liv = RitSincDiLiv(x,R,fin,nLiv)
  Rl = RitPosCrono(x,R,fin)

  '------ elenco ritardi..............
   ReDim rp(37),fr(37)
     Inizio = EstrazioneIni
     fine = EstrazioneFin
     somrit12 = 0
     For z = 1 To 37
      rp(z) = SerieRitardoTurbo(Inizio,fine,N,R,1)
      fr(z) = SerieFreqTurbo(Inizio,fine,N,R,1)
      fine = fine -(rp(z) + 1)
      somrit12 = somrit12 + rp(z) + 1
      Med = Round(somrit12/37,2)
      freq = fr(z) + 1
      Mfr = Round(freq/37,2)
     Next
   '.........................................

  V = Array(V,StringaNumeri(N),Rit,max,Incr,fre,IndCV,somrit12,liv,Rl)
  Call AddRigaTabella(V,,,3,,"Cambria")
 Next
 CreaTabellaOrdinabile(2)
End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
Oggi sono buono con tutti.

Provate anche questo Frequenza ciclica su cicli di 90 estraz. e ultimo ciclo di 18 estraz.

Codice:
Sub Main
Dim Nu(1),Ru(1),T,V,nCicli,Qcicli
nCicli = 10
Qcicli = 90
r = InputBox("Quale ruota analizzo",,1)
Ini =(EstrazioneFin -(nCicli * Qcicli)) + 1
fin = EstrazioneFin
Tot = fin - Ini + 1
Scrivi "*** Numeri In Frequenza ciclica **** Script & Project By Mike58  *** Forum LottoCed *** ",1,,,1,3,,1
Scrivi
ReDim T(23)'....................................................
T(1) = "Ruota"
T(2) = "Numero"
For x = 3 To 12
T(x) = "C" & x - 2
Next
'T(13) = " Totali "
T(14) = " Tot.Freq "
T(15) = " Ritardo "
T(16) = " RitMax "
For xx = 17 To 21
T(xx) = "C" & xx - 16
Next
T(22) = " Med Freq "
T(23) = " I.C "
Call InitTabella(T)
For y = 1 To 90
Nu(1) = y
Ru(1) = r
ReDim V(23)'...................................................
V(1) = SiglaRuota(Ru(1))
V(2) = StringaNumeri(Nu)
For es = Ini To fin Step Qcicli
k = k + 1
Call StatisticaFormazione(Nu,Ru,1,rit,max,Incr,fre,es,es +(Qcicli - 1))

ReDim Preserve freq(k)
freq(k) = fre
som = som + freq(k)
Next
For x = 3 To 12
V(x) = freq(x - 2)
Next
'V(13) = som
Call StatisticaFormazioneTurbo(Nu,Ru,1,rit1,max1,Incr1,fre1,Ini,fin)
ic = Round((fre1/Tot*rit1),2)
V(14) = fre1
V(15) = rit1
V(16) = max1
Inix =(EstrazioneFin -(5 * 18)) + 1
finx = EstrazioneFin
For ess = Inix To finx Step 18
kk = kk + 1
Call StatisticaFormazione(Nu,Ru,1,rit2,max2,Incr2,fre2,ess,ess + 17)
ReDim Preserve freq18(kk)
freq18(kk) = fre2
Next
For xx = 1 To 5
V(xx + 16) = freq18(xx)
Next
V(22) = Round((900/fre1),2)
V(23) = ic
Call AddRigaTabella(V)
k = 0
som = 0
kk = 0
Next
CreaTabellaOrdinabile(12)
End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
prova cosi con scelta numeri

Codice:
Sub Main
'analisi numerica a ruota con scela numeri e ruote
Dim Inizio,fine
Dim n1,n2,anum
Dim Rit,RitMax,Freq,Indice
ReDim ruota(11)
Dim k,nu(1)
final = InputBox("Da quale estrazione parte l'analisi ? ",,EstrazioneFin)
qt = InputBox("quante estrazioni analizzi ",,200)
'rrtt = CInt(InputBox("QUALE RITARDO",,qt))
Inizio = final - qt
fine = final
idestr = EstrazioniArchivio
Tot = fine - Inizio
If ScegliRuote(ruota) > 0 Then
For k = 1 To UBound(ruota)
If ruota(k) > 0 Then
'
Scrivi NomeRuota(ruota(k)) & " ",True,False,4,0,2
End If
Next
End If
Call Scrivi(" - Tot estrazioni -> " & Tot,True,False,2,0,2)
Call Scrivi(" Range da " & DataEstrazione(Inizio) & " fino a " & DataEstrazione(fine),True,False,3,0,2)
Call Scrivi(" Listed by Mike58 ",True,True,6,0,2)
Scrivi
Call ScegliNumeri(anum)
Scrivi "Numeri Selezionati.... " & StringaNumeri(anum),True,True,,2,3
ReDim atitoli(14)
atitoli(1) = " Numero "
atitoli(2) = " Ritardo "
atitoli(3) = " Ritardo Max "
atitoli(4) = " Frequenza "
atitoli(5) = " I.C. "
atitoli(6) = " ciclo 1-18 "
atitoli(7) = " ciclo 19-36 "
atitoli(8) = " ciclo 37-54 "
atitoli(9) = " ciclo 55-72 "
atitoli(10) = " ciclo 73-90 "
atitoli(11) = " Sfaldato-in corso "
atitoli(12) = " scarto "
atitoli(13) = " ret_estratti "
atitoli(14) = " id "
Call InitTabella(atitoli,1,,3,5)
For x = 1 To UBound(anum)
nu(1) = anum(x)
Call StatisticaFormazione(nu,ruota,1,Rit,RitMax,,Freq,Inizio,fine)
Call VerificaEsito(nu,ruota,fine - Rit,1,0,,esito,colpi,estratti,id)
sf18 = SerieFreq(fine - 18,fine,nu,ruota,1)
sf36 = SerieFreq(fine - 36,fine - 19,nu,ruota,1)
sf54 = SerieFreq(fine - 54,fine - 37,nu,ruota,1)
sf72 = SerieFreq(fine - 72,fine - 55,nu,ruota,1)
sf90 = SerieFreq(fine - 90,fine - 73,nu,ruota,1)
Indr = SerieRitardo(Inizio,fine - 1,nu,ruota,1)
Indrx = SerieStorico(Inizio,fine - 1,nu,ruota,1)
'If ScriptInterrotto Then Exit For
ReDim aval(14)
aval(1) = nu(1)
aval(2) = Rit
aval(3) = RitMax
aval(4) = Freq
aval(5) = Round((Rit/Tot)*Freq,2)
aval(6) = sf18
aval(7) = sf36
aval(8) = sf54
aval(9) = sf72
aval(10) = sf90
If Rit < 10 And Rit > 0 Then
aval(11) = " Sfaldato nei 9 ultimi colpi "
Else
If Rit = 0 Then
aval(11) = " Uscito ultima estraz. "
Else
aval(11) = " in corso "
End If
End If
aval(13) = estratti
aval(14) = DataEstrazione (id)
sc = qt/18*4
sca = aval(4) - sc
aval(12) = Int(sca)
Call AddRigaTabella(aval,,,3)
Call SetColoreCella(5,vbGreen)
Call SetColoreCella(4,vbMagenta)
If Rit = 0 Then
Call SetColoreCella(2,vbGreen)
End If
If Rit < 10 Then Call SetColoreCella(11,vbRed):End If
If Rit > 100 Then Call SetColoreCella(2,vbRed):End If
If Rit = 0 Then Call SetColoreCella(11,vbYellow):End If
If Rit = 0 Then Call SetColoreCella(12,vbYellow):End If
If sf18 = 0 Then Call SetColoreCella(6,vbYellow):End If
If Rit = 0 Then Call SetColoreCella(14,vbYellow):End If



Next
Call SetTableWidth("100%")
Call CreaTabella(4)' ordina tabella per colonna



End Sub
 

franca46

Advanced Member >PLATINUM PLUS<
Mike58;n2088255 ha scritto:
Oggi sono buono con tutti.


30iby3k.gif
 

Asuniverso

Advanced Member >PLATINUM PLUS<
Ciao Mike58 ti chiedo una cortesia, premetto che uso il soft L8+6.1, se fosse possibile creare uno script con le seguenti caratteristiche:

1) Decido io le date inizio-fine per la ricerca

2) Decido io la ruota di ricerca e gioco.

3) Decido io i capogiochi per ambate.

4) Capogiochi da selezione da 1 ad un max di 3.

5) Ricercare i numeri più frequenti da 1 ad un max di 8 che si sono abbinati ai capogiochi selezionati.

6) Ricercare i numeri più ritardatari da 1 ad un max di 8 che si sono abbinate alle ambate selezionate

Colgo l'occasione per salutarti e resto in attesa di un tuo riscontro
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Asuniverso, premetto che è tanto che non mi diletto con gli script e che uso solo spaziometria in quanto ha codici + performanti, la richiesta mi sembra fattibile.

Devo trovare il tempo e trovare il corretto metodo costrutto da implementare o iter operativo da seguire.

Appena posso vedo quello che è possibile fare (mi hai chiamato in causa quando il mio tempo è limitato causa lavoro notturno).

Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto