Richiesta script

[Roby]

Rettifica della 3^ cinquina.
Estrazione mensile 5^
prima cinquina

1° di ba + 12
4° di pa + 83
3° di to + 76
2° di mi + 74
1° di ba + 23
seconda cinquina

1° di ba + 1
4° di fi + 1
1° di ba + 20
4° di fi + 38
1° di ba + 19
terza cinquina
1° di ba + 13
2° di ge + 55
3° di ba + 45
4° di ro + 30
5° di to + 28

 

[mirning]

Alla 3^ Cinquina i numeri da ottenere in realta' sono ( 4 ) !! [^]

 

[mirning]

AAAAApproposito!!!!
Sei Nuovo quindi Ben venuto , il piu' matto Io ti da' il ben [)]arrivato nell'alegra compagnia!!! [)]

 

[uniko987]

quote:Originally posted by piero calabrese

Salve, qualcuno vuol essere così gentile da svilupparmi uno script per il programma Spaziometria?
Le condizione di gioco sono in 3 cinquine:
Estrazione mensile 5^
prima cinquina

1° di ba + 12
4° di pa + 83
3° di to + 76
2° di mi + 74
1° di ba + 23
seconda cinquina

1° di ba + 1
4° di fi + 1
1° di ba + 20
4° di fi + 38
1° di ba + 19
terza cinquina
1° di ba + 13
2° di ge + 55
3° di ba + 45
4° di ro + 30

il tutto da mettere in gioco sulla ruota di napoli x 13 estrazioni.

Ringrazio in anticipo chi svilupperà lo script e saluto con affetto.

Salve, ho provato a buttare giù qualcosina.......
sono all'inizio quindi spero di non aver fatto errori.


Sub Main


Dim Ruote(10)

Dim cinquina1(5)
Dim cinquina2(5)
Dim cinquina3(5)


Dim poste(6)
poste(2) = 1 ' posta per ambo 1 euro
poste(3) = 1 ' posta per terno 1 euro
poste(4) = .75 ' posta per quaterna 0.75 euro
poste(5) = .25 ' posta per cinquina 0.25 euro
colpi = 13 ' colpi di gioco impostati
Indimens = 5 ' indice mensile
Inizia = 8330 ' inizia la ricerca dalla 8000

Ruote(1) = 6 ' routa n° 6 => NA
'Ruote(2) = 1 ' possibilità di giocare su un'altra ruota eliminandi l'apice prima della R di Ruota

For estrazioni = Inizia To EstrazioneFin

If IndiceMensile(estrazioni) = IndiMens Then

primoBa = Estratto(estrazioni,1,1)
terzoBa = Estratto(estrazioni,1,3)
quartoPa = Estratto(estrazioni,7,4)
terzoTo = Estratto(estrazioni,9,3)
secondoMi = Estratto(estrazioni,5,2)
quartoFi = Estratto(estrazioni,3,4)
secondoGe = Estratto(estrazioni,4,2)
quartoRo = Estratto(estrazioni,8,4)


cinquina1(1) = Fuori90(primoBa +12)
cinquina1(2) = Fuori90(quartoPa + 83)
cinquina1(3) = Fuori90(terzoTo + 76)
cinquina1(4) = Fuori90(secondoMi + 74)
cinquina1(5) = Fuori90(primoBa + 23)

cinquina2(1) = Fuori90(primoBa + 1)
cinquina2(2) = Fuori90(quartoFi + 1)
cinquina2(3) = Fuori90(primoBa + 20)
cinquina2(4) = Fuori90(quartoFi + 38)
cinquina2(5) = Fuori90(primoBa + 19)

cinquina3(1) = Fuori90(primoBa + 13)
cinquina3(2) = Fuori90(secondoGe + 55)
cinquina3(3) = Fuori90(terzoBa + 45)
cinquina3(4) = Fuori90(quartoRo + 30)
'cinquina3(5) = Fuori90(quartoRo + 30)





Scrivi "Estrazione del " & DataEstrazione(estrazioni) & " " & SiglaRuota(6) & " " & StringaEstratti(estrazioni,6)

ImpostaGiocata 1,cinquina1,Ruote,poste,colpi,5
ImpostaGiocata 2,cinquina2,Ruote,poste,colpi,5
ImpostaGiocata 3,cinquina3,Ruote,poste,colpi,5


Gioca estrazioni
End If
Next
ScriviResoconto
End Sub



nell'ultima cinquina manca il calcolo dell'ultimo numero quindi invece di una cinquina è una quartina.

Spero di essere stato di aiuto.

Saluti Uniko.

 

[piero calabrese]

Salve, ho appena provato lo script delle cinquine su Na ma mi da solo una cinquina come pronostico....

 

[lola]

Ciao Piero,

prova questa soluzione :

Sub main
Dim ruote(10)
Dim numeri(10)
Dim numeri1(5)
Dim poste(5)

poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=1


ruote(1)=6

K=13
y=2

For n= 8320 To EstrazioneFin
If IndiceMensile= 5 Then

