Ho trovato questo script in un altro sito, a me sembra che rispecchi la richiesta iniziale di Luana
CODICE
'Progetto - BYRON
'Script - by Salvo50
Option Explicit
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
Dim R1,Es,CLP,Esq,Caso,Casi
Dim S1,S2,S3,S4,S5,S6,S10,S11,S12
Dim FIn,Ini,Ruote(10),Posta(1)
Dim Idestr,Col,Esqcol,Ambata(1)
Posta(1) = 1
FIn = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9000)
CLP = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol
Caso = 0
AvanzamentoElab Esq,Esqcol,Es
For R1 = 1 To 10
A1 = Estratto(Es,R1,1) : If A1 > 0 Then
A2 = Estratto(Es,R1,2)
A3 = Estratto(Es,R1,3)
A4 = Estratto(Es,R1,4)
A5 = Estratto(Es,R1,5)
B1 = Estratto(Es + 1,R1,1)
B2 = Estratto(Es + 1,R1,2)
B3 = Estratto(Es + 1,R1,3)
B4 = Estratto(Es + 1,R1,4)
B5 = Estratto(Es + 1,R1,5)
'-----------------------------------------
S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - A3))
D3 = Fuori90(90 +(A3 - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90
D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90
D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90
D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90
D11 = Fuori90(90 +(B4 - B5)) : If D11 < 10 Then D11 = D11 + 90
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
Ambata(1) = Fuori90(S10 + B1)
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
S12 = Fuori90(S11 + S10)
If S12 = 90 Then
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi(" Estrazione n." & FormattaStringa(Es + 1,"0000") & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1
Scrivi
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " - Distanze " & Format2(D1),1,0
Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
ColoreTesto 1
Scrivi Format2(S10),1
ColoreTesto 0
Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
ColoreTesto 2
Scrivi " " & Format2(Ambata(1)),1,0
ColoreTesto 0
Scrivi " - Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
Scrivi Space(20) & String(20,"-")
Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
Scrivi " " & Format2(S5) & " " & Format2(S6) & " - Somma delle somme ",1,0
ColoreTesto 1
Scrivi Format2(S11),1
ColoreTesto 0
Scrivi
Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " Equazione Perfetta",1
Scrivi
'---------------------------------------------------------------------------------------------------
Ruote(1) = R1
ImpostaGiocata 1,Ambata,Ruote,Posta,CLP,1
Gioca Es
End If
End If
Next
Next
ScriviResoconto
Scrivi Space(50) & "Progetto - Lord Byron - "
Scrivi Space(50) & "Script - by Salvo50"
End Sub