A volte basta uno script facile per tutti.

Codicebinario · 27 Aprile 2024

Codicebinario ha scritto:
Ciao Toon,anche io stavo facendo prove di verifica di CRONOVISORE ODL 2^ versione

VENUS SUD
BA 76.30.49.82.16 ----------------->76.49 E/A
NA 74.41.68.89.31 ----------------->41.89 E/A
PA 61.28.65.45.58 ------------------>45.58 E/A

TUTTA LA SUD ------------------>41.45.49.58.76.89 A/T/Q/C

il tutto a K6 dalla prossima estrazione.
per onestà intellettuale dico che PA ha' già sfornato l'ambo 61.65 al 16/04 ripetendo gli estratti poi 61 al 19/4 e 65 al 23/4........mahhhh ! "e staremo a vedere...."Sono solo studi e prove,a VOI "tutti" le scelte di gioco......SUERTEEEEE !!!!!

Questa è ancora valida...la avevo dimenticata......scusate

Missione Impossibile. · 27 Aprile 2024

Inserisco le nuove previsioni solo Bari le altre in corso Firenze Venezia Milano ultimo colpo.
Quelle con il doppio (*) sono i piu'probabili ,Non bisogna giocarle tutte,basta saper scegliere con le vostre convergenze.
Moderazione sempre!!!

Ciccio90 · 27 Aprile 2024

Missione Impossibile. ha scritto:
Puoi mettere lo scontrino se ti va,se no fa lo stesso,l importante averlo giocato.

Hai ragione, perdonami ma la prossima volta lo faccio fare a mia nipote.
Io non sono capace.

Missione Impossibile. · 27 Aprile 2024

E' Gia'

Codicebinario · 27 Aprile 2024

Eccomi qui.....tempo di merda ....va bè......al pari di qualcuno che qui(Batters)che decise tempo fa'di "regalare" a tutti uno o piu script di ricerca...QUESTO è il MIO REGALO.... CRONOVISORE versione 1....fatene buon uso...settatelo a "sentimento"vostro.....lo script è "guidato".CRONOVISORE nasce nel 2003 su LOTTODEUS (forum ormai scomparso dai monitor) ad opera mia e di DANIEL(Metus dei tempi) e di altri valenti soggetti...(Blackmore,Silent, Vincenzo967,ladyrouge,Erasmus) che ringrazio ancora per gli anni di convivenza ,collaborazione , studio ,amicizia"Guidate la vostra Vista...",Aguzzate il pensiero, Spero di aver fatto cosa gradita,buon "lavoro" :

Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)

poste(1)=1
post(2)=1

ruote(1)=1'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=10'---------------------------------------------------------------------->cambiare qui per ruota scelta
k=11'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile

=8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n
End If
Next
ColoreTesto 7:
ScriviResoconto
End Sub

toon · 27 Aprile 2024

Codice, grazie, Ti ho fatto qualche modifica, guarda se Ti va bene..

Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)
x = CInt(InputBox("Quale ruota per la ricerca?",,1))
x1 = CInt(InputBox("Seconda ruota di gioco",,10))
x2 = CInt(InputBox("Quanti colpi di gioco?",,11))

poste(1)=1
post(2)=1

ruote(1)=x'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=x1'---------------------------------------------------------------------->cambiare qui per ruota scelta
k= x2'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile

=8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n,1
End If
Next
ColoreTesto 1:
ScriviResoconto
End Sub

Codicebinario · 27 Aprile 2024

Codicebinario ha scritto:
Questa è ancora valida...la avevo dimenticata......scusate

NA ambata 41 e ambo in cinquina 41.31.... al secondo colpo!

al post 1681 trovate la "visione"

Missione Impossibile. · 27 Aprile 2024

Codicebinario ha scritto:
Eccomi qui.....tempo di merda ....va bè......al pari di qualcuno che qui(Batters)che decise tempo fa'di "regalare" a tutti uno o piu script di ricerca...QUESTO è il MIO REGALO.... CRONOVISORE versione 1....fatene buon uso...settatelo a "sentimento"vostro.....lo script è "guidato".CRONOVISORE nasce nel 2003 su LOTTODEUS (forum ormai scomparso dai monitor) ad opera mia e di DANIEL(Metus dei tempi) e di altri valenti soggetti...(Blackmore,Silent, Vincenzo967,ladyrouge,Erasmus) che ringrazio ancora per gli anni di convivenza ,collaborazione , studio ,amicizia"Guidate la vostra Vista...",Aguzzate il pensiero, Spero di aver fatto cosa gradita,buon "lavoro" :

Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)

poste(1)=1
post(2)=1

ruote(1)=1'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=10'---------------------------------------------------------------------->cambiare qui per ruota scelta
k=11'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile =8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n
End If
Next
ColoreTesto 7:
ScriviResoconto
End Sub

Grazie

Missione Impossibile. · 27 Aprile 2024

Missione Impossibile. ha scritto:
Inserisco le nuove previsioni solo Bari le altre in corso Firenze Venezia Milano ultimo colpo.
Quelle con il doppio (*) sono i piu'probabili ,Non bisogna giocarle tutte,basta saper scegliere con le vostre convergenze.
Moderazione sempre!!!

Vedi l'allegato 2282899

Abbiamo sfiorato molti ambi per colpa dei laterali,e quel 78 colpa mia,sapevo che era ancora pronto,ma va' cosi la vita.

Missione Impossibile. · 27 Aprile 2024

Codicebinario ha scritto:
NA ambata 41 e ambo in cinquina 41.31.... al secondo colpo!
al post 1681 trovate la "visione"

Evvaiii... Sempre grande.

Codicebinario · 27 Aprile 2024

toon ha scritto:
Codice, grazie, Ti ho fatto qualche modifica, guarda se Ti va bene..

Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)
x = CInt(InputBox("Quale ruota per la ricerca?",,1))
x1 = CInt(InputBox("Seconda ruota di gioco",,10))
x2 = CInt(InputBox("Quanti colpi di gioco?",,11))

poste(1)=1
post(2)=1

ruote(1)=x'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=x1'---------------------------------------------------------------------->cambiare qui per ruota scelta
k= x2'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile =8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n,1
End If
Next
ColoreTesto 1:
ScriviResoconto
End Sub

grazie Toon! é da sempre che,non sò perchè BA-VE hanno rispondenze positive...Ma ,se andiamo a guardare i responsi,quali sono qelli che rispondono ai colpi scelti?Mi spiego meglio,quale è il "ritardo" che meglio risponde ?
ed e' questa domanda che siamo partiti con i vari "CRONOVISORI"......da qui ho' fatto mille e milleprove usando diversi metodi....oggi sono arrivato al 6°CRONOVISORE usando frequenze,presenze,indici di probabilita calcolati su varie equazioni...ma non mi arrendo......

Codicebinario · 27 Aprile 2024

Codicebinario ha scritto:
grazie Toon! é da sempre che,non sò perchè BA-VE hanno rispondenze positive...Ma ,se andiamo a guardare i responsi,quali sono qelli che rispondono ai colpi scelti?Mi spiego meglio,quale è il "ritardo" che meglio risponde ?
ed e' questa domanda che siamo partiti con i vari "CRONOVISORI"......da qui ho' fatto mille e milleprove usando diversi metodi....oggi sono arrivato al 6°CRONOVISORE usando frequenze,presenze,indici di probabilita calcolati su varie equazioni...ma non mi arrendo......

GIAMMAI...."e staremo a vedere"....

Missione Impossibile. · 27 Aprile 2024

Missione Impossibile. ha scritto:
Amme' quel 8-9 a cagliari ci vuole prendere in giro con il 59-60 vedremo.

Cagliari
2x1 8-9 ambo
2x1 59-60 ambo
quartina per sorti superiori 8-9-59-60 x 5 colpi!!!

Dopo l'uscita del 9,ecco che abbiamo sfiorato ancora una volta l'ambo secco 59-60 ma giocato anche in ambetto.

Codicebinario · 27 Aprile 2024

Codicebinario ha scritto:
proseguiamo....IN REALTA' queste sono state calcolate con l'estrazione di oggi....ma sono stato pigro,e quindi qualcosa e già uscito----in rosso i sortiti