'prima cinquina
'1° di ba + 12
'4° di pa + 83
'3° di to + 76
'2° di mi + 74
'1° di ba + 23
'---------------------------------------------
numeri1(1)=Fuori90(Estratto(n,1,1)+12)
numeri1(2)=Fuori90(Estratto(n,7,4)+83)
numeri1(3)=Fuori90(Estratto(n,9,3)+76)
numeri1(4)=Fuori90(Estratto(n,5,2)+74)
numeri1(5)=Fuori90(Estratto(n,1,1)+23)
ImpostaGiocata 1,numeri1,ruote,poste,k,y
'---------------------------------------------

'Seconda cinquina
'1° di ba + 1
'4° di fi + 1
'1° di ba + 20
'4° di fi + 38
'1° di ba + 19

numeri1(1)=Fuori90(Estratto(n,1,1)+1)
numeri1(2)=Fuori90(Estratto(n,3,4)+1)
numeri1(3)=Fuori90(Estratto(n,1,1)+20)
numeri1(4)=Fuori90(Estratto(n,3,4)+38)
numeri1(5)=Fuori90(Estratto(n,1,1)+19)
ImpostaGiocata 2,numeri1,ruote,poste,k,y
'---------------------------------------------

'terza cinquina
'1° di ba + 13
'2° di ge + 55
'3° di ba + 45
'4° di ro + 30
'5° di to + 28

'---------------------------------------------
numeri1(1)=Fuori90(Estratto(n,1,1)+13)
numeri1(2)=Fuori90(Estratto(n,4,2)+55)
numeri1(3)=Fuori90(Estratto(n,1,3)+45)
numeri1(4)=Fuori90(Estratto(n,8,4)+30)
numeri1(5)=Fuori90(Estratto(n,9,5)+28)
ImpostaGiocata 3,numeri1,ruote,poste,k,y
'---------------------------------------------

Gioca n
End If
Next
ScriviResoconto
End Sub


QUESTO E' LO SVILUPPO ED IL RESOCONTO :

mar 11.01.2011 [8324]
G 1: ATQC 44.80.18.14.55 Na 13/13
negativo
G 2: ATQC 33.21.52.58.51 Na 13/13
negativo
G 3: ATQC 45.27.11.73 Na 13/13
negativo
gio 10.02.2011 [8337]
G 1: ATQC 23.34.75.53 Na 13/13
negativo
G 2: ATQC 12.77.31.24.30 Na 13/13
negativo
G 3: ATQC 24.08.54.74 Na 13/13
negativo
gio 10.03.2011 [8349]
G 1: ATQC 06.10.20.17 Na 12/13
in corso (12° su 13)
G 2: ATQC 85.53.14.90.13 Na 9/13
A 90.14 su Na 9° colpo [8358/31.03.2011]
I9
G 3: ATQC 07.60.85 Na 12/13
in corso (12° su 13)


=======================================
Resoconto complessivo di 3 giocate
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 9
in corso: 2
casi finali: 7
positivi: 1
negativi: 6
Pronostici generati: 9
Pronostici vincenti: 1 (11,1 %)
Estrazioni di gioco: 111
Tentativi (scontrini giocati): 111
Vincite (scontrini vincenti): 1 (0,90 %)
Attesa media: 9,00




Resoconto totale giocate
Dettaglio Ruote (Pronostici)

Ruota Vincenti Giocati
-----------------------------
Napoli 1 ( 0,90 % ) 111
Totale 1 ( 0,90 % ) 111




Resoconto totale giocate
Resoconto economico

Sorte Spese [€] Real. Vincite [€] -6% Guadagno [€]
--------------------------------------------------------------
Ambata 0,00 0 0,00 0,00 0,00
Ambo 111,00 1 25,00 23,50 -87,50
Terno 111,00 0 0,00 0,00 -111,00
Quaterna 111,00 0 0,00 0,00 -111,00
Cinquina 111,00 0 0,00 0,00 -111,00
E.Det.1 0,00 0 0,00 0,00 0,00
E.Det.2 0,00 0 0,00 0,00 0,00
E.Det.3 0,00 0 0,00 0,00 0,00
E.Det.4 0,00 0 0,00

 

[Roby]

Ciao e Benvenuto:
Prova anche questo (c'è anche la 3°cinquina)


Sub main()
Dim ruote(1)
Dim numeri1(5)
Dim numeri2(5)
Dim numeri3(5)
Dim numeri4(5)
Dim poste(5)
Dim posta(1)
posta(1)=5
poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=1
ruote(1)=6
k=13
y=3
For n=8000 To EstrazioneFin
If IndiceMensile=5 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+12)
numeri1(2)=Fuori90(Estratto(n,7,4)+83)
numeri1(3)=Fuori90(Estratto(n,9,3)+76)
numeri1(4)=Fuori90(Estratto(n,5,2)+74)
numeri1(5)=Fuori90(Estratto(n,1,1)+23)
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,poste,k,y
numeri2(1)=Fuori90(Estratto(n,1,1)+1)
numeri2(2)=Fuori90(Estratto(n,3,4)+1)
numeri2(3)=Fuori90(Estratto(n,1,1)+20)
numeri2(4)=Fuori90(Estratto(n,3,4)+38)
numeri2(5)=Fuori90(Estratto(n,1,1)+19)
EliminaRipetuti numeri2
ImpostaGiocata 2,numeri2,ruote,poste,k,y
numeri3(1)=Fuori90(Estratto(n,1,1)+13)
numeri3(2)=Fuori90(Estratto(n,4,2)+55)
numeri3(3)=Fuori90(Estratto(n,1,3)+45)
numeri3(4)=Fuori90(Estratto(n,8,4)+30)
numeri3(5)=Fuori90(Estratto(n,9,5)+28)
EliminaRipetuti numeri3
ImpostaGiocata 3,numeri3,ruote,poste,k,y

