x cinzia 27 vorrei uno script

[zagort]

sempre in attesa di cinzia o del nostro maestro joe che saluto cordialmente per la sua umilta ,disponibilita e correttezza che traspare nel 3d ,ho provato a rifare il listato ,e non sapendo creare un sub function per trovare la figura calcolata nella tua maniera diventa lungo e dispendioso,avendo messo un contatore e non conoscendo il motivo il programma non fa il suo dovere. probabile che sia il mio pc ,nel caso contrario tutto bene o a te di completarlo,altra cosa , gli zerati solo il 10 da figura 5 mentre gli altri solito calcolo es 20=7,con la figura 5 come la mettiamo diventa 0 e rigiochiamo il numero ????

'bari 1 numero 79 il terzo di cagliari era 6 ..(lo faccio piu' semplice supera o.5 per cui tolgo 5)
ok1=0
If Cadenza(b) = 0 Then c =(b - 5) : d = Fuori90(a + c): d1 = Vert(d) k1=1 '<<<<<<<come muoversi con gli zerati 20,30,40,50

If Cadenza(b) <>0 And Figura(b) => 6 Then c =(Figura(b) - 5):d = Fuori90(a + c) : d1 = Vert(d): ok1=1 Else c =(Figura(b) + 5): d = Fuori90(a + c) : d1 = Vert(d): ok1=1'3ca

'If b = 1 Then c =(6) : d = Fuori90(a + c): d1 = Vert(d) k1=1
'If b = 2 Then c =(7) : d = Fuori90(a + c): d1 = Vert(d) k1=1
'If b = 3 Then c =(8 ) : d = Fuori90(a + c): d1 = Vert(d) k1=1
'If b = 4 Then c =(9 ) : d = Fuori90(a + c): d1 = Vert(d) k1=1

nel caso non funge sopra ,in maniera arcana si operera con ogni numero

 

[joe]

Lascio questi risultati, da controllare.

10012 - 04/12/2021 66 38 56 21
10025 - 04/01/2022 74 21 82 27
10038 - 03/02/2022 60 68 50 15
10050 - 03/03/2022 20 30 63 02
10064 - 05/04/2022 19 09 07 68
10077 - 05/05/2022 43 68 03 17
10090 - 04/06/2022 67 41 81 24
10103 - 05/07/2022 39 84 43 75
10116 - 04/08/2022 90 69 07 73
10129 - 03/09/2022 66 11 41 68
10142 - 04/10/2022 02 77 04 54
10155 - 03/11/2022 57 03 25 15
10168 - 03/12/2022 80 58 85 17
10182 - 05/01/2023 69 39 14 62
10195 - 04/02/2023 22 03 03 48
10207 - 04/03/2023 75 59 11 16
10220 - 04/04/2023 02 76 72 09
10233 - 04/05/2023 07 51 08 16
10246 - 03/06/2023 41 76 09 25
10259 - 04/07/2023 23 15 72 03
10276 - 03/08/2023 77 78 89 39
10294 - 02/09/2023 06 70 78 76
10312 - 05/10/2023 35 42 09 23
10329 - 03/11/2023 35 47 75 85
10346 - 02/12/2023 18 34 40 06
10364 - 04/01/2024 31 29 16 05
10381 - 02/02/2024 80 84 64 27

 

[zagort]

Lascio questi risultati, da controllare.

10012 - 04/12/2021 66 38 56 21
10025 - 04/01/2022 74 21 82 27
10038 - 03/02/2022 60 68 50 15
10050 - 03/03/2022 20 30 63 02
10064 - 05/04/2022 19 09 07 68
10077 - 05/05/2022 43 68 03 17
10090 - 04/06/2022 67 41 81 24
10103 - 05/07/2022 39 84 43 75
10116 - 04/08/2022 90 69 07 73
10129 - 03/09/2022 66 11 41 68
10142 - 04/10/2022 02 77 04 54
10155 - 03/11/2022 57 03 25 15
10168 - 03/12/2022 80 58 85 17
10182 - 05/01/2023 69 39 14 62
10195 - 04/02/2023 22 03 03 48
10207 - 04/03/2023 75 59 11 16
10220 - 04/04/2023 02 76 72 09
10233 - 04/05/2023 07 51 08 16
10246 - 03/06/2023 41 76 09 25
10259 - 04/07/2023 23 15 72 03
10276 - 03/08/2023 77 78 89 39
10294 - 02/09/2023 06 70 78 76
10312 - 05/10/2023 35 42 09 23
10329 - 03/11/2023 35 47 75 85
10346 - 02/12/2023 18 34 40 06
10364 - 04/01/2024 31 29 16 05
10381 - 02/02/2024 80 84 64 27

jo io non mi,trovo tranne l ultima (ma ho il conflitto con gli zerati che mi porta 85) ...... ma hai operato su due estrazioni consecutive.?

********** attenzione adeleande adeleande c è un omino al volante ***********

04.02.2023 Bari 37.56.71.69.85 37-85 71
04.02.2023 Cagliari 57.90.80.51.18 80-51 -57°

Estrazione generatrice del pronostico 10388 [ 15 - 04/02/2023]
G 0001 Numeri in gioco : 50.05.38.83.03.30.48.84 su BA CA FI GE per Ambo,Terno
V N. [50.05.38.83.03.30.48.84 ] [BA] [.. 50 .. 48 ..] C. 2 Ambo 10390 [ 17 - 09/02/2023]
Interrotta per raggiunta durata


04.03.2023 Bari 67.36.33.08.03 67-03 33
04.03.2023 Cagliari 12.80.03.87.76 03-87 -12°

Estrazione generatrice del pronostico 10400 [ 27 - 04/03/2023]
G 0001 Numeri in gioco : 75.57.68.86.11.19.16.61 su BA CA FI GE per Ambo,Terno
V N. [75.57.68.86.11.19.16.61 ] [GE] [19 .. 86 .. 61] C. 1 Terno 10401 [ 28 - 07/03/2023]
Interrotta per raggiunta durata


04.04.2023 Bari 77.09.63.17.69 77-69 63
04.04.2023 Cagliari 35.41.20.84.19 20-84 -35°

Estrazione generatrice del pronostico 10413 [ 40 - 04/04/2023]
G 0001 Numeri in gioco : 84.48.85.58.72.27.09.90 su BA CA FI GE per Ambo,Terno
Interrotta per raggiunta durata


04.05.2023 Bari 87.21.15.69.06 87-06 15
04.05.2023 Cagliari 79.35.15.59.75 15-59 -79°

Estrazione generatrice del pronostico 10426 [ 53 - 04/05/2023]
G 0001 Numeri in gioco : 88.89.07.70.08.80.16.61 su BA CA FI GE per Ambo,Terno
V N. [88.89.07.70.08.80.16.61 ] [CA] [.. .. .. 80 88] C. 2 Ambo 10428 [ 55 - 09/05/2023]
Interrotta per raggiunta durata


03.06.2023 Bari 35.09.59.25.05 35-05 59
03.06.2023 Cagliari 63.73.01.46.56 01-46 -63°

Estrazione generatrice del pronostico 10439 [ 66 - 03/06/2023]
G 0001 Numeri in gioco : 41.14.41.14.09.90.25.52 su BA CA FI GE per Ambo,Terno
Interrotta per raggiunta durata


04.07.2023 Bari 11.51.12.01.68 11-68 12
04.07.2023 Cagliari 72.33.17.09.89 17-09 -72°

Estrazione generatrice del pronostico 10452 [ 79 - 04/07/2023]
G 0001 Numeri in gioco : 14.41.15.51.72.27.03.30 su BA CA FI GE per Ambo,Terno
Interrotta per raggiunta durata


03.08.2023 Bari 47.04.72.75.88 47-88 72
03.08.2023 Cagliari 24.49.35.36.53 35-36 -24°

Estrazione generatrice del pronostico 10469 [ 96 - 03/08/2023]
G 0001 Numeri in gioco : 50.05.51.15.89.88.39.33 su BA CA FI GE per Ambo,Terno
Interrotta per raggiunta durata


