Sub Main()
'http://forum.lottoced.com/forum/lottoced/metodi/1916802-riepilogo-dei-metodi-per-ambata-vecchi-e-nuovi
'riepilogo dei metodi per ambata vecchi e nuovi di bibbolotto
Dim klp,casi,Ini,fin,es
Dim posta(01)
posta(01) = 1
klp = 13
casi = 00
Ini = 08946
fin = EstrazioneFin
For es = Ini To fin
Messaggio(es)
AvanzamentoElab Ini,fin,es
'--------------------------------------------------------------------------------------------
'1°metodo ruote In gioco bari cagliari alla prima mensile
'fate la somma dei primi e secondi estratti di bari e cagliari aumentati ognuno di una unita.
'esempio estr 01092015 bari 73 20 26 43 90
'cag 17 42 43 05 32
'quindi 74+21+18+43= 66 uscito al 1° colpo su bari
'--------------------------------------------------------------------------------------------
Dim es1,B1,B2,C1,C2
ReDim n1(01),ruota1(02)
es1 = es
If IndiceMensile(es1) = 01 Then
casi = casi + 01
Scrivi String(125,"-") & " Caso n° " & Format2(casi),1
B1 = Fuori90(Estratto(es1,BA_,1) + 01)
B2 = Fuori90(Estratto(es1,BA_,2) + 01)
C1 = Fuori90(Estratto(es1,CA_,1) + 01)
C2 = Fuori90(Estratto(es1,CA_,2) + 01)
ruota1(01) = BA_:ruota1(02) = CA_
n1(01) = Fuori90(B1 + B2 + C1 + C2)
Scrivi "1°metodo alla 1° mensile gioco BARI CAGLIARI",1,,,1
ImpostaGiocata 1,n1,ruota1,posta,klp,1
Gioca es,True,,2
End If
'--------------------------------------------------------------------------------------------
'2° metodo ruota In gioco nazionale ultima estr mensile
'3°ge+1°mi+37 uscito al 1°colpo 33 nazionale
'--------------------------------------------------------------------------------------------
Dim es2
ReDim n2(01),ruota2(01)
es2 = es
If IsUltimaDelMese(es2) Then
ruota2(01) = NZ_
n2(01) = Fuori90((Estratto(es2,GE_,3) + Estratto(es2,MI_,1)) + 37)
Scrivi "2° metodo ultima estr mensile gioco NAZIONALE",1,,,1
ImpostaGiocata 2,n2,ruota2,posta,klp,1
Gioca es,True,,2
End If
'--------------------------------------------------------------------------------------------
'3° metodo ruota In gioco bari ultima mensile
'1° ca+ 55 = 65 In attesa su bari
'--------------------------------------------------------------------------------------------
Dim es3
ReDim n3(01),ruota3(01)
es3 = es
If IsUltimaDelMese(es3) Then
ruota3(01) = BA_
n3(01) = Fuori90(Estratto(es3,CA_,1) + 55)
Scrivi "3° metodo ultima mensile gioco BARI",1,,,1
ImpostaGiocata 3,n3,ruota3,posta,klp,1
Gioca es,True,,2
End If
'--------------------------------------------------------------------------------------------
'4°metodo ruota In gioco genova estraz calcolo 1° mensile
'5°ge x 9 = 72 ambata sortita
'--------------------------------------------------------------------------------------------
Dim es4
ReDim n4(01),ruota4(01)
es4 = es
If IndiceMensile(es4) = 1 Then
ruota4(01) = GE_
n4(01) = Fuori90(Estratto(es4,GE_,5) * 09)
Scrivi "4°metodo calcolo 1° mensile gioco GENOVA",1,,,1
ImpostaGiocata 4,n4,ruota4,posta,klp,1
Gioca es,True,,2
End If
'--------------------------------------------------------------------------------------------
'5° metodo ruote In gioco ba na estraz calcolo 1° mensile
'somma di tutti gli estratti della nazionale risultato da giocare su bari napoli
'anche questa uscita
'--------------------------------------------------------------------------------------------
Dim es5
ReDim n5(01),ruota5(02)
es5 = es
If IndiceMensile(es5) = 1 Then
ruota5(01) = BA_:ruota5(02) = NA_
n5(01) = Fuori90(SommaEstratti(es5,NZ_))
Scrivi "5° metodo calcolo 1° mensile gioco BARI NAPOLI",1,,,1
ImpostaGiocata 5,n5,ruota5,posta,klp,1
Gioca es,True,,2
End If
'--------------------------------------------------------------------------------------------
'6°metodo ruota In gioco milano estraz calcolo 1° mensile
'4° di bari+84 anche questa uscita
'--------------------------------------------------------------------------------------------
Dim es6
ReDim n6(01),ruota6(01)
es6 = es
If IndiceMensile(es6) = 1 Then
ruota6(01) = MI_
n6(01) = Fuori90(Estratto(es6,BA_,4) + 84)
Scrivi "6°metodo calcolo 1° mensile gioco MILANO",1,,,1
ImpostaGiocata 6,n6,ruota6,posta,klp,1
Gioca es,True,,2
End If
'--------------------------------------------------------------------------------------------
'7°metodo 1° Mese 4° GENOVA +41 estraz calcolo 1° mensile
'DA GIOCARE SU BARI VENEZIA
'QUESTO Mese L'AMBATA ERA 20 USCITA IL 3 SETTEMBRE SU VENEZIA
'--------------------------------------------------------------------------------------------
Dim es7
ReDim n7(01),ruota7(02)
es7 = es
If IndiceMensile(es7) = 1 Then
ruota7(01) = BA_:ruota7(02) = VE_
n7(01) = Fuori90(Estratto(es7,GE_,4) + 41)
Scrivi "7°metodo 1° Mese 4° GENOVA +41 estraz calcolo 1° mensile gioco SU BARI VENEZIA",1,,,1
ImpostaGiocata 7,n7,ruota7,posta,klp,1
Gioca es,True,,2
End If
'--------------------------------------------------------------------------------------------
'8°metodo Ultima del mese
'Si considera il 5° Milano +9 il risultato viene giocato sulla ruota Nazionale
'--------------------------------------------------------------------------------------------
Dim es8
ReDim n3(01),ruota3(01)
es8 = es
If IsUltimaDelMese(es8) Then
ruota3(01) = NZ_
n3(01) = Fuori90(Estratto(es3,MI_,5) + 9)
Scrivi "8°metodo ultima mensile il 5° Milano + 9 gioco SU NAZIONALE",1,,,1
ImpostaGiocata 8,n3,ruota3,posta,klp,1
Gioca es,True,,2
End If
Next
'ScriviResoconto
End Sub
