Novità

SCRIPT PER TERNI E QUATERNE PIU FREQUENTI

herat

Member
Buongiorno 🌞
Chiedo , cortesemente, se é possibile creare script per trovare i terni secchi e le quaterne secche più frequenti per terno (i terni) e quaterna (le quaterne) su TUTTE dal 1871
Vi ringrazio anticipatamente ❤
 

Cinzia27

Advanced Member
Ciao, Herat.
Ecco gli script

Codice:
Option Explicit
'Terni più frequenti ( Cinzia27)

Sub Main()
Dim n(3),ru(1),a,b,c,fr,cc,r,pa,i,rt
r=11
ru(1)=r
For a=90 To 3 Step -1
For b=a-1 To 2 Step -1
For c=b-1 To 1 Step -1

n(1)=a
n(2)=b
n(3)=c

'If SerieFreq(EstrazioneFin,EstrazioneFin,n,ru,3)>0 Then
fr=SerieFreqTurbo(1,EstrazioneFin-1,n,ru,3)
If fr>18 Then

rt=SerieRitardoTurbo(1,EstrazioneFin-1,n,ru,3)
'If rt>2000 And rt<4000 Then

cc=cc+1
Messaggio FormatSpace(cc,4,1)&") "&SiglaRuota(r)&" "&StringaNumeri(n)
Scrivi FormatSpace(cc,4,1)&")"&StringaNumeri(n)&" "&FormatSpace(fr,4,1)&" rt "&FormatSpace(rt,4,1)  &" ",0,0
If SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n,ru,3)>0 Then ColoreTesto 2:Scrivi " sortito " Else Scrivi
ColoreTesto 0
End If
'End If
Next
Next
Next

End Sub



Codice:
Sub Main()
'Quaterne più frequenti ( Cinzia27)

Dim quaterne(4)

Dim ruote(1)
r = 11
ruote(1) = r

For i = 1 To 87
quaterne(1) = i

For j = i + 1 To 88
quaterne(2) = j

For k = j + 1 To 89
quaterne(3) = k

For h = k + 1 To 90
quaterne(4) = h


fr = SerieFreqTurbo(1,EstrazioneFin,quaterne,ruote,4)
If fr > 3 Then
c=c+1
rt = SerieRitardoTurbo(1,EstrazioneFin - 1,quaterne,ruote,3)
Messaggio FormatSpace(c,4,1)& ") " &SiglaRuota(r) & " " & StringaNumeri(quaterne) & "   fr " & fr & " rt " & FormatSpace(rt,4,1)
Scrivi FormatSpace(c,4,1)& ") " &SiglaRuota(r) & " " & StringaNumeri(quaterne) & "   fr " & fr & " rt " & FormatSpace(rt,4,1)
End If

Next:Next:Next:Next


End Sub
 

Cinzia27

Advanced Member
Ciao, Alien.
r=11 E' sufficiente sostituire 11 con la ruota che vuoi ( 1 Ba,2 Ca, ecc.)

Ovviamente va adattato anche
If fr > .......... Then
che su ruota fissa è inferiore
 

Alien.

Advanced Premium Member
è,grazie,ci provo:

If fr>18 The = if fr< 18 then così ? per il terno e la quaterna?

Ma lo sai che sei un po"birichina":unsure::D



Ovviamente va adattato anche
If fr > .......... Then
che su ruota fissa è inferiore

If fr > 3 The è e qui ? dovrebbe darmi i numeri superiori al terno ovvio

Scusa e grazie.
 

Cinzia27

Advanced Member
Se metti frequenza inferiore a 18 su ruota certo che te li da tutti.
Ad esempio su BA un terno è uscito al massimo sette volte.

Prova questo.

Codice:
Option Explicit
'Su ruota
Sub Main()
Dim n(3),ru(1),a,b,c,fr,cc,r,pa,i,rt
r=1
ru(1) = r
For a = 90 To 3 Step - 1
For b = a - 1 To 2 Step - 1
For c = b - 1 To 1 Step - 1

n(1) = a
n(2) = b
n(3) = c

'If SerieFreq(EstrazioneFin,EstrazioneFin,n,ru,3)>0 Then
fr = SerieFreqTurbo(1,EstrazioneFin - 1,n,ru,3)
If fr > 5 Then

rt = SerieRitardoTurbo(1,EstrazioneFin - 1,n,ru,3)
'If rt>2000 And rt<4000 Then

cc = cc + 1
Messaggio FormatSpace(cc,4,1) & ") " & SiglaRuota(r) & " " & StringaNumeri(n)
Scrivi FormatSpace(cc,4,1) & ")" & SiglaRuota(r) & " " & StringaNumeri(n) & " fr " & FormatSpace(fr,4,1) & " rt " & FormatSpace(rt,4,1) & " ",0,0
If SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n,ru,3) > 0 Then ColoreTesto 2:Scrivi " sortito " Else Scrivi
ColoreTesto 0
End If

Next
Next
Next

End Sub
 

Alien.

