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.085
Punti reazione
40
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 14 dicembre 2019
    Bari
    68
    27
    78
    11
    72
    Cagliari
    69
    18
    78
    08
    48
    Firenze
    41
    52
    46
    63
    77
    Genova
    74
    64
    90
    32
    43
    Milano
    14
    36
    06
    73
    57
    Napoli
    21
    83
    20
    86
    90
    Palermo
    12
    07
    50
    39
    60
    Roma
    04
    20
    80
    62
    09
    Torino
    29
    21
    12
    08
    55
    Venezia
    48
    72
    83
    18
    14
    Nazionale
    31
    07
    56
    06
    22
Alto