COMPOSIZIONE SOMMA 92 FABARRI

COMPOSIZIONE SOMMA 92

'PROGETTO - COMPOSIZIONE 92 - BY FABARRI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
Dim FIn,Es,Esq,Clp,Col,Esqcol,Idestr
Dim Posta(2),Ruote(1),Ambo1(2),Ambo2(2)
Dim P1,P2,R1,Caso,Casi
Dim Estra,Estrb,CEstra,CEstrb,Somma1,SS
FIn = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9400)
Clp = InputBox("Per quanti colpi vuoi giocare l'ambo?",,15)
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,100))
Posta(2) = 1
Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol
Messaggio Es
AvanzamentoElab Esq,Esqcol,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
P2 = P1 + 1
Estra = Estratto(Es,R1,P1)
Estrb = Estratto(Es,R1,P2)
Somma1 = Fuori90(Estra + Estrb)
SS = 92 - Somma1
CEstra = Fuori90(90 +(SS - Estra))
CEstrb = Fuori90(90 +(SS - Estrb))
If CEstra <> Estra And CEstra <> Estrb And CEstrb <> Estra And CEstrb <> Estrb Then
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi
ColoreTesto 1
Scrivi " Estr.Cons " & Space(10) & " 1º Pronostico " & Space(10) & "2º Pronostico "
Scrivi Space(3) & Format2(Estra) & " " & Format2(Estrb) & Space(19) & Format2(Estra),1,0
Scrivi " " & Format2(CEstra) & Space(19) & Format2(Estrb) & " " & Format2(CEstrb),1
ColoreTesto 0
Scrivi
Scrivi
Ruote(1) = TU_
Ambo1(1) = Estra
Ambo1(2) = CEstra
ImpostaGiocata 1,Ambo1,Ruote,Posta,Clp
Ambo2(1) = Estrb
Ambo2(2) = CEstrb
ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp
Gioca Es
End If
Next
Next
Next
ScriviResoconto
Scrivi Space (50) & "PROGETTO - COMPOSIZIONE 92 - BY FABARRI"
Scrivi Space (50) & "SCRIPT BY SALVO50"

End Sub