Πρώτα Βήματα - Desktop Applications

Απ: Currency???

Παναγιώτης Καναβός — Sat, 23 Dec 2006 16:30:41 GMT

Φαντάζομαι ότι ο Efthimis έχει στο μηχάνημα του ελληνικά regional settings, ή έχει αλλάξει από το Control Panel την υποδιαστολή σε κόμμα. Στην περίπτωση αυτή, η CDbl και η Double.Parse και η CDec και η Decimal.Parse θα μεταφράσουν το 3.14 σε 314. Αυτός είναι ο σωστός τρόπος λειτουργίας και δεν αλλάζει. Το σωστό είναι να εισάγει στο Textbox 3,14 όχι 3.14. Ακόμα και η τελεία του αριθμητικού πληκτρολογίου γυρίζει σε κόμμα όταν αλλάζεις γλώσσα με Alt+Shift και πας σε ελληνικά!

Εδώ μιλάμε για τελείως άλλο ζήτημα, όχι για regional settings. Τί υποδιαστολή θέλει ο Efthimis να χρησιμοποιούν οι χρήστες του? Την ρυθμισμένη? Τότε δεν έχει πρόβλημα. Θέλει να τους κάνει να χρησιμοποιούν μία συγκεκριμένη? Τότε πρέπει να γράψει κώδικα στο Textbox και αλλού για να κάνει μετατροπές. Δεν το συνιστώ, και δεν θα αρέσει και στους χρήστες.

Απ: Currency???

KelMan — Sat, 23 Dec 2006 07:12:33 GMT

Νομίζω ότι δεν έχουμε συνεννοηθεί... Ανακεφαλαίωση: Δεν υπάρχει θέμα προβλήματος! Η Parse μέθοδος θα ερμηνεύσει έναν από τους δύο χαρακτήρες (κόμμα ή τελεία) ως τον χαρακτήρα που υποδηλώνει την έναρξη των δεκαδικών ψηφίων, ανάλογα με τα regional settings του υπολογιστή. Δεν γίνεται να ερμηνεύσει και τα δύο ως υποδιαστολές. Απο εκεί και πέρα όλα τα προγράμματα ακολουθούν αυτήν την λογική. Δεν είναι δουλειά του προγράμματος να ξέρει ποιος χαρακτήρας είναι η υποδιαστολή. Επιπρόσθετα οι χρήστες θα πρέπει να έχουν ένα consistency στον τρόπο που δίνουν τα νούμερα. Αν ένας χρήστης χρησιμοποιήσει το πρόγραμμά σου και εισάγει δεκαδικούς με το κόμμα ως υποδιαστολή και κατόπιν το EXCEL όπου υποδιαστολή είναι η τελεία (για το Ελληνικό locale), θα νιώθει πολύ μπερδεμένος. Αυτά ως προς το UI. Στον κώδικα τώρα, είτε πρόκειται για SQL, είτε για C#, είτε για VB.NET, η υποδιαστολή είναι πάντοτε η τελεία. Από την άλλη μεριά με την Parse, δεν χρειάζεται να ασχοληθείς πώς ένα string που το πέρνεις από κάποιο textbox, θα μετατραπεί σε double/decimal. Garbage-in, garbage-out.

Ουσιαστικά το θέμα σου είναι πως θα κάνεις σωστό validation. Αν θέλεις κατά το data entry να επιτρέπεις μόνο την υποδιαστολή τότε μπορείς να διαβάσεις ποιός είναι ο χαρακτήρας της υποδιαστολής χρησιμοποιώντας την

Dim decSep As Char = System.Globalization.CultureInfo.CurrentCulture.Nu mberFormat.NumberDecimalSeparator

Αντίστοιχα, το

Dim grpSep As Char = System.Globalization.CultureInfo.CurrentCulture.Nu mberFormat.NumberGroupSeparator

σου δίνει τον χαρακτήρα για grouping (δεκάδες, χιλιάδες, κλπ). Κατόπιν, μπορείς είτε στο KeyPress/KeyUp/KeyDown να κόβεις αυτόν τον χαρακτήρα, είτε στο Validate event να ελέγχεις αν περιέχεται στο string.

Απ: Currency???

Pak — Sat, 23 Dec 2006 06:14:13 GMT

το δοκίμασα και με τους δυο τροπους και δεν παιζει... Φαντάζομαι ότι το πρόβλημα είναι με το 3.14 και όχι με το 3,14 ετσι?

Απ: Currency???

KelMan — Sat, 23 Dec 2006 05:24:12 GMT

To σωστό είναι να πεις

insertCmd.Parameters.Add("@price", OleDbType.Currency).Value = Double.Parse(txtPrice.Text)

H μέθοδος Parse μπορεί να δεχθεί ως παράμετρο τον τρόπο που ερμηνεύσει τα κόμματα και τις τελείες. Τυπικά θα θεωρήσει ότι είναι αυτά που ισχύουν γα το τρέχον locale του συστήματος, δηλαδή δεν χρειάζεται να ανησυχείς ιδιαίτερα. Βέβαια, υποτίθεται ότι ο χρήστης θα γράφει τα νούμερα με τον ανάλογο τρόπο. Γι αυτό και δεν είναι καλό να αλλάζεις το locale του thread απλώς για να εξυπηρετήσεις έναν χρήστη που δεν ξέρει να γράφει τα νούμερα σύμφωνα με τον τρόπο του locale. Θα μπερδέψεις όλους τους υπόλοιπους που τα γράφουν σωστά. Άσε που όταν αρχίσει να μεγαλώνει ο κώδικας, γίνεται εύκολο το να σου ξεφύγει να επιστρέψεις στο σωστό locale, οπότε μετά... hell breaks loose!

Απ: Currency???

Pak — Fri, 22 Dec 2006 23:16:01 GMT

Το έχω δοκιμάσει και γώ και το πρόβλημα είναι στην μετατροπή του text σε decimal. Είναι το πρόβλημα με το cultureinfo... Bάλε ένα breakpoint μετά τη μετατροπή και θα δείς ότι η pprice έχει τιμή 314.. Αλλάζοντας το cultureinfo γίνεται 3.14...

Απ: Currency???

Ευθύμης Δημόπουλος — Fri, 22 Dec 2006 22:18:44 GMT

χμμμ

συγνώμη Παναγιώτη για τη ταλαιπωρία...

αλλά το πρόβλημα εξακολουθεί και υπάρχει...

όταν του λες

insertCmd.Parameters.Add("@price", OleDbType.Currency).Value = 3.14

το παίρνει κανονικά στην access

αλλά όταν του λες

Dim pprice as Double=CDbl(txtPrice.text)

ή

Dim pprice as Decimal =CDec(txtPrice.Text)

...

insertCmd.Parameters.Add("@price", OleDbType.Currency).Value = pprice

δυστυχώς το περνάει σαν 314 (ενώ γράφεις στο textbox "3.14") !!!

....

τόσο δύσκολο είναι να προβλέψουν στην κατασκευή της vb αυτό το φαινόμενο άραγε;;;

Απ: Currency???

Παναγιώτης Καναβός — Fri, 22 Dec 2006 03:00:37 GMT

Μπορεί να είναι και currency και double. Γράφεις Dim pprice as Double=CDbl(textbox1.text) ή Dim pprice as Decimal =CDec(textbox1.Text)

Απ: Currency???

Ευθύμης Δημόπουλος — Thu, 21 Dec 2006 20:37:35 GMT

pkanavos wrote:
Παρακάτω είναι ο κώδικας που χρησιμοποίησα για τις δοκιμές:

            Dim insertCmd As New OleDbCommand("Insert Into Books (Title,Price) VALUES(@title,@price)")
            insertCmd.Parameters.Add("@title", OleDbType.Char).Value = "Zonk1"
            insertCmd.Parameters.Add("@price", OleDbType.Currency).Value = 3.14
            '*** Uncomment to reproduce error
            'insertCmd.Parameters.Add("@price", OleDbType.Decimal).Value = 3.14
            insertCmd.Connection = con
            insertCmd.ExecuteNonQuery()

Ωραίος....

Παναγιώτη,

μόνο ένα θεματάκι έχω...
αν αντί
insertCmd.Parameters.Add("@price", OleDbType.Currency).Value = 3.14

βάλω

insertCmd.Parameters.Add("@price", OleDbType.Currency).Value = pprice

όπου pprice=textbox1.text

η μεταβλητή pprice τι μπορεί να είναι;

δε μου δουλεύει ούτε σαν decimal ούτε σαν double!

Dim pprice as ???

Pprice= ???(textbox1.text)

Απ: Currency???

Pak — Thu, 21 Dec 2006 19:15:44 GMT

Προφανώς μιλούσα για το cultureinfo της εφαρογής και όχι για τα regional options του συστήματος! Συγνώμη αν δεν έγινα κατανοητός..." src="/cs/emoticons/emotion-1.gif">. Έχω αυτό το ελάττωμα...

Απ: Currency???

Dimitris Papadimitriou — Thu, 21 Dec 2006 18:13:06 GMT

Είναι πολύ σημαντικό, σε αυτή τη δουλειά μου κάνουμε, να είμαστε όσο το δυνατόν πιο ακριβής στις εκφράσεις μας. Γι αυτό και σου ζήτησα να δώσεις λίγο κώδικα για να καταλάβω τι εννοείς λέγοντας "αλλαγή των regional options για να γίνει η δουλειά και μετά επαναφορά". Ο κώδικας που έγραψες δεν αλλάζει τα regional options αλλά το cultureinfo του currentthread. Δεν είναι το ίδιο.

Απ: Currency???

Dimitris Papadimitriou — Thu, 21 Dec 2006 18:01:07 GMT

Pak wrote:
papadi wrote:

Πως ακριβώς αλλάζεις τα Regional Settings; Μπορείς να δώσεις λίγο κώδικα;
Η τακτική να τα αλλάζεις δεν είναι σωστή, γιατί δεν τα αλλάζεις μόνο για την εφαρμογή σου, αλλά για όλο το σύστημα, στο οποίο εκτελούνται πολλά άλλα processes εκτός από τα δικά σου. Αν θέλεις δώσε ένα παράδειγμα για το οποίο μπορεί να θέλεις να τα αλλάξεις και θα δεις ότι μάλλον μπορεί να γίνει και διαφορετικά.
π.χ. αν θέλεις να μετατρέψεις έναν αριθμό σε string χρησιμοποιώντας το # σαν υποδιαστολή τότε κάνεις το ακόλουθο (και δεν αλλάζεις την υποδιαστολή στα regional options) :
                    Dim myNumber as Decimal = 4.234
                    Dim provider = new System.Globalization.NumberFormatInfo()
                    provider.NumberDecimalSeparator = "#"
                    Dim myString = myNumber.ToString(provider)

ΛΑΘΟΣ!!!

Που ακριβώς είναι το λάθος;

Απ: Currency???

Νατάσα Μανουσοπούλου — Thu, 21 Dec 2006 17:52:44 GMT

Να συμπληρώσω ότι το ίδιο ακριβώς πρόβλημα με τους decimals παρουσιάζεται σε .ΝΕΤ 1.1 (τουλάχιστον) με τον Odbc provider της Oracle.

Απ: Currency???

Παναγιώτης Καναβός — Thu, 21 Dec 2006 09:08:26 GMT

Τελικά το βρήκα! Το πρόβλημα εμφανίζεται μόνο αν ο τύπος της παραμέτρου είναι OleDbType.Decimal!

Αν η παράμετρος οριστεί ως OleDbType.Currency ή OleDbType.Double, όλα δουλεύουν ρολόι. Η συμπεριφορά αυτή δεν επηρεάζεται από το culture του thread ούτε από την κλήση της SetVarConversionLocaleSetting, αλλά από το locale του συστήματος, το οποίο χρειάζεται reboot για να αλλάξει. Μάλλον πέσαμε σε bugάκι του driver, ή του oleaut32.dll! Δυστυχώς, το πρόβλημα αυτό επηρεάζει και τους data adapters που χρησιμοποιούμε. Αν χρησιμοποιούμε datasets με Access, θα πρέπει να αλλάξουμε τις παραμέτρους τύπου Decimal σε Currency στους data adapters για να μην έχουμε το ίδιο πρόβλημα.

Παρακάτω είναι ο κώδικας που χρησιμοποίησα για τις δοκιμές:

Imports System.Data
Imports System.Data.OleDb
Imports System.Threading
Imports System.Globalization

Public Class Form1
    Declare Auto Function SetVarConversionLocaleSetting Lib "oleaut32.dll" (ByVal flags As UInt32) As UInt32

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '*** Uncomment to see that the thread's culture doesn't affect the results
        'SetVarConversionLocaleSetting(1)
        'Thread.CurrentThread.CurrentCulture = CultureInfo.GetCultureInfo("en-US")
        'Thread.CurrentThread.CurrentUICulture = CultureInfo.GetCultureInfo("en-US")

        Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\db1.mdb")
            con.Open()
            Dim deleteCmd As New OleDbCommand("Delete from Books ")
            deleteCmd.Connection = con
            deleteCmd.ExecuteNonQuery()

            Dim insertCmd As New OleDbCommand("Insert Into Books (Title,Price) VALUES(@title,@price)")
            insertCmd.Parameters.Add("@title", OleDbType.Char).Value = "Zonk1"
            insertCmd.Parameters.Add("@price", OleDbType.Currency).Value = 3.14
            '*** Uncomment to reproduce error
            'insertCmd.Parameters.Add("@price", OleDbType.Decimal).Value = 3.14
            insertCmd.Connection = con
            insertCmd.ExecuteNonQuery()

            Dim selectCmd As New OleDbCommand("select * from Books")
            selectCmd.Connection = con
            Using reader As OleDbDataReader = selectCmd.ExecuteReader
                While reader.Read()
                    Console.WriteLine("{0} {1}", reader(0).ToString(), reader(1).ToString())
                End While
            End Using
        End Using

    End Sub
End Class

Pak, μπορείς να ξεκινήσεις νέο topic αν θέλεις. Όπως όμως βλέπεις, το πρόβλημα του Efthimis δεν είχε να κάνει με το αν πρέπει ή δεν πρέπει να αλλάζουμε το locale της εφαρμογής.

Απ: Currency???

Pak — Thu, 21 Dec 2006 06:48:34 GMT

Διόρθωση ... Σε άλλο topic...

Απ: Currency???

Pak — Thu, 21 Dec 2006 06:47:59 GMT

Συμφωνώ, το πρόβλημα είναι αλλού και έχουμε ξεφύγει!! Αν θέλετε το συζητάμε σε άλλο φόρουμ... Προφανώς υπάρχει διάσταση απόψεων!!!:)