Un metodo per BA....ma valido anche alle altre ruote

[ananda]

Prima estrazione del mese
Ruota BA

ambata principale = 1° estratto + 3° estratto
2° ambata = 5° estratto
3° ambata = 5° estratto *2

Questo mese ha dato...

ven 01.12.2023 [10343]
G 1: MAT 29.90 Ba 2/14
M 29.90 su Ba 2° colpo [10345/05.12.2023]
A 29.90 su Ba 2° colpo [10345/05.12.2023]
in corso (2° su 14)



Controllate voi su quale ruota il rendimento è migliore...magari aggiungendo 1 ciclo For che automatizzi la scelta della ruota.

**************************************************

Listato per L8

**************************************************

Sub main()
Dim ruote(2)
Dim numeri1(6)
Dim posta(4)

posta(1)=1
posta(2)=1
posta(3)=1

ruote(1)=1
k=14
t=1
For n=9000 To EstrazioneFin
If IndiceMensile n=1 Then
x=Estratto(n,1,1)
y=Estratto(n,1,3)
w=Estratto(n,1,5)
z=Fuori90(x+y)
ww=Fuori90(w*2)

numeri1(1)=z
numeri1(2)=w
numeri1(3)=ww

ImpostaGiocata 1,numeri1,ruote,posta,k,3

Gioca n
End If
Next
ScriviResoconto i
End Sub

 

[ananda]

Aggiungo qui un altro metodo che mette in gioco 2 numeri per ambata ed ambo su BA e FI

Sub main()
Dim ruote(2)
Dim numeri1(6)
Dim posta(4)

posta(1)=1
posta(2)=1

ruote(1)=1
k=14
t=1
For n=8000 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
x=Estratto(n,1,1)
y=Estratto(n,1,3)

z=Fuori90(x+y)
zz=Abs(x-y)

numeri1(1)=z
numeri1(2)=zz

ImpostaGiocata 1,numeri1,ruote,posta,k,2

Gioca n
End If
Next
ScriviResoconto i
End Sub

 

[Paola54]

Non si capisce nulla

 

[ananda]

Non si capisce nulla

Guarda la ruota di BA alla prima estrazione del mese e ricavi le 3 ambate:

Ambata principale = 1° estratto + 3° estratto di BA
2° ambata = 5° estratto di BA
3° ambata = 5° estratto d BA *2

Oppure guarda l'ultima estrazione e ricavi:

Prima ambata= 1° estratto di BA + 3° estratto d BA
Seconda ambata = Valore assoluto della differenza fra 1° e 3° estratto di BA.

Spero sia chiaro
Ciaoooo

 

[spike]

grazie

 

[88888]

Guarda la ruota di BA alla prima estrazione del mese e ricavi le 3 ambate:

Ambata principale = 1° estratto + 3° estratto di BA
2° ambata = 5° estratto di BA
3° ambata = 5° estratto d BA *2

Oppure guarda l'ultima estrazione e ricavi:

Prima ambata= 1° estratto di BA + 3° estratto d BA
Seconda ambata = Valore assoluto della differenza fra 1° e 3° estratto di BA.

Spero sia chiaro
Ciaoooo

No
Hai scritto seconda ambata = quinto estratto di bari, poi sotto , seconda ambata= valore assoluto della differenza fra 1 e 3 estratto di bari

 

[ananda]

No
Hai scritto seconda ambata = quinto estratto di bari, poi sotto , seconda ambata= valore assoluto della differenza fra 1 e 3 estratto di bari

Sono 2 metodi diversi. Infatti dico "Oppure" Il primo ricava 3 numeri, il secondo 2.
Ciaoooooo

 

[88888]

Sono 2 metodi diversi. Infatti dico "Oppure" Il primo ricava 3 numeri, il secondo 2.
Ciaoooooo

Lasciamo stare, non si capisce cosa scrivi, sopra scrivi 2ambata = 5 estratto,a se la 2ambata è presente nell'estrazione non è valida, boh

 

[ananda]

Ultimi 3 mesi del 2° metodo

