'PROGETTO - PARALLELISMO TRA SOMME E NUMERI - BY FABARRI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
Dim FIn,Es,Esq,Clp,Col,Esqcol
Dim Posta(1),Ruote(2),Ambata(1)
Dim R1,R2,P1,P2,Casi,Caso
Dim Estra,Estrb,Estrc,Estrd,Somma1,Somma2
FIn = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,7)
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,500))
Posta(1) = 1
Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol
Caso = 0
Messaggio Es
AvanzamentoElab Esq,Esqcol,Es
For R1 = 1 To 9
For R2 = R1 + 1 To 10
For P1 = 1 To 4
P2 = P1 + 1
Estra = Estratto(Es,R1,P1)
Estrb = Estratto(Es,R1,P2)
Estrc = Estratto(Es,R2,P1)
Estrd = Estratto(Es,R2,P2)
Somma1 = Fuori90(Estra + Estrb)
Somma2 = Fuori90(Estrc + Estrd)
If Somma1 = Somma2 Then
Casi = Casi + 1
Caso = Caso + 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
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es) & " " & SiglaRuota(R1)),2,0
Scrivi " " & StringaEstratti(Es,R1) & " Coppia Consecutiva " & Format2(Estra) & " " & Format2(Estrb),2,0
Scrivi " Somma " & Format2(Somma1),2
Scrivi Space(35) & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " Coppia Isotopa ",2,0
Scrivi Format2(Estrc) & " " & Format2(Estrd) & " Somma " & Format2(Somma2),2
Scrivi
Ruote(1) = R1
Ruote(2) = R2
Ambata(1) = Somma1
ImpostaGiocata 1,Ambata,Ruote,Posta,Clp,1
Gioca Es
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi Space(50) & "PROGETTO - PARALLELISMO TRA SOMME E NUMERI - BY FABARRI"
Scrivi Space(50) & "SCRIPT - BY SALVO50"
End Sub
