Novità

Domanda per Luigi

i legend

Premium Member
Lo script serve solo ed unicamente per ricreare e testare eventuali errori


ecco lo script di esempio:
Codice:
Option Explicit
' lo script crea volutamente l errore per testare la tabella
Sub Main
   Dim idErr:idErr = MsgBox("Vuoi riprodurre l Errore ?",4+32,"Scelta OutPut")
   ReDim aR(0):Call ScegliRuote(aR)
   Dim sRu:sRu = StringaRuote(aR)
   Dim aTit:aTit = Array(0,"ID","Ruota_Ver","F o r m.","Frequenza","Ritardo")
   Call InitTabella(aTit)
   ReDim aNum(90)
   Dim n,j
   For n = 1 To 90
      aNum(n) = n
   Next
   Dim col:col = InitSviluppoIntegrale(aNum,2)
   ReDim aStat(col)
   n = 0
   Do While GetCombSviluppo(aNum)
      n = n + 1
      aStat(n) = n & ";" & sRu & ";" & MyStr(aNum) & ";" & SerieFreqTurbo(EstrazioneIni,EstrazioneFin,aNum,aR,2) & ";" & SerieRitardoTurbo(EstrazioneIni,EstrazioneFin,aNum,aR,2)
      Call AvanzamentoElab(1,col,n)
   Loop
   For n = 1 To 3
      Dim aV:aV = Split("0;" & aStat(n),";")
      Dim aTab: aTab = Array(0,aV(1),aV(2),aV(3),aV(4),aV(5))
      Call AddRigaTabella(aTab)
      Call AvanzamentoElab(1,UBound(aStat),n)
   Next
   If idErr = 6 Then
      Call CreaTabellaOrdinabile()
   Else
      Call CreaTabella()
   End If
End Sub
' con questa funzione riproduco l errore
' utilizzando stringanumeri si ha un altro tipo di errore
Function MyStr(aNum)
   Dim i
   MyStr = ""
   For i = 1 To UBound(aNum)
      MyStr = MyStr & Format2(aNum(i)) & " - "
   Next
   MyStr = RimuoviLastChr(MyStr," - ")
End Function
 

i legend

Premium Member
credo che nei titoli non si possono scrivere caratteri speciali tipo"."oppure "_"
forse i record si comportano ugualmente
ciao buona notte a tutti :)
 

joe

Advanced Member >PLATINUM PLUS<
Buon giorno a tutte/i.

Senza pc non podso provare lo script

tuttavia rimuovi-ultimo-catattere potrebbe

essere incompatibile con una stringa

formata da più caratteri.

:)
 

giluge

Super Member >PLATINUM<
ciao a tutti, ciao luigib, come state
io me la passo cosi e cosi........
volevo chiedere se c'e' o se postate una statistica del superenalotto fatta bene grazie, la mia e' ballerina e a volte si vedono 2 estrazioni.
ieri la mia spaziometria, .1.6.26 mi segnalava una nuova versione ma ho scaricato ed e' la stessa 1..6.26
boh
rimango in attesa di qualche aiuto grazie
 
L

LuigiB

Guest
ciao , gli errori riscontratisono normali dovuti al fattoche il controllo l'ho riscritto daccapo cambiando approccio, le conclusiioni individuate da legend erano corrette i nomi delle colonne avevano dei problemi , ora ho risolto on il nuovo aggiornamento.

fate i test e in caso di errore mandatemi lo script ...oltre all'output.

ciao a tutti ..

P.S.
Giulge il tuo messaggio in questo thread c'entra come i cavoli a merenda !


https://www.mediafire.com/file/i2d6x35dj6iwjhg/SetupSpaziometria_1_6_29.rar/file
 
Ultima modifica di un moderatore:

Mike58

Advanced Member >PLATINUM PLUS<
Ciao luigi, io non riesco a scaricare il setup
ecco la videata del collegamento
magari puoi ripostarlo.
Ciao intanto grazie.

 

giluge

