Sub Main
' ***** metodo MILANO VINCE CON IL +9 di MIELE50 -------- Listato GioRyuKen72 *****
' https://forum.lottoced.com/threads/milano-vince-con-il-09.2192193/#post-2213842
Scrivi " metodo MILANO VINCE CON IL +9 di MIELE50 -------- Listato GioRyuKen72 ",1,1,1,4,4,"verdana",1
Dim abb1,abb2,abb3,abb4,abb5,abb6,abb7,abb8,abb9,abb10,abb11,Abb12
Dim Ruota(1),NumeroRicerca,Ambata
Dim Quartina1(4),Quartina2(4),Quartina3(4),Quartina4(4),Ambata1(1)
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2)
Dim PostaA(2),PostaQ(4),PostaABT(1),es,Ini,Fin,Caso,Casi,Colpi
PostaABT(1) = 1 ' 1,00 euro sull'estratto
PostaA(2) = 1 '1,00 euro sull'ambo secco
'PostaQ(2) = 0 '0 euro sull'ambo in quartina
PostaQ(3) = 0.85 '0,85 euro sul terno in quartina
PostaQ(4) = 0.15 '0,15 euro sulla quaterna in quartina
Fin = EstrazioneFin
Ini = InputBox("Da quale estrazione vuoi iniziare?",,9532)
Colpi = InputBox("Per quanti colpi vuoi giocare?",,10)
For es = Ini To Fin
Caso = 0
AvanzamentoElab Ini,Fin,es
If IsUltimaDelMese(es) Then
Caso = Caso + 1
Casi = Casi + 1
NumeroRicerca = Estratto(es,FI_,5) ' cambia solo qui il numero di ricerca
Scrivi String(50,"=") & " Caso n." & Casi
Scrivi String(36," = ") & "NUMERO di RICERCA " & NumeroRicerca,1,,,1,3
Ambata = Fuori90(NumeroRicerca + 9)
abb1 = 1
abb2 = 10
abb3 = 78
abb4 = 9
abb5 = 22
abb6 = 35
abb7 = 61
abb8 = 63
abb9 = 46
abb10 = 72
abb11 = 78
Abb12 = 53
Ruota(1) = 5 'Milano o scrivere MI_
Ambata1(1) = Ambata
ImpostaGiocata 1,Ambata1,Ruota,PostaABT,Colpi,1
Ambo1(1) = Ambata
Ambo1(2) = abb2
ImpostaGiocata 2,Ambo1,Ruota,PostaA,Colpi,2
Ambo2(1) = Ambata
Ambo2(2) = abb5
ImpostaGiocata 3,Ambo2,Ruota,PostaA,Colpi,2
Ambo3(1) = Ambata
Ambo3(2) = Abb12
ImpostaGiocata 4,Ambo3,Ruota,PostaA,Colpi,2
Ambo4(1) = Ambata
Ambo4(2) = abb7
ImpostaGiocata 5,Ambo4,Ruota,PostaA,Colpi,2
Ambo5(1) = Ambata
Ambo5(2) = abb3
ImpostaGiocata 6,Ambo5,Ruota,PostaA,Colpi,2
Quartina1(1) = Ambata
Quartina1(2) = abb1
Quartina1(3) = abb2
Quartina1(4) = abb3
' ImpostaGiocata 7,Quartina1,Ruota,PostaQ,Colpi,3
Quartina2(1) = Ambata
Quartina2(2) = abb4
Quartina2(3) = abb5
Quartina2(4) = abb6
' ImpostaGiocata 8,Quartina2,Ruota,PostaQ,Colpi,3
Quartina3(1) = Ambata
Quartina3(2) = abb2
Quartina3(3) = abb7
Quartina3(4) = abb8
' ImpostaGiocata 9,Quartina3,Ruota,PostaQ,Colpi,3
Quartina4(1) = Ambata
Quartina4(2) = abb9
Quartina4(3) = abb10
Quartina4(4) = abb11
'ImpostaGiocata 10,Quartina4,Ruota,PostaQ,Colpi,3
Gioca es,1,,1
End If
Next
TestoInBandaPassante " ***** metodo MILANO VINCE CON IL +9 di MIELE50 -------- Listato GioRyuKen72 ***** ",1,1,4
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub