Novità

A volte basta uno script facile per tutti.

Buongiorno ragazzacci,Batters,Toon e a tutti gli "abitanti del 3d"...
Ieri non sono riuscito ad aggiornare...stav m'briac...(ohhh ma quanto "pesa" l'Aglianico del Vulture"...13,5 gradi...)

"by the way" ecco che e' successo ieri

post N° 1764 NZ AMBO in riunita e ambata
post N° 1767 CA 54 colpita e affondata
post N° 1806 MI 81.25 Ambo in quartina e lunghetta a TT (ma questa non fa' testo perche avevo detto di osservare e non giocare ....solo studio....)
 
Missione Impossibile. ha scritto:
Non mollate mai il Futuro.
Vedi l'allegato 2283666
Clicca per espandere...
Bari spia 27.PNG
Ora per farvi capire la differenza delle due immagini dopo le spie 27-28 uscite il 9/5/2024
dopo la spia 28 il numero 88 ha 7 presenze ed il 47 solo 4 presenze l 88 esce al 1°colpo e il 47 al 2° colpo con l 88 in ambo non ci credevo ma sono usciti insieme peccato.

Ora per farvi capire dopo la spia 27 il 47 aveva 9 presenze uscito con l 88 ieri.Se si osservano queste piccolezze con presenze alte si puo' vincere anche l'ambo,basti osservare. Con questo vi lascio con le coppie al 100 quelle con ritardo 7/10.
Saluti e buona domenica a tutti.
 
Oggi e' la festa della mamma...sono andato a trovarla...al suo ultimo domicilio...e confesso a Voi tutti...una lacrima è scappata...a LEI vorrei dedicare uno scritto di Erri De luca...partenopeo come me:

ERRI DE LUCA​

A mia madre​


In te sono stato albume, uovo, pesce,
le ere sconfinate della terra
ho attraversato nella tua placenta,
fuori di te sono contato a giorni.

In te sono passato da cellula a scheletro
un milione di volte mi sono ingrandito,
fuori di te l’accrescimento è stato immensamente meno.

Sono sgusciato dalla tua pienezza
senza lasciarti vuota perché il vuoto
l’ho portato con me.

Sono venuto nudo, mi hai coperto
così ho imparato nudità e pudore
il latte e la sua assenza.

Mi hai messo in bocca tutte le parole
a cucchiaini, tranne una: mamma.
Quella l’inventa il figlio sbattendo le due labbra
quella l’insegna il figlio.

Da te ho preso le voci del mio luogo,
le canzoni, le ingiurie, gli scongiuri,
da te ho ascoltato il primo libro
dietro la febbre della scarlattina.

Ti ho dato aiuto a vomitare, a friggere le pizze,
a scrivere una lettera, ad accendere un fuoco,
a finire parole crociate, ti ho versato del vino
e ho macchiato la tavola,
non ti ho messo un nipote sulle gambe
non ti ho fatto bussare a una prigione
non ancora,
da te ho imparato il lutto e l’ora di finirlo,
a tuo padre somiglio, a tuo fratello,
non sono stato figlio.
Da te ho preso gli occhi chiari
Non il loro peso
A te ho nascosto tutto.

Ho promesso di bruciare il tuo corpo
di non darlo alla terra. Ti darò al fuoco
fratello del vulcano che ci orientava il sonno.

Ti spargerò nell’aria dopo l’acquazzone
all’ora dell’arcobaleno
che ti faceva spalancare gli occhi.

Ciao Mà.

Scusate tutti per lo sfogo.
 
toon ha scritto:
Un regalo a Tutti gli amanti dell'Ambata...
Buona Domenica a Codice , Missione e Tutti quelli che ci seguono..
;)
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
Dim Nu(20),Num(10),poste(5),R1,R3
poste(1) = 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)
EliminaRipetuti Num
'---
Scrivi DataEstrazione(Es) & " Spia " & Nu(1) & " Ambata " & Nu(2),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
Clicca per espandere...
Buon giorno Toon e a tutti quelli che leggono....
Chiedo una cortesia se ti viene possibile
su questo script si potrebbe aggiungere con Impt Box l'inserimento di due numeri a mio piacimento di volta in volta?
In modo che vado a formare una quartina per ambo da giocare sempre sulle ruote indicate del tuo OTTIMO Script.
Questa mia richiesta mi allieverebbe tanto nella ricerca poichè la mia vista non mi aiuta più come quando ero giovane.
Scusa se ti ho scritto qui ma non sono tanto pratico.
In attesa di una gradita risposta positiva VI invio cordiali saluti
Serpico
 
