Sub Main()
Scrivi String(40," ") & " Numeretti a go-go' n° 3 - di rosce14 ",1 ' - http://forum.lottoced.com/f8/numeretti-go-go-n%B0-3-di-rosce14-113979/ -
Scrivi
Dim ruote(10),lung1(04)
Dim amba1(02),ambo2(02),ambo3(02),ambo4(02)
Dim poste(02),posta(03)
poste(01) = 1
posta(02) = 1
klp = 09
ini = EstrazioneFin - 100
fin = EstrazioneFin
For es = ini To fin
Messaggio es
AvanzamentoElab ini,fin,es
For r1 = 01 To 11
If r1 = 11 Then r1 = 12
e1 = Estratto(es,r1,01):e2 = Estratto(es,r1,02):e3 = Estratto(es,r1,03):e4 = Estratto(es,r1,04):e5 = Estratto(es,r1,05)
If e1 >= 10 And e2 >= 10 And e3 >= 10 And e4 >= 10 And e5 >= 10 Then
a1 = Figura(Estratto(es,r1,01)) : a2 = Figura(Estratto(es,r1,02)) : a3 = Figura(Estratto(es,r1,03))
a4 = Figura(Estratto(es,r1,04)) : a5 = Figura(Estratto(es,r1,05))
f1 = 00:f2 = 00:f3 = 00:f4 = 00:ok = 00
If a1 = a2 Then f1 = f1 + 01:ok = 01
If a1 = a3 Then f1 = f1 + 01:ok = 01
If a1 = a4 Then f1 = f1 + 01:ok = 01
If a1 = a5 Then f1 = f1 + 01:ok = 01
If a2 = a3 Then f2 = f2 + 01:ok = 01
If a2 = a4 Then f2 = f2 + 01:ok = 01
If a2 = a5 Then f2 = f2 + 01:ok = 01
If a3 = a4 Then f3 = f3 + 01:ok = 01
If a3 = a5 Then f3 = f3 + 01:ok = 01
If a4 = a5 Then f4 = f4 + 01:ok = 01
If ok = 01 Then
dec = 00
If Decina(Estratto(es,r1,01)) = 00 Then dec = dec + 01
If Decina(Estratto(es,r1,02)) = 00 Then dec = dec + 01
If Decina(Estratto(es,r1,03)) = 00 Then dec = dec + 01
If Decina(Estratto(es,r1,04)) = 00 Then dec = dec + 01
If Decina(Estratto(es,r1,05)) = 00 Then dec = dec + 01
If dec = 00 Then
If f1 + f2 + f3 + f4 = 02 Then
casi = casi + 01
Scrivi String(105,"-") & " Caso N° " & Format2(casi),1
Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" - Figure [ " & Format2(a1) & " - " & Format2(a2) & " - " & Format2(a3) & " - " & Format2(a4) & " - " & Format2(a5) & " ]",1
Scrivi
ruote(01) = r1
n1 = 00:n2 = 00:ok = 00
If f1 = 01 And f2 = 01 Then n1 = a1 + a2:ok = 01
If f1 = 01 And f3 = 01 Then n1 = a1 + a3:ok = 01
If f1 = 01 And f4 = 01 Then n1 = a1 + a4:ok = 01
If f2 = 01 And f3 = 01 Then n2 = a2 + a3:ok = 01
If f2 = 01 And f4 = 01 Then n2 = a2 + a4:ok = 01
If a1 + a2 = a1 * 02 Or a1 + a3 = a1 * 02 Or a1 + a4 = a1 * 02 Or a1 + a5 = a1 * 02 Then abb1 = a1:ok = 01
If a2 + a3 = a2 * 02 Or a2 + a4 = a2 * 02 Or a2 + a5 = a2 * 02 Then abb1 = a2:ok = 01
If a3 + a4 = a3 * 02 Or a3 + a5 = a3 * 02 Then abb1 = a3:ok = 01
If a4 + a5 = a4 * 02 Then abb1 = a4:ok = 01
If ok = 01 Then
'-------------------------------------------------------- Ambata
amba1(01) = n1 + n2
ImpostaGiocata 01,amba1,ruote,poste,klp,1
'-------------------------------------------------------- 1° Ambo
ambo2(01) = n1 + n2
ambo2(02) = abb1
ImpostaGiocata 02,ambo2,ruote,posta,klp,2
'-------------------------------------------------------- 2° Ambo
abb2 = amba1(1) - abb1
ambo3(01) = n1 + n2
ambo3(02) = abb2
ImpostaGiocata 03,ambo3,ruote,posta,klp,2
'-------------------------------------------------------- Ambo Jolly
ambo4(01) = n1 + n2
ambo4(02) = abb1 - abb2
If abb2 > abb1 Then ambo4(02) = abb2 - abb1
If ambo4(01) = ambo2(01) And ambo4(02) = ambo2(02) Then ambo4(01) = 00:ambo4(02) = 00
If ambo4(01) = ambo3(01) And ambo4(02) = ambo3(02) Then ambo4(01) = 00:ambo4(02) = 00
ImpostaGiocata 04,ambo4,ruote,posta,klp,2
'--------------------------------------------------------
Gioca es,True,,2
End If
End If
End If
End If
End If
Next
Next
ScriviResoconto
End Sub