problema nel gestire culture

[Kahm]

salve a tutti
ho un programma che individua automaticamente il CultureInfo del computer e gestisce in automatico la traduzione

il problema si è posto quando facendo un test ho forzato il CultureInfo in "en-EN"
ed ho cercato di sommare 2 numeri: "2.3" e "1", con il risultato di : "24"

          culture = New System.Globalization.CultureInfo("en-EN")
            System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(CBB_Lingua.Text)
   



        Dim N As Int64 = 2.3
        debug.print N+1 'risultato 24

cosa sbaglio?

[MItaly]

Quel risultato non è possibile. N è un Int64, per cui 2.3 viene troncato a 2 all'assegnazione; la Debug.Print dovrebbe stampare 3. Posta il codice che stai effettivamente impiegando.

[oregon]

1) perché crei culture e poi non lo usi ?
2) cosa c'è in CBB_Lingua.Text ?
3) il valore assegnato a N è compilato e non dipende dall'esecuzione del programma; è un intero e per me vale sempre 2


Probabilmente tu stai utilizzando effettivamente valori provenienti da stringhe o textbox e non nel codice, ovvero così

Dim N As Int64 = "2.3"

[Kahm]

Quel risultato non è possibile. N è un Int64, per cui 2.3 viene troncato a 2 all'assegnazione; la Debug.Print dovrebbe stampare 3. Posta il codice che stai effettivamente impiegando.

1) perché crei culture e poi non lo usi ?
2) cosa c'è in CBB_Lingua.Text ?
3) il valore assegnato a N è compilato e non dipende dall'esecuzione del programma; è un intero e per me vale sempre 2


Probabilmente tu stai utilizzando effettivamente valori provenienti da stringhe o textbox e non nel codice, ovvero così

Dim N As Int64 = "2.3"

scusate
a furia di provare ho modificato il codice originale

ops..funziona!

  Dim culture As System.Globalization.CultureInfo
        culture = New System.Globalization.CultureInfo("en-GB")
        System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en-GB")
     
        Dim N As Double = 2.3
        MsgBox(N + 1)

penso di aver scoperto l'arcano mistero...
prima prelevavo il valore da una textbox....

        Dim N As Double =textbox1.text 'prelevo valore da text
        MsgBox(N + 1)

immagino che devo fare un cast ogni volta
ma anche impostando la variabile N=cdbl(textbox1.text)
se il testo è 2.3 mi cambia in 23 uhm...
voi cosa usereste per catturare il valore di una textbox ?

[oregon]

Ma perché scrivi

  Dim culture As System.Globalization.CultureInfo
  culture = New System.Globalization.CultureInfo("en-GB")
  System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en-GB")

e non semplicemente

  System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en-GB")

?

A che ti serve culture se non lo usi?

In ogni caso, io farei

        Dim dblprov As Globalization.NumberFormatInfo = New Globalization.NumberFormatInfo()
        dblprov.NumberDecimalSeparator = "."
        dblprov.NumberGroupSeparator = ","
        dblprov.NumberGroupSizes = New Integer() {3}


        Dim N As Double = Convert.ToDouble(TextBox1.Text, dblprov)