luigi di anzio
Advanced Member >PLATINUM PLUS<
okkio MILANO PALERMO
54-66X TERNO 90
LUIGI DI ANZIO
54-66X TERNO 90
LUIGI DI ANZIO
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Uscito solo il 49 bari
saluti
luigi di anzio
Sub Main()
Scrivi
ColoreTesto 1
Scrivi String(30," ") & "METODO: *UN SOGNO...AMBO SECCO* DI LUIGI DI ANZIO"
ColoreTesto 1
Scrivi String(45," ") & "LISTATO BY BLACKMORE"
ColoreTesto 0
Scrivi
Dim ambata(1)
Dim ambo(2)
Dim aruo(3)
Dim aposta(1)
Dim aposte(2)
aposta(1) = 2
aposte(2) = 1
k = CInt(InputBox("INSERISCI I COLPI DI GIOCO",,10))
co = 0
For es = EstrazioneFin - 100 To EstrazioneFin
fin = EstrazioneFin
For r1 = 1 To 9
r2 = r1 + 1
r3 = r2 + 1
If r3 = 11 Then r3 = 12
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
c = Estratto(es,r3,p1)
If a = c Then
casi = casi + 1
aruo(1) = r1
aruo(2) = r3
co = co + 1
ColoreTesto 0
Scrivi String(90,"=") & " caso n°" &(casi),1
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " NUMERO ISOTOPO: " & Format2(a)
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " NUMERO INCASTRO: " & Format2(b)
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r3) & " " & StringaEstratti(es,r3) & " NUMERO ISOTOPO: " & Format2(c)
ColoreTesto 2
Scrivi "AMBATA = NUMERO INCASTRO: " & Format2(b)
ColoreTesto 2
Scrivi "ABBINAMENTO PER AMBO: " & Diametrale(a) & " ----> (Diametrale del numero isotopo)"
ColoreTesto 0
Scrivi String(90,"="),1
ambata(1) = b
ImpostaGiocata 1,ambata,aruo,aposta,k,1
ambo(1) = b
ambo(2) = Diametrale(a)
ImpostaGiocata 2,ambo,aruo,aposte,k,2
Gioca es
End If
Next
Next
Next
Scrivi
Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub