Domanda per Luigi

[i legend]

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


ecco lo script di esempio:

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]

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

 

[joe]

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]

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

 

[LuigiB]

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

 

[Mike58]

Ciao luigi, io non riesco a scaricare il setup
ecco la videata del collegamento
magari puoi ripostarlo.
Ciao intanto grazie.

 

[Mike58]

Forse adesso sta funzionando, sono in scarico, poi faccio sapere.
ciao

 

[giluge]

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]

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.

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]

Poi su questo altro script scrive ancora lo stringaNumeri attaccato.

'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"

 

[Mike58]

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

 

[LuigiB]

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

 

[Mike58]

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.

 

[LuigiB]

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]

Come puoi vedere oltre al problema dell'allineamento i numeri con stringanumeri sono ancora attaccati.

 

[LuigiB]

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

 

[LuigiB]

a me lo script di prima vien cosi

 

[Mike58]

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)

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-

 

[LuigiB]

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 ..

 

[rudivall]

Ciao ragazzi a me sembra funzionare correttamente......