Se qualche amico scripter mi puo'dare un aiuto

[stefanonet35]

VOLEVO VERIFICARE LA VALIDITA' DI QUESTO METODO E SICCOME NON RIESCO PIU' AD ANDARE AVANTI NEL COMPLETARE LO SCRIPT,
DATE LE MIE SCARSE CONOSCENZE IN MATERIA,CERCO QUALCHE AMICO CHE LO POSSA COMLPETARE.
SPERO TANTO CHE QUALCUNO MI AIUTI.


GRAZIE A TUTTI.



STEFANOET35





'1° METODO

'MOLTIPLICARE IL PRIMO COL SECONDO ESTRATTO DI UNA QUALSIASI RUOTA SENZA IL FUORI90, 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



'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 .

'(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))


ImpostaGiocata 1,numeri,ruote,poste,k



Gioca es
End If
Next
ScriviResoconto

End Sub