3 numeri per sognare ( Ottobre )

[gigi47]

Aiuto...........Sono un profano e non so come far girare il listato

 

[FedePa]

quote:Originally posted by titta

X chi possiede L8 Ecco il listato del Metodo

Sub main()
Dim ruote(10)
Dim numeri1(10),numeri2(10)
Dim poste(5),posta(5)
poste(2)=1

ruote(1)=1
ruote(2)=2
ruote(3)=11
k=13
ng=0
For n=7084 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
a=Estratto(n,1,3):b=Estratto(n,2,3)
c=Fuori90(a+b):If c=a Or c=b Then h=Vert(c):c=h
numeri1(1)=c
numeri1(2)=a
numeri1(3)=b
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k


Gioca n
End If
ng=0
Next
For i=1 To ng
ScriviResoconto i
Next
ScriviResoconto
End Sub


IL LOTTO E' UN GIUOCO E COME TALE VA TRATTATO,DOVE TUTTO E PROPABILE NIENTE E' CERTO
Eugenio

GRAZIE TITTA

 

[FedePa]

quote:Originally posted by titta

Ciao qualcuno cortesemente in queste discussioni ti ha sritto " SE PUOI POSTA IL METODO " MA TU NON HAI NEMMENO ACCENNATO A UNA RISPOSTA te lo ripeto cortesemente se puoi posta il metodo Ciao

IL LOTTO E' UN GIUOCO E COME TALE VA TRATTATO,DOVE TUTTO E PROPABILE NIENTE E' CERTO
Eugenio

PENSO CHE ORMAI L'ABBIA CAPITO DA SOLA
CMQ FACILISSIMO
ULTIMA ESTRAZIONE DEL MESE 3° DI BARI + 3° DI CAGLIARI = AMBATA
1° AMBO = AMBATA E 3° DI CA
2° AMBO = AMBATA E 3° DI BA
IN CASO DI NUMERI UGUALI SI GIOCA IL VERTIBILE

 

[FedePa]

DOPPIO AMBO A TUTTE AL 1° COLPO .... 38-38 NZ E 30-38 A RM

 

[FedePa]

AMBO A TUTTE AL 3° COLPO .... 30-68 FI