| Autore |
 Discussione  |
|
|
salvozac
Utente Fedelissimo
Italy
511 invii |
 Spedito - 30 agosto 2007 : 19:46:46
|
dobbiamo fare i conti alla 1° estrazione del mese
questo e il metodo X BARI
autore salvozac
 |
[URL=http://49salvozac.it.gg/] [/URL] |
Modificato da - su |
|
|
n/a
deleted
5137 invii |
Spedito - 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 |
   
|
Modificato da - su |
 |
|
|
salvozac
Utente Fedelissimo
Italy
511 invii |
Spedito - 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
|
[URL=http://49salvozac.it.gg/][/URL] |
Modificato da - su |
|
|
|
n/a
deleted
2504 invii |
Spedito - 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
|
   
Beato chi non si aspetta gratitudine...........non resterà deluso
|
Modificato da - su |
|
|
|
salvozac
Utente Fedelissimo
Italy
511 invii |
Spedito - 04 settembre 2007 : 20:29:03
|
peccato
roma
72-89
ciao
da salvozac |
[URL=http://49salvozac.it.gg/][/URL] |
Modificato da - su |
|
|
|
salvozac
Utente Fedelissimo
Italy
511 invii |
Spedito - 16 settembre 2007 : 21:42:15
|
72-10
sempre a tutte
azzzzzzzzzzzzzz
salvozac |
[URL=http://49salvozac.it.gg/][/URL] |
Modificato da - su |
|
|
| |
Discussione |
|
|
|
1° ESTRAZIONE DEL MESE X BARI
