Calcolo 1° Estrazione del mese
al 2° estratto di ROMA sommare:
+9+21+29+30+33+48+57+67+79
giocare la novina su ROMA per 10 colpi
dal 02/03/2013
al 01/02/2014
Casi = 12
Positivi = 11
Negativi = 1
In corso = 1
Ambi = 31
Terni = 19
Quaterne = 7
Cinquine = 1
script:
Sub Main() ColoreTesto 1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim nn1(10): Dim poste(5)
poste(2) = 0.70
poste(3) = 0.15
poste(4) = 0.10
poste(5) = 0.05
klp = 10
ini = 8659
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 8
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(100,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0
nn1(1) = Fuori90(Estratto(es,8,2) + 09)
nn1(2) = Fuori90(Estratto(es,8,2) + 21)
nn1(3) = Fuori90(Estratto(es,8,2) + 29)
nn1(4) = Fuori90(Estratto(es,8,2) + 30)
nn1(5) = Fuori90(Estratto(es,8,2) + 33)
nn1(6) = Fuori90(Estratto(es,8,2) + 48)
nn1(7) = Fuori90(Estratto(es,8,2) + 57)
nn1(8) = Fuori90(Estratto(es,8,2) + 67)
nn1(9) = Fuori90(Estratto(es,8,2) + 79)
EliminaRipetuti nn1
ImpostaGiocata 1,nn1,ruote,poste,klp,2
Gioca es
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
Previsione in corso:
10.19.29.41.61.73.81.82.85 su RM per Ambo,Terno,Quaterna,Cinquina
In corso per altre 4 estrazioni
nota bene:
nn1(8) = Fuori90(Estratto(es,8,2) + 67)
questa è la dicitura giusta, dove c'è (Cool è il numero 8 |
Roberto Vinci |
Modificato da - vinci su 16 febbraio 2014 21:32:10 |
|
ROMA LUNGA (1° estrazione del mese)
Spedito - 16 febbraio 2014 : 21:30:39
