Sub Main
' https://forum.lottoced.com/threads/ne-vale-la-pena.2194984/post-2257592
ColoreTesto 0
Scrivi " Metodo NE VALE LA PENA? di BURDIGA -- listato GioRyuKen72",1
Scrivi
ColoreTesto 0
Dim Fin,Ini,Es,R1,Caso,Casi,Ruo,Estrazione,Posto,P5,E1,Ruota(1)
Dim abb1,abb2,abb3,abb4
Dim AmbataPrincipale,Ambata1(2),AmbataSecondaria,SoMBate
Dim PostaABT(1),PostaA(2),PostaC(5)
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Cinquina1(5)
PostaA(2) = 1
PostaABT(1) = 2
PostaC(2) = 1.5
PostaC(3) = 0.7
PostaC(4) = 0.25
PostaC(5) = 0.05
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare.. 9416=dal 2018, 9572= dal 2019",,9416)
Ruo = CInt(InputBox(" In quale ruota vuoi giocare? BARI=1, CAGLIARI=2, FIRENZE=3 etc etc NAZIONALE=12",,4))
Estrazione = CInt(InputBox(" In quale estrazione mensile?",,2))
Posto = CInt(InputBox(" In quale estrazione mensile?Primo estratto=1, SecondoEstratto=2, etc etc fino al 5",,4))
Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
For Es = Ini To Fin
Caso = 0
AvanzamentoElab Ini,Fin,Es
If IndiceMensile(Es) = Estrazione Then
AmbataPrincipale = Estratto(Es,Ruo,Posto)
AmbataSecondaria = Fuori90(AmbataPrincipale + 1)
SoMBate = Fuori90(AmbataPrincipale + AmbataSecondaria)
abb1 = 91 - SoMBate
abb2 = 90 - SoMBate
abb3 = Fuori90(abb1 + 1)
abb4 = Fuori90((90 + abb2) - 1)
Ruota(1) = Ruo
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(Ruo) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,Ruo,P5)
If E1 = AmbataPrincipale Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
ColoreTesto 0
Scrivi String(16," ") & " Sulla ruota di " & NomeRuota(Ruo) & " nell'estrazione del mese nr.." & Format2(Estrazione) & " al " & Format2(Posto) & "°Posto",1,,,1
Scrivi
Ambata1(1) = AmbataPrincipale
Ambata1(2) = AmbataSecondaria
ImpostaGiocata 1,Ambata1,Ruota,PostaABT,13,1 'imposto le giocate x ambata
Ambo1(1) = AmbataPrincipale
Ambo1(2) = abb1
' ImpostaGiocata 2,Ambo1,ruota,PostaA,13,2
Ambo2(1) = AmbataPrincipale
Ambo2(2) = abb2
'ImpostaGiocata 3,Ambo2,ruota,PostaA,13,2
Ambo3(1) = AmbataPrincipale
Ambo3(2) = abb3
'ImpostaGiocata 4,Ambo3,ruota,PostaA,13,2
Ambo4(1) = AmbataPrincipale
Ambo4(2) = abb4
'ImpostaGiocata 5,Ambo4,ruota,PostaA,13,2
Cinquina1(1) = AmbataPrincipale
Cinquina1(2) = abb1
Cinquina1(3) = abb2
Cinquina1(4) = abb3
Cinquina1(5) = abb4
ImpostaGiocata 6,Cinquina1,Ruota,PostaC,13,2
Gioca Es,1,,1
'Next
End If
Next
' Next
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Metodo NE VALE LA PENA? di BURDIGA -- listato GioRyuKen72 ***** ",1,3,0
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub