Ciao Alien, vedi se ti può andar bene questo è un po' alla rifusa dato che non sono uno scripter!
Se non erro era un script di Marco Elle ma io l'ho modificato con un mio sommativo!
Sub Main() ColoreTesto 2
Scrivi
TestoInBandaPassante" METODO AMBO GEMELLO",1
Dim n(2),nr(2),num(2),ab1(3),lg(5),poste(5),posta(1),SP
Dim ambata(6),Abb1,Abb2,Abb3,Abb4,Abb5,abb6,abb7,abb8,abb9,abb10,Caso,Casi
Dim Ini,Fin,Es,clp,clp3,CLP1,CLP2,A,B,C,D,P1,P2,R1,R2
Dim Nu(15),Ruo(2),Po(3),R,Ruot(4)
Dim cinquina(10),cinquina1(10),cinquina2(10)
posta(1) = 1
poste(2) = 1
poste(3) = 1
poste(4) = 1
SP = " "
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9760)
CLP1 = InputBox("Per quanti colpi vuoi giocare L'ambata?",,13)
CLP2 = InputBox("Per quanti colpi vuoi giocare l'ambo e la cinquina?",,13)
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R,P1)
B = Estratto(Es,R,P2)
For R1 = R + 1 To 11
If R1 = 11 Then R1 = 12
C = Estratto(Es,R1,P1) : D = Estratto(Es,R1,P2)
If(A = C And B = D) Then
Scrivi
Nu(1) =(Fuori90(Estratto(Es,TO_,5) + 53))
Nu(2) = Fuori90(Estratto(Es,MI_,5) + 66)
Nu(3) = Fuori90(Estratto(Es,TO_,5) + 83)
Nu(4) = Fuori90(Estratto(Es,BA_,2) + Estratto(Es,MI_,4) + 71)
Nu(5) = Fuori90(Estratto(Es,NA_,4) + Estratto(Es,RO_,5) + 89)
Abb1 = DiametraleD(Nu(1))
Abb2 = DiametraleD(Nu(2))
Abb3 = DiametraleD(Nu(3))
Abb4 = DiametraleD(Nu(4))
Abb5 = DiametraleD(Nu(5))
abb6 = Vert(Abb1)
abb7 = Vert(Abb2)
abb8 = Vert(Abb3)
abb9 = Vert(Abb4)
abb10 = Vert(Abb5)
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
ColoreTesto 7:Scrivi String(50,"°") & " Caso n° " & Casi,1
Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & _
StringaEstratti(Es,R) & " -> " & Format2(A) & " " & Format2(B) & " Pos. " & P1 & " " & P2 & Chr(10) & _
DataEstrazione(Es) & " " & SiglaRuota(R1) & " " & _
StringaEstratti(Es,R1) & " -> " & Format2(C) & " " & Format2(D) & " Pos. " & P1 & " " & P2,1
ColoreTesto 7:Scrivi String(120,"°")
Scrivi
Ruo(1) = R1
Ruo(2) = R
Ruot(4) = TT_
ambata(1) = A : ambata(2) = B : ambata(3) = Nu(1) : ambata(4) = Abb1 : ambata(5) = abb6
ImpostaGiocata 1,ambata,Ruo,poste,CLP1
cinquina1(1) = Nu(1) : cinquina1(2) = Nu(2) : cinquina1(3) = Nu(3) : cinquina1(4) = Nu(4) : cinquina1(5) = Nu(5)
ImpostaGiocata 2,Nu,Ruo,poste,CLP1
cinquina(1) = Abb1 : cinquina(2) = Abb2 : cinquina(3) = Abb3 : cinquina(4) = Abb4 : cinquina(5) = Abb5
ImpostaGiocata 3,cinquina,Ruo,poste,CLP1
cinquina1(1) = abb6 : cinquina1(2) = abb7 : cinquina1(3) = abb8 : cinquina1(4) = abb9 : cinquina1(5) = abb10
ImpostaGiocata 4,cinquina1,Ruo,poste,CLP1
Gioca Es,1,,1
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
ScriviResoconto
End Sub
3733131908