Novità

X mike58

i legend

Premium Member
Ciao Mike , ho lanciato il tuo script
ho scelto come data 3950-9781 (estrazionefin al momento) i massimi storici della cadenza per estratto non coincide
forse tu hai trovato il massimo storico di ogni singolo elemento?
ho provato a fare una verifica per estratto usando statistica veloce
non ho tempo per verificare tutte le sorti
potete contollare voi? se ci sono bugs vediamo se riusciamo a risolverli
intanto posto lo script cosi lo potete verificare e fare tutte le prove che occorrono.
se va bene ho in mente di fare qualcosa di potenzialmente piu versatile , appena ho tempo però.
essendo fatto in fretta , potrebbero esserci soluzioni ancora piu veloci ed eleganti, ma devo trovare il tempo per concentrarmi.
Codice:
Option Explicit
Sub Main
 Dim Quest
   Quest = MsgBox("Verificare che i dati riportati siano esatti" & vbCrLf & "Non se ne garantisce la correttezza" & vbCrLf & "Vuoi proseguire?",4 + 64,"Informazioni")
   If Quest = 7 Then Exit Sub

   Dim aTitTab
   Dim i,j,cad,nR,nSorte,uConc,Ini,Fin,Rit,RitMax,Freq,sEstr
   Dim aCad(9),aR(1)
   ReDim aRuote(0)
   aTitTab = Array(0,"CAD","E1","E2","E3","E4","E5","E6","E7","E8","E9","Ult Data Sortita","RUOTA","Estratti","Rit Cr","Rit Max","Sca Rit","Frequenza")
   Call InitTabella(aTitTab)
   nSorte = ScegliEsito
   Call ScegliRuote(aRuote)
   Ini = 3950
   Fin = EstrazioneFin
   Scrivi "Range concorsi:      " & Ini & "-" & EstrazioneFin
   Scrivi "Ruote di ricerca:    " & MyStringaRuote(aRuote)
   Scrivi "Sorte minima:        " & NomeSorte(nSorte)
   Scrivi
   Call GetArrayCadenza(aCad)
   For i = LBound(aCad) To UBound(aCad)
      Dim aN
      aN = Split(aCad(i),",")
      For nR = 1 To UBound(aRuote)
         If aRuote(nR) <> 11 Then
            aR(1) = aRuote(nR)
            Call StatisticaFormazioneTurbo(aN,aR,nSorte,Rit,RitMax,0,Freq,Ini,Fin)
            uConc = Fin - Rit
            sEstr = StringaEstratti(uConc,aR(1))
            If uConc < Ini Then uConc = "----":sEstr = "  --  .  --  .  --  .  --  .  --  "
            If aR(1) = 12 Then
               If uConc < 7440 Then uConc = "----": sEstr = "  --  .  --  .  --  .  --  .  --  "
            End If
            Dim aTab
            cad = Cadenza(aN(1))
            aTab = Array(0,cad,aN(1),aN(2),aN(3),aN(4),aN(5),aN(6),aN(7),aN(8),aN(9),GetInfoEstrazione(uConc),NomeRuota(aR(1)),sEstr,Rit,RitMax,RitMax - Rit,Freq)
            Call AddRigaTabella(aTab)
            Call SetColoreCella(1,RGB(240,240,240))
            ReDim aEstr(5)
            Call GetArrayNumeriRuota(uConc,aR(1),aEstr)
            For j = 2 To 10
               If EvidenziaCella(aEstr,aTab(j)) Then
                  Call SetColoreCella(Int(j),RGB(0,105,155),RGB(255,255,255))
               Else
                  Call SetColoreCella(Int(j),RGB(254,250,235),RGB(196,0,0))
               End If
            Next
            Call SetColoreCella(11,RGB(240,240,240),RGB(10,10,100))
            Call SetColoreCella(12,,vbRed)
            Call SetColoreCella(13,,RGB(0,128,64))
            Call SetColoreCella(16,RGB(244,254,241),RGB(0,108,0))
         End If
         If ScriptInterrotto Then Exit For
      Next
      If ScriptInterrotto Then Exit For
   Next
   Call CreaTabellaOrdinabile
