Per Salvo 50

[Raimbow58]

Ciao Salvo 50,
Avrei bisogno di uno script che trova due numeri in forma isotopa e su ruote diametrali con distanza 27. Trovata la condizione si sommano i due numeri e il risultato insieme al suo diamtrale in decina formeranno il primo ambo, il secondo ambo saranno i vertibili del primo ambo.
ES: GE 85 TO 58 previsione 53-58 35-85.
Grazie

 

[salvo50]

Option Explicit Sub Main Dim FIn,Es,Ini,Clp,Salvo50,Dist,A,B,A1,B1 Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi Dim Ambo1(2),Ambo2(2),Ruo(2),Posta(2) FIn = EstrazioneFin Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,9930)) Dist = CInt(InputBox("Inserisci la Distanza Tra i Due Estratti",Salvo50,27)) Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",,15)) Scrivi Space(8) & "Due Ruote Diametrali, Estratti Isotopi con distanza " & Dist & " Script Salvo50",1,,4,,3,,1 'Posta(1) = 1 Posta(2) = 1 For Es = Ini To FIn Messaggio Es AvanzamentoElab Ini,FIn,Es Caso = 0 For R1 = 1 To 5 R2 = RuotaDiametrale(R1) For P1 = 1 To 5 A = Estratto(Es,R1,P1) B = Estratto(Es,R2,P1) If Distanza(A,B) = Dist Then Ambo1(1) = Fuori90(A + B) Ambo1(2) = DiametraleD(Ambo1(1)) Ambo2(1) = Vert(Ambo1(1)) Ambo2(2) = Vert(Ambo1(2)) Caso = Caso + 1 Casi = Casi + 1 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0 Scrivi " " & SiglaRuota(R1) & " ",1,0 For P2 = 1 To 5 E1 = Estratto(Es,R1,P2) If E1 = A Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E1) & " ",1,0 ColoreTesto 0 Next Scrivi Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0 Scrivi " " & SiglaRuota(R2) & " ",1,0 For P3 = 1 To 5 E2 = Estratto(Es,R2,P3) If E2 = B Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E2) & " ",1,0 ColoreTesto 0 Next Scrivi Scrivi Scrivi Space(18) & " Distanza Inserita " & Format2(Dist),1 Scrivi Scrivi Space(18) & " Somma di " & A & " + " & B & " = " & Format2(Ambo1(1)),1 Scrivi Ruo(1) = R1 Ruo(2) = R2 ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp Gioca Es,1 End If Next Next If ScriptInterrotto Then Exit Sub Next ScriviResoconto End Sub

 

[Raimbow58]

Grazie mille Salvo 50, funziona benissimo.
Saluti ed auguri di buone feste.