Novità

tabella ordinabile ...errore

fillotto

Advanced Member >PLATINUM<
Da un poco che non usavo più tabella ordinabile adesso provando uno script con tabellaordinabile mi da errore: -2147221164- interfaccia non registrata.
L'errore lo da anche in tutti i vecchi script :(:(:( la tabella "normale" invece funziona
cosa è successo?
 

fillotto

Advanced Member >PLATINUM<
io ho la 1.6.34 win 10 il computer l'ho cambiato da più di 6 mesi e non ricordo di aver avuto a che fare con script con tab ordinabili
Qualche giorno fa ho messo su un programma "Cambia numeri vers 1.2.1 " che mi diceva , come del resto spaziometria,di stare attento.
Tutto qui è quello che posso ricordare-
Siccome Tabella ordinabile ha un ' indubbia utilità chiedo aiuto
 

fillotto

Advanced Member >PLATINUM<
Questo è lo script ,che ripeto funziona, si riferisce al lotto svizzero
qui metto " Call CreaTabella(2,1)" ovvero la colonna 2 la voglio ordinata dal + piccolo al + grande funziona tutto siccome è pià comodo avere la possibilità di ordinarea piacimento le colonne che più mi aggradono ho pensatodi togliere quel (2,1) ed aggiungere "ordinabile".
la cosa funziona ma solo a metà nel senso che appare la tabella ordinabile ma andando a ordinare una colonna si guasta totto eappare il messaggio -2147221164- interfaccia non registrata.
Il bello (brutto)è che andando su vecchi script dove cè la tabella ordinabile non funzionano più.Però se spengo e riaccendo i vecchi script funzionano a meno che non vado su questo script lo lancio
e siamo daccapo:mad::mad: speriamo che passi da queste parti Mike58
o ilegend o chi sappia dove è l'errore
Codice:
Sub Main
   Dim num(42,2)
   Dim n(1),ruota(1)
   Dim archFill
   Dim sFile
   Dim sez
   Dim sfilearchivio
   Dim x
   sez = InputBox("Quale Arc Virtuale vuoi prendere in considerazione (Arc 1 ORIG) ? "," 1 - 7 ",1)
   'x = InputBox("che num? ",,1)
   sfilearchivio = GetDirectoryAppData & "Svizzera\svizz" & sez & ".txt"
   Call ApriBaseDatiFT(sfilearchivio,06,",",42)
   Ini = 2
   fin = 730
  SetColorSezione(6)' da qui il colore di fondo in questo caso CELESTE fino a quando non interviene il comando EndColorSezione
   Scrivi "                                                    SEZIONE n°    " & sez,1,,,1,3,,1
Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
Scrivi Space(100) & "Script By Mike58 revisione fillotto",1
Scrivi "Inizio Ricerca.............. " & GetInfoEstrazioneFT(Ini)
Scrivi "Fine Ricerca.............. " & GetInfoEstrazioneFT(fin)
Scrivi "Totali Estrazioni........... " & fin - Ini
EndColorSezione 'fine colore di fondo
                                                  
          ReDim atitoli(6)
   atitoli(1) = " numero "
   atitoli(2) = " ritardo attuale "
   atitoli(3) = " ritardo storico "
   atitoli(4) = " Ritardo storico precedente se superato "
   atitoli(5) = " frequenza  "
   atitoli(6) = " frequenza media in 7 estraz "
   Call InitTabella(atitoli,1,,2,5)
   For x = 1 To 42 ' ciclo for .. next
      a = EstrattoStoricoFT(x,Ini,fin)
      b = EstrattoIncrStoricoFT(x,Ini,fin)
      c = EstrattoRitardoFT(x,Ini,fin)
      d = EstrattoFrequenzaFT(x,Ini,fin)
      e = Round(fin/d,2)
      ReDim avalori(6)
      avalori(1) = x
      avalori(2) = c
      avalori(3) = a
      avalori(4) = b
      avalori(5) = d
      avalori(6) = e
      Call AddRigaTabella(avalori,,,3)
      'Scrivi Ini & "-" & fin,1
      '      Scrivi
      '   Scrivi "ritardo attuale  " & c & " SEZ  " & sez
      '   Scrivi " frequenza media   " & fin/d
      '   Scrivi "Estratto " & x & " " & " swtz Ritardo Storico corrente " & a
      '   Scrivi "Incremento sullo storico precedente     " & b
      '   Scrivi "Ritardo storico precedente se superato  " & a - b
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(2,1)
End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Fill, ogni tanto capita anche a me.
Non saprei a cosa sia dovuto, ma forse è meglio non usare le Redim e mettere i valori in un array.
Poi se capita ancora chiudi e riapri il programma , ho simulato il tutto su un mio archivio e funziona.