02.09.2023 Bari 70.29.60.19.75 70-75 60
02.09.2023 Cagliari 35.18.21.05.53 21-05 -35°

Estrazione generatrice del pronostico 10487 [114 - 02/09/2023]
G 0001 Numeri in gioco : 78.87.80.08.78.87.76.67 su BA CA FI GE per Ambo,Terno
Interrotta per raggiunta durata


05.10.2023 Bari 46.29.48.82.08 46-08 48
05.10.2023 Cagliari 51.64.74.81.27 74-81 -51°

Estrazione generatrice del pronostico 10505 [132 - 05/10/2023]
G 0001 Numeri in gioco : 53.35.50.05.09.90.23.32 su BA CA FI GE per Ambo,Terno
V N. [53.35.50.05.09.90.23.32 ] [CA] [53 90 .. .. ..] C. 1 Ambo 10506 [133 - 06/10/2023]
Interrotta per raggiunta durata


03.11.2023 Bari 80.70.23.05.67 80-67 23
03.11.2023 Cagliari 03.65.50.52.61 50-52 -03°

Estrazione generatrice del pronostico 10522 [149 - 03/11/2023]
G 0001 Numeri in gioco : 90.09.82.28.75.57.85.58 su BA CA FI GE per Ambo,Terno
Interrotta per raggiunta durata


02.12.2023 Bari 11.05.42.26.32 11-32 42
02.12.2023 Cagliari 75.74.02.28.48 02-28 -75°

Estrazione generatrice del pronostico 10539 [166 - 02/12/2023]
G 0001 Numeri in gioco : 18.81.17.71.40.04.06.60 su BA CA FI GE per Ambo,Terno
V N. [18.81.17.71.40.04.06.60 ] [FI] [.. 18 71 .. ..] C. 1 Ambo 10540 [167 - 05/12/2023]
V N. [18.81.17.71.40.04.06.60 ] [GE] [04 .. .. .. 81] C. 2 Ambo 10541 [168 - 07/12/2023]
Interrotta per raggiunta durata


04.01.2024 Bari 90.89.14.57.09 90-09 14
04.01.2024 Cagliari 02.44.36.24.89 36-24 -02°

Estrazione generatrice del pronostico 10557 [ 2 - 04/01/2024]
G 0001 Numeri in gioco : 04.40.01.10.16.61.50.05 su BA CA FI GE per Ambo,Terno
Interrotta per raggiunta durata


02.02.2024 Bari 79.15.43.08.60 79-60 43
02.02.2024 Cagliari 45.60.06.10.53 06-10 -45°

Estrazione generatrice del pronostico 10574 [ 19 - 02/02/2024]
G 0001 Numeri in gioco : 80.08.85.58.64.46.27.72 su BA CA FI GE per Ambo,Terno
V N. [80.08.85.58.64.46.27.72 ] [FI] [58 85 .. 80 ..] C. 2 Terno 10576 [ 21 - 06/02/2024]

 

[joe]

Ciao,

No. Avevo scritto quelle cose perchè leggendo la descrizione del "diametrale in decina"

avevo cercato le estrazioni ove questo calcolo si potesse applicare l'istruzione "DiametraleD".

Pertanto avevo trovato quelle 2 estrazioni che ho elencato ... in date successive,

anche perchè nella descrizione al primo messaggio è scritto: "alla 1.2 del mese",

che rende possibile possa trattarsi della prima e della seconda estrazione mensile.

Anche se non funzionava bene l'ho proposto per avere qualche riferimento di cui poter trattare.

Cambiando il calcolo del diametrale in decina ... cambia tutto.

La data fornita permette di trovare maggiore riscontro.

All'estrazione indicata si riescono a calcolare tutti i vari numeri.

Tuttavia ... solo chi ha una buona esperienza del metodo, può confermare la correttezza dei calcoli.

Perchè il solo esempio di questo unico caso ... potrebbe non essere sufficiente a convalidare tutti i risultati ottenuti.

Giustamente scrivi che ci sono "eccezioni" che meritano di essere confermate o corrette.

 

[Alien.]

Alien io ho un programma per estratti determinati ma ho notato che escono ambi secchi oltre che ambate se si fa il calcolo solo sulle ruote diametrali e gemelle .Ho desccritto i metodo ed oggi faccio calcolo carta e penna per separarli tu sai fare gli script oppure pago e lo chiedo a chi mi realizza i programmi.Uscito terzo colpo ambo secco torino 1-85

Ciao adele mi hai risposto ma è sparita la mia domanda,,,,,,,,,,,,,,,

 

[toon]

Di certo è migliorabile, ma ecco il listato richiesto..

Anticipazione (Spoiler)

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5)
x = InputBox("Quanti colpi di gioco?",,14)
y = InputBox("Quante estrazioni di ricerca?",,100)
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
'If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
co = 0
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n,ruote,poste,k
Gioca es,1
'End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub

 

[adeleadele]

Di certo è migliorabile, ma ecco il listato richiesto..

Anticipazione (Spoiler)

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5)
x = InputBox("Quanti colpi di gioco?",,14)
y = InputBox("Quante estrazioni di ricerca?",,100)
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
'If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
co = 0
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n,ruote,poste,k
Gioca es,1
'End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub

 

[adeleadele]

Grazie spero al più presto di provarlo per ora ho problemi con internet. Come ti è sembrato?Grazie di ❤️
Stamattina ho internet ma è favoloso ma l'ambata esce quasi sempre dopo pochi colpi e fa ambo con l'ambata di sotto certo io ne calcolo solo un paio perchè di solito seguo quello che piu' mi piace.Inoltre se notate dalla unione dei numeri ora è uscito 76 e 49 mah.Certo questi risultati sono favolosi.Siete bravissimi.Come si tolgono degli script su spaziometria ? purtroppo dopo che inserisco non mi compaiono tutti.Certo l'altro piu' facile è favoloso speriamo che L.M. non ci faccia lo scherzetto.Mentre osservavo questo metodo esempio escono sempre quelle ambate io lo faccio solo alla 1 del mese ma se uno ha una giocata ottima puo' inserire l'ambata.Poi con i numeretti e glia azzerati 24/11 Bari 10 e il terzo di cag era 51.1e6 cioè 16 o ...61 in 1 e terzaprima ha fatto ambo secco con 1 e 6 terzo colpo bari cagliari in posizione 16 e 61 ....Stupendo e contemporaneamente fir .ven assurdo.Questo è l'altro metodo che ho spiegato facile .Grazie di cuore stupendo script e guardate i risultati:
martedì, nov 21 2023 < BA 62.89.49.08.61 > < 29
martedì, nov 21 2023 < CA 30.81.62.29.68 > < 01

Estrazione generatrice del pronostico 10337 [157 - 21/11/2023]
G 0001 Numeri in gioco : 29.22.01.10.44.49 su BA CA per Ambo,Terno
V N. [29.22.01.10.44.49 ] [BA] [10 22 .. 29 ..] C. 2 Terno 10339 [159 - 24/11/2023]
Interrotta per raggiunta durata

.....Anch'io gioco a colpo o per un paio di colpi ma guardate questa interrotta .
giovedì, nov 23 2023 < BA 19.81.80.87.34 > < 39
giovedì, nov 23 2023 < CA 12.06.25.28.46 > < 47..........Cagliari ambata 47 o 74 ambo secco 30 dicembre senza considerare l'ambata senza considerare anche gli ambi secchi fatti con la sua figura il 2 o somma 11 .
Per cui il programma partendo dalle ambate solamente si puo' modificare in altre opzioni piu' semplici per chi ha difficoltà utilizzando le sole ambate .

Estrazione generatrice del pronostico 10338 [158 - 23/11/2023]
G 0001 Numeri in gioco : 39.33.47.74.88.89 su BA CA per Ambo,Terno
Interrotta per raggiunta durata
---------------------------questa
venerdì, nov 24 2023 < BA 10.22.04.29.75 > < 56figura 2
venerdì, nov 24 2023 < CA 22.80.51.65.50 > < 75 figura 3
2 Dicembre 75 ed ambetto2
bari il 56il 9 /12

 

