Novità

X mike58

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 :)
 
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
 
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
 
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 :)
 
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..
 
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ì.
 
miki55 ha scritto:
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..
Clicca per espandere...
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
 
Ciao a tutti.
Mike non capisco cosa ti disturba in ciò che ho scritto.
Non ho offeso nessuno non è da me
Notte
 
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 .
 
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]
 
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
 
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
 
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:
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
 
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..
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto