Cambio lingua run-time

[g.grandi]

Salve a tutti.
Ho un problema sul cambio di lingua durante l'esecuzione del programma. L'esigenza è quella di visalizzare la data-ora corrente in due lingue diverse. Sfruttando la System.Language sono riuscito nel mio intento, però eseguendo tale cambio ad ogni secondo, non so per quale motivo continua ad incrementarsi la memoria condivisa fino a portarla al crash dell'applicazione. Allego i passaggi che esegue il programma:

Codice: [Seleziona]

PUBLIC SUB Timer1_Timer()

  DIM st, st1 AS String

  st = System.Language
  System.Language = "cs_CZ.UTF-8"
  st1 = Format$(Now, "dddd dd mmmm yyyy  hh:nn:ss")
  System.Language = "en_US.UTF-8"
  DataLbl.Text = st1 & "\n" & Format$(Now, "dddd dd mmmm yyyy  hh:nn:ss")
  System.Language = st
  
END

Riuscite a dirmi dove sbaglio o eventuali suggerimenti per ottenere lo stesso risultato.

Grazie a tutti

Giovanni Grandi

[Gianluigi]

Salve a tutti.
Ho un problema sul cambio di lingua durante l'esecuzione del programma. L'esigenza è quella di visalizzare la data-ora corrente in due lingue diverse. Sfruttando la System.Language sono riuscito nel mio intento, però eseguendo tale cambio ad ogni secondo, non so per quale motivo continua ad incrementarsi la memoria condivisa fino a portarla al crash dell'applicazione. Allego i passaggi che esegue il programma:

Codice: [Seleziona]

PUBLIC SUB Timer1_Timer()

  DIM st, st1 AS String

  st = System.Language
  System.Language = "cs_CZ.UTF-8"
  st1 = Format$(Now, "dddd dd mmmm yyyy  hh:nn:ss")
  System.Language = "en_US.UTF-8"
  DataLbl.Text = st1 & "\n" & Format$(Now, "dddd dd mmmm yyyy  hh:nn:ss")
  System.Language = st
  
END

Riuscite a dirmi dove sbaglio o eventuali suggerimenti per ottenere lo stesso risultato.

Grazie a tutti

Giovanni Grandi

Ciao Giovanni,
non vorrei dare una risposta sciocca o banale ma per far apparire le date in modo diverso non basta Format$ perché fare tutto quel pastrocchio non riesco a capire puoi spiegarmi meglio?
Per dire potrebbe bastarti una cosa del genere o no?

Codice: [Seleziona]

TextBox1.text = Format$(Now, "dd/mm/yyyy")
TextBox2.Text = Format$(Now, "mm/dd/yyyy")

[g.grandi]

No. Non si tratta di una semplice formattazione diversa dell'output, ma di presentare la data-ora in lingua Ceca e la stessa data-ora in lingua Inglese. Per fare questo mi sono appoggiato alla lingua di sistema che passa alla Format$ i mesi e giorni nella forma corretta. Non so se esista un'altro modo per fare questo...

Ciao, Giovanni

[vuott]

Ad ogni modo, provando il tuo codice anche con l'inserimento del comando bash free , non mi pare di riscontrare i problemi di memoria da te sollevati.   

[Gianluigi]

No. Non si tratta di una semplice formattazione diversa dell'output, ma di presentare la data-ora in lingua Ceca e la stessa data-ora in lingua Inglese. Per fare questo mi sono appoggiato alla lingua di sistema che passa alla Format$ i mesi e giorni nella forma corretta. Non so se esista un'altro modo per fare questo...

Ciao, Giovanni

Potresti ottenere il giorno, il mese e l'anno con le funzioni WeekDay, Month, Year e poi scriverle nelle lingue che vuoi e assemblarle come vuoi.
 

[vuott]

Potresti ottenere il giorno, il mese e l'anno con le funzioni WeekDay, Month, Year e poi scriverle nelle lingue che vuoi e assemblarle come vuoi.

C'avevo pensato pure io, ma devo dire che la soluzione adottata da lui, invocando la proprietà System.Language è a mio avviso più elegante, breve e sicura.

[Gianluigi]

Non sono in disaccordo ma neanche completamente d'accordo, forse per troppa ignoranza, comunque Minisini ha sempre sconsigliato l'uso a runtime.
Allego esempio, con questo sistema ci puoi mettere tutti gli orpelli che desideri. 
 

[vuott]

...comunque Minisini ha sempre sconsigliato l'uso a runtime.

Di cosa ?

[g.grandi]

Ad ogni modo, provando il tuo codice anche con l'inserimento del comando bash free , non mi pare di riscontrare i problemi di memoria da te sollevati.   

Il problema lo noto aprendo il monitor di sistema. Ad ogni iterazione del programma, la memoria condivisa aumenta di 48 byte.

Ho chiesto aiuto nella speranza che qualcuno si fosse già imbattuto in un problema del genere. Ma se non vi è soluzione vedo di ripiegare sull'alternativa  proposta da Gianluigi. Grazie comunque per la collaborazione.

Giovanni

[Gianluigi]

...comunque Minisini ha sempre sconsigliato l'uso a runtime.

Di cosa ?

Dell'oggetto della discussione 
Minisini sconsiglia il cambio della lingua a runtime perché non è possibile variare certi aspetti dopo l'avvio della grafica, tutto lì... l'ho voluto rammentare.
Ho fatto il profiling delle due applicazioni (cambiando il ceco con l'italiano) la mia nello spazio di 69 secondi risparmia circa 9000000 di loop.
Non so se può essere un dato indicativo.