Novità

SCRIPT PER TERNI E QUATERNE PIU FREQUENTI

herat

Advanced 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

Premium 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

Premium 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

Premium 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
 

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

Premium 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

Advanced 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 PLUS<
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

Premium 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
    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
Alto