Qualcuno puo' fare questo script?

[stefanonet35]

Moltiplicare due estratti di una qualsiasi ruota Senza il fuori 90 e giocare il risultato per ambo
esempio : Estrazione del 31 agosto 2013 ruota di bari primi due estratti 64 e 84 .
64 x 84 =5376
53 e 76 per ambo


Grazie

Stefanonet 35

 

[Roby]

Ciao Stefano, le richieste script devi farle nell'area download
Questo è un esempio di quello che cerchi, puoi modificarlo a piacimento
Ciao

Sub main()
Dim ruota(10)
Dim ambo(2)
Dim poste(2)
poste(2)=1

r1 = CInt(InputBox("RUOTA DI RICERCA",,1))
p1 = CInt(InputBox("POSIZIONE 1° ESTRATTO",,1))
p2 = CInt(InputBox("POSIZIONE 2° ESTRATTO",,2))
r2 = CInt(InputBox("RUOTA DI GIOCO",,1))
k = InputBox("COLPI DI GIOCO",,10)
ini = InputBox("INIZIO",,8730)
fin = EstrazioneFin 
For es = ini To fin
Call AvanzamentoElab(ini,fin,es) 
n1 = Estratto(es,r1,p1) : n2 = Estratto(es,r1,p2)
x = n1 * n2
ruota(1)= r2 : ruota(2)= TU_ 
co=co+1
Scrivi String(100,"=")&" Caso n°"& Format2(co),1
Scrivi DataEstrazione(es)&" - "& SiglaRuota(r1)&" - "& StringaEstratti(es,r1)
Scrivi "NUMERO TROVATO " & x
x1 = Fuori90(Left(Format2(n1 * n2),2))
x2 = Fuori90(Right(Format2(n1 * n2),2))
Scrivi "AMBO: "& Format2(x1)&"-"& Format2(x2)
ambo(1)= x1
ambo(2)= x2
EliminaRipetuti ambo
ImpostaGiocata 1,ambo,ruota,poste,k,2
Gioca es,1
Next 
scrivi:scrivi:scrivi
scrivi:scriviresoconto 
End Sub

 

[stefanonet35]

Ciao Blackmore lo script è perfetto come sempre. Ti seguo sul forum e non ti nascondo che spesso metto volentieri in gioco i tuoi meravigliosi script di matematica sommativa.
Ti ringrazio per l'interessamento e ti auguro una buona serata.

Stefanonet35