Sub Main()
Scrivi
ColoreTesto 1
Scrivi String(35," ") & " Metodo di Francesco57 - Listato By Blackmore"
Scrivi
ColoreTesto 0
Dim ruote(2)
Dim ambata(2)
Dim cinquina1(5)
Dim cinquina2(5)
Dim posta(2)
Dim poste(4)
posta(1) = 1
poste(2) = 2
poste(3) = 0.90
poste(4) = 0.10
k = 9
t = 0
fin = EstrazioneFin
ini = fin - 100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
r2 = r1 + 1
If r2 = 11 Then r2 = 12
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If a + b = 88 Or a + b = 89 Then
t = t + 1
ruote(1) = r1
ruote(2) = r2
Scrivi String(85,"=") & " Caso n° " & Format2(t),1
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,(r1)) & " - " & SiglaRuota(r2) & " " & StringaEstratti(es,(r2)) & " ----> " & Format2(a) & " e " & Format2(b) & " = SOMMA " & a + b & " ISOTOPA"
ColoreTesto 0
Scrivi String(85,"="),1
ambata(1) = 88
ambata(2) = 89
ImpostaGiocata 1,ambata,ruote,posta,k,1
cinquina1(1) = 88
cinquina1(2) = 78
cinquina1(3) = 87
cinquina1(4) = 12
cinquina1(5) = 66
ImpostaGiocata 2,cinquina1,ruote,poste,k
cinquina2(1) = 89
cinquina2(2) = 78
cinquina2(3) = 87
cinquina2(4) = 12
cinquina2(5) = 66
ImpostaGiocata 3,cinquina2,ruote,poste,k
Gioca es
End If
Next
Next
Next
Scrivi
Scrivi "Casi Rilevati " & CInt(t)
ScriviResoconto
End Sub