Novità

Ricerca Script

max63

Super Member >GOLD<
Buongiorno a tutti....
C'era da qualche parte ma non ricordo..

Stavo cercando uno script che dato un numero spia a scelta in qualsiasi ruota ti forniva gli ambi piu frequenti..su ruota e su tutte

Qualcuno ce l'ha in qualche meandro?

Grazie mille a tutti
 
Questo postato da Pandit ma fatto da chi non so ma che ringrazio...va benissimo se non che le risultanze delle varie frequenze non mi pagano l occhio o forse nn ho ben capito io.

Qualcuno puo dargli un occhiata?...Grazie mille

Sub Main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1 = CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",42))
r = CInt(InputBox("La Ruota scelta ? (Dove è uscita la Spia)","RUOTA",1))
rt(1) = r
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",200))
clp = CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",15))
ru1(1) = 11
fin = EstrazioneFin
ini = EstrazioneFin - ee
For cc = 1 To 90
For w = 1 To 2
n(cc,w) = 0 : nt(cc,w) = 0 : nrr(cc,w) = 0
Next
Next
co = 0 : casi = 0
For es = ini To fin
Messaggio " Spia: " & n1 & "Estrazione : " & es
'Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & n1
casi = casi + 1
ess = es + clp
If ess > fin Then ess = fin End If
For x = es + 1 To ess
cc = 0
For pp = 1 To 5
d = Estratto(x,r,pp)
e = Estratto(x,rut,pp)
n(d,1) = d
nrr(e,1) = e
n(d,2) = n(d,2) + 1
nrr(e,2) = nrr(e,2) + 1 '<<<
Next
For rr = 1 To 10
For p1 = 1 To 5
g = Estratto(x,rr,p1)
nt(g,1) = g
nt(g,2) = nt(g,2) + 1
Next
Next
Next
co = 0
For x = 1 To 90
For y = x + 1 To 90
co = co + 1
nn(1) = x : nn(2) = y : ru(1) = r
ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y
yy = SerieFreq(es + 1,ess,nn,ru,2)
ambi(co,4) = ambi(co,4) + yy
If yy > 0 Then
ambi(co,5) = ambi(co,5) + 1
Else
ambi(co,5) = ambi(co,5)
End If
nn1(1) = x : nn1(2) = y
ambi1(co,1) = co : ambi1(co,2) = x : ambi1(co,3) = y
xx = SerieFreq(es + 1,ess,nn1,ru1,2)
ambi1(co,4) = ambi1(co,4) + xx
If xx > 0 Then
ambi1(co,5) = ambi1(co,5) + 1
Else
ambi1(co,5) = ambi1(co,5)
End If
nr(1) = x : nr(2) = y
ambrr(co,1) = co : ambrr(co,2) = x : ambrr(co,3) = y
kk = SerieFreq(es + 1,ess,nr,rt,2)
ambrr(co,4) = ambrr(co,4) + kk
If kk > 0 Then
ambrr(co,5) = ambrr(co,5) + 1
Else
ambrr(co,5) = ambrr(co,5)
End If
Next
Next
Next
Scrivi
Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA " & CInt(n1) & " e " & CInt(n2) & " Su Ruota Unica",1
Scrivi
Scrivi NomeRuota(r),1
Scrivi "N° casi: " & CInt(casi),1 : Scrivi
Scrivi " Frequenti nei " & clp & " colpi successivi",1
OrdinaMatrice n,- 1,2
OrdinaMatrice ambi,- 1,5
OrdinaMatrice ambi1,- 1,5
OrdinaMatrice nt,- 1,2
OrdinaMatrice nrr,- 1,2
OrdinaMatrice ambrr,- 1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota| Ambi Tutte | Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x = 1 To 10
riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & Format2(ambi(x,2)) & "-" & _
Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & _
Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5) & " | " & Format2(nt(x,1)) & "..." & _
Format2(nt(x,2))
Scrivi riga
riga = ""
Next
Scrivi String(65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di " & NomeRuota(rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x = 1 To 10
rige = " " & Format2(nrr(x,1)) & "..." & Format2(nrr(x,2)) & " | " & Format2(ambrr(x,2)) & "-" & _
Format2(ambrr(x,3)) & "..." & Format2(ambrr(x,5))
Scrivi rige
rige = ""
Next
Scrivi String(65,"*")
End Sub
 
Prova questo è più mirato ma dà numeri singoli..
Sub Main()
Dim num(90,2)
r = eval(InputBox("Ruota?",,1))
sp = eval(InputBox("Numero Spia?",,34))
pos = eval(InputBox("Posizione?",,1))
colpi = 13'eval(InputBox("colpi di gioco?",,9))
ini = EstrazioneFin - 9900
fin = EstrazioneFin - colpi
Scrivi " Dal " & DataEstrazione(ini) & " " & ini & " al " & DataEstrazione(EstrazioneFin) & " " & fin
Scrivi " Numeri più frequenti usciti dopo il numero Spia in posizione " & pos
casi = 0
For es = ini To fin
Messaggio " Spia: " & sp & " Estrazione : " & es
If Posizione(es,r,sp) = pos Then
casi = casi + 1
ess = es + 1 + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For k = 1 To 90
n1 = Estratto(a,r,1)
n2 = Estratto(a,r,2)
n3 = Estratto(a,r,3)
n4 = Estratto(a,r,4)
n5 = Estratto(a,r,5)
If n1 = k Or n2 = k Or n3 = k Or n4 = k Or n5 = k Then
num(k,1) = k
num(k,2) = num(k,2) + 1
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,2

ColoreTesto 1
Scrivi String(70,"*")
Scrivi
Scrivi "Numero spia: " & sp & " su " & NomeRuota(r) & " casi " & casi & " - numeri più frequenti entro " & colpi & " colpi",1
Scrivi : Scrivi : ColoreTesto 2
riga = "Num. "
riga1 = "Freq. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(num(i,2),3) & " "
Next
Scrivi riga,1
ColoreTesto 1
Scrivi riga1
End Sub
 
Ultima modifica:
Prova questo è più mirato ma dà numeri singoli..
Sub Main()
Dim num(90,2)
r = eval(InputBox("Ruota?",,1))
sp = eval(InputBox("Numero Spia?",,34))
pos = eval(InputBox("Posizione?",,1))
colpi = 13'eval(InputBox("colpi di gioco?",,9))
ini = EstrazioneFin - 9900
fin = EstrazioneFin - colpi
Scrivi " Dal " & DataEstrazione(ini) & " " & ini & " al " & DataEstrazione(EstrazioneFin) & " " & fin
Scrivi " Numeri più frequenti usciti dopo il numero Spia in posizione " & pos
casi = 0
For es = ini To fin
Messaggio " Spia: " & sp & " Estrazione : " & es
If Posizione(es,r,sp) = pos Then
casi = casi + 1
ess = es + 1 + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For k = 1 To 90
n1 = Estratto(a,r,1)
n2 = Estratto(a,r,2)
n3 = Estratto(a,r,3)
n4 = Estratto(a,r,4)
n5 = Estratto(a,r,5)
If n1 = k Or n2 = k Or n3 = k Or n4 = k Or n5 = k Then
num(k,1) = k
num(k,2) = num(k,2) + 1
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,2

ColoreTesto 1
Scrivi String(70,"*")
Scrivi
Scrivi "Numero spia: " & sp & " su " & NomeRuota(r) & " casi " & casi & " - numeri più frequenti entro " & colpi & " colpi",1
Scrivi : Scrivi : ColoreTesto 2
riga = "Num. "
riga1 = "Freq. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(num(i,2),3) & " "
Next
Scrivi riga,1
ColoreTesto 1
Scrivi riga1
End Sub
Ciao,
se questo script impostato inizio estrazioni (1500) come decineNaturali,sarebbe il top con le posizioni.
Esempio: a Bari in prima posizione il 28/09/2024 esce il 47 in 27 casi in 13 colpi il 50 e' uscito 27 volte,il 46 e' uscito 23 volte,un 2x1 molto probabile,che potrebbe gia'dare esito da stasera.Verificate dal 2015 ad oggi il 47 in 1^ posizione.
 
Non sono così avanti negli script, purtroppo, la memoria non aiuta, ma se vuoi ho uno script che ti dice un numero in che posizione è uscito più volte, dove è più in ritardo ecc.. :cool: :rolleyes:
 
Non sono così avanti negli script, purtroppo, la memoria non aiuta, ma se vuoi ho uno script che ti dice un numero in che posizione è uscito più volte, dove è più in ritardo ecc.. :cool: :rolleyes:
Pandit ti ringrazio sei sempre gentile, ma ho risolto manualmente a cambiare le decine in base al numero di posizione.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 30 settembre 2025
    Bari
    14
    59
    63
    72
    68
    Cagliari
    05
    42
    65
    20
    30
    Firenze
    64
    61
    33
    56
    31
    Genova
    16
    38
    14
    31
    17
    Milano
    67
    80
    18
    26
    90
    Napoli
    56
    46
    13
    88
    20
    Palermo
    12
    68
    09
    26
    14
    Roma
    81
    80
    31
    84
    01
    Torino
    84
    69
    47
    12
    10
    Venezia
    74
    79
    06
    53
    81
    Nazionale
    83
    81
    47
    13
    66
    Estrazione Simbolotto
    Palermo
    41
    40
    45
    13
    10
Indietro
Alto