End Sub
Sub GetArrayCadenza(aCad)
   aCad(0) = "0,10,20,30,40,50,60,70,80,90"
   aCad(1) = "0,01,11,21,31,41,51,61,71,81"
   aCad(2) = "0,02,12,22,32,42,52,62,72,82"
   aCad(3) = "0,03,13,23,33,43,53,63,73,83"
   aCad(4) = "0,04,14,24,34,44,54,64,74,84"
   aCad(5) = "0,05,15,25,35,45,55,65,75,85"
   aCad(6) = "0,06,16,26,36,46,56,66,76,86"
   aCad(7) = "0,07,17,27,37,47,57,67,77,87"
   aCad(8) = "0,08,18,28,38,48,58,68,78,88"
   aCad(9) = "0,09,19,29,39,49,59,69,79,89"
End Sub
Function EvidenziaCella(aEstr,E)
   Dim p,bRet
   bRet = False
   If aEstr(1) > 0 Then
      For p = 1 To 5
         If aEstr(p) = Int(E)Then
            bRet = True
            Exit For
         End If
      Next
   End If
   EvidenziaCella = bRet
End Function
Function MyStringaRuote(aRuote)
   Dim i,S
   S = ""
   For i = 1 To UBound(aRuote)
      If aRuote(i) <> 11 Then
         S = S & SiglaRuota(aRuote(i)) & "."
      End If
   Next
   S = RimuoviLastChr(S,".")
   MyStringaRuote = S
End Function
NESSUNA GARANZIA CHE I RISULTATI SIANO ESATTI FATE VOI LE VERIFICHE E COMUNICATE
L IMPEGNO DI CHI DEDICA DEL SUO TEMPO PERSONALE A FARE UN LISTATO VIENE BILANCIATO DAGLI UTILIZZATORI CHE IMPIEGANO IL LORO TEMPO A TESTARLO , UN PO DI IMPEGNO DA AMBO LE PARTI.
PURTROPPO UN UTENTE MI AVEVA FATTO PASSARE LA FANTASIA DI POSTARE LE RICHIESTE , MA MI SONO RICREDUTO .
PER FAVORE DIMOSTRATEMI CHE NON HO FATTO UN ERRORE
LA RICHIESTA E' VOLTA A TUTTI GLI EVENTUALI UTILIZZATORI , NON SOLO A MIKI CHE HA FATTO LA RICHIESTA

CIAO :)
 

i legend

Premium Member
Ecco un immagine di una ricerca per estratto su Bari.
prova3_2.png
utilizzando lo stesso modo potete fare delle verifiche random , se vi dividete le ruote e le sorti con una prova a testa si verifica tutto in pochissimi secondi
qualcuno prova gli ambi e vi dividete le ruote , altri provano i terni e vi dividete le ruote
postate le immagini, se non dovessero councidere cerchiamo di risolvere
ciao e grazie a tutti quelli che ci daranno una mano.
p.s
lo script non puo essere venduto , assolutissimamente , è gratis e tale deve restatre
 

Mike58

Advanced Member >PLATINUM PLUS<
Si Ilegend il mio script trova come storico l'estratto più ritardatario.
Sicuramente lo script tuo è corretto e sinceramente non capisco tutte queste precisazione circa la non correttezza o sull'uso da farsi.
Siamo su un forum dove si condivide una passione e per quel che si può si mette a disposizione quello che abbiamo tutti potuto imparare.
Il Tutto sempre senza presunzione di perfezione.
nessuno di noi vende oro colato.

Ciao a Tutti

Ciao
 

i legend

Premium Member
Ciao mike non essendo un programmatore trovo corretto che ciò che faccio potrebbe non essere esatto.
Visto che gli script che faccio li regalo credo che sia giusto specificare che nessuno può venderli neanche apportando banali modifiche .
Anche spaziometria quando viene aperto specifica che il programma è gratuito.
Tutto qui :)
Notte :)
 

miki55

Advanced Member >PLATINUM PLUS<
Richiesta da parte di ZETRIX x Mike58
devi dire a mike58 che se metto la stringa space(1)
li evidenzia i numeri che sono sortiti..
ma se metto la stringa space(2) o space(3) non li evidenzia
piu i numeri che sono sortiti..
con la stringa space(3) si vedono meglio i numeri in tabella
ma però non li evidenzia piu i numeri in tabella..
 

Mike58

Advanced Member >PLATINUM PLUS<
Neanche io sono un programmatore e non ho mai detto di essere esente da errori ma dagli stessi ho anche imparato.
Poi che non sia facile entrare nella testa delle utenze , credo che questo la sai anche tu, ma anche questo fa parte della della cordialità cercando di condividere un pò di sapere o quel poco che qualcun altro a insegnato a noi.
Di script scopiazzati e modificati se ne sono visto tanti e anche noi abbiamo cominciato da lì (scopiazzando)
Comunque niente oggi va così.
 

Mike58

Advanced Member >PLATINUM PLUS<
Richiesta da parte di ZETRIX x Mike58
devi dire a mike58 che se metto la stringa space(1)
li evidenzia i numeri che sono sortiti..
ma se metto la stringa space(2) o space(3) non li evidenzia
piu i numeri che sono sortiti..
con la stringa space(3) si vedono meglio i numeri in tabella
ma però non li evidenzia piu i numeri in tabella..
No No No
space(?) serve solo a dare tanti spazi in fase di scrittura, poi possiamo inventarci tutto. ma la programmazione è fatta di codici logici che anche io conosco solo in parte.
sicuramente in quello script c'è qualche conflitto con gli if-then ma non è space(?) che lo risolve, magari può spostare di spazio qualche posto nella riga.

L'esempio più lampante di scrittura ed evidenza l'ho fatto nell'ultimo script ad esempio chi vuole imparare deve anche assorbire gli insegnamenti.

Ciao
 

i legend

Premium Member
Ciao a tutti.
Mike non capisco cosa ti disturba in ciò che ho scritto.
Non ho offeso nessuno non è da me
Notte
 

i legend

Premium Member
Miki lo script va bene? Da risultati corretti? Appena hai la possibilità di testarlo un tuo feedback sarebbe importante, visto che la richiesta è tua ,per capire se si è andati nella direzione esatta che ti interessava.
Ciao .
 

miki55

Advanced Member >PLATINUM PLUS<
x mike58 da parte di zetrix

devi fare questa richiesta a mike58

ambo1(1) = x
ambo1(2) = y

in output dello script il programma mette diversi ambi in gioco
che si formano con x-y
lo script in output dovrebbe scrivere quelli che hanno piu convergenze
esempio

x-y = 19.59 presente 4volte
x-y = 41.89 presente 3volte
x-y = 19.56 presente 2volte[/QUOTE]
 

Mike58

Advanced Member >PLATINUM PLUS<
Miki,Zetrix non capisco a quali convergenze si fa riferimento, ma se si vuole gli ambi ordinati per presenza o ritardo anche se con quarantena scriptica ( era già pronto) eccolo.

