Novità

Per Mike o chi ha tempo ...grazie!!!

antonio65

antonio65

Super Member >PLATINUM<
Salve,chiedo gentilmente una modifica allo script seguente in allegato.
Lo script è stato creato dal grande e bravo Mike e ideato da me....
Si tratta di un resoconto finale mi spiego:lo script contiene 5 righe da me scelte
chiedo appunto la modifica per quante volte in una delle 5 righe sia in orizzontale che in verticale
siano usciti : estratti,ambi e terno...in questo modo poi mi gestisco io i vari indici mensile.
grazie Antonio.

Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5)
Dim Ru(1),T
Ini = EstrazioneFin - 1725
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
'For pos = 1 To 5
'c = c + 1
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1")
Call InitTabella(T,6)
For es = Ini To fin
If IndiceMensile(es) = Ind Then
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
End If
Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(15)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)

sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,10,,esito,colpi,estratti,id)
V(12) = esito
V(13) = estratti
V(14) = colpi
V(15) = sr
Call AddRigaTabella(V)
Next
casi = 0
Call CreaTabella()
End Sub
 
Ciao Antonio, rivedere script per il quale si è perso il filo logico dell'iter con il quale è stato strutturato non è mai semplice.

Tuttavia se non ho capito male ti mette le giocate dei numeri che in un arco di colpi verifichi quali sarebbero stati gli esiti dei tuoi numeri.

P.s. la verifica parte da EstrazioneFin - i colpi in verifica quindi attendibili solo con buon uso utente.

ciao e scusa se qualche volta sono poco disponibile, ma la voglia di tritare e ritritare script non sempre è al mssimo.

Codice: 
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MeN(5)
Dim Ru(1),T,posta(5)
posta(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = .5
posta(5) = .5
Ini = EstrazioneFin - 1725
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
cnt = CInt(InputBox("Quante estrazioni controllo",,18))
'For pos = 1 To 5
'c = c + 1
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifi ca","Colpo","Ritardo x 1")
Call InitTabella(T,6)
For es = Ini To fin
If IndiceMensile(es) = Ind Then
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
End If
Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(15)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
MeN(1) = Fuori90(Abs(V(5) - DNA(1)))
MeN(2) = Fuori90(Abs(V(5) - DNA(2)))
MeN(3) = Fuori90(Abs(V(5) - DNA(3)))
MeN(4) = Fuori90(Abs(V(5) - DNA(4)))
MeN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
V(7) = MeN(1)
V(8) = MeN(2)
V(9) = MeN(3)
V(10) = MeN(4)
V(11) = MeN(5)

sr = SerieRitardo(Ini,fin,MeN,Ru,1)
Call VerificaEsito(MeN,Ru,es1,1,10,,esito,colpi,estratti,id)
V(12) = esito
V(13) = estratti
V(14) = colpi
V(15) = sr
Call AddRigaTabella(V)
ImpostaGiocata i,MeN,Ru,posta,cnt
Next
casi = 0
Call CreaTabella()
Gioca fin - cnt
ScriviResoconto
End Sub
 
Ciao Mike già il fatto di prendermi in considerazione ...per me è un grande onore...io non sono bravo di script...capisco qualcosa...è chiaro che nel mio lavoro(io sono un imitatore musicista tecnico del suono) sono stato in Svizzera da Giugno...nel mio campo aiuto tutti con basi musicali consigli sul mixaggio etc etc...Riguardo lo script che mi hai inviato il resoconto va bene ...ma non è quello che ho chiesto....diciamo per metà...mi serviva capire singolarmente ogni numero delle 5 linee (quindi 5 numeri per riga) quanti estratti escono...quanti ambi...cosi io poi scelgo i migliori risultati....Inoltre non so per quale ragioni ma quando dice 24 su 133 ad esempio cioè 24 casi su 133 non sono veritieri perchè ho controllato con lo stesso metodo su altro script...cmq poca importa...è già tanto il tempo che mi dedichi...
 
Ciao Antonio,i casi sembrano esatti nel tuo script hai un range elevato di oltre 1700 estrazioni e normale che ci siano 130 casi medi o indici mensili ( è quello il dato di riferimento), poi le frequenze Bho non saprei io ti ho messo le frequenze x 1,2,3, ossia estratti, ambo, terno che le cinquini hanno conseguito nel range impostato ma liberi dagli indici mensili.

Poi la verifica è sempre meglio averla visiva sulle ultime estrazioni volute.

prova ma capendo un pochetto di script pian pianino puoi mofificarlo per il tuo giusto scopo.

Ciao

Codice: 
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MeN(5),sff(3)
Dim Ru(1),T,posta(5)
posta(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = .5
posta(5) = .5
Ini = EstrazioneFin - 172
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
cnt = CInt(InputBox("Quante estrazioni controllo",,18))
'For pos = 1 To 5
'c = c + 1
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifi ca","Colpo","Ritardo x 1","frx1","frx2","frx3")
Call InitTabella(T,6)
For es = Ini To fin
If IndiceMensile(es) = Ind Then
casi = casi + 1

For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
End If
Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(18)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
MeN(1) = Fuori90(Abs(V(5) - DNA(1)))
MeN(2) = Fuori90(Abs(V(5) - DNA(2)))
MeN(3) = Fuori90(Abs(V(5) - DNA(3)))
MeN(4) = Fuori90(Abs(V(5) - DNA(4)))
MeN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MeN,Ru,x)
Next
V(7) = MeN(1)
V(8) = MeN(2)
V(9) = MeN(3)
V(10) = MeN(4)
V(11) = MeN(5)
sr = SerieRitardo(Ini,fin,MeN,Ru,1)
Call VerificaEsito(MeN,Ru,es1,1,10,,esito,colpi,estratti,id)
V(12) = esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = sff(1)
V(17) = sff(2)
V(18) = sff(3)

Call AddRigaTabella(V)
ImpostaGiocata i,MeN,Ru,posta,cnt
Next
casi = 0
Call CreaTabella()
Gioca fin - cnt
ScriviResoconto
End Sub
 
Scusa Mike, ho notato ora, le 5 righe ci sono....perfetto...solo che non riesco ad andare indietro con gli anni....
 
antonio65;n2096920 ha scritto:
Scusa Mike, ho notato ora, le 5 righe ci sono....perfetto...solo che non riesco ad andare indietro con gli anni....
Clicca per espandere...

se ti riferisci alla verifica come vedi la riga di gioca stabilisce il range fin - cnt = 18

puoi modificare quella riga impostando ad oc un range.

esempio fine = 8000
gioca fine-18

se è questo agisci in questo modo
 
Adesso si....ora si...non ci sarei arrivato mai....per lasciarti in serenità se mi puoi mettere i resoconti finali separati...cosi mi viene meglio individuare le sorti migliori...cosi com'è è un totale delle 5 righe...grazie ancora...
 
Mike sto verificando lo script...gli indici mensili e i colpi di gioco impostati non vengono rispettati mi spiego: se io decido di fare una ricerca 1 del mese un solo colpo mi da ad esempio 44 casi...se metto sette colpi me ne da 36...dovrebbe essere di più o sbaglio...
Comunque ti spiego la tecnica di gioco togliendo le moltiplicazioni anche perchè da lo stesso risultato...
Tecnica
Sommare i 5 estratti di ogni ruota e di qualsiasi indice mensile a 2 a 2 quindi sono 10 somme.
(poi come fai tu nei metodi sommativi) bisogna trovare le migliori frequenze da sottrarre ad ogni coppia di numeri...
Quando hai tempo e con calma se puoi lo fai...In pratica è come un sommativo...solo che bisogna sottrarre...tutto li...
Forse non lo capivi con la moltiplicazione ma l'ho tolta...Grazie!!!
 
Ciao Antonio, purtroppo continuo a non capire, l'ho hai spiegato parecchie volte, ma la logica ancora mi sfugge. (anche perché poco interessato)

I casi che dici essere errati sono invece a mio avviso corretti in quanto se hai 1300 estraz. in range ed hai un indice mensile i casi in esame non possono essere che 130 (1300/13 estraz in mese)

Poi è chiaro che i casi trovati sono pochi in quanto questi agiscono sul trovato in 1 solo colpo.

Per il vero resoconto o visualizzazione e gioco effettivo degli esiti secondo me è inutile per il fatto che trovando il riassunto in tabella dei numeri con la relativa statistica è meglio visualizzarla sun un arco di estrazioni volute.

Perdonami per questa mia divergente disamina ma non riesco a vederla diversamente per me che sono amante delle statistiche lineari.

Ti ho messo una specie di resoconto spese, vincite, utile per giocate singole vedi tu se possono esserti utili allo scopo.

Ciao ma ti + non riesco a fare per il motivo di tempo e quanto sopra scritto.


Codice: 
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MeN(5),sff(3)
Dim Ru(1),T,posta(5)
posta(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = .5
posta(5) = .5
Ini = EstrazioneFin - 1300
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
cnt = CInt(InputBox("Quante estrazioni controllo",,18))
'For pos = 1 To 5
'c = c + 1
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifi ca","Colpo","Ritardo x 1","frx1","frx2","frx3")
Call InitTabella(T,6)
For es = Ini To fin
If IndiceMensile(es) = Ind Then
casi = casi + 1

For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
End If
Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(18)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
MeN(1) = Fuori90(Abs(V(5) - DNA(1)))
MeN(2) = Fuori90(Abs(V(5) - DNA(2)))
MeN(3) = Fuori90(Abs(V(5) - DNA(3)))
MeN(4) = Fuori90(Abs(V(5) - DNA(4)))
MeN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MeN,Ru,x)
Next
V(7) = MeN(1)
V(8) = MeN(2)
V(9) = MeN(3)
V(10) = MeN(4)
V(11) = MeN(5)
sr = SerieRitardo(Ini,fin,MeN,Ru,1)
Call VerificaEsito(MeN,Ru,es1,1,10,,esito,colpi,estratti,id)
V(12) = esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = sff(1)
V(17) = sff(2)
V(18) = sff(3)
Call AddRigaTabella(V)


ImpostaGiocata i,MeN,Ru,posta,cnt
Gioca fin - cnt,1
Scrivi "Spesa Parziale   : " & GetSpesa(True) & vbTab & "Vincita parziale  : " & GetVincita(True) & vbTab & "Utile Parziale  : " & GetGuadagno(True)
Scrivi "Spesa Cumulativa : " & GetSpesa(False) & vbTab & "Vincita cumulato  : " & GetVincita(False) & vbTab & "Utile cumulato  : " & GetGuadagno(False)
Scrivi



Next
casi = 0
Call CreaTabella()


ScriviResoconto
End Sub
 
Ciao Mike, in quanto a fare script sei un genio...se a volte insisto perchè manca qualcosa sulla mia idea...a specificare attraverso una tastiera a volte è difficile...Io è tutto il genio che smanetto ...meglio faccio il musicista....con gli script sono una frana...
Esempio 1estrazione del mese cioè Gennaio 2018 ruota di bari sono stati estratti 41 21 60 8 54
si sommano i 5 numeri a coppia 41+21=72 41+60=101 41+8=49 41+54=95 21+60= 81 21+8=29 21+54=75 60+8=68 60+54= 114 8+54=62
10 coppie per 10 somme(fin qua è banale) a questo punto invece bisogna cercare i migliori numeri X per fare la sottrazione ad ogni coppia
di numeri che sopra ho elencato come esempio...si sottrae il numero x trovato per ottenere i numeri da giocare...
Ti allego uno script dove io trovo le migliori previsioni...(ambate) il motivo per cui ricorro ad un aiuto sugli script perchè ai miglior casi ci voglio abbinare un altro caso per le sorti di ambo....Ti allego lo script se hai voglia lancialo e prova ....
Ti faccio una domanda: al 1° colpo secondo i tuoi metodi il valore massimo che hai trovato a quanto ammonta?
io ne ho trovati tanti 22 su 133 in un colpo e il massimo 24 su 133....Grazie!!!


Sub Main()
ColoreTesto 1: Scrivi " X RANDHOUSE ",1
Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi
Dim mm(1)
Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8),n5(90,8)
nru1 = CInt(InputBox("Ruota di gioco","Ruota di GIOCO",1))
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,1))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",1725)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
nStart = Timer ' partenza tempo di elaborazione
For nru11 = 1 To 1
If nru11 = 11 Then nru11 = 12
ColoreTesto 0:Scrivi String(115,"=")
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 8
nam(x,y) = 0
nt(x,y) = 0
n3(x,y) = 0
n4(x,y) = 0
n5(x,y) = 0
Next
Next
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
casi = 0
ultest = 9273
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = ind Then
If IndiceMensile(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then
colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 1
Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 90
co = co + 1

a01 = Estratto(es,nru1,p)
a02 = Estratto(es,nru1,p2)
a03 = Estratto(es,nru1,p3)
a04 = Estratto(es,nru1,p4)
a05 = Estratto(es,nru1,p5)

a1 = nu
a2 = nu
a3 = nu
a4 = nu
a5 = nu

DNA1 =(a01 + a02)
DNA2 =(a01 + a03)
DNA3 =(a01 + a04)
DNA4 =(a01 + a05)
DNA5 =(a02 + a03)
DNA6 =(a02 + a04)
DNA7 =(a02 + a05)
DNA8 =(a03 + a04)
DNA9 =(a03 + a05)
DNA10 =(a04 + a05)

b01 = Fuori90(Abs(a1 - DNA1))
b02 = Fuori90(Abs(a2 - DNA2))
b03 = Fuori90(Abs(a3 - DNA3))
b04 = Fuori90(Abs(a4 - DNA4))
b05 = Fuori90(Abs(a5 - DNA5))


nam(co,1) = co
nt(co,1) = co
n3(co,1) = co
n4(co,1) = co
n5(co,1) = co
nam(co,2) = nru11
nt(co,2) = nru11
n3(co,2) = nru11
n4(co,2) = nru11
n5(co,2) = nru11
nam(co,3) = p
nt(co,3) = p2
n3(co,3) = p3
n4(co,3) = p4
n5(co,3) = p5
nam(co,4) = nu
nt(co,4) = nu
n3(co,4) = nu
n4(co,4) = nu
n5(co,4) = nu
nam(co,6) = b01
nt(co,6) = b02
n3(co,6) = b03
n4(co,6) = b04
n5(co,6) = b05
nam(co,7) = 0
nt(co,7) = 0
n3(co,7) = 0
n4(co,7) = 0
n5(co,7) = 0
esncg = es + ncg
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
For ess = es + 1 To esncg
For pp = 1 To 5
e = Estratto(ess,nru11,pp)
If e = b01 Then
nam(co,5) = nam(co,5) + 1
nn(1) = nam(co,6)
nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b02 Then
nt(co,5) = nt(co,5) + 1
nn(1) = nt(co,6)
nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b03 Then
n3(co,5) = n3(co,5) + 1
nn(1) = n3(co,6)
n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b04 Then
n4(co,5) = n4(co,5) + 1
nn(1) = n4(co,6)
n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b05 Then
n5(co,5) = n5(co,5) + 1
nn(1) = n5(co,6)
n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
Next
Next
Next
End If
End If
Next
Scrivi "------------------------------------------"
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi "MEN1" & SiglaRuota(r) & "---" & Format2(MEN1),1
Scrivi "DNA1" & SiglaRuota(r) & "---" & Format2(DNA1),1
Scrivi

If ind = 0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind > 0 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi""
Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 5
mm(1) = nam(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
esitoo = colpo - ratt
'esitoo= Abs(ind - ratt)
If nam(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nam(ca,7) > 0 Then
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esitoo,1
'cc = 0
cc = cc + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice nt,- 1,5
For ca = 1 To 5
mm(1) = nt(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito1 = colpo - ratt
esito1 = Abs(ind - ratt)
If nt(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nt(ca,7) > 0 Then
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito1,1
dd = dd + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 5
mm(1) = n3(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito2 = colpo - ratt
esito2 = Abs(ind - ratt)
If n3(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n3(ca,7) > 0 Then
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito2,1
hh = hh + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 5
mm(1) = n4(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito3 = colpo - ratt
esito3 = Abs(ind - ratt)
If n4(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n4(ca,7) > 0 Then
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito3,1
ff = ff + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 5
mm(1) = n5(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito4 = colpo - ratt
esito4 = Abs(ind - ratt)
If n5(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n5(ca,7) > 0 Then
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito4,1
gg = gg + 1
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
'Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
Scrivi String(115,"="),1
Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
 
Ciao Antonio, quando leggo una correzione scriptica non mi soffermo più sulla intera stesura del costrutto, ma cerco di capire dove e come posso intervenire.

Premessa : lo script postato è la mia prima richiesta script che avevo fatto quando iniziai l'avventura in questo mondo di codici.
da allora decisi di imparare a svilupparmi qualcosa che secondo le mie vedute potevo ricavarmi e un famoso scripter Ramco mi fece questo script in esame.

Da allora ho evoluto grazie a LuigiB ed al suo Spaziometria la mia conoscenza in materia al punto da realizzarmi le statistiche e risultanze che voglio valutare.
Il tutto senza presunzione di Perfezione.

Per tornare alla tua domanda di quanti casi !!! se valuti le risultanze dei 2 script essi forniscono dati differenti con lo stesso range di estrazioni, la risposta non saprei quale dei 2 è più giusto, ma sembra che il mio ultimo trova + casi.
Anche perché lo script originale di Ramco è stato manipolato sia da me che anche da te e altri e leggere il tutto non è semplice per capire cosa è stato immesso da non conseguire lo stesso risultato.
Anche se il conteggio e modus operandi è simile in fatto di codice costrutto, ma il risultato è differente.

Ecco perchè come dico da un po' di tempo quando una ha una richiesta è sempre meglio farla ex novo è soprattutto dettagliata, in modo che chi costruisce il percorso ci metta la sua mano.

Poi sui sommativi la mia idea maturata non è positiva in quanto fa riferimento allo specchio del passato e le risultanze se costrette ad uscire le convergenze si trovano tranquillamente, ma non è detto che poi sono applicabili al futuro.

Ma in questo ognuno è libero di credere sia in questa direzione che alle spie.

Quindi essendomi dilungato non saprei rispondere con certezza, andrebbe fatta una verifica manuale quali sono i casi effettivamente veritieri.

Poi se la richiesta del tuo script sopra citato è ancora diversa da quello che abbiamo fin ora sviluppato in un momento di vena posso vedere cosa si può fare, ma ahimè tempo è voglia in questo senso ultimamente mancano

Come vedi in questo forum con assenza di idee non è più stimolante.

Ciao
 
Ciao Mike, il tuo discorso non fa una piega...sono e sarò sempre in debito con te....L'ultimo script che hai coretto con rispettivi resoconto potrebbe andare bene se nel resoconto tu potresti togliere le uscite che non vanno oltre a secondo dei colpi e dell'indice mensile che io scelgo
come ricerca mi spiego meglio...se ad esempio cerco i migliori numeri della prima del mese 1 colpo ...la ricerca deve rimanere tale...ho notato che mi da anche uscite oltre la mia ricerca....questo mi confonde le idee...perchè la migliore sorte è a 1 colpo...se poi sono scarsi gli esiti vado a 2 colpo etc etc....se poi con calma vuoi fare ex novo come ti ho descritto ieri fai pure...con calma e stimolo ....
 
Quando hai tempo lancia questo script cosi com'è magari ti stimola....???? Inoltre ho segnato con asterisco solo le variazioni poi originale



Sub Main()
ColoreTesto 1: Scrivi " X RANDHOUSE ",1
Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi
Dim mm(1)
Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8),n5(90,8)
nru1 = CInt(InputBox("Ruota di gioco","Ruota di GIOCO",1))
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,7))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",1725)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
nStart = Timer ' partenza tempo di elaborazione
For nru11 = 5 To 5
If nru11 = 11 Then nru11 = 12
ColoreTesto 0:Scrivi String(115,"=")
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 8
nam(x,y) = 0
nt(x,y) = 0
n3(x,y) = 0
n4(x,y) = 0
n5(x,y) = 0
Next
Next
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
casi = 0
ultest = 9273
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = ind Then
If IndiceMensile(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then
colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 1
Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 90
co = co + 1

a01 = Estratto(es,nru1,p)
a02 = Estratto(es,nru1,p2)
a03 = Estratto(es,nru1,p3)
a04 = Estratto(es,nru1,p4)
a05 = Estratto(es,nru1,p5)

a1 = nu'*************************************
a2 = nu
a3 = nu
a4 = nu
a5 = nu

DNA1 =(Estratto(ES,5,1) +(Estratto(ES,6,2)))'********************************
DNA2 =(Estratto(ES,5,1) +(Estratto(ES,6,3)))
DNA3 =(Estratto(ES,5,1) +(Estratto(ES,6,4)))
DNA4 =(Estratto(ES,5,1) +(Estratto(ES,6,5)))
DNA5 =(Estratto(ES,5,2) +(Estratto(ES,7,3)))
DNA6 =(Estratto(ES,1,2) +(Estratto(ES,2,4)))
DNA7 =(Estratto(ES,1,2) +(Estratto(ES,2,5)))
DNA8 =(Estratto(ES,1,3) +(Estratto(ES,2,4)))
DNA9 =(Estratto(ES,1,3) +(Estratto(ES,2,5)))
DNA10 =(Estratto(ES,1,4) +(Estratto(ES,2,5)))

b01 = Fuori90(Abs(a1 - DNA6))'**********************************************
b02 = Fuori90(Abs(a2 - DNA7))
b03 = Fuori90(Abs(a3 - DNA8))
b04 = Fuori90(Abs(a4 - DNA9))
b05 = Fuori90(Abs(a5 - DNA10))


nam(co,1) = co
nt(co,1) = co
n3(co,1) = co
n4(co,1) = co
n5(co,1) = co
nam(co,2) = nru11
nt(co,2) = nru11
n3(co,2) = nru11
n4(co,2) = nru11
n5(co,2) = nru11
nam(co,3) = p
nt(co,3) = p2
n3(co,3) = p3
n4(co,3) = p4
n5(co,3) = p5
nam(co,4) = nu
nt(co,4) = nu
n3(co,4) = nu
n4(co,4) = nu
n5(co,4) = nu
nam(co,6) = b01
nt(co,6) = b02
n3(co,6) = b03
n4(co,6) = b04
n5(co,6) = b05
nam(co,7) = 0
nt(co,7) = 0
n3(co,7) = 0
n4(co,7) = 0
n5(co,7) = 0
esncg = es + ncg
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
For ess = es + 1 To esncg
For pp = 1 To 5
e = Estratto(ess,nru11,pp)
If e = b01 Then
nam(co,5) = nam(co,5) + 1
nn(1) = nam(co,6)
nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b02 Then
nt(co,5) = nt(co,5) + 1
nn(1) = nt(co,6)
nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b03 Then
n3(co,5) = n3(co,5) + 1
nn(1) = n3(co,6)
n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b04 Then
n4(co,5) = n4(co,5) + 1
nn(1) = n4(co,6)
n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b05 Then
n5(co,5) = n5(co,5) + 1
nn(1) = n5(co,6)
n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
Next
Next
Next
End If
End If
Next
Scrivi "------------------------------------------"
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi "MEN1" & SiglaRuota(r) & "---" & Format2(MEN1),1
Scrivi "DNA1" & SiglaRuota(r) & "---" & Format2(DNA1),1
Scrivi

If ind = 0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind > 0 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi""
Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 5
mm(1) = nam(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
esitoo = colpo - ratt
'esitoo= Abs(ind - ratt)
If nam(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nam(ca,7) > 0 Then
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esitoo,1
'cc = 0
cc = cc + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice nt,- 1,5
For ca = 1 To 5
mm(1) = nt(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito1 = colpo - ratt
esito1 = Abs(ind - ratt)
If nt(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nt(ca,7) > 0 Then
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito1,1
dd = dd + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 5
mm(1) = n3(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito2 = colpo - ratt
esito2 = Abs(ind - ratt)
If n3(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n3(ca,7) > 0 Then
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito2,1
hh = hh + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 5
mm(1) = n4(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito3 = colpo - ratt
esito3 = Abs(ind - ratt)
If n4(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n4(ca,7) > 0 Then
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito3,1
ff = ff + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 5
mm(1) = n5(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito4 = colpo - ratt
esito4 = Abs(ind - ratt)
If n5(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n5(ca,7) > 0 Then
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito4,1
gg = gg + 1
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
'Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
Scrivi String(115,"="),1
Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
 
Ciao Antonio,ti ringrazio anch'io della pazienza anche da parte tua, tante volte si fa fatica a capire in quanto l'idea non si sposta dai propri canoni.

Quello che vorresti però non è di facile costruzione ed interpretazione come costrutto e da qui il rifiuto mentale a partire.
Magari prima o poi arriva la dritta o la via giusta per impostare tale metodologia.

Lanciato il tuo script ma, ancora è e rimane uguale a prima

Ciao
 
Cambia il risultato aumentano i casi come percentuale....solo che fare tutto manualmente è difficile...con le tue capacità diventerebbe un gioco da ragazzi...comunque se vuoi e quando vuoi fallo ex novo....oppure aggiusti lo script che hai variato aggiungendo i resoconti rispettando i valori che ti avevo chiesto cioè di variare il resoconto rispettando i colpi di gioco e indici mensile...se cerco la migliore probabilità supponiamo la terza del mese al 1°colpo la ricerca deve rimanere tale...nel caso la probabilità uscisse al 2 colpo non deve essere scritta etc etc...
Per il resto lo script vecchio quello Ramco e Mike 58 lasciamolo stare fa parte del passato....Grazie Mike di vero cuore!!!
 
Ciao Mike , ho analizzato bene lo script va benissimo come calcoli...ero io che non visualizzando le probabilità più alte (parlo del singolo estratto) pensavo che i calcoli erano sbagliati....invece giusti....perchè lo script cerca le formazioni degli ambi e non tiene conto del singolo estratto con probabilità più alte....Tuttavia quando puoi, se vuoi modificare quello che ti ho scritto precedentemente...E se si può aggiungere le posizioni migliori in tra le 5 riga le posizioni più frequenti che forniscono estratti, ambi, terni etc etc....Grazie Antonio!!!
 
Ciao Antonio, devi avere un po' di pazienza, il tuo script esige una buona concentrazione ed il tempo per questo ad ora manca, causa lavoro Notturno e ahimè purtroppo in serata vengono le migliori idee.

Appena posso libero anche da altre richieste vedrò cosa posso fare.

;)
 
Buonasera Mike come va? spero bene!!! Io mi sono cimentato a mettere codici e devo dire che qualcosa è uscita fuori(ti allego lo script)
Tuttavia ho molti limiti (sono neofita in materia) qualora trovi tempo se mi puoi aggiungere i colori per i numeri usciti ed avere anzichè 1 resoconto 10 resoconti accoppiando i numeri....e per finire colorare anche DNA ogni volta che l'esito è positivo....Prova lo script con il tuo tempo...Dimenticavo: ho tolto l'indice mensile per mia comodità....Grazie Antonio!!!

Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5),sff(3)
Dim Ru(12),T
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
ini = 9350'EstrazioneFin - est
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,9))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","frx1","frx2","frx3")
Call InitTabella(T,6)
For es = ini To fin
'If IndiceMensile(es) = Ind Then
casi = casi + 1
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
'End If
'Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(NuFr(i,1))
'NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(18)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1)
Next
A1 = NuAdd(1)
A2 = NuAdd(1)
A3 = NuAdd(1)
A4 = NuAdd(1)
A5 = NuAdd(1)

MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
MEN(4) = Fuori90(Abs(V(5) - DNA(6)))
MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
For x = 1 To 3
sff(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
Next

V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,1,,Esito,colpi,estratti,id)
V(12) = Esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = sff(1)
V(17) = sff(2)
V(18) = sff(3)
Call AddRigaTabella(V)

Scrivi "=================================================================="
Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
Scrivi "DNA(1) " & SiglaRuota(r) & "---" & Format2(DNA(1)),1
Scrivi "A1" & SiglaRuota(r) & "---" & Format2(A1),1

Ru(2) = 1
Ru(3) = 2
Ru(4) = 3
Ru(5) = 4
Ru(6) = 5
Ru(7) = 6
Ru(8) = 7
Ru(9) = 8
Ru(10) = 9
Ru(11) = 10
Ru(12) = 12

ImpostaGiocata 1,MEN,Ru,posta,clp


Gioca es
'End If
Next
casi = 0
Call CreaTabella()

ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 07 agosto 2025
    Bari
    22
    21
    64
    60
    55
    Cagliari
    24
    82
    80
    52
    27
    Firenze
    85
    68
    06
    58
    33
    Genova
    72
    86
    50
    80
    22
    Milano
    79
    87
    02
    38
    89
    Napoli
    84
    60
    64
    16
    32
    Palermo
    02
    38
    01
    58
    67
    Roma
    42
    28
    65
    69
    70
    Torino
    76
    68
    39
    11
    44
    Venezia
    13
    07
    81
    01
    53
    Nazionale
    76
    43
    32
    11
    19
    Estrazione Simbolotto
    Nazionale
    09
    02
    28
    34
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto