Richiesta piccolo script!!!

[antonio65]

Prova cosi Salvo dovrebbe essere quasi giusto...manca solo evidenziare quando esce il numero o i numeri dalla Cinquina si può fare?

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",1604)
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 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = ind Then
'If(((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
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
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
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)

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

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4


b01 = Fuori90(Abs((Abs((MEN1 - DNA1))/4)))
b02 = Fuori90(Abs((Abs((MEN2 - DNA2))/4)))
b03 = Fuori90(Abs((Abs((MEN3 - DNA3))/4)))
b04 = Fuori90(Abs((Abs((MEN4 - DNA4))/4)))
b05 = Fuori90(Abs((Abs((MEN5 - DNA5))/4)))
'''---------------------------------------
b01 = Fuori90(Abs((Abs((MEN1 - DNA6))/4)))
b02 = Fuori90(Abs((Abs((MEN2 - DNA7))/4)))
b03 = Fuori90(Abs((Abs((MEN3 - DNA8))/4)))
b04 = Fuori90(Abs((Abs((MEN4 - DNA9))/4)))
b05 = Fuori90(Abs((Abs((MEN5 - DNA10))/4)))


Scrivi Format2(co) & " " & Format2(b01) & " " & Format2(b02) & " " & Format2(b03) & " " & Format2(b04) & " " & Format2(b05)
'Scrivi Format2(co) & " " & Format2(b06) & " " & Format2(b07) & " " & Format2(b08) & " " & Format2(b09) & " " & Format2(b10)
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 "nu" & SiglaRuota(r) & "---" & Format2(nu),1
Scrivi "CHEF" & SiglaRuota(r) & "---" & Format2(CHEF),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 = 01 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

 

[antonio65]

Buongiorno, la funzione che ha messo Salvo va bene e sarebbe questa
Scrivi Format2(co) & " " & Format2(b01) & " " & Format2(b02) & " " & Format2(b03) & " " & Format2(b04) & " " & Format2(b05)

Chiedo se si può evidenziare in caso di sortita o colorare solo i numeri usciti..

 

[antonio65]

Ciao ,avrei quasi risolto il problema? ...manca solo un ritocchino mi spiego:
Quando cerco con la funzione For nu= 1 To 90 mi fa le somme totali degli estratti e anche degli ambi...se invece voglio cercare l'abinamento per ambo secco esempio. For nu =27 To 27 lo stesso numero lo da per gli altri estratti se invece 1-90 non mi da la classifica o meglio la devo cercare io scendendo la barra fino ad arrivare a 90.....si può risolvere? Ecco lo script....

Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)

Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto

es = 7694
nru1 = BA_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
For nu = 1 To 90
co = co + 1
clp = 1' < - - - Colpi di gioco

ini = 7694'EstrazioneFin - est
fin = EstrazioneFin
For ES = ini To fin
If IndiceMensile(ES) = 1 Then
Messaggio DataEstrazione(ES,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni


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)

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

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4


nu1 = Fuori90(Abs(MEN1 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
nu5 = Fuori90(Abs(MEN5 - DNA5)/4)



Scrivi Format2(co) & " " & Format2(nu1) & " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)

Scrivi "=================================================================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1



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

numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp


Gioca ES
End If
Next

ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Next
End Sub

 

[antonio65]

Ciao ,avrei quasi risolto il problema? ...manca solo un ritocchino mi spiego:
Quando cerco con la funzione For nu= 1 To 90 mi fa le somme totali degli estratti e anche degli ambi...se invece voglio cercare l'abinamento per ambo secco esempio. For nu =27 To 27 lo stesso numero lo da per gli altri estratti se invece 1-90 non mi da la classifica o meglio la devo cercare io scendendo la barra fino ad arrivare a 90.....si può risolvere? Ecco lo script....

Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)

Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto

es = 7694
nru1 = BA_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
For nu = 1 To 90
co = co + 1
clp = 1' < - - - Colpi di gioco

ini = 7694'EstrazioneFin - est
fin = EstrazioneFin
For ES = ini To fin
If IndiceMensile(ES) = 1 Then
Messaggio DataEstrazione(ES,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni


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)

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

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4


nu1 = Fuori90(Abs(MEN1 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
nu5 = Fuori90(Abs(MEN5 - DNA5)/4)



Scrivi Format2(co) & " " & Format2(nu1) & " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)

Scrivi "================================================= ================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1



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

numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp


Gioca ES
End If
Next

ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Next
End Sub

 

[antonio65]

Ciao ,avrei quasi risolto il problema? ...manca solo un ritocchino mi spiego:
Quando cerco con la funzione For nu= 1 To 90 mi fa le somme totali degli estratti e anche degli ambi...se invece voglio cercare l'abinamento per ambo secco esempio. For nu =27 To 27 lo stesso numero lo da per gli altri estratti se invece 1-90 non mi da la classifica o meglio la devo cercare io scendendo la barra fino ad arrivare a 90.....si può risolvere? Ecco lo script....

Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)

Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto

es = 7694
nru1 = BA_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
For nu = 1 To 90
co = co + 1
clp = 1' < - - - Colpi di gioco

ini = 7694'EstrazioneFin - est
fin = EstrazioneFin
For ES = ini To fin
If IndiceMensile(ES) = 1 Then
Messaggio DataEstrazione(ES,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni


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)

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

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4


nu1 = Fuori90(Abs(MEN1 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
nu5 = Fuori90(Abs(MEN5 - DNA5)/4)



Scrivi Format2(co) & " " & Format2(nu1) & " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)

Scrivi "================================================= ================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1



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

numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp


Gioca ES
End If
Next

ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Next
End Sub

 

[antonio65]

Ciao Mike, buonasera...scusa il disturbo...io la soluzione smanettando e con l'aiuto di Salvo 50 l'ho risolta...ti chiedo un ultima cosa: se è possibile mettere a posto la funzione For nu 1 to 90...funziona solo che quando eseguo lo script e faccio le ricerche ..me li da sommando quindi mi viene difficile fare delle scelte...se puoi provalo e capisci meglio il concetto...grazie!!!


Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)

Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto

es = 7694
nru1 = CA_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
For nu = 1 To 90
co = co + 1
clp = 1' < - - - Colpi di gioco

ini = 7694'EstrazioneFin - est
fin = EstrazioneFin
For ES = ini To fin
If IndiceMensile(ES) = 2 Then
Messaggio DataEstrazione(ES,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni


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)

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

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4


nu1 = Fuori90(Abs(MEN1 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
nu5 = Fuori90(Abs(MEN5 - DNA5)/4)



Scrivi Format2(co) & " " & Format2(nu1) & " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)

Scrivi "=================================================================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1



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

numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp


Gioca ES
End If
Next

ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Next
End Sub

 

[Mike58]

Antonio, purtroppo ti vedo insistere con questa ricerca.

A parte la rindondanza nei codici usati e quindi ne risente l'elaborazione, purtroppo il ciclo che tanto citi for nu = 1 to 90 non significa niente e non porta neanche a niente, come ti dicevo solo a ciclare inutilmente i numeri.

Purtroppo sei lontano a mio avviso dalla meta, ed io in questo modo non saprei neanche darti suggerimenti.

Va bene fare le differenza tra estratti
va bene farci in questi valori le operazioni matematiche personalizzate
ma poi cercarci i migliori abbinamenti bisogna vedere come e su cosa ?
questo è il punto che non hai mai spiegato.(anche perché è qui che si fa la differenza dello script)

Questo è il perché delle mancate risposte da parte anche di altri.

Mi spiace ti ho solo corretto la rindondanza dello script ma non intacco altro.

Sub Main
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Dim numeri1(10),numeri2(10),numeri3(10)
Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
'es = 9200'7694
nru1 = CA_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
clp = 1' < - - - Colpi di gioco
ini = 9200'7694'EstrazioneFin - est
fin = EstrazioneFin
For ES = ini To fin
If IndiceMensile(ES) = 2 Then

Messaggio DataEstrazione(ES,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
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)
DNA1 =(a01 + a02)*4
DNA2 =(a01 + a03)*4
DNA3 =(a01 + a04)*4
DNA4 =(a01 + a05)*4
DNA5 =(a02 + a03)*4
DNA6 =(a02 + a04)*4
DNA7 =(a02 + a05)*4
DNA8 =(a03 + a04)*4
DNA9 =(a03 + a05)*4
DNA10 =(a04 + a05)*4
For nu = 1 To 90
co = co + 1
' QUESTO CICLO (MEN) NON PRODUCE NULLA SOLO nu x 4
MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4
'bisogna capire il Valore che deve ricavare
' se vuoi la frequenza trasformali in Numeri vettori e usa il codice SerieFreq
' poi li filtri in base ad un valore.
'--------------------------------------------
'----- QUESTO CALCOLO LO LASCIO ALLA TUA DEDUZIONE -------------
nu1 = Fuori90(Abs(MEN1 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
nu5 = Fuori90(Abs(MEN5 - DNA5)/4)
'---------------------------------------------------------------

Scrivi Format2(co) & " - " & Format2(nu1) & " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)
Scrivi "MEN = " & Men1 & " " & Men2 & " " & Men3 & " " & Men4 & " " & Men5
Scrivi "DNA = " & DNA1 & " " & DNA2 & " " & DNA3 & " " & DNA4 & " " & DNA5

If ScriptInterrotto Then Exit For
Scrivi "============================================= ==== ================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1
ruote(2) = 1
ruote(3) = 2
ruote(4) = 3
ruote(5) = 4
ruote(6) = 5
ruote(7) = 6
ruote(8) = 7
ruote(9) = 8
ruote(10) = 9
ruote(11) = 10
ruote(12) = 12

numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp
Gioca ES
Next
co = 0
End If
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub

 

[antonio65]

Scusa se ho insistito...ma ci vedo oro con questa tecnica...(sarò convinto la correzione va già molto meglio...manca un ultima cosa...se si può mettere una classifica(migliori sorti) dei Men ed il gioco è fatto...in parole povere carissimo Mike dai Men si ricavano numeri reali da giocare...
Quindi esempio . il men 28 quanto volte esce e su quali ruote ha più freuqenze...tutto li...sembra difficile ma è elementare come calcolo(come script non so) sono un dilettante come script...fammi il regalino di Pasqua aahahahha scherzo!!!

 

[Mike58]

Ciao Antonio, è proprio li il punto fare la classifica dei Men ( meglio dire trovare i MEN + frequenti) non è semplice.
Visto che la metti in questo modo regalino di Pasqua, mi toccherà ingegnarmi (vedo cosa posso fare) ma non sarà semplice.
potrebbe andar bene la ricerca su ruota, ma poi la migliore ruota ? non lo so adesso !!!.

Deve scattare la scintilla che fino ad adesso non è scattata, Chissà speriamo che il luccichio dell'oro la favorisca e la illumini.
aahahahaha anch'io scherzo.

 

[antonio65]

Ti invito a provare questo script...ho scritto delle cose all'interno...

Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)

Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto

es = 7694
nru1 = CA_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
'For nu = 1 To 90
'co = co + 1
clp = 1' < - - - Colpi di gioco

ini = 7694'EstrazioneFin - est
fin = EstrazioneFin
For ES = ini To fin
If IndiceMensile(ES) = 2 Then
Messaggio DataEstrazione(ES,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni


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)

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

MEN1 = 90*4 'una volta trovati il miglior Men la funzione For nu non serve più...
MEN2 = 53*4
MEN3 = 28*4
MEN4 = 12*4
MEN5 = 17*4


nu1 = Fuori90(Abs(MEN1 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)'prima prova tutti e 5 numeri...poi poi solo il secondo...
nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
nu5 = Fuori90(Abs(MEN5 - DNA5)/4)



'Scrivi Format2(co) & " " & Format2(nu1) & " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)

Scrivi "=================================================================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1



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

numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp


Gioca ES
End If
Next

ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
'Next
End Sub

 

[antonio65]

Una volta avuto lo script le ruote le cerco io con pazienza....quando avrò finito ti mando tutte le previsioni positive....
poi il tutto me lo faccio da me stesso al 10&lotto 5 minuti...cosi ogni 5 minuti si vince

 

[Mike58]

Ciao Antonio, purtroppo non riesco a fare quello che chiedi, perché secondo me non è possibile farlo.
Cerco di spiegarmi dal punto di vista scriptico.

L'analisi dei migliori sommativi può essere una raccolta di casi positivi su casi reali (quanti indici mensili ci sono) e questa deve essere in un range di inizio-fine estrazioni.

Se analizziamo estrazione per estrazione le risultanze non possono essere mantenute nei casi positivi in quanto possono cambiare con l'aumentare delle estrazioni e quindi la raccolta dati è falsata (questa è la prerogativa dei sommativi).

Io quello che posso fare e raccogliere tali dati ( migliori sommativi ) in una videata e con le tue operazioni ricavare i numeri che vuoi ottenere
e verificarli in un ipotetico gioco in corso.

L'utilizzo che ne puoi fare e valutare i numeri ricavati e immetterli direttamente nel tuo script, ma come puoi ben capire anche li la statistica sarebbe falsata in quanto i casi sono reali all'ultima estrazione ma non veritiere per intenderci alle prime estrazioni.

La ricerca è tua e devi quindi ingegnarti per l'utilizzo migliore.

Sub Main
 Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5)
 Dim Ru(1),T
 Ini = EstrazioneFin - 200
 fin = EstrazioneFin
 r = InputBox("Quale Ruota",,1)
 pos = CInt(InputBox("Quale posizione",,1))
 Ind = CInt(InputBox("Quale indiceMensile",,11))
 clp = CInt(InputBox("Quanti Colpi di Gioco",,10))
 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))*4
   DNA(2) =(Num(1) + Num(3))*4
   DNA(3) =(Num(1) + Num(4))*4
   DNA(4) =(Num(1) + Num(5))*4
   DNA(5) =(Num(2) + Num(3))*4
   DNA(6) =(Num(2) + Num(4))*4
   DNA(7) =(Num(2) + Num(5))*4
   DNA(8) =(Num(3) + Num(4))*4
   DNA(9) =(Num(3) + Num(5))*4
   DNA(10) =(Num(4) + Num(5))*4
   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)*4 ' MEN
  MEN(1) = Fuori90(Abs(V(5) - DNA(1))/4) 
  MEN(2) = Fuori90(Abs(V(5) - DNA(2))/4) 
  MEN(3) = Fuori90(Abs(V(5) - DNA(3))/4)
  MEN(4) = Fuori90(Abs(V(5) - DNA(4))/4)
  MEN(5) = Fuori90(Abs(V(5) - DNA(5))/4)  
  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()
 'c = 0
 'Next
End Sub

 

[antonio65]

Ciao Mike, stavo analizzando il tuo capolavoro...degno di un professore...hai perso del tuo tempo per me...ti ringrazio di vero cuore...mi hai fatto anche il regalo di pasquetta ...personalmente quando inizierò a giocare...inizierò a giocare tutti gli indici mensili la prima la 2 la terza...etc etc.
Giocherò a colpo giocando tutte le 11 ruote ..al lotto le mie ricerche inziano dal 2007 fino ad oggi...sono tanti per avere dei dati più o meno positivi...Quindi dal 2007 fino ad oggi ogni indice mensile è arrivato a 124 casi....sommando i maggiori casi positivi di tutte le ruote ...sommati arrivano a superare i 124 casi...per il momento ho questa idea...riguardo lo script volevo chiedere se Freq SU CASI riguarda anche Men e Dna
o solo i sommativi? se riguardano sono i sommativi è possibile aggiungere cosi con le stesse celle come per i sommativi? Se non si può fare grazie ancora...

 

[antonio65]

Buonasera Mike come va? spero bene...ti volevo inviare alcune script pronti per il gioco del 10&Lotto 5 minuti già pronti....attualmente dalla fascia 252(ore 21) fino alla fascia 258 ....man mano tutte le fasce...se vuoi li incollo qui o mi dai una tua email??? grazie Antonio!!!

 

[Mike58]

Ciao Antonio, in merito alla risposta sopra non penso sia possibile o bisognerebbe cercarla da sola, ma proprio perché dopo uno script completato io esco definitivamente con la testa da esso di + non riesco a dirti.

Script per il 5 min con fascie si!!! ne sento parlare e dicono che hanno una loro attendibiltà, ma io non gioco al 5 min prorpio perché non voglio farmi trascinare dall'impegno che tale gioco richiede non lo studio neanche.

Se vuoi a beneficio di chi può essere interessato apri un tuo post ad oc e vedrai che sicuramente avrai degli estimatori in tal senso.

Ciao e grazie lo stesso.

Mike

 

[antonio65]

Ciao Mike e Buona Domenica...ti volevo chiedere quando puoi e hai tempo??? nell'ultimo script (regalo di Pasqua) quando la voce
FREQ SU CASI si riferisce al sommativo o alla griglia dei 5 numeri??? grazie!!!

 

[Mike58]

Ciao Antonio, purtroppo sono uscito con la testa da questo script, ti rispondo alla tua domanda con la videata.
Data un ambata in posizione per indicemensile
dato il sommativo
freq su casi = 11
casi = 15

quindi si riferisce al solo sommativo.

Ciao spero ti sia chiaro.

Mike

 

[antonio65]

Grazie Mike...era questo che volevo sapere...grazieeeeeee

 

[antonio65]

Ciao Mike, ti allego uno script e prova ad eseguirlo cosi com'è....occhio al 5° estratto....poi mi dai un tuo parere...grazie Antonio!!!

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),DNA(10),Num(5),MEN(5)

nru1 = CInt(InputBox("Ruota di gioco","Ruota di GIOCO",3))
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,1))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",1624)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",3))
nStart = Timer ' partenza tempo di elaborazione
For nru11 = 4 To 4
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 = 9299 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
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


Num(1) = Estratto(es,nru1,p)
Num(2) = Estratto(es,nru1,p2)
Num(3) = Estratto(es,nru1,p3)
Num(4) = Estratto(es,nru1,p4)
Num(5) = Estratto(es,nru1,p5)

DNA(1) =(Num(1) + Num(2))*4
DNA(2) =(Num(1) + Num(3))*4
DNA(3) =(Num(1) + Num(4))*4
DNA(4) =(Num(1) + Num(5))*4
DNA(5) =(Num(2) + Num(3))*4
DNA(6) =(Num(2) + Num(4))*4
DNA(7) =(Num(2) + Num(5))*4
DNA(8) =(Num(3) + Num(4))*4
DNA(9) =(Num(3) + Num(5))*4
DNA(10) =(Num(4) + Num(5))*4

MEN(1) = nu*4
MEN(2) = nu*4
MEN(3) = nu*4
MEN(4) = nu*4
MEN(5) = nu*4


b01 = Fuori90(Abs(MEN(1) - DNA(1))/4)
b02 = Fuori90(Abs(MEN(2) - DNA(2))/4)
b03 = Fuori90(Abs(MEN(3) - DNA(3))/4)
b04 = Fuori90(Abs(MEN(4) - DNA(4))/4)
b05 = Fuori90(Abs(MEN(5) - DNA(5))/4)
ReDim V(7)
V(1) = StringaNumeri(DNA)
V(2) = MEN(1)
V(3) = MEN(2)
V(4) = MEN(3)
V(5) = MEN(4)
V(6) = MEN(5)
V(7) = nu*4
'b01 = Fuori90(Abs((Abs((MEN1 - DNA5))/4)))
'b02 = Fuori90(Abs((Abs((MEN2 - DNA6))/4)))
'b03 = Fuori90(Abs((Abs((MEN3 - DNA8))/4)))
'b04 = Fuori90(Abs((Abs((MEN4 - DNA9))/4)))
'b05 = Fuori90(Abs((Abs((MEN5 - DNA10))/4)))

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 "DNA1" & SiglaRuota(r) & "---" & Format2(DNA1),1
Scrivi "MEN1" & SiglaRuota(r) & "---" & Format2(MEN1),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 1
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) & " *4 " & _
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) & " *4 " & _
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 1
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) & " *4 " & _
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) & " *4 " & _
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 1
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) & " *4 " & _
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) & " *4 " & _
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 1
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) & " *4 " & _
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) & " *4 " & _
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 1
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) & " *4 " & _
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) & " *4 " & _
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