Richiesta per i Creatori/Programmatori

[Rafele ‘o Ruoss’]

Buongiorno e grazie a chiunque di Voi programmatori e/o studiosi del lotto possa aiutarmi nello sviluppo di uno script per spaziometria.

Lo script serve ad una valutazione di un numero, al max due, in un periodo da selezionare a ritroso anche dalle prime estrazioni del lotto.
- dovrebbe darmi la possibilità di cercare attraverso un output di partenza la ricerca di un numero al max due su una ruota specifica a scelta.
- una percentuale di validità sull'esito di possibile uscita sull'estratto
- un indicazione approssimativa di posizione per l'estratto .
- che mi indichi inoltre un mese favorevole a quel numero in base ad un calcolo storico.
- In ultimo se ci fosse la possibilità anche l'inserimento di quante volte è uscito quel numero nel tempo con la sua figura.
mi auguro di essere stato chiaro nella richiesta
non è mai abbastanza o sufficiente ringraziarvi per il tempo dedicato a Noi che facciamo delle richieste e a Voi che dedicate del tempo prezioso
allo sviluppo delle nostre richieste

Potrei spedire una buona bottiglia di vino dai Castelli Romani , se fosse consentito

Grazie e saluti

 

[Rafele ‘o Ruoss’]

vi ringrazio dell' attenzione
presumo a questo punto non essendoci stata alcuna risposta, non sia fattibile creare questo tipo di script.
provo in altri forum se qualcuno puo' essermi d'aiuto
saluti.

 

[claudio8]

Anche io lo vorrei.

 

[Rafele ‘o Ruoss’]

Anche io lo vorrei.

a prescindere dallo script....
ci mancherebbe una buona bottiglia di vino delle mie parti posso sempre spedirtela se ti fa piacere.

 

[claudio8]

Mi riferivo allo script.
Se riesci a farlo o a fartelo fare dacci notizie.
Grazie

 

[Rafele ‘o Ruoss’]

Mi riferivo allo script.
Se riesci a farlo o a fartelo fare dacci notizie.
Grazie

in base a cio che mi dici e considerando chi me lo dice: presumo ci sia dell'impossibile nel poterlo realizzare,vuoi per esposizione poco chiara da parte mia, vuoi per poco tempo da parte dei programmatori. Ma non avendo avuto nessuna risposta per capire posso solo che dare questo tipo d'interpretazione.
Cio' nonostante ho trovato uno strumento utile del bravo mike58 che in parte mi aiuta nella mia ricerca a questo ne ho abbinato un secondo
nella speranza possa tornarmi utile al mio scopo.
saluti.

 

[claudio8]

Sempre ermetico
Mi raccomando.

 

[Rafele ‘o Ruoss’]

Sempre ermetico
Mi raccomando.

Ringrazio in particolar modo @Mike58 per i suoi lavori cio' non toglie il merito a tanti altri di questo forum.

perdona la mia ermeticità ma ho dato per scontato che tu fossi già in possesso di mezzi a noi sconosciuti

**questo è il primo

Anticipazione (Spoiler): Statistica Veloce su combinazione di Numeri scelti by Mike58

Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,1000)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
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

*questo il secondo riguarda i sincroni

Anticipazione (Spoiler): Ritardi Sincroni

Sub Main
Dim Nu(3),Ru(3),T,V
Ini = EstrazioneFin - 100
fin = EstrazioneFin
T = Array(T,"Caso N.","Info Data","Ruote","Numero","Verifica","Colpo")
Call InitTabella(T)
ResetTimer
For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 12
If r3 = 11 Then r3 = 12
For p1 = 1 To 5
For p2 = 1 To 5
For p3 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
c = Estratto(es,r3,p3)
If a = b And a = c Then
kk = kk + 1
Call Messaggio("Tempo di Elaborazione . . . . . " & TempoTrascorso & " Casi Trovati : " & kk)
Call AvanzamentoElab(Ini,fin,es)
Nu(1) = a
Nu(2) = b
Nu(3) = c
Ru(1) = r1
Ru(2) = r2
Ru(3) = r3
Call VerificaEsitoTurbo(Nu,Ru,es + 1,1,100,,esito,clp,es1,id)
If esito <> "" Then
k = k + 1
ReDim Preserve Colpo(k)
Colpo(k) = clp
MaxColpo = MassimoV(Colpo)
End If
V = Array(V,kk,GetInfoEstrazione(es),StringaRuote(Ru),StringaNumeri(Nu),es1,clp)
If esito = "" Then Call AddRigaTabella(V,3)
If esito <> "" Then Call AddRigaTabella(V)
If clp = MaxColpo Then Call SetColoreCella(6,4,2)
'Call AddRigaTabella(V)
End If
Next
Next
Next
Next
Next
Next
Next
vv = Array(vv," Max Colpo Storico ","..","..","..","..",MaxColpo)
Call AddRigaTabella(vv,4,,3,1,"arial black")
Call SetTableWidth("60%")
Call CreaTabella()
End Sub

il terzo è un programma acquistato dal quale verifica numeri e figure una tabella per me chiara ed esaustiva

ti allego uno screen


mi auguro di averti fatto cambiare opinione sull'ermeticità che di fatto non mi appartiene proprio...anzi

buona serata

 

[Rafele ‘o Ruoss’]

@claudio8 buongiorno , puoi essermi d'aiuto allo sviluppo di questo script :
a questa richiesta. grazie

 

[claudio8]

Posso solo leggerti, ma non ho tempo per scriptare.
Sono spiacente.
Ciao

 

[Rafele ‘o Ruoss’]

Posso solo leggerti, ma non ho tempo per scriptare.
Sono spiacente.
Ciao

grazie.