| R E V I S I O N E D E L L A D I S C U S S I O N E |
| salvozac |
Posted - 30 agosto 2007 : 19:46:46
dobbiamo fare i conti alla 1° estrazione del mese
questo e il metodo X BARI
autore salvozac
 |
| 5 U L T I M E R E P L I C H E (Newest First) |
| salvozac |
Posted - 16 settembre 2007 : 21:42:15
72-10
sempre a tutte
azzzzzzzzzzzzzz
salvozac |
| salvozac |
Posted - 04 settembre 2007 : 20:29:03
peccato
roma
72-89
ciao
da salvozac |
| n/a |
Posted - 03 settembre 2007 : 11:05:51
BEL METODO....
HO PROVATO A CALCOLARE
AMBATA A BARI
72
NUMERI IN GIOCO - PRIMO COLPO 4.9.2007
BARI 72 32 10 5 48 89 64 61 14
|
| salvozac |
Posted - 01 settembre 2007 : 09:40:38
Sub main()
Dim ruote(2)
Dim numeri1(3)
Dim numeri2(10)
Dim numeri3(3)
Dim numeri4(3)
Dim numeri5(3)
Dim numeri6(3)
Dim numeri7(3)
Dim numeri8(3)
Dim numeri9(3)
Dim posta(5)
Dim poste(1)
posta(2)=3
posta(3)=2
posta(4)=0.9
posta(5)=0.1
poste(1)=1
ruote(1)=1
k=5
y=4
For n=7694 To EstrazioneFin
If IndiceMensile(n)=1 Then
ruote(1)=1
ng=1
numeri1(1)=Fuori90(Abs(Estratto(n,1,1)-Estratto(n,2,4))+32)
ImpostaGiocata ng,numeri1,ruote,poste,k,y
ng=ng+1
numeri2(2)=Fuori90(Abs(Estratto(n,1,1)-Estratto(n,3,2))+71)
numeri2(3)=Vert(Fuori90(Abs(Estratto(n,1,2)-Estratto(n,7,3))+89))
numeri2(4)=Fuori90(Abs(Estratto(n,1,4)-Estratto(n,8,1))+80)
numeri2(5)=Fuori90(Abs(Estratto(n,1,1)-Estratto(n,9,5))+65)
numeri2(6)=Vert(Fuori90(Abs(Estratto(n,1,1)-Estratto(n,10,1))+71))
numeri2(7)=Fuori90(Abs(Estratto(n,1,2)-Estratto(n,10,3))+36)
numeri2(1)=Fuori90(Abs(Estratto(n,1,1)-Estratto(n,2,4))+32)
numeri2(8)=Vert(Fuori90(Abs(Estratto(n,1,4)-Estratto(n,10,4))+75))
numeri2(9)=Vert(Fuori90(Abs(Estratto(n,1,2)-Estratto(n,10,5))+37))
EliminaRipetuti(numeri2)
ImpostaGiocata ng,numeri2,ruote,posta,k,y
For a=1 To ng
For b=1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Scrivi Chr(13)&"*********************************************************************************"
Scrivi Chr(13)&"["&n&"] "& DataEstrazione(n)&" - ["& StringaNumeri(numeri1) &"] - "& StringaNumeri(numeri2) &""&chr(13)&chr(13)&chr(10)
Gioca n
End If
Next
ScriviResoconto
End Sub
|
| n/a |
Posted - 30 agosto 2007 : 22:17:55
Grazie Salvozac per aver messo a disposizione di tutti il tuo lavoro,
mi sembra molto interessante solo.. cosa significano N e V ?
se il primo numero è minore di quello da sottrarre bisogna aggiungere il 90 al primo?
grazie per i chiarimenti credo siano utili a tutti
ciaooooooo |
|
|
