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.
Alien.;n1963722 ha scritto:PROSSIMA VINCITA IN QUESTI MESI -----"SPERO"------ [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 64"]ANNO[/TD]
[TD="width: 64"]VINCITE[/TD]
[/TR]
[TR]
[TD="align: right"]2005[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD="align: right"]2006[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]2007[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]2008[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD="align: right"]2009[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD="align: right"]2010[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD="align: right"]2011[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]2012[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]2013[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]2014[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]2015[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]2016[/TD]
[TD="align: right"]1[/TD]
[/TR]
[/TABLE]
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="class: xl63, width: 64"]MAR[/TD]
[TD="class: xl63, width: 64"]APR[/TD]
[TD="class: xl63, width: 64"]MAG[/TD]
[TD="class: xl63, width: 64"]LUG[/TD]
[/TR]
[/TABLE]
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