Novità

Richiesta per uno Script

80Sete

Advanced Member >PLATINUM PLUS<
Buona domenica Cinzia, o chi potrà aiutarmi,
avrei una richiesta per uno script, sottinteso senza fretta.
Vorrei fare una ricerca, unendo la decina di un X estratto di una X Ruota,
unirla all'unità di un X estratto di un'altra Ruota, di qualsiasi posizione,
con la possibilità di scegliere gli estratti e le Ruote a piacimento.
La ricerca vale per la 1° estrazione del Mese e possibilità anche su l'Ultima del Mese.
faccio un esempio a caso:
30 Aprile
BARI ............. 47 . 15 . 76 . 12 . 90
PALERMO ..... 64 . 28 . 55 . 18 . 76
Ambata 74 BA - PA
Ambata Secca senza il Vertibile.
Grazie Cinzia o a chi potrà farmi partire con la ricerca (y)
 
Eccolo, 80Sete.
Buona domenica a te e a tutti.

Codice:
'Si unisce la decina di un X estratto di una X Ruota,
'all'unità di un X estratto di un'altra Ruota, di qualsiasi posizione,
'con la possibilità di scegliere gli estratti e le Ruote a piacimento.
'La ricerca vale per la 1° estrazione del Mese e possibilità anche su l'Ultima del Mese

'Per 80Sete - script(Cinzia27)
Sub main()

Dim n(1),ps(1),ru(2)

ps(1)=1

r1=CInt(InputBox(" scegli la 1° ruota ",,1))
If r1="" Then Exit sub

r2=CInt(InputBox(" scegli la 1° ruota ",,2))
If r2="" Then Exit sub

p1=CInt(InputBox(" scegli la posizione del numero della 1° ruota ",,1))
If p1="" Then Exit sub

p2=CInt(InputBox(" scegli la posizione del numero della 2° ruota ",,1))
If p2="" Then Exit sub

i=CInt(InputBox(" scegli Indicemensile ",,1))
If i="" Then Exit sub

ru(1)=r1
ru(2)=r2



For es=7440 To EstrazioneFin
If Indicemensile(es) =i Or Indicemensile(es+1) =1 Then
n(1)=Decina(Estratto(es,r1,p1))&Cadenza(Estratto(es,r2,p2))
ImpostaGiocata 1,n,ru,ps,9,1
Gioca es
End if
Next

ScriviResoconto
End Sub
 
Grazie mille Cinzia, gentilissima e "scheggia" come sempre,
potrò divertirmi x un po', visto che non combino mai nulla di concreto.
Lo script funziona, l'unica cosa dopo aver impostato tutto mi appare questa :

Cinzia.jpg
clicco su OK e parte lo sviluppo regolarmente....
non conosco il significato, è normale che ci sia?
Grazie infinite ancora. (y)🥂
 
Non è normale. Anche a me lo fa con Spaziometria.
Se qualcuno che conosce bene Spaziometria ci sa dire il perché...
 
Ciao a Tutti.

Probabilmente il numero da giocare supera il 90, può capitare che la decina è 9 e la cadenza è più di zero, quindi risulta un numero più alto di 90, bisogna fare il fuori 90 del numero da giocare
 
Ciao, Salvo.
E' proprio come dici tu.
Infatti, ho provato ad inserire un numero qualsiasi e non mi dava errore.
Allora ho ovviato con un for (1° versione), nella 2° versione invece ho inserito il tuo fuori90 .
Grazie per il tuo intervento. Una domanda: come mai non risulta l' estrazione di ieri?

Codice:
'Si unisce la Decina di un X Estratto di una X Ruota,
'all'unità di un X estratto di un'altra Ruota, di qualsiasi posizione,
'con la possibilità di scegliere gli estratti e le Ruote a piacimento.
'La ricerca vale per la 1° estrazione del Mese e possibilità anche su l'Ultima del Mese

'Per 80Sete - script(Cinzia27)
Sub Main()

Dim n(1),ps(1),ru(2)

ps(1) = 1

r1 = CInt(InputBox(" scegli la 1° ruota ",,1))
If r1 = "" Then Exit Sub

r2 = CInt(InputBox(" scegli la 1° ruota ",,2))
If r2 = "" Then Exit Sub

p1 = CInt(InputBox(" scegli la posizione del numero della 1° ruota ",,1))
If p1 = "" Then Exit Sub

p2 = CInt(InputBox(" scegli la posizione del numero della 2° ruota ",,1))
If p2 = "" Then Exit Sub

ru(1) = r1
ru(2) = r2



For es = 7440 To EstrazioneFin
If IndiceMensile(es) = 1 Or IndiceMensile(es + 1) = 1 Then
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
For x = 1 To 90
If Decina(x) = Decina(a) And Cadenza(x) = Cadenza(b) Then
n(1) = x
ImpostaGiocata 1,n,ru,ps,9,1
Gioca es
End If

Next
End If
Next
ScriviResoconto
End Sub


Fuori 90

Codice:
'Si unisce la Decina di un X Estratto di una X Ruota,
'all'unità di un X estratto di un'altra Ruota, di qualsiasi posizione,
'con la possibilità di scegliere gli estratti e le Ruote a piacimento.
'La ricerca vale per la 1° estrazione del Mese e possibilità anche su l'Ultima del Mese

'Per 80Sete - script(Cinzia27)
Sub Main()

Dim n(1),ps(1),ru(2)

ps(1)=1

r1=CInt(InputBox(" scegli la 1° ruota ",,1))
If r1="" Then Exit Sub