Ricordo anche che Luigi diceva che c'era un problema anche sul size dei caratteri, quindi è consigliabile non usare i parametri della grandezza del size caratteri.

vedi se ti è utile, mi raccomando cambia i parametri del tuo archivio.

Codice:
Sub Main
   'Dim num(42,2)
   Dim n(1)
   Dim archFill
   Dim sFile
   Dim sez
   Dim sfilearchivio
   Dim x,at,av
   sez = InputBox("Quale Arc Virtuale vuoi prendere in considerazione (Arc 1 ORIG) ? "," 1 - 7 ",1)
   'x = InputBox("che num? ",,1)
   sfilearchivio = GetDirectoryAppData & "ArchivioMillionDay\MillionDay_ordinato.txt"

   Call ApriBaseDatiFT(sfilearchivio,05,";",55)
   Ini = 2
   fin = 730
  SetColorSezione(6)' da qui il colore di fondo in questo caso CELESTE fino a quando non interviene il comando EndColorSezione
   Scrivi "                                                    SEZIONE n°    " & sez,1,,,1,3,,1
Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
Scrivi Space(100) & "Script By Mike58 revisione fillotto",1
Scrivi "Inizio Ricerca.............. " & GetInfoEstrazioneFT(Ini)
Scrivi "Fine Ricerca.............. " & GetInfoEstrazioneFT(fin)
Scrivi "Totali Estrazioni........... " & fin - Ini
EndColorSezione 'fine colore di fondo
                                                 
          'ReDim atitoli(6)
   'atitoli(1) = " numero "
   'atitoli(2) = " ritardo attuale "
   'atitoli(3) = " ritardo storico "
   'atitoli(4) = " Ritardo storico precedente se superato "
   'atitoli(5) = " frequenza  "
   'atitoli(6) = " frequenza media in 7 estraz "
   at = Array(at,"Numero","Rit Att","Rit sto","Rip pr","Freq","Media")
   Call InitTabella(at)
   For x = 1 To 55 ' ciclo for .. next
      a = EstrattoStoricoFT(x,Ini,fin)
      b = EstrattoIncrStoricoFT(x,Ini,fin)
      c = EstrattoRitardoFT(x,Ini,fin)
      d = EstrattoFrequenzaFT(x,Ini,fin)
      e = Round(fin/d,2)
      'ReDim avalori(6)
      'avalori(1) = x
      'avalori(2) = c
      'avalori(3) = a
      'avalori(4) = b
      'avalori(5) = d
      'avalori(6) = e
      av = Array(av,x,c,a,b,d,e)
      Call AddRigaTabella(av)
      'Scrivi Ini & "-" & fin,1
      '      Scrivi
      '   Scrivi "ritardo attuale  " & c & " SEZ  " & sez
      '   Scrivi " frequenza media   " & fin/d
      '   Scrivi "Estratto " & x & " " & " swtz Ritardo Storico corrente " & a
      '   Scrivi "Incremento sullo storico precedente     " & b
      '   Scrivi "Ritardo storico precedente se superato  " & a - b
   Next
  ' Call SetTableWidth("100%")
  Call CreaTabellaOrdinabile
  'Call CreaTabella()
End Sub
 
Ultima modifica:

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

Ultimi Messaggi

Alto