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.
Sub Main()
Dim posta(5)
Dim poste(5)
Dim ruote(5)
Dim am(3)
poste(1) = 1
poste(2) = 1
poste(3) = 1
casi = 0
fin = EstrazioneFin
ini = EstrazioneFin - 1000
For es = ini To fin
For r1 = 1 To 1
For p1 = 1 To 1
a = Estratto(es,1,3)
b = Estratto(es,7,3)
If(a) = 18 Or(b) = 18 Then
ruote(1) = 1
ruote(2) = 7
am(1) = 12
am(2) = 21
am(3) = 90
ImpostaGiocata 1,am,ruote,poste,12
Scrivi
ColoreTesto 2
Scrivi String(40,32) & " Pronostico n° " & cont & "",1
ColoreTesto 0
Scrivi
Gioca es
casi = casi + 1
End If
Next
Next
Next
ScriviResoconto
End Sub
Casi esaminati: 26
in corso: 1
casi finali: 25
positivi: 25
negativi: 0
Pronostici generati: 52
Pronostici vincenti: 106 (203,8 %)
Estrazioni di gioco: 301
Tentativi (scontrini giocati): 602
Vincite (scontrini vincenti): 106 (17,61 %)
Attesa media: 6,49
Resoconto totale giocate
Resoconto economico
Sorte Spese [€] Real. Vincite [€] -6% Guadagno [€]
---------------------------------------------------------------
Ambata 602,00 115 430,56 404,73 -197,27
Ambo 602,00 10 833,33 783,33 181,33
Terno 602,00 1 4.500,00 4.230,00 3.628,00
Quaterna 0,00 0 0,00 0,00 0,00
Cinquina 0,00 0 0,00 0,00 0,00
E.Det.1 0,00 0 0,00 0,00 0,00
E.Det.2 0,00 0 0,00 0,00 0,00
E.Det.3 0,00 0 0,00 0,00 0,00
E.Det.4 0,00 0 0,00 0,00 0,00
E.Det.5 0,00 0 0,00 0,00 0,00
Totale: 1.806,00 5.763,89 3.957,89 3.612,06