Novità

ricerca combinazioni di numeri

alexvisco

Member
Messaggi
64
Punti reazione
0
Punti
6
Buongiorno, cerco uno script che mi elabori le combinazioni frequenti impostando un estratto.
Ad esempio numero 14 quali sono le combinazioni di numeri che si realizzano, sia ruota fissa e sia a tutte.
Grazie
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.080
Punti reazione
38
Punti
48
vedi se ti va bene... verifica i risultati in output

'
'BY ESSELOTTO NUMERI FREQUENTI DOPO SPIA X ' + piccole modifiche di testo in output di claudio
Sub Main()
ColoreTesto 2
Scrivi "Spia - migliori ambate sortite + Ritardi(modificato da esselotto)" & Chr(7),1
Scrivi "modificato da esselotto per mike58 lottoced)" & Chr(7),1
ColoreTesto 0
Dim n(90,6),ru(1),ru1(1),nu(1),nn1(1),fre
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,88))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,2))
If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari,2 Cagliari,ecc.?",,1))
If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90 ?",,90))
If am = "" Then Exit Sub
fre = CInt(InputBox(" Quante estrazioni considero per la frequenza ?",,18))
If am = "" Then Exit Sub

r2 = 11
nn1(1) = nn
fin = EstrazioneFin
ini = fin - ee
For es = ini To fin
Messaggio " Spia: " & nn & " su " & FormatSpace(NomeRuota(r1),4,- 1) & " Estrazione : " & es 'messaggio in esecuzione script
If Posizione(es,r1,nn) > 0 Then ' se il valore posizione di nn > 0 ( presente) nell aestrazione es della ruota r1, allora
ru1(1) = r2
If SerieFreq(es,es,nn1,ru1,1) = 1 Then 'frequenti-SerieFreq(Inizio,fine,vetNumeri,RUOTE,Sorte) 6= determ. 1a posiz
ess = es + cl' 'ess = es+ colpi
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
fr = SerieFreq(es + 1,ess,nu,ru,1)' ricerca frequenza su ruota
rt = SerieRitardo(ini,fin,nu,ru,1) 'ricerca ritardo attuale
rs = SerieStorico(fin - ee,fin,nu,ru,1)'ricerca ritardo storico
fru = SerieFreq(EstrazioneFin - fre,EstrazioneFin,nu,ru,1)
n(co,3) = n(co,3) + fr
n(co,4) = rt
n(co,5) = rs
n(co,6) = fru
ca = EstrazioneFin - es
cnn = EstrattoFrequenza(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
cna = EstrattoRitardo(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
Next
End If
End If
Next
Scrivi "__________________________________________________________________________________"
Scrivi ""
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & nn & " ruota di " & NomeRuota(r1) & Chr(10),2
ColoreTesto 0
Scrivi" Dal " & DataEstrazione(ini) & "(" & Ini & ") al " & DataEstrazione(fin) & "(" & fin & ")" & Chr(10)_
& "estrazioni Totali esaminate : " & ee,2
Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: - - - > " & nn,1
Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
ColoreTesto 2
Scrivi DataEstrazione(EstrazioneFin - cna) & " - " & "[" & " " & SiglaRuota(r1) & " - " & StringaEstratti(EstrazioneFin - cna,r1) & "" & "]" & " [" & Format2(nn) & "]" & " ----- n° estraz.trascorse - - - > " & cna,1
ColoreTesto 0
Scrivi "__________________________________________________________________________________"
Scrivi ""
Scrivi " N° | Presenze | Ritardo | Rit. storico | Frequenza nulle | Ruota di --> " & NomeRuota(r1),- 1,,3,0
Scrivi " | | attuale | nel ciclo | ultime " & fre & " estr. | Ruota di --> " & NomeRuota(r1),- 1,,3,0
OrdinaMatrice n,- 1,3
For w = 1 To am
Scrivi " " & Format2(n(w,2)) & " " & FormatSpace(n(w,3),6,1) & String(7," ") & FormatSpace(n(w,4),5,1) & FormatSpace(n(w,5),17,1) & FormatSpace(n(w,6),15,1)
Next
ColoreTesto 0
Scrivi "____________________________________________________________________________________" & Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90
Alto