Richiesta per uno Script

[80Sete]

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

 

[Cinzia27]

Eccolo, 80Sete.
Buona domenica a te e a tutti.

'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

 

[80Sete]

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 :


clicco su OK e parte lo sviluppo regolarmente....
non conosco il significato, è normale che ci sia?
Grazie infinite ancora.

 

[Cinzia27]

Non è normale. Anche a me lo fa con Spaziometria.
Se qualcuno che conosce bene Spaziometria ci sa dire il perché...

 

[salvo50]

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

 

[Cinzia27]

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?

'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

'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

 

[salvo50]

per dare l'estrazione di sabato devi usare

If IsUltimaDelMese(es) Then

il perche non me lo ricordo, l'aveva spiegato tempo fa Joe

 

[Cinzia27]

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.

 

[80Sete]

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

 

[Cinzia27]

Ecco l' ultima versione coi suggerimenti di Salvo50, che ringrazio.
Facci sapere 80Sete se hai un' ambata super

'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

 

[80Sete]

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 1° e correggere con 2°
è solo un errore di battitura.
Ciao

 

[Cinzia27]

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".

'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

 

[80Sete]

Buona settimana a tutti, grazie Cinzia & Salvo ora tutto ok,
resta solo darsi da fare nella ricerca.
mandi mandi dal Friuli