Advanced Premium Member
é NON MALE ,senti se hai ancora un po di pazienza e per la quaterna e magari cinquina cosa devo cambiare,grazie.

1623365644309.png
 

Serpico 90

Advanced Member
Buon giorno Cinzia ,complimenti per gli script..........
gentilmente posso chiederti se potresti far fare allo script la ricerca su TRENTA NUMERI e non su tutti i 90 ?
se hai del tempo e pazienza come scrive Alien.....ti posso indicare i 30 numeri e anche alcuni accorgimenti per la ricerca.
In attesa di una gradita risposta .......
auguro una serena giornata
Saluti
Serpico
 

Serpico 90

Advanced Member
Salve,grazie per aver risposto....
spero di essere chiaro nell'esposizione per la ricerca .
i 30 numeri da ricercare per terno
per quaterna in maggiore frequenza:
03---04---13---14----23---24---30---31---32---35---36---37---38--39--40--41--42--45--46--47---48---49---53---54----63---64---73---74---83---84-------

per trovare in quale ruota giocare eventuali terni o quaterne più frequenti segnalo due condizioni .

Prima condizione aspettare l'uscita del n. 88 in una qualsiasi ruota .... . e dall'estrazione successiva scommettere se
ci sono terni o quaterne più frequenti nella ruota in cui è stato estratto il n.88......

Seconda condizione (se sarà possibile effettuarla) sommare i cinque estratti di ogni ruota e appena la somma dei cinque estratti
è da 300 in poi ......iniziare a scommettere in quella ruota i terni o le quaterne (se ci saranno) più frequenti in quella ruota.

Spero di essere stato chiaro nell'esposizione.....

N.B. i 30 numeri saranno sempre gli stessi per le due ricerche e per tutte le ricerche in ogni ruota dove appariranno le due condizioni
alcune volte potrà capitare che nella stessa estrazione in ruote diverse e anche nella stessa ruota ci potranno essere le due condizioni .
PER QUANTO RIGUARDA I COLPI DI GIOCO LO DECIDEREMO DOPO AVER VISIONATO I RISULTATI DELLA RICERCA.

Grazie se potrai costruire questo script.
Buon lavoro
Saluti
Serpico
 

Alien.

Advanced Premium Member
é.....io avrei il 77 con quali numeri si unisce di più ed ogni quanto esce il 77 e dove :unsure: :ROFLMAO::ROFLMAO:
 

Serpico 90

Advanced Member
Buon giorno ...
.ieri ho dimenticato a chiedere scusa ad Herat ,perchè ho invaso il suo tread ,,,, spero di non ave creato confusione.
Buon giorno Cinzia .....cosa ne pensi della mia richiesta???? se non sono stato chiaro nell'esposizione eventualmente potrei chiarire meglio .
Spero in un tuo accenno in merito .
Buona giornata
Saluti
Serpico
 

Serpico 90

Advanced Member
Buon giorno ...
.ieri ho dimenticato a chiedere scusa ad Herat ,perchè ho invaso il suo argomento ,,,, spero di non ave creato confusione.
Buon giorno Cinzia .....cosa ne pensi della mia richiesta???? se non sono stato chiaro nell'esposizione eventualmente potrei chiarire meglio .
Spero in un tuo accenno in merito .
Buona giornata
Saluti
Serpico
 

Cinzia27

Advanced Member
Ciao, Serpico. Finora mi è abbastanza chiaro, se ho dubbi ti chiedo. Mi occorre solo un pò di tempo per elaborare la soluzione. Poi risponderò ad Alien. A Herat ho già risposto e se ha ulteriori richieste sono qui.
Buon fine settimana a tutti

Cinzia
 

herat

Member
Carissimo, figurati! è un piacere
Buon giorno ...
.ieri ho dimenticato a chiedere scusa ad Herat ,perchè ho invaso il suo tread ,,,, spero di non ave creato confusione.
Buon giorno Cinzia .....cosa ne pensi della mia richiesta???? se non sono stato chiaro nell'esposizione eventualmente potrei chiarire meglio .
Spero in un tuo accenno in merito .
Buona giornata
Saluti
Serpico
 

joe

Advanced Member >PLATINUM<
Con i compimenti per le risposte e le soluzioni che Cinzia ha saputo dare,

l'elenco di numeri in cui cercare, è complicato da tanti troppi separatori diversi.

Pertanto diventa difficile utilizzarlo senza prima di averlo ripulito.

Codice:
Option Explicit
Sub Main
  Dim S,I,M,R,X,K
  S = "03---04---13---14----23---24---30---31---32---35---36---37---38--39--40--41--42--45--46--47---48---49---53---54----63---64---73---74---83---84-------"
  M = "-"
  For I = 1 To Len(S)
    If Mid(S,I,1) <> "-" Then R = R &(Mid(S,I,1))
  Next
  For X = 1 To Len(R) Step 2
    K = K + 1
    ReDim Preserve N(K)
    N(K) = Mid(R,X,2)
  Next
  Scrivi StringaNumeri(N)
End Sub

:)
 

Cinzia27