Super Member >PLATINUM<
ciao luigib, volevo srivere che forse non c'entrava nulla il mio argomento, chiedo venia. mi e' sfuggito.
come detto, non sto bene fisicamente, ma , percarita'
non fraintendetemi, non vogglio pieta' di nessun genere.
grazie ancora,,,
p.s.
se si puo' cerco una statistica aggiornata del superenalotto
grazie e susatemi tanto ancora
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Luigi, scaricata vers 1.6.29, purtroppo riscontro ancora dei problemi, molti script non funzionano.
altri anche se funzionanti da default dovrebbero scrivere allineati "Center" ma scrivono allineati "Left" ed anche se li forzo in "Center" non scrivono correttamente.

Un esempio di non scrittura (sempre TabOrdinabile) è questo semplice script.

Codice:
Sub Main
   Dim T,V
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   T = Array(T,"Ruota","Numero","Ritardo","RitSincDiLiv","RitCrono","RRs%","RRc%")
   Call InitTabella(T)
   For r = 1 To 12
      If r = 11 Then r = 12
      a = NumeroPosRitTurbo(fin,r,1)
      rit = EstrattoRitardoTurbo(r,a,Ini,fin)
      b = RitSincDiLiv(a,r,fin,1)
      c = RitPosCrono(a,r,fin)
      rrs = Round(b/rit,2)
      rrc = Round(c/rit,2)
      V = Array(V,SiglaRuota(r),a,rit,b,c,rrs,rrc)
      Call AddRigaTabella(V)
   Next
   'Call CreaTabella(3)
   Call CreaTabellaOrdinabile(3)
End Sub

errori videata




altro per ora non saprei.
 

Mike58

Advanced Member >PLATINUM PLUS<
Poi su questo altro script scrive ancora lo stringaNumeri attaccato.


Codice:
'Option Explicit
Sub Main
   Dim nRetNumero,nRitPosCrono,nRitCrono,ru(1)
   Dim T,V
   Ini = EstrazioneFin - 1
   fine = EstrazioneFin
   For es = Ini To fine
   Scrivi "Ritardari ordinati per RitCrono e Ritardo",1
   Scrivi GetInfoEstrazione(es)
   Scrivi
   T = Array(T,"Ruota","Numero","RitCrono","Ritardo","Verifica")
   Call InitTabella(T)
   For r = 1 To 12
      ru(1) = r
      'Scrivi NomeRuota(r) & vbTab & GetInfoEstrazione(fin)
      'k = 10
      Call RitPosCronoRp1(ru,(es),nRetNumero,nRitPosCrono,nRitCrono)
      n = StringaNumeri(nRetNumero)
      Call VerificaEsito(nRetNumero,ru,fine,1,,,,,estratti)
      V = Array(V,SiglaRuota(r),n,nRitPosCrono,nRitCrono,estratti)
      Call AddRigaTabella(V,,"center",,,,,1)
   Next
   CreaTabellaOrdinabile("3,4")
   Next
End Sub

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/funkyimg.com\/i\/2MLBi.png"}[/IMG2]

esempio anche se forzato a center scrive oltre che 55.85 a Mi attaccato non a "center"
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Luigi, non tenere conto del mio penultimo messaggio riaperto spaziometria adesso non riscontro + l'errore, anche se il problema dell'allineamento permane.

aspettiamo altri con altre verifiche.

Ciao
 
L

LuigiB

Guest
ciao Mike , grazie per le prove , mi sembra di capire che ci sia solo il problema dell'allineamento.
E' inutile che rifaccio il setup lo rifarò quando siamo sicuri che funziona...ora l'allienamento dovrebbe essere uguale alla tabella normale


per ora sostituisci il file che ti allego , lo scompatti e lo metti al posto di quello che hai o in system32 o syswow64 , fami sapere quanto prima se trovi altri problemi

https://www.mediafire.com/file/zxpiz327hd4bvjv/LbGrigliaOrd2.rar/file
 
