Per Xeroxs e Marco-elle, script sommativo con statistica interessante

[s.studio]

Buonasera a tutti, ma in special modo a Xeroxs e Marco-Elle!
Tra mille prove, ho tirato fuori questo script sommativo, con una statistica interessante..
Scrivo principalmente a Voi Marco-elle e Xeroxs, e mi scuso anticipatamente per il disturbo, perchè ho seguito molti vostri studi sommativi, e credo possiate dare del vostro su questo.
Non sono bravo con gli script quindi l'ho costruito in maniera molto basica.



Sub Main() ColoreTesto 3
Scrivi
Scrivi " 2 terzine + 1 sestina su Milano alla 1° estrazione del mese",1
Scrivi
Scrivi
Scrivi " metodo Lotto_Easy ",1
Scrivi
ColoreTesto 0
Dim ruote(3)
Dim gi1(3): Dim gi2(3) : Dim gi3(6) : Dim gi4(6) : Dim gi5(5) : Dim poste(4) : Dim postee(4)
poste(2) = 1
poste(3) = 1
poste(4) = 0.5
postee(2) = 1
postee(3) = 1
'postee(4) = 0.5
klp = 13
ini = 9910
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 5
ruote(2) = 11
ruote(3) = 12
casi = casi + 1
co = co + 1
ColoreTesto 6:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 6:Scrivi String(100,"°")
ColoreTesto 0
gi1(1) = Fuori90(Estratto(es,5,3) + Estratto(es,6,2))
gi1(2) = Fuori90(Estratto(es,7,5) + 75)
gi1(3) = Fuori90(Estratto(es,8,4) + 43)
ImpostaGiocata 1,gi1,ruote,postee,klp
gi2(1) = Fuori90(Estratto(es,6,2) + 28)
gi2(2) = Fuori90(Estratto(es,7,4) + 75)
gi2(3) = Fuori90(90 +(Estratto(es,10,5)) + 78)

ImpostaGiocata 2,gi2,ruote,poste,klp
gi3(1) = gi1(1)
gi3(2) = gi1(2)
gi3(3) = gi1(3)
gi3(4) = gi2(1)
gi3(5) = gi2(2)
gi3(6) = gi2(3)


EliminaRipetuti gi3


ImpostaGiocata 3,gi3,ruote,poste,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi " Condizioni rilevate " & CInt(co)
ScriviResoconto
End Sub


Spero di aver fatto cosa gradita, col salutarvi, rinnovo la mia stima nei confronti di Xeroxs e Marco.
E 'doveroso , inoltre , menzionare il Grandissimo LuigiB, per il programma che ha regalato al mondo!

 

[Alien.]

Ciao seba. non male ottimo se lottomatica non ci mette lo zampino faremo .........faville............... grazie.

 

[Marco-elle]

Ciao e grazie x la stima,
è sempre bello e appagante vedere statistiche pirotecniche,
Con la prossima condizione,magari puoi aprire un post oppure
continuare su questo e vediamo se .....riusciamo a sbancare in massa

 

[Tizi]

Ciao, quindi che previsione esce?? scusate ma non ho capito nulla!!!!!

Grazieee

 

[Alien.]

Ciao, quindi che previsione esce?? scusate ma non ho capito nulla!!!!!

Grazieee

Nessun pronostico in gioco, bisogna aspettare la prima estrazione di AGOSTO poi si gioca dalla seconda estrazione di AGOSTO,

 

[s.studio]

Ciao, quindi che previsione esce?? scusate ma non ho capito nulla!!!!!

Grazieee

Ciao, la previsione la posterò dopo la prima estrazione di Agosto!

 

[Tizi]

GRAZIEEEE

 

[Tessa23]

Ciao, la previsione la posterò dopo la prima estrazione di Agosto!

Grazie

 

[Nek Kina]

Ciao, la previsione la posterò dopo la prima estrazione di Agosto!

Giugno-luglio ha dato qualcosa di straordinario Complimenti seba.stydio

 

[sandrina50]

Giugno-luglio ha dato qualcosa di straordinario Complimenti seba.stydio

Allora se non c'è 2 senza 3 ..........

 

[sandrina50]

Buonasera a tutti, ma in special modo a Xeroxs e Marco-Elle!
Tra mille prove, ho tirato fuori questo script sommativo, con una statistica interessante..
Scrivo principalmente a Voi Marco-elle e Xeroxs, e mi scuso anticipatamente per il disturbo, perchè ho seguito molti vostri studi sommativi, e credo possiate dare del vostro su questo.
Non sono bravo con gli script quindi l'ho costruito in maniera molto basica.



Sub Main() ColoreTesto 3
Scrivi
Scrivi " 2 terzine + 1 sestina su Milano alla 1° estrazione del mese",1
Scrivi
Scrivi
Scrivi " metodo Lotto_Easy ",1
Scrivi
ColoreTesto 0
Dim ruote(3)
Dim gi1(3): Dim gi2(3) : Dim gi3(6) : Dim gi4(6) : Dim gi5(5) : Dim poste(4) : Dim postee(4)
poste(2) = 1
poste(3) = 1
poste(4) = 0.5
postee(2) = 1
postee(3) = 1
'postee(4) = 0.5
klp = 13
ini = 9910
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 5
ruote(2) = 11
ruote(3) = 12
casi = casi + 1
co = co + 1
ColoreTesto 6:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 6:Scrivi String(100,"°")
ColoreTesto 0
gi1(1) = Fuori90(Estratto(es,5,3) + Estratto(es,6,2))
gi1(2) = Fuori90(Estratto(es,7,5) + 75)
gi1(3) = Fuori90(Estratto(es,8,4) + 43)
ImpostaGiocata 1,gi1,ruote,postee,klp
gi2(1) = Fuori90(Estratto(es,6,2) + 28)
gi2(2) = Fuori90(Estratto(es,7,4) + 75)
gi2(3) = Fuori90(90 +(Estratto(es,10,5)) + 78)

ImpostaGiocata 2,gi2,ruote,poste,klp
gi3(1) = gi1(1)
gi3(2) = gi1(2)
gi3(3) = gi1(3)
gi3(4) = gi2(1)
gi3(5) = gi2(2)
gi3(6) = gi2(3)


EliminaRipetuti gi3


ImpostaGiocata 3,gi3,ruote,poste,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi " Condizioni rilevate " & CInt(co)
ScriviResoconto
End Sub


Spero di aver fatto cosa gradita, col salutarvi, rinnovo la mia stima nei confronti di Xeroxs e Marco.
E 'doveroso , inoltre , menzionare il Grandissimo LuigiB, per il programma che ha regalato al mondo!

Ciao,seba. stydio: grandissimo Luigib, davvero ,che, anchi'io ringrazio veramente di cuore, ma ti chiedo che programma si usa per leggere il tuo script

 

[mau]

Buon giorno.... qual' è la previsione per il mese di Agosto?
Grazie

 

[Alien.]

CIAO MAU.

Estrazione generatrice del pronostico 10115 [ 92 - 02/08/2022]
G 0001 Numeri in gioco : 56.83.06 su MI TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 22.18.39 su MI TT NZ per Ambo,Terno,Quaterna
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 06.18.22.39.56.83 su MI TT NZ per Ambo,Terno,Quaterna
In corso per altre 13 estrazioni

 

[mau]

Grazie Alien gentilissimo

 

[s.studio]

Buonasera a tutti.. purtroppo la previsione non ha dato nemmeno un ambetto!
Speriamo il mese prossimo..

 

[Alien.]

000 1 04AGO2022 18 06 (01) [ 1] BARI
000 2 11AGO2022 22 83 (04) [ 3] NAPOLI

02.08.2022--->1° Estrazione Mensile
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 10115 [ 92 - 02/08/2022]
G 0001 Numeri in gioco : 56.83.06 su MI TT NZ per Ambo,Terno
In corso per altre 5 estrazioni
G 0002 Numeri in gioco : 22.18.39 su MI TT NZ per Ambo,Terno,Quaterna
In corso per altre 5 estrazioni
G 0003 Numeri in gioco : 06.18.22.39.56.83 su MI TT NZ per Ambo,Terno,Quaterna
V N. [06.18.22.39.56.83 ] [TT] [BA][18 .. .. .. 06] C. 1 Ambo 10116 [ 93 - 04/08/2022]
V N. [06.18.22.39.56.83 ] [TT] [NA][.. .. 22 .. 83] C. 4 Ambo 10119 [ 96 - 11/08/2022]

In corso per altre 5 estrazioni

 

[Alien.]

IN GENERE ESCONO DA 6 A 12/14 AMBI AL MESE NE I SEI NUMERI E FORMANO 15 AMBI.(MA NON SEMPRE E COSI) AMBO SU TUTTE DA CIRCA 23 €

1​	1 2
2​	1 3
3​	1 4
4​	1 5
5​	1 6
6​	2 3
7​	2 4
8​	2 5
9​	2 6
10​	3 4
11​	3 5
12​	3 6
13​	4 5
14​	4 6
15​	5 6

 

[s.studio]

Salve a tutti..
Il mese trascorso ci ha dato solo l'ambo in terzina al 12 colpo!


Estrazione generatrice del pronostico 10115 [ 92 - 02/08/2022]
G 0001 Numeri in gioco : 56.83.06 su MI TT NZ per Ambo,Terno
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 22.18.39 su MI TT NZ per Ambo,Terno,Quaterna
V N. [22.18.39 ] [MI] [18 .. 22 .. ..] C. 12 Ambo 10127 [104 - 30/08/2022]
V N. [22.18.39 ] [TT] [MI][18 .. 22 .. ..] C. 12 Ambo 10127 [104 - 30/08/2022]
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 06.18.22.39.56.83 su MI TT NZ per Ambo,Terno,Quaterna
V N. [06.18.22.39.56.83 ] [TT] [BA][18 .. .. .. 06] C. 1 Ambo 10116 [ 93 - 04/08/2022]
V N. [06.18.22.39.56.83 ] [TT] [NA][.. .. 22 .. 83] C. 4 Ambo 10119 [ 96 - 11/08/2022]
V N. [06.18.22.39.56.83 ] [MI] [18 .. 22 .. ..] C. 12 Ambo 10127 [104 - 30/08/2022]
V N. [06.18.22.39.56.83 ] [TT] [MI][18 .. 22 .. ..] C. 12 Ambo 10127 [104 - 30/08/2022]
Interrotta per raggiunta durata



Speriamo vada meglio questo mese ....

Estrazione generatrice del pronostico 10128 [105 - 01/09/2022]
G 0001 Numeri in gioco : 85.19.30 su MI TT NZ per Ambo,Terno
In corso per altre 12 estrazioni
G 0002 Numeri in gioco : 87.79.63 su MI TT NZ per Ambo,Terno,Quaterna
In corso per altre 12 estrazioni
G 0003 Numeri in gioco : 19.30.63.79.85.87 su MI TT NZ per Ambo,Terno,Quaterna
In corso per altre 12 estrazioni

 

[s.studio]

Sperando che nelle prossime 2 estrazioni ci dia qualcosa, di seguito posto due previsioni ricavate da un mio studio interessante.

Firenze
61
80
Posizione 2° e 5°
Ambo e ambetto 61-80

Torino
35
12
4°-5° posizione
Ambo e ambetto 35-12

 

[s.studio]

Sperando che nelle prossime 2 estrazioni ci dia qualcosa, di seguito posto due previsioni ricavate da un mio studio interessante.

Firenze
61
80
Posizione 2° e 5°
Ambo e ambetto 61-80

Torino
35
12
4°-5° posizione
Ambo e ambetto 35-12

Come inizio non c'è male.. (..insomma)

1°colpo
61-80 ambo e ambetto su tutte (Napoli)