ΣΤΡΟΓΚΥΛΟΠΟΙΗΣΗ ΑΡΙΘΜΩΝ !!!visual basic 10 expres !!

[dimitrios10]

39,729        ΑΥΤΟ ΕΙΝΑΙ ΤΟ ΑΠΟΤΕΛΕΣΜΑ ΜΙΑ ΠΡΆΞΗΣ !!! ΕΓΩ ΘΈΛΩ ΝΑ ΕΊΝΑΙ 39,73

 

 

Private Sub Πεδίο8TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Πεδίο8TextBox.TextChanged

 

Πεδίο8TextBox.Text = Double.Parse(Πεδίο6TextBox.Text) + Double.Pars(Πεδίο7TextBox.Text)

End Sub

 

ΑΥΤΌΣ ΕΙΝΑΙ Ο ΚΩΔΙΚΑΣ ! ΤΗ ΓΡΑΦΟΥΜΕ ΚΑΙ ΠΟΥ ΓΙΑ ΝΑ ΜΑΣ ΒΓΑΖΕΙ ΤΟ ΑΠΟΤΈΛΕΣΜΑ !!ΚΑΙ ΓΕΝΙΚΟΣ !!ΣΕ ΣΤΡΟΓΚΥΛΟΠΟΙΗΣΗ     ΕΙΠΑΜΕ  ΔΕΙΝΗ  39,729  ΚΑΙ ΘΑ ΕΠΡΕΠΕ ΝΑ ΔΕΙΝΗ 32.73 ΑΣ ΠΟΥΜΕ !!!
  

[WoodSell3r]

Math.ceil και ορισε την ακριβεια που θελεις, ποια πρωτα μπιτ θελεις να κρατας δηλαδη και ποια να αλλαζεις.

[albNik]

 Πεδίο8TextBox.Text = (Double.Parse(Πεδίο6TextBox.Text) + Double.Parse(Πεδίο7TextBox.Text)).ToString("0.00")

[dimitrios10]

ΓΙΑ ΝΑ ΔΩ !!!!!

Private Sub Πεδίο4TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Πεδίο4TextBox.TextChanged

 

Πεδίο4TextBox.Text =

 

Double.Parse(Πεδίο2TextBox.Text) * Double.Parse(Πεδίο3TextBox.Text))Tostring("0.00")

End Sub

λοιπών συνομώτες !!!το έβαλα !!!και μου βγάζει μία μπλέ γραμή απο κάτω απο το tostring("0.00")

[albNik]

ToString βαλε

[dimitrios10]

4 End of statement expected. C:\Users\ΔΗΜΗΤΡΗΣ\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 23 97 WindowsApplication1Και αυτό το λάθος μου βγάζει

[albNik]

Βαλε τελεία πριν το ToString

[dimitrios10]

ναι με κεφαλαίο το έβαλα !!!το είδα μετά αλλά δεν το κάνει

όχι  ακόμα έχει τη μπλε γραμμή και δεν το διορθώνει

έβαλα και τελεία

Private Sub Πεδίο7TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Πεδίο7TextBox.TextChanged

 

Πεδίο7TextBox.Text =

 

Double.Parse(23 / 100) * (Πεδίο6TextBox.Text)).ToString("0.00")

 

 

 

End Sub

Private Sub Πεδίο8TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Πεδίο8TextBox.TextChanged

 

Πεδίο8TextBox.Text =

 

Double.Parse(Πεδίο6TextBox.Text) + Double.Parse(Πεδίο7TextBox.Text).ToString("0.00")

ΤΟ έβαλα και έτσι !!!!!δεν μου δίνη λάθος αλλά δεν κάνει τη στρογγυλοποίηση .

[albNik]

Όταν αλλάζουν τα πεδία 6 και 7 πρέπει να υπολογίζεται η τιμή στο 8

 

Βγάλε το Handles Πεδίο8TextBox.TextChanged

και βάλε Handles Πεδίο6TextBox.TextChanged , Πεδίο7TextBox.TextChanged  ακριβώς όπως το γράφω

[dimitrios10]

ΓΙΑ ΠΆΜΕ !!!!!ΣΕ ΛΙΓΩ ΘΑ ΣΟΥ ΠΩ !!!!

Private

 

 

SubHandles Πεδίο8TextBox.TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Πεδίο8TextBox.TextChanged

 

HandlesΠεδίο6TextBox.TextChanged =

 

Handles(Πεδίο6TextBox.TextChnged) + Handlies(Πεδίο7TextBox.TextChanged)

 

δύστυχος  όχι !!και μου γίνωντε όλα με μπλε γραμμή από κάτω

End Sub

SubHandles(Πεδίο8TextBox.TextChanged)

 

από τη λέξη πεδίο8 -> και πέρα !!!γίνετε με υπογράμμιση

 

 

 

HandlesΠεδίο6TextBox.TextChanged =

και αυτό μέχρι το textbox

[albNik]

To γ@μισες τελείως

 

 

Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Πεδίο6TextBox.TextChanged, Πεδίο7TextBox.TextChanged
        Try
            Πεδίο8TextBox.Text = (Double.Parse(Πεδίο6TextBox.Text) + Double.Parse(Πεδίο7TextBox.Text)).ToString("0.00")
        Catch
        End Try
    End Sub

[dimitrios10]

ΜΗΚΟΣ = 2,32

ΠΛΑΤΟΣ= 3,54

ΤΕΤΡΑΓΩΝΙΚΑ  8,2128

ΤΙΜΗ ΜΟΝΑΔΟΣ  5

ΥΠΟΣΥΝΟΛΟ   41,064

ΦΠΑ 23%          9,44472

ΣΥΝΟΛΟ            50,51   ΑΥΤΟ ΕΙΝΑΙ ΣΩΣΤΑ

 

ΑΥΤΕΣ ΤΗΣ ΠΡΆΞΗΣ ΚΆΝΩ !!!!ΝΑ ΒΑΛΩ ΣΕ ΟΛΑ ΤΑ ΤΕΧΤΒΟΧ ΑΥΤΟ ΤΟ ΚΩΔΙΚΑ !!!!;

ΘΑ ΤΑ ΣΤΡΟΓΓΥΛΟΠΟΙΗΣΗ ΟΛΑ

[dimitrios10]

ΛΟΙΠΩΝ έχουμε και λέμε !!ένα μεγάλο ευχαριστώ !!όλα στρογγυλοποιήθηκαν μία χαρά εκτός από το TEXTBOX Φ.Π.Α Τώρα εάν δεν υπάρχει κάτι και για αυτό τη να κάνουμε !!!!

 

 

Private Sub Πεδίο7TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Πεδίο7TextBox.TextChanged

Try

Πεδίο7TextBox.Text =

Double.Parse(23 / 100) * (Πεδίο6TextBox.Text).ToString()

Catch

End Try

End Sub

 

μηκος       2,32

πλατος     3,54

μ2 τετρα   8,21

τιμη μονα  5

υποσινολ 41,05

φπα            9,4415       *************

συνολο     50,49