Ultima modifica di un moderatore:

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Luigi, fatto scompattato il file e messo in syswow64, ma il problema dell'allineamento persiste anche forzandolo, dichiarando "Center".
Sono d'accordo aspettiamo anche altri per verifiche ulteriori, prima del setup definitivo.
 
L

LuigiB

Guest
ciao mike , sicuro di aver sostituito ben il file ? ti spiego io ho fatto la stessa prova tua , dato che lo sviluppo avviene sullam acchina virtuale con xp ma il test lo faccio su quest'altra anche io ho installato l'ultima versione ed ho dovuto sostituire l'ocx esattamente come te .. e lanciando lo script di prima a me li centra ..
Ti ha chiesto di sostuire l'altro file ? qualcosa deve essere successo perche ripeto a me risulta che l'allineamento ora funzioni .. non sdipende dal tuo pc ma solo se hai l'ultimo componente aggiornato opure no...

ecco come appare a mel'output del tuo script .. prova a risostituire il fiel che ho postato prima ...

per tutti gli altri che fanno le pove bisogna prima installare l'ultimo setup e poi sostituire a mano il file in system32 o syswow64 a seconda di dove losi trovi ...poi una volta fatti i test tutto verrà messo nel setup e non ci sarà piu bisogno di operazioni a mano

http://www.mediafire.com/file/cwlzcf9irow9zm4/LbGrigliaOrd.rar/file


 

Mike58

Advanced Member >PLATINUM PLUS<
Come puoi vedere oltre al problema dell'allineamento i numeri con stringanumeri sono ancora attaccati.

 
L

LuigiB

Guest
qual'eè lo script che produce il risultato di cui sopra ?
che vuol dire i numeri sono attaccati ?
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Luigi sulla tua videata non avendo l'archivio aggiornato non ci sono 2 ritardatari aventi lo stesso ritardo e quindi non riscontri il problemi di avere 2 numeri in stringanumeri.

Mentre il mio script che produce i risultati con stringanumeri attaccati sono nella fattispecie ambo90 e Num in gioco. che dovrebbero essere scritti separati dal punto.
lo script in questione è questo (bisognerebbe però avere l'archivio aggiornato per comparare i dati)

Codice:
Sub Main
   Dim Nu(2),An(2),Ru(1),T,V
   Ini = EstrazioneFin - 20
   fin = EstrazioneFin
   T = Array(T,"Data Es","Ruota","Estratti","Ambo 90","Num Gioco","Esito","Clp","Id Verifica","Ambetto","Q.tà","Vincita Ambetto","Estratti")
   Call InitTabella(T)
   For es = Ini To fin
      For r = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               If a + b = 90 And p2 = p1 + 1 Then
                  Nu(1) = a
                  Nu(2) = b
                  Ru(1) = r
                  An(1) = Differenza(a,b)
                  An(2) = Vert(An(1))
                  'An(3) = 90
                  Call VerificaEsito(An,Ru,es + 1,1,10,,,clp,es1,id)
                  ex = es
                  exx =(es + clp)
                  If exx > fin Then exx = fin
                  For ess = ex To exx
                     ambetto = VerificaAmbetto(An,r,ess,esit,vinc)
                     'If ess > fin Then fin = ess
                     If ambetto > 0 Then
                        esito = esit
                     Else
                        esito = " -- "
                     End If
                     V = Array(V,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nu),StringaNumeri(An),es1,clp,GetInfoEstrazione(id),esito,ambetto,vinc,StringaEstratti(id,r))
                  Next
                  Call AddRigaTabella(V,,"Center")
                  If id = fin Then Call SetColoreCella(8,7,5)
               End If
            Next
         Next
      Next
   Next
   'CreaTabella
   CreaTabellaOrdinabile
End Sub

nel caso fare la prova con creatabella-
 
L

LuigiB

Guest
Gilulge il fatto è quello di evitare confusione .. ogni thread ha un argomento .. hai fatto bene ad aprirne uno apposta per quello che ti serve.
Ti faccio i migliori auguri per le tue questioni di salute ..
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto