Novità

Script

scarfacetony

scarfacetony

Member
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:
Pandit ha scritto:
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
Clicca per espandere...


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
 
Pandit ha scritto:
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
Clicca per espandere...
Grazie,dovrebbe giocare solo su Nazionale
 
scarfacetony ha scritto:
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
Clicca per espandere...
mega.nz

14.43 MB file on MEGA

mega.nz mega.nz

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 : Po(1) = 1 : Bi(2) = 1
   For Es = 7440 To EstrazioneFin
      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
 
Devi accedere o registrarti per poter rispondere.

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
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto