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.
Option Explicit
Sub Main
Dim numeri,x,dal,fine,pos,conta,period,last,i
Dim nm(1),rie(90)
''''imposta archivio
ImpostaArchivio10ELotto(1)
numeri = InputBox("Numeri ",,"01-02-03-04-05-06-07-08-09")
fine = InputBox("imposta Estrazione Finale n.",,EstrazioneFin)
dal = fine - 50
ReDim av(0)
Call SplitByChar(numeri,"-",av)
last = UBound(av)
Scrivi last & " ---- " & numeri
Dim atitoli(4),avalori(4)
atitoli(1) = "Num."
atitoli(2) = "n.estraz."
atitoli(3) = "Pres"
atitoli(4) = " "
' ' inizializzo la tabella
Call InitTabella(atitoli,2,"center",1.5,5,"Arial")
For dal = dal + 1 To fine
For x = 0 To last
conta = 0
If Int(av(x)) > 0 Then
For pos = 1 To 20
If Int(av(x)) = EstrattoDL(dal,pos) Then
conta = conta + 1
rie(av(x)) = rie(av(x)) + 1
End If
Next
If conta > 0 Then
avalori(1) = av(x)
avalori(2) = dal
avalori(3) = conta
Call AddRigaTabella(avalori)
End If
End If
Next
Next
Call CreaTabella
Scrivi " Riepilogo Numeri nel periodo di 50 estrazioni = ult.3 mesi circa "
Scrivi
For i = 0 To last
Scrivi " Numero " & av(i) & " Usc.totali " & rie(av(i))
Next
End Sub
dovrebbe essere arrivata l'ora della formula decina 0 4
quindi questi 20 numeri dovrebbero uscire in una certa quantità.
01 02 03 04 05 06 07 08 09 10 41 42 43 44 45 46 47 48 49 50
in alternativa la formula 4 5
dovrebbe anch'essa essere in buona preferenza.
a voi la miscellanea se volete fondere questi suggerimenti.
faccio un esempio come prova:
dall'ultima estrazione i numeri che tenderanno a ripetersi sono:
12-41
56-78
78-83
41-56
1 5 8 41 51 56
13 16 48 88
si può fare qualche modifica lasciando invariato la scelta dei numeri?
Sub Main()
' statistica per rilevamento delle posizioni 1-20 che formano ambi secchi e ambate con posivitiva alta nel brevissimo'
'condizione
'------------ verifica posizioni prolifiche che generano ambi secchi
'------------ nei (x) concorsi precedenti e nei (x) concorsi successivi come positività dell'ambo
'------------ rileva i prossimi 2 numeri per la sorte dell'ambo e di estratto dall'ultima condizione rispettata.
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(1)
Dim num(20)
Dim fr(98990)
Dim rie(98990)
Dim rit(98990)
Dim numeri1(2020)
Dim numeri2(98990)
Dim nriga(98990)
storia = InputBox("Estrazioni ricerca LX ",,EstrazioneFin)
z = InputBox("Controllo Tempo = conc.n.",,18)
v = InputBox("Presenze Minime richieste 1,2,3,4",,30)
v1 = InputBox("Presenze Minime Posizioni richieste 1,2,3,4 = ",,1)
pros = InputBox("n.concorsi x verifica esito",,9)
fin = storia
Ini = storia - z
''''---------------------------------scrivi nr.estratti nel range di data
idestr = storia - z
For x = 0 To z
riga = ""
For yy = 1 To 20
riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
Next
Scrivi idestr & " " & riga
idestr = idestr + 1
Next
''''''''''''----------------------------------------------------------------
idestr = ini
For pri = 1 To Int(z)
finale = fin
'''carica schiera con 20 numeri estratti
For h = 1 To 20
num(h) = EstrattoDL(idestr,h)
Next
'''''ricerca migliori ambi frequenti nel range estrazioni successivi = pros
For y = 1 To 19
For w = y + 1 To 20
'Scrivi Idestr & " " & finale & ".." & num(y) & " " & num(w)
pr = AmboFrequenzaDL(num(y),num(w),idestr,finale)
'''accumula per posizione dove è uscito l'ambo nei concorsi = pros
co = Format2(y) & Format2(w)
rie(co) = rie(co) + pr
rit(co) = Idestr
nriga(co) = Format2(y) & Format2(w)
Next
Next
idestr = idestr + 1
Next
'''''riepilogo posizione ambi più frequenti
ColoreTesto 1
Scrivi
Scrivi "10 E LOTTO ricerca posizionale per ambo by Rubino"
Scrivi "______________________________________________________________________"
Scrivi "Dall' Estrazione " & storia
Scrivi "calcola presenze in conc.n." & z
Scrivi "Presenze Minime richieste = " & v
Scrivi "Presenze Minime Posizioni richieste 1,2,3,4 = " & v1
Scrivi "n.concorsi x verifica esito : " & pros
Scrivi "Estrazione finale " & fin
Scrivi "Estrazione iniziale " & Ini
ColoreTesto 0
Scrivi "----------------------------------------------------------------------"
Scrivi "cnc.r2p1-r1p2 Numeri... Presenze Previsione Nr.x Estr.e Ambo "
Scrivi "----------------------------------------------------------------------"
For h = 1 To 2020
If rie(h) >= Int(v) Then
t1 = Left(nriga(h),2)
t2 = Right(nriga(h),2)
Scrivi storia & " " & nriga(h) & "............................" & rie(h) & ".................." & Format2(EstrattoDL(storia,t1)) & " - " & Format2(EstrattoDL(storia,t2))
If rie(h) >= Int(v) Then
cd = Right(nriga(h),4)
c = Left(cd,2)
d = Right(cd,2)
po = Format2(c) & Format2(d)
numeri1(po) = numeri1(po) + 1
End If
End If
Next
'''ricava numeri attuali x ambo o ambate da posizioni più frequenti
For t = 1 To 2020
If t < 1000 Then
t3 = "0" & Right(t,4)
Else
t3 = Right(t,4)
End If
t2 = Right(t3,2)
t1 = Left(t3,2)
If Int(numeri1(t)) >= Int(v1) Then
If numeri1(t) > 1 Then
Scrivi " - " & t1 & " " & t2 & " Posizione frequente n. " & numeri1(t)
End If
End If
Next
End Sub