Codice:
Sub Main
   Dim Nu(2),Mat(400005,6)
   Dim T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin
   qt = cint(InputBox("Quanti ambi Visualizzo",,20))
   Ord = CInt(InputBox("Ordina Per " & Chr(13) & "2 - Freq Max" & Chr(13) & "4 - Rit  Max","ORDINAMENTO MAX",2))
   T = Array(T,"K","Ambo","Ruota","Freq","Rit","R_Max","VerificaEsito")
   Call InitTabella(T)
   ResetTimer
   ReDim Ru(0)
   ScegliRuote(Ru)
   'For r = 11 To 11
      For n1 = 1 To 89
         For n2 = n1 + 1 To 90
            'n2 = Vert(n1)
            If n2 <> n1 Then
               k = k + 1
               Nu(1) = n1
               Nu(2) = n2
               'Ru(r) = r
               n = StringaNumeri(Nu)
               Freq = SerieFreqTurbo(Ini,fin,Nu,Ru,2)
               rit = SerieRitardoTurbo(Ini,fin,Nu,Ru,2)
               sto = SerieStoricoTurbo(Ini,fin,Nu,Ru,2)
               Call VerificaEsitoTurbo(Nu,Ru,fin - rit,2,,,esito,,es1,id)
               'If esito = "" Then rit = rit + 1
               Mat(k,1) = n
               Mat(k,2) = Freq
               Mat(k,3) = StringaRuote(Ru)
               Mat(k,4) = rit
               Mat(k,5) = es1
               Mat(k,6) = sto
            End If
         Next
      Next
   'Next
   Call OrdinaMatrice(Mat,- 1,Ord)
   For x = 1 To qt
      'Scrivi FormatSpace(x,6) & Mat(x,1) & vbTab & Mat(x,2) & vbTab & Mat(x,3) & vbTab & Mat(x,4) & vbTab & Mat(x,5)
      V = Array(V,x,Mat(x,1),Mat(x,3),Mat(x,2),Mat(x,4),Mat(x,6),Mat(x,5))
      Call AddRigaTabella(V)
   Next
   CreaTabella
   Scrivi "Tempo di Elaborazione... " & TempoTrascorso,1
End Sub
 

genios

Advanced Member >PLATINUM<
I valori della variabile Mat non dovrebbe essere (4005,6)

Codice:
Sub Main
   Dim Nu(2),Mat(400005,6)
   Dim T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin

ciao Eugenio
 

Zetrix

Advanced Premium Member
ciao mike58 volevo chiederti alcune cose riguardo gli script
ringrazio miki che a girato le mie richieste a te e in parte
alcune cose le abbiamo risolte,ma ho altre cose che ancora non le risolvo,
con la stringa space(3) ho visto che non risolve il problema
se metto la stringa space(1) va bene ed evidenzia i numeri sortiti
in tabella ma se metto gia la stringa space(2) non li evidenzia piu
i numeri sortiti..
adesso vorrei girare il problema ammesso che si puo fare..
e possibile ingrandire un po i numeri nelle lunghette ?

Call SetTableWidth("50%")

questa stringa non lo risolve il problema anche se metto a 70%

con space(3) i numeri si vedono meglio ma non li evidenzia piu
i numeri sortiti..
 

Allegati

  • 403.PNG
    403.PNG
    25,4 KB · Visite: 12
  • 404.PNG
    404.PNG
    27,8 KB · Visite: 12
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Zetrix, io ti ho già risposto lo space(x) seve per spaziare una scritta non per evidenziare con colori , mentre se vuoi ingrandire un carattere sia il codice scrivi che il codice getTestoHtml hanno il parametro size per scrivere in grandezza caratteri ( da default = 2)
Ho fatto l'esempio qualche post addietro per evidenziare e magari non lo avete letto era semplice da capire.
Poi come in ogni cosa ci dovete mettere del vostro.

Ciao
 

Zetrix

Advanced Premium Member
va bene mike ma questo codice getTestoHtml con il parametro size per scrivere in grandezza caratteri (da default = 2)
dove si puo modificare nel configura script ce size e a 5 in output..
ma forse questa riguarda un'altra cosa..
 

Zetrix

Advanced Premium Member
ambo1(1) = x
ambo1(2) = y

mike adesso vorrei chiederti se mi puoi risolvere questo problema
in spaziometria ho una tecnica che in output elabora diversi ambi
formati con x e y ..
vorrei che in output lo script mi scrivesse una lista degli ambi
che si sono ripetuti cioe che sono uguali
metto un esempio
19.59 e 59.19 mi da in output
questi ambi in pratica sono uguali ma
come si fa a sapere quali ambi si sono ripetuti
in un elaborato di una estrazione..
questa tecnica e impostata da me ed
elabora tanti ambi..
ho visto che in spaziometria ce la funzione convergenza script
ma va bene per l'estratto ma con l'ambo sembra che non funziona
perche fa vedere sempre un numero che si ripete piu volte
quindi se puoi dire a Luigi.b di aggiustare questo sistema
per le convergenze per ambo..
in pratica il sistema dovrebbe dire quale e l'ambo che a
piu convergenze in una tecnica di gioco
ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto