Visual Basic – Visual Basic – Fórum – Programujte.com

Čaute!

Vie mi niekto poradiť s týmto kódom? Počíta to správne, len nepočíta desatinné miesta a posledné zadané číslo mi nespočitáva do ListView. Ďakujem!!!

Dim a As Decimal = CInt(TextBox1.Text)

        Dim b As Decimal = CInt(TextBox2.Text)
        Dim c As Decimal = a + b
        TextBox3.Text = CStr(c)

        Dim sumt As Decimal = 0
        For i As Integer = 0 To ListView1.Items.Count - 1
            sum = sum + CDec(ListView1.Items(i).SubItems(2).Text)
        Next
        Label1.Text = sum
        ListView1.Items.Add(New ListViewItem({TextBox1.Text, TextBox2.Text, TextBox3.Text.ToString()}))

CInt  = Convert to Integer = zaokrouhli na celé číslo - to asi nechceš.

Použij tedy CDbl nebo CSng. Je možný, že budeš muset vyměnit desetinnou tečku za čárku.

Možná bych to zkusil přímo: "Dim b As Decimal = TextBox2.Text"

A pokud je tohle překlep "Dim sumt " tak je to asi vyřešený :)

Koukám, že dál je použito CDec, tak je to jasný.

Dim a As Decimal = CDec(TextBox1.Text)

#3 pee-jay_cz
Díky moc!  Funguje perfektne...