[toon]

Ti ho messo la giocata alla prima del mese e ho aggiunto l'ambata.

Anticipazione (Spoiler)

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,500)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub

 

[adeleadele]

Toon ci sono riuscita a liberare un po spaziometria ma è favoloso!
giovedì, apr 1 2021 < BA 30.50.89.51.31 > < 24
giovedì, apr 1 2021 < CA 58.47.89.23.70 > < 53

Estrazione generatrice del pronostico 09906 [ 39 - 01/04/2021]
G 0001 Numeri in gioco : 24.42 su BA CA per Estratto
V N. [24.42 ] [BA] [24 .. .. .. 42] C. 3 Ambo 09909 [ 42 - 08/04/2021]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 24.42.53.35.38.83 su BA CA per Ambo,Terno
V N. [24.42.53.35.38.83 ] [BA] [53 .. 38 .. ..] C. 2 Ambo 09908 [ 41 - 06/04/2021]
V N. [24.42.53.35.38.83 ] [BA] [24 .. .. .. 42] C. 3 Ambo 09909 [ 42 - 08/04/2021]
V N. [24.42.53.35.38.83 ] [CA] [.. .. 83 38 ..] C. 4 Ambo 09910 [ 43 - 10/04/2021]
Interrotta per raggiunta durata

=========================================================================== caso n° 2
lunedì, mag 3 2021 < BA 42.57.78.18.43 > < 87
lunedì, mag 3 2021 < CA 17.52.50.63.38 > < 15

Estrazione generatrice del pronostico 09919 [ 52 - 03/05/2021]
G 0001 Numeri in gioco : 87.78 su BA CA per Estratto
V N. [87.78 ] [CA] [.. 87 .. .. ..] C. 7 Estratto 09926 [ 59 - 18/05/2021]
V N. [87.78 ] [CA] [.. .. .. .. 87] C. 8 Estratto 09927 [ 60 - 20/05/2021]
V N. [87.78 ] [BA] [.. .. .. 87 ..] C. 9 Estratto 09928 [ 61 - 22/05/2021]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 87.78.15.51.26.62 su BA CA per Ambo,Terno
V N. [87.78.15.51.26.62 ] [CA] [.. .. .. 15 87] C. 8 Ambo 09927 [ 60 - 20/05/2021]
Certo a volte solo l'ambata ma ci sono risultati stupendi
Estrazione generatrice del pronostico 10115 [ 92 - 02/08/2022]
G 0001 Numeri in gioco : 12.21 su BA CA per Estratto
V N. [12.21 ] [BA] [.. .. 12 .. ..] C. 1 Estratto 10116 [ 93 - 04/08/2022]
V N. [12.21 ] [CA] [.. .. .. .. 12] C. 6 Estratto 10121 [ 98 - 16/08/2022]
V N. [12.21 ] [BA] [.. .. 12 .. ..] C. 8 Estratto 10123 [100 - 20/08/2022]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 12.21.06.60.85.58 su BA CA per Ambo,Terno
V N. [12.21.06.60.85.58 ] [BA] [.. .. 12 .. 06] C. 1 Ambo 10116 [ 93 - 04/08/2022]
V N. [12.21.06.60.85.58 ] [CA] [.. 85 58 .. 12] C. 6 Terno 10121 [ 98 - 16/08/2022]
Interrotta per raggiunta durata
Con l'ambata in evidenza migliora! Grazie sei stato bravissiomo nell'interpretare ciò che ho scritto e mi frulla nella testa.Grazie di cuore

 

[adeleadele]

Come calcoli è uguale? manca solo l'ambata?

 

[toon]

Si, è uguale, e rende pure bene, hai fatto Tu un buon lavoro,
grazie anche a nome di chi lo utilizzerà.. 💪
Abbiamo avuto circa 2000 visite, quindi....

 

[Alien.]