Advanced Member
Ciao, Serpico.
Poiché i terni o le quaterne sono pochi o inesistenti, credo che sia meglio considerare ambi e ambate.
L' ho controllato impostato a 1 colpo, sembra corretto. Ma qualche verifica in più non guasta.
Ringrazio Joe per i complimenti e per i suo intervento che ravviva questo topic.


Codice:
' Serpico : ambi e ambate più frequenti più frequenti dopo la sortita di un numero spia ( Cinzia)
Sub main()
Dim ru(1),nu(4005,4),n(90,3),nu1(2),n1(2)
ee=CInt(InputBox("Estrazioni da esaminare:ultime",,1000))
If ee="" Then Exit Sub
sp=CInt(InputBox("Numero spia",,88))
If sp="" Then Exit Sub
cl=CInt(InputBox("colpi",,9))
If cl="" Then Exit Sub
qq=CInt(InputBox("quanti ambi ed estratti più frequenti vuoi visualizzare",,7))
If qq="" Then Exit Sub
numeri=Array(89,88,87,86,85,84,83,82,81,80)'Inserire i numeri che si vogliono considerare
w=UBound(numeri)
For r=1 To 11
If r=11 Then r=12
ru(1)=r
casi=0
For s=1 To 4005
nu(s,1)=0
nu(s,2)=0
nu(s,3)=0
nu(s,4)=0
Next
For ss=1 To 90
n(ss,1)=0
n(ss,2)=0
n(ss,3)=0
Next
co=0
fin=EstrazioneFin
ini=fin-ee
            For es=ini To fin
Messaggio  " Data "& DataEstrazione(es)
ess=es+cl
If ess>fin Then ess=fin
 
For p=1 To 5
If Estratto(es,r,p)=sp  Then
casi=casi+1
co=0
     For x1=0 To w
         For y1=x1+1 To w
         co=co+1
         nu(co,1)=co:nu(co,2)=numeri(x1):nu(co,3)=numeri(y1)
         nu1(1)=numeri(x1):nu1(2)=numeri(y1)
         k=SerieFreq (es+1,ess,nu1,ru,2)
         nu(co,4)=nu(co,4)+ k
         Next
         Next
co=0
     For xx=1 To w
     co=co+1
     n(co,1)=co:n(co,2)=numeri(xx)
     n1(1)=numeri(xx) 
     k1=SerieFreq (es+1,ess,n1,ru,1)
     n(co,3)=n(co,3)+ k1
     Next
     End If
     Next
     Next
OrdinaMatrice nu,-1,4
OrdinaMatrice n,-1,3
Scrivi " numero spia "&sp
Scrivi  NomeRuota (r)&" dal "& _
DataEstrazione(ini)&" al "& DataEstrazione(fin),1,1
ColoreTesto 1
Scrivi "Casi riscontrati "& CInt(casi) &" - Analisi effettuata sulle "&cl&_
" estrazioni successive "
ColoreTesto 2
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI "
ColoreTesto 1
Scrivi Space(3)&qq&" Ambi+frequenti /Estratti+frequenti "
Scrivi
ColoreTesto 2
Scrivi Space(4)&"Ambi+Fr.    Tot.   Est.+Fr.  Tot."
ColoreTesto 0
For wx=1 To qq ' se vuoi variare il numero di ambi e estratti
ColoreTesto  1:scrivi Space(5)& Format2(nu(wx,2))&"-"& Format2(nu(wx,3))&" ",1,0
ColoreTesto  0:scrivi Space(5)&Format2(nu(wx,4))&" ",0,0
ColoreTesto  1:scrivi Space(5)&Format2(n(wx,2))&" ",1,0
ColoreTesto  0:scrivi Space(5)&Format2 (n(wx,3))&" "
Next
Scrivi String(90,"*")
Next

End Sub
 

Serpico 90

Advanced Member
Ciao Cinzia ,grazie,
Cortesemente mi spieghi cosa significa quando scrivi "impostato 1 Colpo" dovrei cambiare qualcosa ?
e poi ho notato che non c'è
la somma dei cinque estratti per individuare altra ruota , se non e possibile non problem mi va bene così.
Cinzia molte grazie per il tuo lavoro ,mi auguro di poter avere il piacere di indovinare qualche ambata
e con un po di fortuna anche qualche ambo .

Buona domenica
Saluti
Serpico
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 giugno 2021
    Bari
    07
    21
    15
    54
    27
    Cagliari
    25
    02
    28
    72
    53
    Firenze
    68
    83
    46
    61
    15
    Genova
    54
    24
    45
    75
    53
    Milano
    36
    13
    58
    01
    50
    Napoli
    27
    88
    02
    90
    51
    Palermo
    39
    02
    52
    20
    59
    Roma
    45
    80
    41
    15
    33
    Torino
    44
    21
    86
    10
    69
    Venezia
    48
    21
    36
    58
    37
    Nazionale
    52
    86
    75
    09
    69
    Estrazione Simbolotto
    Napoli
    38
    27
    01
    03
    32
Alto