Codicebinario ha scritto:
Oggi e' la festa della mamma...sono andato a trovarla...al suo ultimo domicilio...e confesso a Voi tutti...una lacrima è scappata...a LEI vorrei dedicare uno scritto di Erri De luca...partenopeo come me:

ERRI DE LUCA​

A mia madre​


In te sono stato albume, uovo, pesce,
le ere sconfinate della terra
ho attraversato nella tua placenta,
fuori di te sono contato a giorni.

In te sono passato da cellula a scheletro
un milione di volte mi sono ingrandito,
fuori di te l’accrescimento è stato immensamente meno.

Sono sgusciato dalla tua pienezza
senza lasciarti vuota perché il vuoto
l’ho portato con me.

Sono venuto nudo, mi hai coperto
così ho imparato nudità e pudore
il latte e la sua assenza.

Mi hai messo in bocca tutte le parole
a cucchiaini, tranne una: mamma.
Quella l’inventa il figlio sbattendo le due labbra
quella l’insegna il figlio.

Da te ho preso le voci del mio luogo,
le canzoni, le ingiurie, gli scongiuri,
da te ho ascoltato il primo libro
dietro la febbre della scarlattina.

Ti ho dato aiuto a vomitare, a friggere le pizze,
a scrivere una lettera, ad accendere un fuoco,
a finire parole crociate, ti ho versato del vino
e ho macchiato la tavola,
non ti ho messo un nipote sulle gambe
non ti ho fatto bussare a una prigione
non ancora,
da te ho imparato il lutto e l’ora di finirlo,
a tuo padre somiglio, a tuo fratello,
non sono stato figlio.
Da te ho preso gli occhi chiari
Non il loro peso
A te ho nascosto tutto.

Ho promesso di bruciare il tuo corpo
di non darlo alla terra. Ti darò al fuoco
fratello del vulcano che ci orientava il sonno.

Ti spargerò nell’aria dopo l’acquazzone
all’ora dell’arcobaleno
che ti faceva spalancare gli occhi.

Ciao Mà.

Scusate tutti per lo sfogo.
Clicca per espandere...
non credo c'è bisogno di scusarsi , sono io a scusarmi con te, ignoriamo sempre la bellezza delle persone nel loro stato d'animo, diviso da un monitor ed una tastiera , sembra quasi non aver mai il tempo da dedicare alla profondità di esse e a quanto possono in realtà regalarci arricchirci è necessario tornare indietro; a quei semplici gesti di un tempo , il semplice ascolto ,una parola di un amico sincero ,un abbraccio la condivisione di un dolore per alleggerire il peso ,ignoravo la bellezza di questa poesia del grande Scrittore ed Uomo Erri de luca,
meravigliosa meravigliosa ..c'è un detto" puoi avere tutta la cultura e la conoscenza del mondo ,ma se ti mancano quelle due /tre cose che ti insegna tua Madre fin da piccolo non vi è modo alcuno di essere una persona migliore verso il tuo prossimo".
anch'io saluto la mia cara Mamma e la tua cara Mamma.
 
Ultima modifica:
X Batters e Toon e per tutti "gli a bitanti del 3d",Fra le migliaia di script sparsi fra chiavette e pc ho scovato queso ad opera di BEPPIGNELLO ,un grande appassionato di statistica e del gioco del lotto(che saluto con immensa stima e doveroso rispetto ,casomai dovesse passare di qua). Batters prova un po'......
 

Allegati

toon ha scritto:
Perdonami Serpico 90 ma se ti aggiungo l'imput di due numeri esce una terzina non una quartina, se vuoi un'altro numero fammi sapere... Se va bene la terzina, dammene conferma..;)
Clicca per espandere...
Intanto Grazie per aver risposto.
molto probabilmente mi sono espresso male.
Io desidero abbinare ai tuoi numeri che escono dalla previsione DUE MIEI NUMERI CHE DIVENTATO CAPI GIOCO e quindi formo una quartina. Due numeri dello script e due numeri da mia ricerca che saranno fissi .
Poi quando ci sarà una nuova previsione avrò i NUOVI TUOI DUE NUMERI CON I MIEI NUOVI NUMERI CHE SARANNO SEMPRE FISSI.
Io non sono pratico di script credo che occorre fare una modifica aggiungendo la richiesta di due numeri che non vengono fuori dalla tua ricerca ma da mie previsioni per quelle ruotei.
Mi permetto di fare un esempio
Ambata Settenaria
30.03.2024 Spia 39 Ambata 57
Estrazione generatrice del pronostico 10414 [ 52 - 30/03/2024]
G 0001 Numeri in gioco : 39 su BA CA NA per Estratto
G:0002 Numeri gioco 39.57.3375

