A volte basta uno script facile per tutti.

[Missione Impossibile.]

Ah Mission volevo chiederti,ma il 55 di Napoli con quei 4 abbinamenti,rimane valida o con l'ambo di ieri sera è tutto sfaldato?

Rimane valido fino alla fine del mese

 

[Missione Impossibile.]

Per i miracoli andate a Camelot,li troverete mago merlino.Ma stiamo scherzando?

 

[Bepy78]

Rimane valido fino alla fine del mese

Grazie mille Mission

 

[[Andrei]]

Vedi l'allegato 2283839
Alla prossima

bro se esce a MI secco, nei prossimi colpi ti chiameremo "er profeta "

 

[Serpico 90]

Perfetto era quello che desideravo
Mille Grazie

Chiedo scusa se ho invaso il 3D ,spero che questa mia richiesta possa servire.
Ancora Grazie Toon
Buon proseguimento

Serpico

Buon di Toon e a chi ci legge.
Ti chiedo ancora una cortesia,sempre se possibile.
" la ciliegina sulla torta"
per aiutare ancora di più la mia vista.
Si possono aggiungere le estrazioni sortite accanto ad ogni ruota?

Per esempio ad ogni estrazione e per ogni ruota (solo esempio copiato ) 04/05/2024] [02.31.81.52.21]
Spero che sia possibile altrimenti NON Problem.
Buon pranzo

 

[Sakti]

Credo che il listato sia questo, ho aggiunto anche la sorte di Ambo, spero vada bene..

Anticipazione (Spoiler)

Option Explicit
Sub Main
'Ambata e Ambo su Settenarie Ultima del Mese 1° Estratto di Bari by Toon
Dim Ini,Fin,Es,R(5),K,R2,x,f,i,p1,a,Serpico90
Dim Nu(20),Num(10),poste(5),R1,R3,x1,x2
x1 = CInt(InputBox("Inserisci 1° Numero a Tua scelta",Serpico90,1))'
x2 = CInt(InputBox("Inserisci 2° Numero a Tua scelta",Serpico90,2))'
poste(1) = 1
poste(2) = 1
R1 = 1
p1 = 1
R2 = 2
R3 = 6
'---
Ini = EstrazioneFin - 400
Fin = EstrazioneFin
Scrivi "Ambata Settenaria",1,,,1,3,,1
For Es = Ini To Fin
If IsUltimaDelMese(Es) Then
' If IndiceMensile(Es) = 1 Then
'-----------------------------------
a = Estratto(Es,R1,p1)
K = K + 1
Nu(1) = a
'---
If Nu(1) = 1 Then
Nu(2) = 13
End If : If Nu(1) = 2 Then
Nu(2) = 26
End If : If Nu(1) = 3 Then
Nu(2) = 39
End If : If Nu(1) = 4 Then
Nu(2) = 52
End If : If Nu(1) = 5 Then
Nu(2) = 65
End If : If Nu(1) = 6 Then
Nu(2) = 78
End If : If Nu(1) = 7 Then
Nu(2) = 01
End If : If Nu(1) = 8 Then
Nu(2) = 14
End If : If Nu(1) = 9 Then
Nu(2) = 27
End If : If Nu(1) = 10 Then
Nu(2) = 40
End If : If Nu(1) = 11 Then
Nu(2) = 53
End If : If Nu(1) = 12 Then
Nu(2) = 66
End If : If Nu(1) = 13 Then
Nu(2) = 79
End If : If Nu(1) = 14 Then
Nu(2) = 02
End If : If Nu(1) = 15 Then
Nu(2) = 15
End If : If Nu(1) = 16 Then
Nu(2) = 28
End If : If Nu(1) = 17 Then
Nu(2) = 41
End If : If Nu(1) = 18 Then
Nu(2) = 54
End If : If Nu(1) = 19 Then
Nu(2) = 67
End If : If Nu(1) = 20 Then
Nu(2) = 80
End If : If Nu(1) = 21 Then
Nu(2) = 03
End If : If Nu(1) = 22 Then
Nu(2) = 16
End If : If Nu(1) = 23 Then
Nu(2) = 29
End If : If Nu(1) = 24 Then
Nu(2) = 42
End If : If Nu(1) = 25 Then
Nu(2) = 55
End If : If Nu(1) = 26 Then
Nu(2) = 68
End If : If Nu(1) = 27 Then
Nu(2) = 81
End If : If Nu(1) = 28 Then
Nu(2) = 04
End If : If Nu(1) = 29 Then
Nu(2) = 17
End If : If Nu(1) = 30 Then
Nu(2) = 30
End If : If Nu(1) = 31 Then
Nu(2) = 43
End If : If Nu(1) = 32 Then
Nu(2) = 56
End If : If Nu(1) = 33 Then
Nu(2) = 69
End If : If Nu(1) = 34 Then
Nu(2) = 82
End If : If Nu(1) = 35 Then
Nu(2) = 05
End If : If Nu(1) = 36 Then
Nu(2) = 18
End If : If Nu(1) = 37 Then
Nu(2) = 31
End If : If Nu(1) = 38 Then
Nu(2) = 44
End If : If Nu(1) = 39 Then
Nu(2) = 57
End If : If Nu(1) = 40 Then
Nu(2) = 70
End If : If Nu(1) = 41 Then
Nu(2) = 83
End If : If Nu(1) = 42 Then
Nu(2) = 06
End If : If Nu(1) = 43 Then
Nu(2) = 19
End If : If Nu(1) = 44 Then
Nu(2) = 32
End If : If Nu(1) = 45 Then
Nu(2) = 45
End If : If Nu(1) = 46 Then
Nu(2) = 58
End If : If Nu(1) = 47 Then
Nu(2) = 71
End If : If Nu(1) = 48 Then
Nu(2) = 84
End If : If Nu(1) = 49 Then
Nu(2) = 07
End If : If Nu(1) = 50 Then
Nu(2) = 20
End If : If Nu(1) = 51 Then
Nu(2) = 33
End If : If Nu(1) = 52 Then
Nu(2) = 46
End If : If Nu(1) = 53 Then
Nu(2) = 59
End If : If Nu(1) = 54 Then
Nu(2) = 72
End If : If Nu(1) = 55 Then
Nu(2) = 85
End If : If Nu(1) = 56 Then
Nu(2) = 08
End If : If Nu(1) = 57 Then
Nu(2) = 21
End If : If Nu(1) = 58 Then
Nu(2) = 34
End If : If Nu(1) = 59 Then
Nu(2) = 47
End If : If Nu(1) = 60 Then
Nu(2) = 60
End If : If Nu(1) = 61 Then
Nu(2) = 73
End If : If Nu(1) = 62 Then
Nu(2) = 86
End If : If Nu(1) = 63 Then
Nu(2) = 09
End If : If Nu(1) = 64 Then
Nu(2) = 22
End If : If Nu(1) = 65 Then
Nu(2) = 35
End If : If Nu(1) = 66 Then
Nu(2) = 48
End If : If Nu(1) = 67 Then
Nu(2) = 61
End If : If Nu(1) = 68 Then
Nu(2) = 74
End If : If Nu(1) = 69 Then
Nu(2) = 87
End If : If Nu(1) = 70 Then
Nu(2) = 10
End If : If Nu(1) = 71 Then
Nu(2) = 23
End If : If Nu(1) = 72 Then
Nu(2) = 36
End If : If Nu(1) = 73 Then
Nu(2) = 49
End If : If Nu(1) = 74 Then
Nu(2) = 62
End If : If Nu(1) = 75 Then
Nu(2) = 75
End If : If Nu(1) = 76 Then
Nu(2) = 88
End If : If Nu(1) = 77 Then
Nu(2) = 11
End If : If Nu(1) = 78 Then
Nu(2) = 24
End If : If Nu(1) = 79 Then
Nu(2) = 37
End If : If Nu(1) = 80 Then
Nu(2) = 50
End If : If Nu(1) = 81 Then
Nu(2) = 63
End If : If Nu(1) = 82 Then
Nu(2) = 76
End If : If Nu(1) = 83 Then
Nu(2) = 89
End If : If Nu(1) = 84 Then
Nu(2) = 12
End If : If Nu(1) = 85 Then
Nu(2) = 25
End If : If Nu(1) = 86 Then
Nu(2) = 38
End If : If Nu(1) = 87 Then
Nu(2) = 51
End If : If Nu(1) = 88 Then
Nu(2) = 64
End If : If Nu(1) = 89 Then
Nu(2) = 77
End If : If Nu(1) = 90 Then
Nu(2) = 90
End If
'----
R(1) = R1
R(2) = R2
R(3) = R3
'---
Num(1) = Nu(1)
Num(2) = 90 - Num(1)
Num(3) = x1
Num(4) = x2
EliminaRipetuti Num
'---
ColoreTesto 1
Scrivi "Ruota Estrazione " & SiglaRuota(1) & " --> " & StringaEstratti(Es,1)& " Ambata " & Nu(1),1
'--
ImpostaGiocata 1,Num,R,poste,18
ColoreTesto 0
Scrivi
Gioca Es,True,,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub

 

[Serpico 90]

Credo che il listato sia questo, ho aggiunto anche la sorte di Ambo, spero vada bene..

Anticipazione (Spoiler)

Option Explicit
Sub Main
'Ambata su Settenarie Ultima del Mese 1° Estratto di Bari by Toon
Dim Ini,Fin,Es,R(5),K,R2,x,f,i,p1,a,Serpico90
Dim Nu(20),Num(10),poste(5),R1,R3,x1,x2
x1 = CInt(InputBox("Inserisci 1° Numero a Tua scelta",Serpico90,1))'
x2 = CInt(InputBox("Inserisci 2° Numero a Tua scelta",Serpico90,2))'
poste(1) = 1
poste(2) = 1
R1 = 1
p1 = 1
R2 = 2
R3 = 6
'---
Ini = EstrazioneFin - 400
Fin = EstrazioneFin
Scrivi "Ambata Settenaria",1,,,1,3,,1
For Es = Ini To Fin
If IsUltimaDelMese(Es) Then
' If IndiceMensile(Es) = 1 Then
'-----------------------------------
a = Estratto(Es,R1,p1)
K = K + 1
Nu(1) = a
'---
If Nu(1) = 1 Then
Nu(2) = 13
End If : If Nu(1) = 2 Then
Nu(2) = 26
End If : If Nu(1) = 3 Then
Nu(2) = 39
End If : If Nu(1) = 4 Then
Nu(2) = 52
End If : If Nu(1) = 5 Then
Nu(2) = 65
End If : If Nu(1) = 6 Then
Nu(2) = 78
End If : If Nu(1) = 7 Then
Nu(2) = 01
End If : If Nu(1) = 8 Then
Nu(2) = 14
End If : If Nu(1) = 9 Then
Nu(2) = 27
End If : If Nu(1) = 10 Then
Nu(2) = 40
End If : If Nu(1) = 11 Then
Nu(2) = 53
End If : If Nu(1) = 12 Then
Nu(2) = 66
End If : If Nu(1) = 13 Then
Nu(2) = 79
End If : If Nu(1) = 14 Then
Nu(2) = 02
End If : If Nu(1) = 15 Then
Nu(2) = 15
End If : If Nu(1) = 16 Then
Nu(2) = 28
End If : If Nu(1) = 17 Then
Nu(2) = 41
End If : If Nu(1) = 18 Then
Nu(2) = 54
End If : If Nu(1) = 19 Then
Nu(2) = 67
End If : If Nu(1) = 20 Then
Nu(2) = 80
End If : If Nu(1) = 21 Then
Nu(2) = 03
End If : If Nu(1) = 22 Then
Nu(2) = 16
End If : If Nu(1) = 23 Then
Nu(2) = 29
End If : If Nu(1) = 24 Then
Nu(2) = 42
End If : If Nu(1) = 25 Then
Nu(2) = 55
End If : If Nu(1) = 26 Then
Nu(2) = 68
End If : If Nu(1) = 27 Then
Nu(2) = 81
End If : If Nu(1) = 28 Then
Nu(2) = 04
End If : If Nu(1) = 29 Then
Nu(2) = 17
End If : If Nu(1) = 30 Then
Nu(2) = 30
End If : If Nu(1) = 31 Then
Nu(2) = 43
End If : If Nu(1) = 32 Then
Nu(2) = 56
End If : If Nu(1) = 33 Then
Nu(2) = 69
End If : If Nu(1) = 34 Then
Nu(2) = 82
End If : If Nu(1) = 35 Then
Nu(2) = 05
End If : If Nu(1) = 36 Then
Nu(2) = 18
End If : If Nu(1) = 37 Then
Nu(2) = 31
End If : If Nu(1) = 38 Then
Nu(2) = 44
End If : If Nu(1) = 39 Then
Nu(2) = 57
End If : If Nu(1) = 40 Then
Nu(2) = 70
End If : If Nu(1) = 41 Then
Nu(2) = 83
End If : If Nu(1) = 42 Then
Nu(2) = 06
End If : If Nu(1) = 43 Then
Nu(2) = 19
End If : If Nu(1) = 44 Then
Nu(2) = 32
End If : If Nu(1) = 45 Then
Nu(2) = 45
End If : If Nu(1) = 46 Then
Nu(2) = 58
End If : If Nu(1) = 47 Then
Nu(2) = 71
End If : If Nu(1) = 48 Then
Nu(2) = 84
End If : If Nu(1) = 49 Then
Nu(2) = 07
End If : If Nu(1) = 50 Then
Nu(2) = 20
End If : If Nu(1) = 51 Then
Nu(2) = 33
End If : If Nu(1) = 52 Then
Nu(2) = 46
End If : If Nu(1) = 53 Then
Nu(2) = 59
End If : If Nu(1) = 54 Then
Nu(2) = 72
End If : If Nu(1) = 55 Then
Nu(2) = 85
End If : If Nu(1) = 56 Then
Nu(2) = 08
End If : If Nu(1) = 57 Then
Nu(2) = 21
End If : If Nu(1) = 58 Then
Nu(2) = 34
End If : If Nu(1) = 59 Then
Nu(2) = 47
End If : If Nu(1) = 60 Then
Nu(2) = 60
End If : If Nu(1) = 61 Then
Nu(2) = 73
End If : If Nu(1) = 62 Then
Nu(2) = 86
End If : If Nu(1) = 63 Then
Nu(2) = 09
End If : If Nu(1) = 64 Then
Nu(2) = 22
End If : If Nu(1) = 65 Then
Nu(2) = 35
End If : If Nu(1) = 66 Then
Nu(2) = 48
End If : If Nu(1) = 67 Then
Nu(2) = 61
End If : If Nu(1) = 68 Then
Nu(2) = 74
End If : If Nu(1) = 69 Then
Nu(2) = 87
End If : If Nu(1) = 70 Then
Nu(2) = 10
End If : If Nu(1) = 71 Then
Nu(2) = 23
End If : If Nu(1) = 72 Then
Nu(2) = 36
End If : If Nu(1) = 73 Then
Nu(2) = 49
End If : If Nu(1) = 74 Then
Nu(2) = 62
End If : If Nu(1) = 75 Then
Nu(2) = 75
End If : If Nu(1) = 76 Then
Nu(2) = 88
End If : If Nu(1) = 77 Then
Nu(2) = 11
End If : If Nu(1) = 78 Then
Nu(2) = 24
End If : If Nu(1) = 79 Then
Nu(2) = 37
End If : If Nu(1) = 80 Then
Nu(2) = 50
End If : If Nu(1) = 81 Then
Nu(2) = 63
End If : If Nu(1) = 82 Then
Nu(2) = 76
End If : If Nu(1) = 83 Then
Nu(2) = 89
End If : If Nu(1) = 84 Then
Nu(2) = 12
End If : If Nu(1) = 85 Then
Nu(2) = 25
End If : If Nu(1) = 86 Then
Nu(2) = 38
End If : If Nu(1) = 87 Then
Nu(2) = 51
End If : If Nu(1) = 88 Then
Nu(2) = 64
End If : If Nu(1) = 89 Then
Nu(2) = 77
End If : If Nu(1) = 90 Then
Nu(2) = 90
End If
'----
R(1) = R1
R(2) = R2
R(3) = R3
'---
Num(1) = Nu(1)
Num(2) = 90 - Num(1)
Num(3) = x1
Num(4) = x2
EliminaRipetuti Num
'---
ColoreTesto 1
Scrivi "Ruota Estrazione " & SiglaRuota(1) & " --> " & StringaEstratti(Es,1)& " Ambata " & Nu(1),1
'--
ImpostaGiocata 1,Num,R,poste,18
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub

Salve Toon....
Si il listato è questo .....
Purtroppo io mi spiego male.....come estratti io intendevo cosi:



Ruota Estrazione BA --> 89.15.09.38.43 Ambata 89
Estrazione generatrice del pronostico 10023 [156 - 30/12/2021]
G 0001 Numeri in gioco : 01.02.89 su BA CA NA per Estratto,Ambo
V N. [01.02.89 ] [CA] [.. .. 02 .. ..] C. 3 Estratto 10026 [ 3 - 07/01/2022] E.45.48.02.32.70
V N. [01.02.89 ] [NA] [01 .. .. .. ..] C. 3 Estratto 10026 [ 3 - 07/01/2022]E.01.46.22.60.39
V N. [01.02.89 ] [CA] [01 .. .. .. ..] C. 5 Estratto 10028 [ 5 - 11/01/2022]E.01.62.88.75.81
V N. [01.02.89 ] [BA] [01 .. .. .. ..] C. 7 Estratto 10030 [ 7 - 15/01/2022]E.01.73.47.90.88
In sostanza i numeri che sono sortiti insieme ai numeri del pronostico.
In modo di avere tutta la situazione sia prevista che estratta .

 

[Sakti]

Fatto, guarda se va bene..

 

[Serpico 90]

Fatto, guarda se va bene..

"CHI trova un amico trova un tesoro"
OTTIMAMENTE...
Ora mi verrà tutto piu semplce
Ogni tanto per "acchiappare un ambo" mettici il 45 o il 90.
Toon......mille grazie

Buon proseguimento

 

[Missione Impossibile.]

Non mollate mai il Futuro.
Vedi l'allegato 2283666

Cade il 58 nelle coppie,che voi state ignorando.

 

[tornado]

Previsione con futuro per 4 colpi
na 4-54 2x1
na-29-65 2x1

 

[Missione Impossibile.]

Per Toon riesci a fare questo script a tutte,inserendo numeri a piacere per ambo terno quaterna ...

Esce il 78-85 su tutte,io ci ho creduto e voi? Ma il mese non e' ancora finito!!!

 

[Sakti]

Al primo colpo Na 62 per gli altri pazienza..
CA.MI.NA 62
BA.CA.NA 08
MI.NA.RO 61
RO.TO ......74
MI.NA ......55
MI.PA ......09
BA.CA .....80
Per Terno e Quaterna a Tutte:
26.54.56.58.62.65

L'avete giocata la lunghetta? Terno a Roma 54 58 65 l'avevo data il 7 Maggio per tutto il mese...

 

[Missione Impossibile.]

Cade il 58 nelle coppie,che voi state ignorando.
Vedi l'allegato 2283922

Il 66 e' uscito,il 47 e' uscito, l 88 e' uscito, il 58 e' uscito, rimane il 30-79 e il 7-47 mancano 7 colpi!!!

 

[Missione Impossibile.]

L'avete giocata la lunghetta? Terno a Roma 54 58 65 l'avevo data il 7 Maggio per tutto il mese...

BRAVO Toon

 

[Codicebinario]

Ciao a tutti ,a stò giro,registro solo la caduta del 23 a BA (post 1767)"le ambate 2x1 a ruota del Cronovisore" cosi' siamo a 5 dall'inizio del gioco.Complimenti a Batters e Toon e a tutti i vincitori!

 

[Sakti]

Ecco le nuove Ambate per Tutti, di tutte quelle che ho dato, solo 3 sono
ancora in sospeso , le prime 3*:
*BA.CA.NA 08
*MI.NA.RO 61
*MI.NA 55
GE VE 46
BA 26 62
RO TO 38
BA 53 37
GE TO 01
MI NA 55
MI PA 20
MI NA 17

Uscita l'ambata GE e fatto solo ambo in cinquina MI 6 e 60 poi il Terno a TT con la lunghetta..

 

[Missione Impossibile.]

Io devo chiudere le previsioni mensile dopo ci saranno aggiornamenti . Non voglio dare troppi numeri, ma solo quelli probabili.

 

[Missione Impossibile.]

Nonsololotto.
Perché nel periodo del covid, i 62 Enni erano i più fragili,ed ora dopo il covid continuano a lavorare?

 

[Codicebinario]

Nonsololotto.
Perché nel periodo del covid, i 62 Enni erano i più fragili,ed ora dopo il covid continuano a lavorare?

PERCHE CI HANNO/VI HANNO PRESO PER IL CULO ! Io sono un "MAVERICK" cioe' un "capo di bestiame non marchiato", ZERO DOSI e ne sono fiero ho' pagato caro in termini di soldini,negazioni,oppressioni,imposizioni ... ma non hò mai chinato il capo..IO NON DIMENTICO NULLA nè PERDONO alla cosidetta "Scienzah" al soldo di squali che non frega un cazz dei popoli...

Potrei aprire dei capitoli di discussione sui vari aspetti della questione....e non voglio.Sò solo che quando "qualcuno" disse che vaccinarsi e' un dovere "NON TI VACCINI,TU MUORI" Dragone ,Mattarelluz,IL ministro HOPE....la cosa risuono' nella mia mente e scattò' la molla......oggi conto i morti e offesi dall'inoculo del sacro siero...la verità piano piano salta fuori...Purtroppo per la maggior parte del popolo è stata verità la scienzah...e a parer mio...TUTTA l'umanità globale adattatasi a questa tipo di vita(non parlo solo di vaccino,ma di modus vivendi ad ampio spetrò merita l'estinzione.Ben venga un meteorite capace di stravolgere il tutto...ben venga una guerra di proporzioni globali....alla fine chi rimarrà sarà scevro e illuminato da tutto quello che è questo di mondo di merda...I sopravvisuti cominceranno a ricostruire con un piano di coscienza superiore(almeno spero).

E a chiudere....a mio solito.....io la mia vita l'hò vissuata appieno,coi miei errori e le mie peripezie,le mie gioie e i miei dolori...prima o poi dovrò dire "Arrivederci a tutti" Che poi....."NUN M' PASS MANC PO' CAZZ" Non hò paura di morire E CHEST E' !!!!"