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.
x forerunner o per chi vuole
ho trovato in buona posizione d'uscita l'ambo secco 39 79 su TORINO-VENEZIA-TUTTE
avete qualche riscontro a breve o del 39 o del 79 su tali ruote?
ed il 39 10 Bari- Cagliari - Tutte , quasi sicuro a breve!
Volentieri: per base unica intendo dire che si è formato un solo ambo dei 35- 40 (alcuni ripetuti) formatisi, per cui quella base o se vuoi quell'ambata molto spesso esce entro max 3 colpi (spesso a colpo). Quando ti chiedo di fare una ricerca su quella base o ambata con le tue approfondite analisi diventa più facile centrare l'ambo e, come tu sai, avendo un ambo sicuro da seguire per max. 3 colpi, diventa relativamente facile centrare anche il terno a ruota. Nel caso di GENOVA del 22, esso era presente una sola volta accoppiato col 64. Lo chiamo base in quanto il 64 era presente più di una volta, ma con basi ripetute (altri numeri). In altre parole quando un numero si forma una "sola" volta come abbinamento alle varie ambate, esso diventa l'elemento centrale su cui puntare l'attenzione. Infatti mentre le ambate derivavano da varie tecniche(cioè il 64 GENOVA), il 22 era l'unico numero scelto dal software e che io per comodità chiamo base. Infatti ad ogni estrazione il software sceglie (non sono ancora riuscito a capire in che modo) cinque o sei numeri base. Per farti un esempio recentissimo, all'ottava estrazione sulla ruota di TORINO i numeri base erano i seguenti: 15, 2, 23, 6, 16 e 24. Risultato: due ambi secchi a ruota (16-2 e 40-2) a colpo, ma io non ho vinto in quanto ho puntato sul 90-15. Come ultima osservazione aggiungo che i numeri che chiamo base unica, cioè il 17 di VENEZIA (abbinato al 79) dell'ultima estrazione, se non a ruota ce lo siamo ritrovati estratto 2 volte su NAZIONALE e ROMA, mentre il 30 segnalato su TORINO è uscito una sola volta su CAGLIARI. Spero di essere stato chiaro ed esauriente. Buona serata.
e quindi vorrei continuare gli ambi cn il capogioco 39, in particolare cn l'ambo 39/10..molto importante x me la sua risposta, quindi le chiedo.... sbaglio a persistere?!?Option Explicit
Sub Main
Dim r,fine,ini,x,y,z
Dim fr(12,90)
ReDim aTitoli(13),avalori(13)
aTitoli(1) = " BA "
aTitoli(2) = " Ca "
aTitoli(3) = " FI "
aTitoli(4) = " GE "
aTitoli(5) = " MI "
aTitoli(6) = " NA "
aTitoli(7) = " PA "
aTitoli(8) = " RO "
aTitoli(9) = " TO "
aTitoli(10) = "VE "
aTitoli(11) = " TT "
aTitoli(12) = " NZ "
aTitoli(13) = " base "
SetTableWidth("600px")
Call InitTabella(aTitoli,2,"center",1.50,5,"Cambria")
fine = InputBox("Estrazione n.",,EstrazioneFin)
ini = fine - 27
Scrivi "Situazione basi o capogiochi all'estrazione n." & fine & "/" & DataEstrazione(fine),1
For x = 1 To 90
y = 0
For r = 1 To 12
fr(r,x) = EstrattoFrequenza(r,x,ini,fine)
y = y + 1
avalori(y) = fr(r,x)
avalori(13) = Format2(x)
Next
Call AddRigaTabella(avalori,Bianco_,"center",1)
Call SetColoreCella(13,RGB(230,230,230),vbBlack)
For z = 1 To 12
If avalori(z) = 0 Then
Call SetColoreCella(Int(z),RGB(217,237,209),vbBlue)
End If
If avalori(z) = 1 Then
Call SetColoreCella(Int(z),RGB(250,247,105),vbBlack)
End If
Next
Next
Call CreaTabella
End Sub
ti ringrazio per il tuo lavoro ma mi dovresti spiegare come fare a caricare il tuo script in spaziometria e come farlo funzionare.Se vogliamo fare un esperimento per alcuni colpi, per la prossima estrazione le basi sulla ruota di VENEZIA sono le seguenti:29, 34, 8, 5, 11, 74, 22. Ti posso garantire che funzionano veramente. Ecco un esempio: la volta scorsa ho giocato la tua previsione di VENEZIA 39-79 e poi ho scelto una base del software 45 che si abbinava a più ambate. Se fosse venuto il 45 avrei centrato una quaterna a colpo, invece ho preso solo un terno in quartina (vedi allegati).
'Option Explicit
Sub Main
Dim ini,fin,ini1,es,ciclo,colpi,i,y,ii,da,a,xd,b,paridi,semi,yy,h,av1,d,dis,pa
Dim bEsito,sfa,clc,clp,cc,kk,estra,ambo,terno,quat,cinq,idestr,ta,te,tte,tq,tc,Settori
Dim kGiocate,kCasi,kCasiPos,kAmbi,ktutto 'contatori capigioco, abbinamenti, giocate,casi tot, casi pos, ambirealizz
Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2),tutto(1),rittab(90,1),fp(250,2),dispar(250,1),par(250,1)
Dim RetEsito,RetColpi,RetEstratti,retId
ReDim Atutto(0) 'array per i CG (freq>2), gli abbin(freq=2)
aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,EstrazioneFin))
sfa = CInt(InputBox("Solo Numeri con Frequenza ",,1))
clc = CInt(InputBox("Quanti cicli di gioco ",,27))
clp = CInt(InputBox("Quanti colpi di gioco ",,12))
fin = EstrazioneFin
ciclo = clc : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
colpi = clp 'colpi di gioco
aPosta(2) = 1 : semi = 9
For es = ini To fin Step ciclo + 1 ' analizzo l'archivo a blocchi di 9 estrazioni
ReDim cade(10),deci(9): ra = "" : dis = "" : pa = ""
cc = cc + 1
Messaggio es
Call AvanzamentoElab(ini,fin,es)
ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
ktutto = 0' ad ogni nuovo ciclo azzero i contatori
ReDim Atutto(0) ' e riazzero gli array prima di ogni ciclo
For ii = 1 To 90
tutto(1) = ii
If SerieFreqTurbo(ini1,es,tutto,aRuota,1) = sfa Then
ktutto = ktutto + 1
ReDim Preserve Atutto(ktutto)
Atutto(ktutto) = Format2(ii)
cade(Cadenza(ii)) = cade(Cadenza(ii)) & Format2(ii) & "."
If ii < 90 Then deci(Decina(ii)) = deci(Decina(ii)) & Format2(ii) & "."
If ii = 90 Then deci(0) = deci(0) & Format2(ii)
End If
'''calcola settori P-D
rittab(ii,0) = EstrattoRitardo(aRuota(1),ii,fin - 250,fin)
da = 0 : a = 10 : xd = 0
For b = 1 To 250
paridi = ""
yy = semi*b
If rittab(ii,0) = yy Then
If pari(b) Then
paridi = "P "
fp(b,0) = fp(b,0) + 1
fp(b,1) = fp(b,1) & Format2(ii) & " "
Exit For
End If
If dispari(b) Then
paridi = "D "
fp(b,0) = fp(b,0) + 1
fp(b,1) = fp(b,1) & Format2(ii) & " "
Exit For
End If
Else
If rittab(ii,0) = 0 Then
paridi = "D "
fp(b,0) = fp(b,0) + 1
fp(b,1) = fp(b,1) & Format2(ii) & " "
Exit For
End If
If rittab(ii,0) >= da And rittab(ii,0) < a Then
fp(b,0) = fp(b,0) + 1
fp(b,1) = fp(b,1) & Format2(ii) & " "
If pari(b) Then
paridi = "P "
Exit For
Else
paridi = "D "
Exit For
End If
End If
End If
da = da + semi : a = a + semi
Next
rittab(ii,1) = paridi
If paridi = "D " Then
dispar(b,0) = dispar(b,0) & Format2(ii) & "."
End If
If paridi = "P " Then
par(b,0) = par(b,0) & Format2(ii) & "."
End If
If SerieFreqTurbo(ini1,es,tutto,aRuota,1) = sfa Then
ReDim Preserve Asemic(ktutto)
Asemic(ktutto) = paridi
End If
Next
kCasi = kCasi + 1
Call ColoreTesto(1)
Call Scrivi
Call Scrivi(String(155,"=") & " Caso n° " & cc)
Call Scrivi("Ricerca su " & NomeRuota(aRuota(1)) & ".................ciclo di " & ciclo + 1 & " estrazioni - Periodo (" & ini1 & "-" & es & ")",1)
ColoreTesto(2)
Call Scrivi("Tutti i Numeri con frequenza = " & sfa,1)
ColoreTesto(0)
Scrivi StringaNumeri(Atutto) & " [ " & ktutto & " ] ",1
Scrivi StringaNumeri(Asemic) & " [Settore A - B] ",1
av1 = StringaNumeri(Atutto)
ReDim aV2(0)
Call SplitByChar(av1,".",aV2)
For ii = 0 To ktutto - 1
If EstrattoRitardo(aRuota(1),aV2(ii),EstrazioneIni,es) > 0 Then
ra = ra & Format2(EstrattoRitardo(aRuota(1),aV2(ii),EstrazioneIni,es)) & "."
Else
ra = ra & "00."
End If
Next
Scrivi ra & " [Ritardo Attuale] ",1
Call Scrivi(String(155,"="))
''''---------------------------------------------------------------------------------------------------------------------
''''divisione numeri in pari-dispari
For ii = 0 To ktutto - 1
If rittab(aV2(ii),1) = "P " Then
pa = pa & Format2(aV2(ii)) & "."
Else
dis = dis & Format2(aV2(ii)) & "."
End If
Next
ColoreTesto(2)
Scrivi " Dispari = " & dis,1
Scrivi " Pari = " & pa,1
ColoreTesto(0)
Call Scrivi(String(155,"="))
''''---------------------------------------------------------------------------------------------------------------------
'''riepilogo per cadenza e decina
For h = 0 To 9
If h > 0 And h <= 9 Then Scrivi FormatSpace(h,3) & ".....cadenza..." & cade(h)
If h = 0 Then Scrivi FormatSpace(h,3) & ".....cadenza..." & cade(h)
Next
Scrivi ".........................................................."
'''riepilogo per cadenza e decina
For h = 0 To 8
If h > 0 And h <= 8 Then Scrivi FormatSpace(h,3) & ".....decina...." & deci(h)
If h = 0 Then Scrivi FormatSpace(h,3) & ".....decina...." & deci(h)
Next
Call Scrivi
Call ColoreTesto(0)
kGiocate = 0 ' ad ogni nuova estrazione azzero il contatore delle giocate
bEsito = False
kCasiPos = kCasiPos + 1
'
Scrivi String(20,"-") & " Verifica esito nelle estrazioni successive " & String(20,"-")
kk = 0 : estra = 0 : ambo = 0 : terno = 0 : quat = 0 : cinq = 0
For idestr = es + 1 To es + colpi
kk = kk + 1
Call VerificaEsitoTurbo(Atutto,aRuota,idestr,1,1,,RetEsito,RetColpi,RetEstratti,retId)
If RetEsito <> "" Then
ColoreTesto 0
If RetEsito = "Estratto" Then estra = estra + 1
If RetEsito = "Estratto" Then te = te + 1
If RetEsito = "Ambo" Then ColoreTesto 2
If RetEsito = "Ambo" Then ta = ta + 1
If RetEsito = "Ambo" Then ambo = ambo + 1
If RetEsito = "Terno" Then ColoreTesto 1
If RetEsito = "Terno" Then terno = terno + 1
If RetEsito = "Terno" Then tte = tte + 1
If RetEsito = "Quaterna" Then ColoreTesto 7
If RetEsito = "Quaterna" Then quat = quat + 1
If RetEsito = "Quaterna" Then tq = tq + 1
If RetEsito = "Cinquina" Then ColoreTesto 6
If RetEsito = "Cinquina" Then cinq = cinq + 1
If RetEsito = "Cinquina" Then tc = tc + 1
''''mettere in stampa settori P-D dei numeri
ReDim aV5(0)
Call SplitByChar(RetEstratti," ",aV5)
Settori = ""
For e = 1 To 5
If aV5(e) <> ".." Then
Settori = Settori & rittab(aV5(e),1) & " "
Else
Settori = Settori & " "
End If
Next
Call Scrivi(idestr & " - " & Format2(kk) & "° - " & RetEstratti & " - (" & Settori & ") " & RetEsito & " - " & GetInfoEstrazione(retId),1)
ColoreTesto 0
End If
Next
Scrivi
Scrivi" Totali Estratto..." & estra & " ",True,False,0,5,2
Scrivi" Totali Ambi......." & ambo & " ",True,False,2,4,2
Scrivi" Totali Terni......" & terno & " ",True,False,4,2,2
Scrivi" Totali quaterne..." & quat & " ",True,False,7,0,2
Scrivi" Totali cinquine..." & cinq & " ",True,True,6,0,2
Call ColoreTesto(0)
If ScriptInterrotto Then Exit For
Next
Call Scrivi
Call Scrivi(String(60,"="))
Scrivi
Scrivi " Cicli.... " & cc,1
Scrivi " Colpi...." & clp,1
Scrivi " Tot. estrazioni ...." & cc*clp,1
Scrivi
Scrivi " Totali estratti..." & te,True,False,0,5,3
Scrivi " Totali Ambi......." & ta,True,False,2,4,3
Scrivi " Totali terni......" & tte,True,False,4,2,3
Scrivi " Totali Quaterne..." & tq,True,False,7,0,3
Scrivi " Totali Cinquine..." & tc,True,True,6,0,3
Scrivi
Call Scrivi(" Script Listed by Mike58 & Rubino ",True,True,3,1,3)
End Sub
