1° DEL MESE BARI

[Roby]

http://forum.lottoced.com/topic.asp?TOPIC_ID=67975

ciclometria e matematica sommativa

 

[salvozac]

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=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&" - ["& StringaNumeri(numeri1) &"] - "& StringaNumeri(numeri2) &""&chr(13)&chr(13)&chr(10)

Gioca n
End If
Next
ScriviResoconto

End Sub


ciclometria e matematica sommativa

 

[lucien]

OK, aspettiamo l'estrazione di questa sera.................

Lucien

 

[salvozac]

ambata

su bari

72
i numeri in gioco

01-set-07 BA 72 32 10 5 48 89 64 61 14
ecco dodici terzine per ambo
voglio rischiare cosi

12 euro se si vince 80 euro

ciclometria e matematica sommativa

 

[lucien]

Grazie...........

Lucien

 

[Alien.]

ACC...........

 

[paolo62]

ciao x me sono molo buoni sempre su lottoexcel


49-50-75-76 pa-na x3 estrazioni

paolo62