V N. [39 ] [CA] [.. 39 .. .. ..] C. 1 Estratto 10415 [ 53 - 02/04/2024]
V N. [39 ] [CA] [.. .. .. 39 ..] C. 5 Estratto 10419 [ 57 - 09/04/2024]
V N. [39 ] [CA] [.. .. .. 39 ..] C. 9 Estratto 10423 [ 61 - 16/04/2024]
V N. [39 ] [BA] [.. 39 .. .. ..] C. 10 Estratto 10424 [ 62 - 18/04/2024]
V N. [39 ] [BA] [39 .. .. .. ..] C. 11 Estratto 10425 [ 63 - 19/04/2024]
Interrotta per raggiunta durata
Ai tuoi due numeri 39-57.....
aggiungo 33 75.......
la quartina in gioco diventa 39.57.33.75 per BA:CA:NA.
come si puo fare per aggiungere i mie due numeri e poi vedere l'esito ?.


---------------------------------------------------------------------------------------------------------
30.04.2024 Spia 8 Ambata 14
Estrazione generatrice del pronostico 10431 [ 69 - 30/04/2024]
G 0001 Numeri in gioco : 08 su BA CA NA per Estratto
G.0002 Nuneri in gioco 8.14.9.54
aggiungo 9.54
la quartina in gioco diventa 8.14.9.54
V N. [08 ] [BA] [.. .. 08 .. ..] C. 2 Estratto 10433 [ 71 - 03/05/2024]

In corso per altre 11 estrazioni
 
Ultima modifica:
Codicebinario ha scritto:
X Batters e Toon e per tutti "gli a bitanti del 3d",Fra le migliaia di script sparsi fra chiavette e pc ho scovato queso ad opera di BEPPIGNELLO ,un grande appassionato di statistica e del gioco del lotto(che saluto con immensa stima e doveroso rispetto ,casomai dovesse passare di qua). Batters prova un po'......
Clicca per espandere...
Scusi se la disturbo. Ho provato lo script ma mi da errore di Overfloe.
Linea 97 col. 8
Errore di runtime di vbscript
 
Codicebinario ha scritto:
X Batters e Toon e per tutti "gli a bitanti del 3d",Fra le migliaia di script sparsi fra chiavette e pc ho scovato queso ad opera di BEPPIGNELLO ,un grande appassionato di statistica e del gioco del lotto(che saluto con immensa stima e doveroso rispetto ,casomai dovesse passare di qua). Batters prova un po'......
Clicca per espandere...
ringrazio per questo splendido gioiello , sono script di alto Livello non tutti riescono a comprenderne l'utilizzo ,ne ho diversi anche io facendo fatica a comprenderli se fa piacere posso postare quello che ho ,ma non vorrei invadere un 3d deviando l'interesse principale .
se puo' essere di interesse li posto attendo vostre.
ps. qualcuno è pratico con python?
 
Ti ho aggiunto il secondo numero, perchè dal listato usciva solo l'ambata, vedi se ti va bene...
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
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
'---
Scrivi DataEstrazione(Es) & " Spia " & Nu(1) & " Ambata " & Nu(2),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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 novembre 2024
    Bari
    35
    16
    24
    41
    85
    Cagliari
    89
    30
    10
    81
    72
    Firenze
    38
    60
    16
    13
    28
    Genova
    52
    15
    80
    08
    53
    Milano
    33
    77
    06
    54
    73
    Napoli
    01
    50
    64
    35
    36
    Palermo
    02
    01
    19
    33
    62
    Roma
    33
    48
    72
    47
    68
    Torino
    62
    28
    18
    75
    31
    Venezia
    03
    54
    27
    14
    71
    Nazionale
    02
    44
    27
    86
    78
    Estrazione Simbolotto
    Torino
    30
    07
    39
    14
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto