Sub Main()
Scrivi " BARI-CAGLIARI NUOVA PAGINA!! di luigi di anzio "'-
http://forum.lottoced.com/f8/bari-cagliari-nuova-pagina-109532/ -
Dim nn(2),n1(2),n2(2),n3(2),n4(2),n5(5),posta(1),poste(2),postee(3),ruota(2)
posta(1) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
ruota(1) = BA_
ruota(2) = CA_
k = 13
Ini = EstrazioneFin - 100
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
a = Estratto(es,BA_,1)
b = Estratto(es,CA_,1)
nn(1) = Fuori90(a + b)
nn(2) = Diametrale(Fuori90(a + b))
ImpostaGiocata 1,nn,ruota,posta,k,1
n1(1) = Fuori90(a + b)
n1(2) = Fuori90(nn(1) + 06)
ImpostaGiocata 2,n1,ruota,poste,k,2
n2(1) = Fuori90(a + b)
n2(2) = Fuori90((90 + nn(1)) - 06)
ImpostaGiocata 3,n2,ruota,poste,k,2
n3(1) = Fuori90(a + b)
n3(2) = Fuori90(nn(1) + 23)
ImpostaGiocata 4,n3,ruota,poste,k,2
n4(1) = Fuori90(a + b)
n4(2) = Fuori90((90 + nn(1)) - 23)
ImpostaGiocata 5,n4,ruota,poste,k,2
n5(1) = Diametrale(Fuori90(a + b))
n5(2) = Fuori90(nn(1) + 06)
n5(3) = Fuori90(nn(1) + 23)
n5(4) = Fuori90((90 + nn(1)) - 06)
n5(5) = Fuori90((90 + nn(1)) - 23)
ImpostaGiocata 6,n5,ruota,postee,k,3
co = co + 1
Scrivi String(106,"=") & " Caso n°" & CInt(co),1
Scrivi DataEstrazione(es) & " - " & NomeRuota(BA_) & " - " & StringaEstratti(es,BA_)
Scrivi DataEstrazione(es) & " - " & NomeRuota(CA_) & " - " & StringaEstratti(es,CA_)
ColoreTesto 1
Scrivi
Scrivi " Ruota di [" & SiglaRuota(BA_) & "] il primo estratto è [" & Format2(a) & "]"
Scrivi " Ruota di [" & SiglaRuota(CA_) & "] il primo estratto è [" & Format2(b) & "]"
Scrivi " sommare i primi due numeri di bari cagliari [" & Format2(a) & "] + [" & Format2(b) & "] = [" & Fuori90(nn(1)) & "] - Ambata e Primo Capigioco Ambi Secchi"
Scrivi " Il rispettivo Diametrale + 45 [" & Fuori90(nn(1)) & "] = [" & Format2(nn(2)) & "] - Ambata e Secondo Capigioco Cinquina"
Scrivi " Sommare il fisso + 6 [" & Format2(nn(1)) & "] = [" & Format2(n1(2)) & "] - Primo Abbinamento"
Scrivi " Sommare il fisso + 23 [" & Format2(nn(1)) & "] = [" & Format2(n3(2)) & "] - Secondo Abbinamento"
Scrivi " sotrarre il fisso - 6 [" & Format2(nn(1)) & "] = [" & Format2(n2(2)) & "] - Terzo Abbinamento"
Scrivi " sotrarre il fisso - 23 [" & Format2(nn(1)) & "] = [" & Fuori90(n4(2)) & "] - Quarto Abbinamento"
Scrivi
ColoreTesto 0
Gioca es,True,,1
Next
ScriviResoconto
End Sub