For i=1 To 4
For a=1 To 4
ImpostaInterruzioni i,a,2
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub


Facci sapere, Ciao

Blackmore

 

[pigi]

HO MESSO IL METODO SU UN MIO PROGRAMMA E QUIDI L'HO
TESTATO PER GLI ULTIMI DUE ANNI ,ESITO .....RIMESSA
COMPLETA NON FUNZIONA .
STUDIA ALTRE COSE E NON METODI SOMMATIVI , STUDIA
LA STATISTICA ,E' PIU' SINCERA.
SALUTISSIMI
pigi

giorgio's

 

[mirning]

BEH , NESSUNO E' PERFETTO . . . .
NEANCHE IO !! [V]
Ci sta' provando . . .
bravo comunque dai! [8)]

 

[piero calabrese]

...Hai perfettamente ragione Pigi, il metodo in questi ultimi anni non ha reso quasi niente ma, nel 2006-08 ha dato 4 cinquine secche e 4 quaterne. Sono del parere che i metodi sommativi bisogna sfruttarli finchè funzionano (per quei pochi mesi e a volte qualche anno). Con la statistica non riuscirai mai a centrare una cinquina secca, certo vinci + spesso ( la uso anchi'io), ma la cinquina è cinquina e solo con qualche metodo sommmativo magari che ti funziona per 3 o 4 mesi puoi centrare qualcosa di concreto.Correggimi se sbaglio.Ciao


Casi esaminati : 297 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 83 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 27,95 % | | BA | 0| 0| 0| 0| 0| | BA | 0| 0| 0| 0| 0| | BA | 0| |
| Giocate in corso : 0 | | CA | 0| 0| 0| 0| 0| | CA | 0| 0| 0| 0| 0| | CA | 0| |
| Giocate terminate : 297 | | FI | 0| 0| 0| 0| 0| | FI | 0| 0| 0| 0| 0| | FI | 0| |
| Bollette giocate : 3.846 | | GE | 0| 0| 0| 0| 0| | GE | 0| 0| 0| 0| 0| | GE | 0| |
| Bollette vincenti : 99 | | MI | 0| 0| 0| 0| 0| | MI | 0| 0| 0| 0| 0| | MI | 0| |
| Attesa media : 6 | | NA | 0| 145| 40| 14| 2| | NA | 0| 100| 100| 100| 100| | NA | 297| |
| Spesa : 11.538,00 € | | PA | 0| 0| 0| 0| 0| | PA | 0| 0| 0| 0| 0| | PA | 0| |
| Vincita : 3.077.207,50 € | | RM | 0| 0| 0| 0| 0| | RM | 0| 0| 0| 0| 0| | RM | 0| |
| Guadagno : 3.065.669,50 € | | TO | 0| 0| 0| 0| 0| | TO | 0| 0| 0| 0| 0| | TO | 0| |
| Perc. Rendimento : 26570,198 % | | VE | 0| 0| 0| 0| 0| | VE | 0| 0| 0| 0| 0| | VE | 0| |
| Mass. Esposizione : 936,00 € | | NZ | 0| 0| 0| 0| 0| | NZ | 0| 0| 0| 0| 0| | NZ | 0| |
| Estratto su ruota : 216 | | TT | 0| 0| 0| 0| 0| | TT | 0| 0| 0| 0| 0| | TT | 0| |
| Ambo su ruota : 145 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Terno su ruota : 40 |
| Quaterna su ruota : 14 |
| Cinquina su ruota : 2

 

[pigi]

Caro Piero Calabrese , condivido il tuo pensiero , però come
fà un giocatore ad imbroccare il metodo sommativo che ti può
dare la cinquina o la quaterna magari anche in 7/8/9 estrazioni?
è sempre e comunque un FATTORE K, invece come tu giustamente
ammetti la statistica piano piano e quasi periodicamente ti dà
soddisfazione e non ti fà andare in rosso (o perlomeno non tanto)
tra le spese e le vincite. Ragazzi il BANCO VINCE SEMPRE ricordiamocelo, attrezziamoci per mettere insieme metodi che
si possano sfuttare nel tempo e che ci diano percentuali di
esiti positivi vicino al 100% , l'infallibilità di un metodo
E' UTOPIA, mi piace molto il gioco del LOTTO , ma sono realista,
chi vince non siamo noi.
Questo è il mio modesto parere , continuo a giocare perchè mi piace
ma non spero di arrichirmi con questo gioco.
UN SALUTO A TUTTI E IN BOCCA AL LUPO .
Giorgio

giorgio's