PROVIAMO !

BARI
71	69
71	15
66	51

 

[adeleadele]

Alien esce anche la quaterna aggiungendo per chi vuole l'ambata ma io devo scriverla ed aggiungerla puoi mettere nei numeri infine facoltativo ? Toon io ho studi scientifici !guarda cosa ho notato veniva quaterna
guarda il 1 bari piu 3 meno terzo cag viene un numero che in lunghetta spesso da terno Magari tra parentesi se puoi aggiungere-
esempio
martedì, ago 1 2023 < BA 68.77.36.88.21 > < 57
martedì, ago 1 2023 < CA 03.50.84.31.56 > < 09

Estrazione generatrice del pronostico 10273 [ 93 - 01/08/2023]
G 0001 Numeri in gioco : 57.75 su BA CA per Estratto
V N. [57.75 ] [BA] [.. .. .. 75 ..] C. 1 Estratto 10274 [ 94 - 03/08/2023]
V N. [57.75 ] [BA] [.. 57 .. .. ..] C. 4 Estratto 10277 [ 97 - 08/08/2023]
Interrotta per raggiunta durata.(.ecco qui ambata aggiunta 12 cioè somma del 57 che poi 57 e 9 fa 66 sempre (((((((12 ))))))

G 0002 Numeri in gioco : 57.75.09.90.29.22 su BA CA per Ambo,Terno
V N. [57.75.09.90.29.22 ] [CA] [.. .. 75 29 90] C. 6 Terno 10279 [ 99 - 11/08/2023] qui si ha quaterna
Interrotta per raggiunta durata

=========================================================================== caso n° 30
venerdì, set 1 2023 < BA 86.06.10.19.20 > < 13
venerdì, set 1 2023 < CA 74.90.22.71.32 > < 67

Estrazione generatrice del pronostico 10291 [111 - 01/09/2023]
G 0001 Numeri in gioco : 13.31 su BA CA per Estratto
V N. [13.31 ] [BA] [13 .. .. .. ..] C. 2 Estratto 10293 [113 - 05/09/2023]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 13.31.67.76.21.12 su BA CA per Ambo,Terno
Interrotta per raggiunta durata
qui veniva 4 0 40qui non cambiava nulla

=========================================================================== caso n° 31



















Insomma solo un suggerimento per chi gioca la lunghetta naturalmente in base ai vostri calcoli









martedì, ott 3 2023 < BA 10.76.74.26.05 > < 46
martedì, ott 3 2023 < CA 17.52.41.29.10 > < 39

Estrazione generatrice del pronostico 10309 [129 - 03/10/2023]
G 0001 Numeri in gioco : 46.64 su BA CA per Estratto
V N. [46.64 ] [BA] [46 .. .. .. ..] C. 1 Estratto 10310 [130 - 05/10/2023]
V N. [46.64 ] [CA] [.. 64 .. .. ..] C. 1 Estratto 10310 [130 - 05/10/2023]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 46.64.39.33.12.21 su BA CA per Ambo,Terno qui verrebbe 10 anche se non si è modificato nulla
Interrotta per raggiunta durata

=========================================================================== caso n° 32
giovedì, nov 2 2023 < BA 54.20.02.63.81 > < 87
giovedì, nov 2 2023 < CA 70.60.38.83.20 > < 47

Estrazione generatrice del pronostico 10326 [146 - 02/11/2023]
G 0001 Numeri in gioco : 87.78 su BA CA per Estratto
V N. [87.78 ] [CA] [.. 78 .. .. ..] C. 3 Estratto 10329 [149 - 07/11/2023]
Interrotta per raggiunta durata
qui 15 e 6 non ha influito

G 0002 Numeri in gioco : 87.78.47.74.12.21 su BA CA per Ambo,Terno
Interrotta per raggiunta durata

=========================================================================== caso n° 33
venerdì, dic 1 2023 < BA 20.86.09.64.90 > < 39
venerdì, dic 1 2023 < CA 42.73.24.38.76 > < 58

Estrazione generatrice del pronostico 10343 [163 - 01/12/2023]
G 0001 Numeri in gioco : 39.33 su BA CA per Estratto
V N. [39.33 ] [CA] [.. 33 .. .. ..] C. 4 Estratto 10347 [167 - 09/12/2023]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 39.33.58.85.29.22 su BA CA per Ambo,Terno
V N. [39.33.58.85.29.22 ] [BA] [.. 22 .. .. 85] C. 3 Ambo 10346 [166 - 07/12/2023]
V N. [39.33.58.85.29.22 ] [BA] [.. 85 .. 33 ..] C. 6 Ambo 10349 [169 - 12/12/2023]
Interrotta per raggiunta durata qui 12 0 3

=========================================================================== caso n° 34
martedì, gen 2 2024 < BA 70.49.50.47.79 > < 17
martedì, gen 2 2024 < CA 50.38.42.29.18 > < 09

Estrazione generatrice del pronostico 10361 [ 1 - 02/01/2024]
G 0001 Numeri in gioco : 17.71 su BA CA per Estratto
V N. [17.71 ] [CA] [.. .. .. 71 ..] C. 2 Estratto 10363 [ 3 - 05/01/2024]
V N. [17.71 ] [BA] [.. .. 71 .. ..] C. 3 Estratto 10364 [ 4 - 08/01/2024]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 17.71.09.90.75.57 su BA CA per Ambo,Terno
V N. [17.71.09.90.75.57 ] [BA] [90 .. .. 57 09] C. 1 Terno 10362 [ 2 - 04/01/2024]
Interrotta per raggiunta durata
qui solo 8-80

=========================================================================== caso n° 35
giovedì, feb 1 2024 < BA 15.09.54.51.80 > < 67
giovedì, feb 1 2024 < CA 90.65.57.21.85 > < 36

Estrazione generatrice del pronostico 10378 [ 18 - 01/02/2024]
G 0001 Numeri in gioco : 67.76 su BA CA per Estratto
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 67.76.36.63.49.44 su BA CA per Ambo,Terno
V N. [67.76.36.63.49.44 ] [BA] [.. 76 .. .. 49] C. 11 Ambo 10389 [ 29 - 20/02/2024]
Interrotta per raggiunta durata
(qui veniva 13 e 4 ) dava terno

=========================================================================== caso n° 36
venerdì, mar 1 2024 < BA 32.07.77.74.88 > < 17
venerdì, mar 1 2024 < CA 41.78.80.34.74 > < 66

Estrazione generatrice del pronostico 10395 [ 35 - 01/03/2024]
G 0001 Numeri in gioco : 17.71 su BA CA per Estratto
In corso per altre 4 estrazioni
G 0002 Numeri in gioco : 17.71.66.69.15.51 su BA CA per Ambo,Terno

 

[adeleadele]

PROVIAMO !

BARI
71	69
71	15
66	51

Ti ho messo la giocata alla prima del mese e ho aggiunto l'ambata.

Anticipazione (Spoiler)

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,500)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(e),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(f),1
Scrivi
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'ruote(3) = 11 'Togliere l'apostrofo per la giocata su tutte
k = x
col = w
co = 0
n1(1) = e
n1(2) = Vert(e)
'...
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
n(5) = i
n(6) = Vert(i)
ImpostaGiocata 1,n1,ruote,posta,col
ImpostaGiocata 2,n,ruote,poste,k
Gioca es,1
End If 'Togliere l'apostrofo per la prima o ultima del mese
Next
ScriviResoconto
End Sub

Io non ci sono riuscita mettendo tutto il mese dei vedere nei due colpi se c'è una estrazione migliore.
Lo stesso su tutte ma solo due al massimo te io il fatto dell'apostrofo non so dove toglierlo e guarda se c'è una ruota migliore .

 

[toon]

Se mi spieghi meglio cosa devo aggiungere e a cosa, ci posso provare...
In spaziometria, quando guardi lo script, le scritte in verde hanno davanti l' apostrofo,
che praticamente escludono la riga dalla lettura, se vuoi giocare ogni estrazione del mese è sufficente mettere l'apostrofo (') davanti a " If IndiceMensile(es) = 1 Then" e alla fine dello script a " End If", così avrai visibili i risultati di tutte le estrazioni...

