| Autore |
 Discussione  |
|
|
n/a
deleted
2504 invii |
 Spedito - 13 novembre 2007 : 18:20:49
|
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim posta(5)
Dim posto(5)
Dim poste(5)
posta(2)=1
posto(2)=3
posto(3)=1.5
posto(4)=0.4
posto(5)=0.1
poste(1)=1
ruote(1)=2
ruote(2)=1
k=11
For n=7515 To EstrazioneFin
If IndiceMensile(n)=5 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+15)
ImpostaGiocata 1,numeri1,ruote,poste,k,1
numeri2(1)=Fuori90(Estratto(n,1,1)+15)
numeri2(2)=Fuori90(Estratto(n,1,2)+30)
ImpostaGiocata 2,numeri2,ruote,posta,k,2
numeri2(2)=Fuori90(Estratto(n,7,5)+83)
ImpostaGiocata 3,numeri2,ruote,posta,k,2
numeri2(2)=Fuori90(Estratto(n,2,3)+46)
ImpostaGiocata 4,numeri2,ruote,posta,k,2
numeri2(2)=Fuori90(Estratto(n,6,2)+59)
ImpostaGiocata 5,numeri2,ruote,posta,k,2
numeri2(2)=Fuori90(Estratto(n,8,3)*4)
ImpostaGiocata 6,numeri2,ruote,posta,k,2
numeri3(1)=Fuori90(Estratto(n,1,1)+15)
numeri3(2)=Fuori90(Estratto(n,1,2)+30)
numeri3(3)=Fuori90(Estratto(n,7,5)+83)
numeri3(4)=Fuori90(Estratto(n,2,3)+46)
numeri3(5)=Fuori90(Estratto(n,6,2)+59)
numeri3(6)=Fuori90(Estratto(n,8,3)*4)
ImpostaGiocata 10,numeri3,ruote,posto,k,3
For a=2 To 9
For b=2 To 9
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub
sab 10.11.2007 [7828]
G 1: M 69 Ba Ca 0/11
n.i. (11 colpi)
G 2: A 69.12 Ba Ca 0/11
n.i. (11 colpi)
G 3: A 69.86 Ba Ca 0/11
n.i. (11 colpi)
G 4: A 69.21 Ba Ca 0/11
n.i. (11 colpi)
G 5: A 69.43 Ba Ca 0/11
n.i. (11 colpi)
G 6: A 69.18 Ba Ca 0/11
n.i. (11 colpi)
G 10: ATQC 69.12.86.21.43.18 Ba Ca 0/11
n.i. (11 colpi)
|
   
Beato chi non si aspetta gratitudine...........non resterà deluso
|
|
|
Enzosalerno
Utente Nuovo
Italy
25 invii |
Spedito - 17 novembre 2007 : 21:24:51
|
Salve devo farti i complimenti per il metodo esposto nella sezione dedicata appunto agli stessi.
Essendo in possesso del programma L+8 mi sono copiato il listato, quindi l’ho trasferito negli script e ho constatato che è davvero un ottimo metodo.
Se dovessi avere qualche altro metodo di questo genere, magari sulle ruote di Milano-Napoli (ovvero quelle che di solito gioco io) e per te non è un problema, inviameli.
Ovviamente ci dovesse essere qualcosa da pagare per il tempo non ci sono problemi.
Nell’attesa ti invio cordiali saluti e di nuovo…COMPLIMENTI!
|
 |
|
|
n/a
deleted
2504 invii |
Spedito - 18 novembre 2007 : 13:31:53
|
ciao Enzosalerno......
sto lavorando per te.....poi lo pubblico
alla tua attenzione...
ciao |
Beato chi non si aspetta gratitudine...........non resterà deluso
|
|
|
|
gibon
Utente Sfegatato
Italy
2515 invii |
Spedito - 18 novembre 2007 : 17:15:42
|
Anch'io ho L8+ e ho trasferito tutti i dati..... ma non capisco il listato!!!
che metodo è? come estrapoli i numeri?
grazie per la tua attenzione |
   VENTO IN POPPA  |
|
|
|
n/a
deleted
11156 invii |
Spedito - 18 novembre 2007 : 17:29:50
|
Ciao Gibon
ti metto accanto cosa legge lo script
If IndiceMensile(n)=5 Then...................................alla 5^ estr.del mese
numeri1(1)=Fuori90(Estratto(n,1,1)+15)................ruota BA 1°estr+15
ImpostaGiocata 1,numeri1,ruote,poste,k,1
numeri2(1)=Fuori90(Estratto(n,1,1)+15)................ruota BA 1°estr+15
numeri2(2)=Fuori90(Estratto(n,1,2)+30)................ruota BA 2°estr+30
ImpostaGiocata 2,numeri2,ruote,posta,k,2
numeri2(2)=Fuori90(Estratto(n,7,5)+83)................ruota PA 5°estr+83
ImpostaGiocata 3,numeri2,ruote,posta,k,2
numeri2(2)=Fuori90(Estratto(n,2,3)+46)................ruota CA 3°estr+46
ImpostaGiocata 4,numeri2,ruote,posta,k,2
numeri2(2)=Fuori90(Estratto(n,6,2)+59)................ruota NA 2°estr+59
ImpostaGiocata 5,numeri2,ruote,posta,k,2
numeri2(2)=Fuori90(Estratto(n,8,3)*4)..................ruota RO 3°estrx4
ImpostaGiocata 6,numeri2,ruote,posta,k,2
numeri3(1)=Fuori90(Estratto(n,1,1)+15)................ruota BA 1°estr+15
numeri3(2)=Fuori90(Estratto(n,1,2)+30)................ruota BA 2°estr+30
numeri3(3)=Fuori90(Estratto(n,7,5)+83)................ruota PA 5°estr+83
numeri3(4)=Fuori90(Estratto(n,2,3)+46)................ruota CA 3°estr+46
numeri3(5)=Fuori90(Estratto(n,6,2)+59)................ruota NA 2°estr+59
numeri3(6)=Fuori90(Estratto(n,8,3)*4)..................ruota RO 3°estrx4
ImpostaGiocata 10,numeri3,ruote,posto,k,3
tutti col il fuori 90, cioè se la somma è maggiore di 90, sottrarlo per ottenere il numero da giocare
si ottiene un ambata e 5 ambi da giocare
una sestina in lunghetta
Veramente un ottimo metodo!!
|
Modificato da - n/a su 18 novembre 2007 17:34:07 |
|
|
|
gibon
Utente Sfegatato
Italy
2515 invii |
Spedito - 18 novembre 2007 : 18:52:49
|
Sono troppo vecchio ....... meglio cambiarlo in excell
CIAO E GRAZIE INFINITE
|
VENTO IN POPPA |
|
|
|
n/a
deleted
11156 invii |
Spedito - 18 novembre 2007 : 23:20:27
|
|
|
|
gibon
Utente Sfegatato
Italy
2515 invii |
Spedito - 19 novembre 2007 : 06:22:20
|
|
UN FORTE ABBRACCIO PER LA TUA DISPONIBILITA'..... MA AVEVO GIA' FATTO IN EXCELL..... MA ALLA MIA MANIERA.... SEMPICE .... SEMPLICE |
VENTO IN POPPA |
|
|
|
n/a
deleted
11156 invii |
Spedito - 19 novembre 2007 : 07:41:58
|
|
|
|
n/a
deleted
2504 invii |
Spedito - 27 novembre 2007 : 20:43:18
|
12-21 BARI |
Beato chi non si aspetta gratitudine...........non resterà deluso
|
|
|
|
MATTEOMATTEO
Utente Nuovo
Italy
42 invii |
Spedito - 05 dicembre 2007 : 10:49:51
|
AL DECIMO COLPO
CAGLIARI 21-86 IN LUNGHETTA
COMPLIMENTI |
|
|
| |
Discussione |
|
|
|
BEL METODO.......LISTATO A BA-CA
