ricerca script

lottofortune · 3 Novembre 2017

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 · 3 Novembre 2017

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 · 3 Novembre 2017

Ciao Mike58, si può avere la possibilità di selezionare quante estrazioni usare per la statistica ?

Mike58 · 3 Novembre 2017

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

lottofortune · 3 Novembre 2017

va benissimo,era proprio quello che cercavo.GRAZIE mille mike58.

solare · 3 Novembre 2017

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 · 3 Novembre 2017

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

solare · 3 Novembre 2017

Perfetto....!!!!!
Grazie come sempre della tua grande gentilezza.

dario25 · 26 Novembre 2017

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 · 26 Novembre 2017

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

dario25 · 26 Novembre 2017

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

Mike58 · 26 Novembre 2017

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 · 26 Novembre 2017

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

dario25 · 26 Novembre 2017

si questo e meglio solo che non posso scegliere gli numeri, va bene lostesso ti ringrazio buona serata

Mike58 · 26 Novembre 2017

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

dario25 · 26 Novembre 2017

si questo va bene grazie 1000

franca46 · 27 Novembre 2017

Mike58;n2088255 ha scritto:
Oggi sono buono con tutti.

antonioquagliozzi · 29 Novembre 2017

richiesta sript di donatella postato (su metodi) il 22/11/2017 ore 16,22 grazie a tt

Asuniverso · 28 Novembre 2019

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 · 28 Novembre 2019

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

ricerca script

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<