r2=CInt(InputBox(" scegli la 1° ruota ",,2))
If r2="" Then Exit Sub

p1=CInt(InputBox(" scegli la posizione del numero della 1° ruota ",,1))
If p1="" Then Exit Sub

p2=CInt(InputBox(" scegli la posizione del numero della 2° ruota ",,1))
If p2="" Then Exit Sub

i=CInt(InputBox(" scegli Indicemensile ",,1))
If i="" Then Exit Sub

ru(1)=r1
ru(2)=r2



For es=7440 To EstrazioneFin
If IndiceMensile(es) =i Or IndiceMensile(es+1) =1 Then
n(1)=fuori90(Decina(Estratto(es,r1,p1))&Cadenza(Estratto(es,r2,p2)))
ImpostaGiocata 1,n,ru,ps,9,1
Gioca es
End If
Next

ScriviResoconto
End Sub
 
per dare l'estrazione di sabato devi usare

If IsUltimaDelMese(es) Then

il perche non me lo ricordo, l'aveva spiegato tempo fa Joe
 
Grazie, Salvo.
L' ultima c'è già, il problema è che non risulta ancora quella del 30/04
Appena ho Spaziometria libero provo questa istruzione, può darsi che dipenda da questa.
80Sete, spero che ora lo script sia ok.
 
Perfetto Cinzia, ho da rivedere il tutto, avevo scritto un intervento 3' fa
ma era sbagliato, comunque funziona tutto
grazie e buona serata ad entrambi.
Mi farò risentire (y)
 
Ultima modifica:
Ecco l' ultima versione coi suggerimenti di Salvo50, che ringrazio.
Facci sapere 80Sete se hai un' ambata super:)

Codice:
'Si unisce la Decina di un X Estratto di una X Ruota,
'all'unità di un X estratto di un'altra Ruota, di qualsiasi posizione,
'con la possibilità di scegliere gli estratti e le Ruote a piacimento.
'La ricerca vale per la 1° estrazione del Mese e possibilità anche su l'Ultima del Mese

'Per 80Sete - script(Cinzia27 e Salvo50)
Sub Main()

Dim n(1),ps(1),ru(2)

ps(1)=1

r1=CInt(InputBox(" scegli la 1° ruota ",,1))
If r1="" Then Exit Sub

r2=CInt(InputBox(" scegli la 1° ruota ",,2))
If r2="" Then Exit Sub

p1=CInt(InputBox(" scegli la posizione del numero della 1° ruota ",,1))
If p1="" Then Exit Sub

p2=CInt(InputBox(" scegli la posizione del numero della 2° ruota ",,1))
If p2="" Then Exit Sub

i=CInt(InputBox(" scegli Indicemensile ",,1))
If i="" Then Exit Sub

ru(1)=r1
ru(2)=r2



For es=7440 To EstrazioneFin
If IndiceMensile(es) =i Or IsUltimaDelMese(es) Then
n(1)=Fuori90(Decina(Estratto(es,r1,p1))&Cadenza(Estratto(es,r2,p2)))
ImpostaGiocata 1,n,ru,ps,9,1
Gioca es
End If
Next

ScriviResoconto
End Sub
 
Ciao Cinzia, ho provato questo ultimo, qualsiasi indice mensile tu scelga, viene sempre
inserita anche l'ultima del mese, ad esempio la 1° e l'ultima, la 5° e l'ultima, l'8° e l'ultima, etc etc...sarebbe da poter scegliere una singola estr.mensile, e anche solo l'ultima del mese quando le estrazioni sono 12 o 13 o 14.
L'ambata che ho trovato a mano e per caso....è dalla 1° del mese tra BA-CA, quindi dopo martedì la metterò bene in vista, sempre con nessuna certezza.
p.s. dove devi scegliere la 2° ruota di ricerca, è da togliere il e correggere con
è solo un errore di battitura.
Ciao
 
Si, 80Sete.
Se vuoi che sia presente un' opzione soltanto, usa questa versione seguendo la riga di commento
"Una delle 2 è da disattivare con apice davanti".


Codice:
'Si unisce la Decina di un X Estratto di una X Ruota,
'all'unità di un X estratto di un'altra Ruota, di qualsiasi posizione,
'con la possibilità di scegliere gli estratti e le Ruote a piacimento.
'La ricerca vale per la 1° estrazione del Mese e possibilità anche su l'Ultima del Mese

'Per 80Sete - script(Cinzia27 e Salvo50)
Sub Main()

Dim n(1),ps(1),ru(2)

ps(1)=1

r1=CInt(InputBox(" scegli la 1° ruota ",,1))
If r1="" Then Exit Sub

r2=CInt(InputBox(" scegli la 1° ruota ",,2))
If r2="" Then Exit Sub

p1=CInt(InputBox(" scegli la posizione del numero della 1° ruota ",,1))
If p1="" Then Exit Sub

p2=CInt(InputBox(" scegli la posizione del numero della 2° ruota ",,1))
If p2="" Then Exit Sub


ru(1)=r1
ru(2)=r2



For es=7440 To EstrazioneFin

'Una delle 2 è da disattivare con apice davanti
If IsUltimaDelMese(es)Then
'If IndiceMensile(es)=5 Then

n(1)=Fuori90(Decina(Estratto(es,r1,p1))&Cadenza(Estratto(es,r2,p2)))
ImpostaGiocata 1,n,ru,ps,9,1
Gioca es
End If
Next

ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11

Ultimi Messaggi

Indietro
Alto