Novità

Script

Buona serata a tutti,per tanti di voi sarà più semplice di bere un bicchiere di acqua,per me invece ho provato con L8 prime versioni ci sono riuscito,con Spaziometria non riesco.
Si tratterebbe di fare uno script di questo metodino

prima estrazione del mese

primo di NAPOLI +21
primo di NAPOLI +61

I due risultati x ambata,ambo,ambetto su Nazionale

Grazie mille a tutti per l'attenzione,buon fine settimana
 
Non so se Ti può andare bene, ho aggiunto anche Napoli :

Option Explicit
Sub Main
' Script by Pandit per Scarfacetony da una sua idea
Dim es,Ruote(12),Nu(8),Posta(4)
Dim a,b,xa,k,x,x1,Ini,fin,poste(2)
Ruote(1) = 12': Ruote(2) = 12
Posta(1) = 1
Posta(2) = 1
poste(2) = 1
x1 = CInt(InputBox("Quante estrazioni di controllo?",,500))'
x = CInt(InputBox("Quanti colpi di gioco?",,9))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 21)
b = Fuori90(a + 61)
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ColoreTesto 1:Scrivi String(95,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a) & " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(52,152)
ImpostaGiocata xa,Nu,Ruote,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " ---- AMBETTI ----",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(a + 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(90 + a - 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Non so se Ti può andare bene, ho aggiunto anche Napoli :

Option Explicit
Sub Main
' Script by Pandit per Scarfacetony da una sua idea
Dim es,Ruote(12),Nu(8),Posta(4)
Dim a,b,xa,k,x,x1,Ini,fin,poste(2)
Ruote(1) = 6: Ruote(2) = 12
Posta(1) = 1
Posta(2) = 1
poste(2) = 1
x1 = CInt(InputBox("Quante estrazioni di controllo?",,500))'
x = CInt(InputBox("Quanti colpi di gioco?",,9))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 21)
b = Fuori90(a + 61)
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ColoreTesto 1:Scrivi String(95,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a) & " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(52,152)
ImpostaGiocata xa,Nu,Ruote,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " ---- AMBETTI ----",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(a + 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(90 + a - 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub


ciao a tutti chiedo come modificare l'estrazione non in base al 1° del mese ma ad ogni estrazione
credo che la riga sia questa !

x1 = CInt(InputBox("Quante estrazioni di controllo?",,200))'
x = CInt(InputBox("Quanti colpi di gioco?",,20))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
 
devi togliere :
If IndiceMensile(es) = 1 Then
e
End If
alla fine, ma diminuisci le estrazioni di controllo, perchè
altrimenti solo per vederle ci impieghi mezzora.
 
Riscritto l'algoritmo.

Codice:
Option Explicit
Sub Main
     ' Script by Pandit per Scarfacetony da una sua idea
     Dim es,Ruote(12),Nu(8),Posta(4),poste(2)
     Dim a,b,xa,k,x,x1,Ini,fin,i_Mese,r_Ricerca,r_Esito,pos,caso
     Posta(1) = 1  ' Ambata
     Posta(2) = 1  ' ambo
     poste(2) = 0.25  ' ambo da Ambetto
     x1 = CInt(InputBox("Quante estrazioni di controllo?",,500) - 1)'
     x = CInt(InputBox("Quanti colpi di gioco?",,9))'
     i_Mese = CInt(InputBox("Indice Mese?",,1))
     r_Ricerca = InputBox("Ruota di ricerca? BA=1 ...  NZ=12 ",,6)
     pos = InputBox("Posiz estratto di ricerca? 1... 5 ",,1)
     r_Esito = InputBox("Ruota di verifica esito? ",,12)
     k = x
     Ruote(1) = r_Ricerca
     Ruote(2) = r_Esito

     Ini = EstrazioneFin - x1
     fin = EstrazioneFin
     For es = Ini To fin
          Messaggio NomeRuota(r_Ricerca) & " - " & es
          If IndiceMensile(es) = i_Mese Then ' remmare se non si usa IndiceMensile
          caso = caso + 1
               a = Fuori90(Estratto(es,r_Ricerca,pos) + 21) ' 1a ambata
               b = Fuori90(Estratto(es,r_Ricerca,pos) + 61) ' 2a ambata
               Nu(1) = a
               Nu(2) = b
               '' EliminaRipetuti Nu
               ColoreTesto 1 ' ":" evitarne  l'uso per non complicare la lettura altrui
               Scrivi String(95,155) & " caso n° " & caso
               Scrivi DataEstrazione(es) & " - " & SiglaRuota(r_Ricerca) & " - " & StringaEstratti(es,r_Ricerca) & " in gioco -> " & CInt(a) & " -> " & CInt(b),1
               ColoreTesto 1
               Scrivi String(52,152)
               xa = 0
               ImpostaGiocata  xa,Nu,Ruote,Posta,k
               Gioca  es,1,,1
               ColoreTesto 1
               Scrivi " ---- AMBETTI ----",1
               Scrivi
               Nu(1) = a
               Nu(2) = Fuori90(b + 1)
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Nu(1) = a
               Nu(2) = Fuori90(90 + b - 1)
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Nu(1) = Fuori90(a + 1)
               Nu(2) = b
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Nu(1) = Fuori90(90 + a - 1)
               Nu(2) = b
               xa = xa + 1
               ImpostaGiocata xa,Nu,Ruote,poste,k
               Gioca es,1,,1

          End If ' remmare anche questa riga se non si usa IndiceMensile
     Next
     ScriviResoconto
End Sub
 
Non so se Ti può andare bene, ho aggiunto anche Napoli :

Option Explicit
Sub Main
' Script by Pandit per Scarfacetony da una sua idea
Dim es,Ruote(12),Nu(8),Posta(4)
Dim a,b,xa,k,x,x1,Ini,fin,poste(2)
Ruote(1) = 6: Ruote(2) = 12
Posta(1) = 1
Posta(2) = 1
poste(2) = 1
x1 = CInt(InputBox("Quante estrazioni di controllo?",,500))'
x = CInt(InputBox("Quanti colpi di gioco?",,9))'
k = x
Ini = EstrazioneFin - x1
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,6,1) + 21)
b = Fuori90(a + 61)
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ColoreTesto 1:Scrivi String(95,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a) & " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(52,152)
ImpostaGiocata xa,Nu,Ruote,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " ---- AMBETTI ----",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(a + 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Nu(1) = Fuori90(90 + a - 1)
Nu(2) = b
xa = xa + 1
ImpostaGiocata xa,Nu,Ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub
Grazie,dovrebbe giocare solo su Nazionale
 
Buona serata a tutti,per tanti di voi sarà più semplice di bere un bicchiere di acqua,per me invece ho provato con L8 prime versioni ci sono riuscito,con Spaziometria non riesco.
Si tratterebbe di fare uno script di questo metodino

prima estrazione del mese

primo di NAPOLI +21
primo di NAPOLI +61

I due risultati x ambata,ambo,ambetto su Nazionale

Grazie mille a tutti per l'attenzione,buon fine settimana

All'interno troverai il foglio scarfacetony, che salvo errori ed orrori, fa quello che chiedi, non solo per le ruote che hai chiesto ma per qualsiasi coppia di ruote.
All'inizio ti chiede la ruota da elaborare per trovare i due numeri, poi la ruota sulla quale fare la ricerca di eventuali ambate, ambi e ambetti, e per finire ti chiede l'estrazione prima, seconda ecc. fino solo alla quinta.

Il risultato è così:
1736942211529.png

Sotto "Ambata" i numeri che vedi 4,9 ecc. rappresentano quante estrazioni sono passate da quando sono stati trovati i due numeri (max 9 estrazioni).
Naturalmente è da controllare se i risultati sono corretti, lo puoi fare con script messi a disposizione da altri
Divertiti
Baciccia
 
Ultima modifica:
M'è parso di leggere o aver sentito dire che siamo nel 2025.

Alcuni "fatti" sembrano smentire queste "notizie" forse create dall' Intelligenza Artificiale!

Codice:
Option Explicit
Sub Main
   'prima estrazione del Mese
   'Primo di NAPOLI +21
   'Primo di NAPOLI +61
   'I due risultati x ambata,ambo (OMESSO: ambetto) su Nazionale
   Dim Es,E,Nu(2),Ru(1),Po(1),Bi(2)
   Ru(1) = NZ_:Po(1) = 1 : Bi(2) = 1
   For Es = 9000 To EstrazioneFin :Messaggio EstrazioneFin - Es 
      If IndiceMensile(Es) = 1 Then
         E = Estratto(Es,NA_,1)
         Nu(1) = Fuori90(E + 21)
         Nu(2) = Fuori90(E + 61)
         Call ImpostaGiocata(1,Nu,Ru,Po,9,1)
         Call ImpostaGiocata(2,Nu,Ru,Bi,20,2)
         Gioca Es,1
      End If
   Next
   ScriviResoconto
End Sub

:) Buona giornata
 
Ultima modifica:
Ho modificato un pochino lo script al messaggio #11.

Per chi vuole seguire queste poche considerazioni e vuole riprodurle sul suo PC.

Innanzi tutto indice mensile (seguito da un numero) sta ad indicare che si considera "UNA Estrazione", tra le tante possibili.

Questa scelta presuppone l'esistenza di una ragione sottesa.

O perché è stata precedentemente svolta, una ricerca statistica, e questo riferimento serve a

SINCRONIZZARE ... i risultati (ottenuto dalla statistica) con le giocate ... che si vorrebbero vincenti.

E' un pò come dire: Giocare come e quando si deve e non a casaccio.

OPPURE serve semplicemente ad eliminare molte delle giocate che si genererebbero.

Le 15 o 20 estrazioni al mese ... diventano ... UNA.

Infatti c'è solo una prima estrazione ogni mese!

ORA ... passiamo al grafico del rendiconto.

Si osserva che l'area è divisa in tante righe e colonne.

Ci sono 10 linee orizzontali che suddividono lo spazio che possiamo considerale verticale.

Pertanto sono zero nell'origine e poi 10% - 20% - 30% - 40% ... e cosi via fino al 100%.

In orizzontale invece abbiamo delle divisioni che anch'esse partono da Zero e poi di 12 in 12 arrivano ad oggi a 120.

Perciò sono 12 - 24 - 36 - 48 ... fino a 120.

Descritte molto sommariamente le scale di cui compone il grafico "10 Righe" PER "10 Colonne"

suddividono l'area dell'intero grafico in "100 rettangoli" entro il quale sono disegnate alcune linee di diverso colore.

Immagine.jpg

La Linea Rossa in genere comincia dall'origine (ZERO-ZERO) in basso a sinistra per raggiungere il MASSIMO in alto a destra.

Divide il grafico in 2 PARTI.

Nella metà superiore "si vince" SOTTO SI PERDE.

Va da sé che in questo rendiconto è un metodo perdente.

Come si vede chiaramente ogni linea è composta di tanti punti uniti da dei trattini dello stesso colore ed allineati verticalmente.

Sono UNO per ogni caso ed avendo detto che si parla di uno ogni mese sono 12 / 24 / 36 mesi .

Il VALORE DI "A" sull'asse orizzontale è 30. Ovvero "A" rappresenta graficamente la giocata del 30° caso o mese.

IL VALORE DI B è sull'asse orizzontale è 71. Ovvero "B" rappresenta graficamente la giocata del 71° caso o mese.

La LINEA VERDE rappresenta le VINCITE.

Vediamo che cresce velocemente prima di "A" e subito dopo "B" e che invece è molto più orizzontale tra "A" e "B".

Ovvero per 42 giocate comprese tra "A" e "B" ed anche ... per 42 mesi.

Nel punto "A" dove la linea VERDE "Sovrasta" la linea ROSSA, si è detto che si sta vincendo.

Dunque in quel momento non si sta perdendo nulla ed il punto della FUXIA ... a rappresentare la perdita sarà a ZERO.

Rimane da descrivere la LINEA BLU ... che è presente solo in SPAZIOMETRIA. (Se non è stata opiata da altri)

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
Indietro
Alto