sab 30.09.2023 [10308]
G 1: MA 35.05 Ba 14/14
M 05 su Ba 1° colpo [10309/03.10.2023]
M 35 su Ba 4° colpo [10312/07.10.2023]
M 35 su Ba 13° colpo [10321/24.10.2023]

mar 31.10.2023 [10325]
G 1: MA 54.20 Ba 1/14
M 54.20 su Ba 1° colpo [10326/02.11.2023]
A 54.20 su Ba 1° colpo [10326/02.11.2023]
I1
gio 30.11.2023 [10342]
G 1: MA 65.33 Ba 7/14
M 65 su Ba 4° colpo [10346/07.12.2023]
M 33 su Ba 7° colpo [10349/12.12.2023]
in corso (7° su 14)

 

[ananda]

Ultimi 5 mesi del 1° metodo:

sab 01.07.2023 [10258]
G 1: MAT 82.62.34 Ba 14/14
M 62 su Ba 2° colpo [10260/06.07.2023]
M 62 su Ba 5° colpo [10263/11.07.2023]
M 82.34 su Ba 6° colpo [10264/13.07.2023]
A 82.34 su Ba 6° colpo [10264/13.07.2023]
M 82 su Ba 12° colpo [10270/22.07.2023]

mar 01.08.2023 [10275]
G 1: MAT 14.21.42 Ba 14/14
M 14 su Ba 3° colpo [10278/05.08.2023]
M 42 su Ba 6° colpo [10281/11.08.2023]
M 14 su Ba 12° colpo [10287/25.08.2023]

ven 01.09.2023 [10291]
G 1: MAT 06.20.40 Ba 14/14
M 40 su Ba 3° colpo [10294/07.09.2023]
M 40 su Ba 10° colpo [10301/19.09.2023]
M 06 su Ba 11° colpo [10302/21.09.2023]
M 20 su Ba 14° colpo [10305/26.09.2023]

mar 03.10.2023 [10309]
G 1: MAT 84.05.10 Ba 14/14
M 84 su Ba 9° colpo [10318/19.10.2023]

gio 02.11.2023 [10326]
G 1: MAT 56.81.72 Ba 14/14
M 81 su Ba 4° colpo [10330/09.11.2023]
M 72 su Ba 6° colpo [10332/11.11.2023]
M 81 su Ba 12° colpo [10338/23.11.2023]

ven 01.12.2023 [10343]
G 1: MAT 29.90 Ba 6/14
M 29.90 su Ba 2° colpo [10345/05.12.2023]
A 29.90 su Ba 2° colpo [10345/05.12.2023]
M 29 su Ba 5° colpo [10348/11.12.2023]
in corso (6° su 14)

 

[Alien.]

Prima estrazione del mese
Ruota BA

ambata principale = 1° estratto + 3° estratto
2° ambata = 5° estratto
3° ambata = 5° estratto *2

Questo mese ha dato...

ven 01.12.2023 [10343]
G 1: MAT 29.90 Ba 2/14
M 29.90 su Ba 2° colpo [10345/05.12.2023]
A 29.90 su Ba 2° colpo [10345/05.12.2023]
in corso (2° su 14)



Controllate voi su quale ruota il rendimento è migliore...magari aggiungendo 1 ciclo For che automatizzi la scelta della ruota.

**************************************************

Listato per L8

**************************************************

Sub main()
Dim ruote(2)
Dim numeri1(6)
Dim posta(4)

posta(1)=1
posta(2)=1
posta(3)=1

ruote(1)=1
k=14
t=1
For n=9000 To EstrazioneFin
If IndiceMensile n=1 Then
x=Estratto(n,1,1)
y=Estratto(n,1,3)
w=Estratto(n,1,5)
z=Fuori90(x+y)
ww=Fuori90(w*2)

numeri1(1)=z
numeri1(2)=w
numeri1(3)=ww

ImpostaGiocata 1,numeri1,ruote,posta,k,3

Gioca n
End If
Next
ScriviResoconto i
End Sub

Ciao, scusa ANANDA ma mi da errore then non previsto, grazie. Corretto ho guardato il secondo script(

If IndiceMensile (n+1)=1 Then