PER MIKE58 UN AIUTINO

[stefanonet35]

CARO MIKE POTRESTI CORTESEMENTE AIUTARMI SU QUESTA MIA NUOVA IDEA PERCHE' NON SONO RIUSCITO PIU' AD ANDARE AVANTI?
TI RINGRAZIO COME SEMPRE.CIAO
STEFANONET35





'1° METODO

'MOLTIPLICARE IL PRIMO COL SECONDO ESTRATTO DI UNA QUALSIASI RUOTA, ESEMPIO FIRENZE;
' AUMENTARE E DIMINUIRE DI UNA UNITA' I PRIMI DUE NUMERI E I SECONDI DUE NUMERI (CIOE' IL RISULTATO DELLA MOLTIPLICAZIONE) E METTERLI IN GIOCO COL
'PIU UNO E MENO UNO PER AMBO ( 4 AMBI PER OGNI COPPIA)


'ESEMPIO FIRENZE :ESTRAZIONE DEL 29 GIUGNO 2013 1 ESTRATTO 54 X 68 = 36 72 (AMBO BASE )
'36 +1 = 37 36 - 1 = 35
'72 +1 = 73 72 - 1 = 71 NUMERI IN GIOCO 37 72 73 36 35 70 71 36
'37 74 72 38 35 72 71 34

'(9 LUGLIO 2013 AMBO 37 74)

'2° METODO

'ATTUARE I VERTIBILI 37 73; 35 71 E METTERLI IN GIOCO SEMPRE COL PIU' UNO E MENO UNO PER AMBI


Sub Main()
Dim ruote(1)
Dim numeri(2)
Dim poste(2)
poste(2)=1
poste(1)=1
'poste(4)=1
ruote(1)=3
k= 5
ini = 8470
fin = EstrazioneFin
For es= Ini To Fin
If IndiceMensile(es+1)=1 Then

numeri(1)=(Estratto(es,3,1))
numeri(2)=(Estratto(es,3,2))

a= numeri (1)* numeri(2)

ImpostaGiocata 1,numeri,ruote,poste,k


'numeri(3)=Fuori90(DiametraleD(Estratto(n,5,2))+(Estratto(n,4,2)+3))
'numeri(4)=Fuori90(Vert(Estratto(n,12,2))+(Estratto(n,6,5)+24))
'-----------------------------
ImpostaGiocata 1,numeri,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto

End Sub

 

[stefanonet35]

ESEMPIO FIRENZE :ESTRAZIONE DEL 29 GIUGNO 2013 1 ESTRATTO 54 X 68 = 36 72 (AMBO BASE )



36 +1 = 37 36 - 1 = 35
'72 +1 = 73 72 - 1 = 71




NUMERI IN GIOCO 37 72 73 36 35 70 71 36
'37 74 72 38 35 72 71 34

'(9 LUGLIO 2013 AMBO 37 74)

 

[stefanonet35]

37 - 73 IL 37 RESTA FERMO E IL 73 SALE E SCENDE DI UNA UNITA', COSI' ANCHE PER IL 73 CHE RESTA FERMO E IL 37 SALE E SCENDE DI UNA UNITA'.
STESSA COSA PER IL 35 E 71 . RISULTATO 8 AMBI . HO SPECIFICATO PERCHE' C'E' STATA SOPRA NEI NUMERI IN GIOCO UNA CERTA CONFUSIONE COSA CHE NON AVEVO FATTO
NEL BLOCCO NOTE INCOLLATO.