ROMA LUNGA (1° estrazione del mese)

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( = 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

nn1( = Fuori90(Estratto(es,8,2) + 67)

questa è la dicitura giusta, dove c'è la faccina è il numero 8
  

 

La cosa è stata un poco più lunga del solito….però questa sera ha pagato l'ambo
ROMA 10-73   
(calcolo per la prossima previsione sabato 1 Marzo)

ho provato a fare i calcoli e mi vengono questi numeri:8-20-28-29-32-47-56-66-78
spero che siano giusti per chi vuol seguire Vinci

Ciao Vinci, ho provato lo script ma mi da errore..

ciaosalvo ha scritto:Ciao Vinci, ho provato lo script ma mi da errore..

nn1(Cool = Fuori90(Estratto(es,8,2) + 67)

questa è la dicitura giusta, dove c'è la faccina è il numero 8
Cool

prova a sostituire con il numero 8   

Grazie Vinci, già fatto e funziona.. Grazie

Ciao Vinci, che dici? iniziamo a giocare la nuova previsione?
Ciao e buona serata.

ciaosalvo ha scritto:Ciao Vinci, che dici? iniziamo a giocare la nuova previsione?
Ciao e buona serata.

Direi proprio di si, anche il mese scorso ha pagato   

Previsione in corso per il mese di aprile

ROMA 11.31.43.51.52.55.70.79.89

Ambata e capogioco = ROMA 51

Ciao Vinci, peccato per un punto non abbiamo fatto il terno, purtroppo io l'ambo non l'ho giocato ma ho puntato solo su terno e quaterna.. porc.... che si fà si continua?

Ciao