BA 60.1.58
CA 56.52.78
FI 76.90.75
GE 16.84.57
MI 15.45.20 - MI 66.81-------------------> aggiunta il 19/4--------------------->la mia preferita
NA 83.65.45
PA 65.52.76
RM 6.67.79
TO 47.52.22
VE 26.27.35 - VE 48.62--------------------> aggiunta il 19/4-------------------->la mia preferita
NZ 11.12.89

Fate attenzionie ai sortiti nelle ruote....sono sortiti un sacco di vertibili...e in genere poi sortiscono i lottroni previsti........

sono tutte ambate 3x1.....a 5K. Scusate se non sono stato lesto al postarle..."by the way" le ambate "viste" sono i primi 2 numeri della terzina...il terzo numererello è in accompagno all'ambo.....FATE IL VOSTRO GIOCO....

aggiornato al 19/4 ore 20,25 K2
aggiornato al 21/4 ore 14,20 K3
aggiornato al 24/4 ore 14,35 K4
aggiornato al 26/4 ore 20,45 K5

aggiornato al 27/4 ore 21,25 Kx prima estrazione fuori i K5 ancora 1

Codicebinario ha scritto:
Porca trota.....e continuano a girarci intorno...QUESTA DEVE DARMI L'AMBO!!!!!!!!!!!!!!!!!!!!!!!!!!

Missione Impossibile. · 27 Aprile 2024

Codicebinario ha scritto:
Eccomi qui.....tempo di merda ....va bè......al pari di qualcuno che qui(Batters)che decise tempo fa'di "regalare" a tutti uno o piu script di ricerca...QUESTO è il MIO REGALO.... CRONOVISORE versione 1....fatene buon uso...settatelo a "sentimento"vostro.....lo script è "guidato".CRONOVISORE nasce nel 2003 su LOTTODEUS (forum ormai scomparso dai monitor) ad opera mia e di DANIEL(Metus dei tempi) e di altri valenti soggetti...(Blackmore,Silent, Vincenzo967,ladyrouge,Erasmus) che ringrazio ancora per gli anni di convivenza ,collaborazione , studio ,amicizia"Guidate la vostra Vista...",Aguzzate il pensiero, Spero di aver fatto cosa gradita,buon "lavoro" :

Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)

poste(1)=1
post(2)=1

ruote(1)=1'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=10'---------------------------------------------------------------------->cambiare qui per ruota scelta
k=11'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile =8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n
End If
Next
ColoreTesto 7:
ScriviResoconto
End Sub

si potrebbe portare lo script al quasi 95% con un solo caso negativo cambiando 2 parametri di ricerca.

Codicebinario · 28 Aprile 2024

Missione Impossibile. ha scritto:
si potrebbe portare lo script al quasi 95% con un solo caso negativo cambiando 2 parametri di ricerca.

Buongiorno batters,Toon,buongiorno a "tutti gli abitanti del 3d".Come anticipato,lo script postato si presta a svariate condizioni di ricerca...se qualcuno ha' idee diverse dei settaggi ottimali ben vengano.
tra l'altro,da qualche parte dovrei avere anche la versione a piu ruote(fino a 5)...se lo ritrovo in mezzo a decine chiavette di script lo posto...Ora buon pranzo a tutti.A dopo.....

toon · 28 Aprile 2024

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

Missione Impossibile. · 28 Aprile 2024

X Codice e toon e tutti.
Provate questa impostazione se va bene.

Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)

poste(1) = 1
post(2) = 1

ruote(1) = 1'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2) = 10'---------------------------------------------------------------------->cambiare qui per ruota scelta
k = 15'----------------------------------------------------------------------------->cambiare qui per i colpi

For n = 10145 To EstrazioneFin
If IndiceMensile

= 1 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1) = Fuori90(Estratto(n,3,4) + Estratto(n,2,5) + 12)
rt = SerieRitardo(n - 252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è " & rt & " Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n
End If
Next
ColoreTesto 7:
ScriviResoconto
End Sub

Codicebinario · 28 Aprile 2024

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

grazie Toon !

Missione Impossibile. · 28 Aprile 2024

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

Grazie

A volte basta uno script facile per tutti.

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<