Novità

X mike58

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
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

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
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<
Messaggi
2.094
Punti reazione
79
Punti
48
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

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
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<
Messaggi
2.977
Punti reazione
351
Punti
83
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<
Messaggi
2.094
Punti reazione
79
Punti
48
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<
Messaggi
2.094
Punti reazione
79
Punti
48
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

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
Ciao a tutti.
Mike non capisco cosa ti disturba in ciò che ho scritto.
Non ho offeso nessuno non è da me
Notte
 

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.094
Punti reazione
79
Punti
48
Oggi un pò così faccio una pausa scriptica
Notte anche a te
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
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<
Messaggi
2.977
Punti reazione
351
Punti
83
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<
Messaggi
2.094
Punti reazione
79
Punti
48
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 >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
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

Premium Member
Messaggi
9.606
Punti reazione
36
Punti
48
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

Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.094
Punti reazione
79
Punti
48
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

Premium Member
Messaggi
9.606
Punti reazione
36
Punti
48
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

Premium Member
Messaggi
9.606
Punti reazione
36
Punti
48
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
    giovedì 13 agosto 2020
    Bari
    85
    14
    03
    88
    26
    Cagliari
    75
    85
    81
    77
    13
    Firenze
    69
    86
    10
    60
    36
    Genova
    02
    57
    16
    09
    59
    Milano
    83
    06
    51
    18
    46
    Napoli
    75
    80
    20
    52
    47
    Palermo
    64
    05
    73
    89
    88
    Roma
    67
    02
    60
    74
    63
    Torino
    83
    42
    23
    03
    35
    Venezia
    83
    87
    86
    72
    88
    Nazionale
    12
    77
    42
    19
    32
    Estrazione Simbolotto
    Genova
    11
    36
    06
    30
    05

Ultimi Messaggi

Alto