Alien.;n1963722 ha scritto:PROSSIMA VINCITA IN QUESTI MESI -----"SPERO"------
ANNO VINCITE 2005 1 2006 2 2007 2 2008 4 2009 1 2010 3 2011 2 2012 2 2013 2 2014 2 2015 2 2016 1
MAR APR MAG LUG
everest62;n1990017 ha scritto:ciao ragazzi del fforum come promesso vi mando il metodo qui ci sono altri terni ...spero che qualche amico fa un bel script
[FONT=Verdana, Arial, Helvetica]La tecnica è molto semplice e si basa su un singolo estratto composto da due cifre al quale bisogna abbinare i due numeretti che lo compongono (Unità/Decina) e la loro somma.
LA RUOTA
L'ambata prescelta è quella che può pervenire da altri metodi e che è prossima all'uscita su una determinata ruota, tenendo in considerazione l'uscita anche degli altri numeri derivati
Esempio:57
5-7-(somma-12)
57-5-7-12
--------------------------
31
3-1 (somma-4)
31-1-3-4
Giocare la quartina per ambo-terno-quaterna su Tutte e su quelle ruote dove uno dei quattro numeri è in attesa;
la quartina può essere chiaramente scomposta in ambi secchi poichè sono frequenti gli ambi;
se nelle precedenti estrazioni sono già usciti ambi o terni appartenenti alla quartina prescelta, aspettare qualche estrazione o cambiare numero in caso di uscita già del terno negli ultimi mesi (o giocare solo gli ambi)-
TERNI USCITI NEGLI ULTIMI MESI CON QUESTA TECNICA OLTRE AD INNUMEREVOLI AMBI (qualcuno può fare un listato?)
6-3-2008-GENOVA-57-7-12
22-3-2008-TORINO-75-12-5
12-4-2008-FIRENZE-74-7-4
19-4-2008-MILANO-32-2-3
8-5-2008-FIRENZE-8-26-2
22-5-2008-FIRENZE -63-3-9
29-5-2008-VENEZIA-67-6-7[/FONT]
Option Explicit
'Metodo 'a' x ambo, terno su ruota di everest62
'http://forum.lottoced.com/forum/lottoced/area-download/1956490-metodo-a-x-ambo-terno-su-ruota/page5
Sub Main()
Dim klp,casi,im
Dim Ini,fin,es
Dim r,p,a
Dim poste(04),ruote(02),amb(04)
im = ScegliEstrazione
r = ScegliRuota
p = ScegliPosizione
klp = QuantiColpi
poste(02) = 1
poste(03) = 0.7
poste(04) = 0.3
casi = 00
Ini = EstrazioneFin - 100
fin = EstrazioneFin
For es = Ini To fin
If IndiceMensile(es) = im Then
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
a = Estratto(es,r,p)
If a > 09 Then
casi = casi + 01
Call Scrivi(String(125,"-") & " Caso n° " & Format2(casi),01)
Call Scrivi(GetInfoEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) _
& " Estratto il n° " & Format2(a) & " in " & Format2(p) & "° Posizione",01)
ruote(01) = r
ruote(02) = TU_
amb(01) = a
amb(02) = Cadenza(a)
amb(03) = Decina(a)
amb(04) = Cadenza(a) + Decina(a)
Call ImpostaGiocata(01,amb,ruote,poste,klp)
Call Gioca(es,True,,02)
End If
End If
Next
Call ScriviResoconto
End Sub
Function ScegliEstrazione()
Dim aVoci(14)
Dim i,bRet
For i = 01 To 14
aVoci(i) = i
Next
bRet = ScegliOpzioneMenu(aVoci,1,"Selezionare Indice Mensile")
ScegliEstrazione = bRet
End Function
Function ScegliPosizione()
Dim aVoci,bRet
aVoci = Array("","01","02","03","04","05")
bRet = ScegliOpzioneMenu(aVoci,01,"Selezionare Posizione")
ScegliPosizione = bRet
End Function
Function QuantiColpi()
Dim aVoci(50)
Dim i,bRet
For i = 01 To 50
aVoci(i) = i
Next
bRet = ScegliOpzioneMenu(aVoci,18,"Selezionare Quantita' Colpi")
QuantiColpi = bRet
End Function