Così:

ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele -  ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
  Dim n(10),ruote(12),poste(5),posta(2),n1(2)
  w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
  x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
  y = InputBox("Quante estrazioni di ricerca?",,200)
  posta(1) = 1
  poste(2) = 1
  poste(3) = 1
  ini = EstrazioneFin - y
  fin = EstrazioneFin
  For es = ini To fin
     Messaggio es
     Call AvanzamentoElab(ini,fin,es)
     'If IsUltimaDelMese(es) Then      'Togliere l'apostrofo per l'ultima del mese
     'If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
        r1 = 1
        r2 = 2
        a = Estratto(es,r1,1)
        b = Estratto(es,r2,3)
        If b > 5 Then
           b = b - 5
        End If
        c = Estratto(es,r2,4)
        If Cadenza(c) = 0 Then
           c = c - 5
        End If
        e = Fuori90(a + b)
        f = Fuori90(a + c)
        g = Differenza(Decina(a),Cadenza(a))
        h = Figura(Estratto(es,r1,3))
        i = Fuori90(g & h)
        ok = 0
        ColoreTesto 1
        casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
        Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
        " > < " & Format2(e),1
        Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
        " > < " & Format2(f),1
        Scrivi
        ColoreTesto 0
        'ruote(1) = r1
        'ruote(2) = r2
        'ruote(3) = 11  'Togliere l'apostrofo per la giocata su tutte
        ruote(1) = 1: ruote(2) = 2:ruote(3) = 3:ruote(4) = 4:ruote(5) = 5:ruote(6) = 6:ruote(7) = 7:ruote(8) = 8:ruote(9) = 9:ruote(10) =10:ruote(12) =12
        k = x
        col = w
        co = 0
        n1(1) = e
        n1(2) = Vert(e)
        '...
        n(1) = e
        n(2) = Vert(e)
        n(3) = f
        n(4) = Vert(f)
        n(5) = i
        n(6) = Vert(i)
        ImpostaGiocata 1,n1,ruote,posta,col
        ImpostaGiocata 2,n,ruote,poste,k
        Gioca es,1
     'End If 'Togliere l'apostrofo per la prima o ultima del mese
  Next
  ScriviResoconto
End Sub

 

[adeleadele]

Allora volevo capire se per caso la previsione usciva contemporaneamente o prima in altre ruote e se si ripetono.Ti ricordi che a volte facciamole previsioni ed escono prima altrove ? in tal caso individuare le piu frequenti solo questo volevo capire .Ciao

 

[toon]

Nel precedente listato ho messo tutte le ruote singolarmente per una visione dei risultati più mirata..

 

[adeleadele]

per inseguire il 78 ho perso l'ambo secco a cagliari 30 e 14 ed ambata 61 a colpo
Estrazione generatrice del pronostico 10397 [ 37 - 05/03/2024]
G 0001 Numeri in gioco : 30.03 su BA CA per Estratto
V N. [30.03 ] [CA] [.. 30 .. .. ..] C. 1 Estratto 10398 [ 38 - 07/03/2024]

In corso per altre 9 estrazioni
G 0002 Numeri in gioco : 30.03.14.41.29.22 su BA CA per Ambo,Terno
V N. [30.03.14.41.29.22 ] [CA] [14 30 .. .. ..] C. 1 Ambo 10398 [ 38 - 07/03/2024]

 

[adeleadele]

Puoi chiamarmi? che ti scrivo il numero? ho da dirti qualcosa in merito al programma? se mi dici si ti scrivo il numero.Con il 61 e' uscito pure ambo secco e terno lo fa a bari ma. non vorrei svelare tutti i calcoli che la mia testa da matematica segue .Grazie Se giocate l' ultima previsione aggiungete Bari nella lunghetta 6 poi 16 o61 e 78 o(7-8) metterò tutti in lunghetta.Cagliari invece in lunghetta aggiungi 70