Keskustelu: Ohjelmointikysymykset: VB6: tulosten muotoilu

Puoliväkisten [10.03.2009 22:18:13]

Hei kaikille

Pitäisi saada nuolella merkityn rivin tulosten muotoilu yhden desimaalin tarkkuudela. Löysin format komennon mutta en nyt jotenkin osaa käyttää sitä tässäkohtaa...

tulokset = "Reikien paikat kiskossa:" & vbCrLf & vbCrLf
        tulokset = "Erottimen reikä kiskon päästä: " & erottimenreikä & "mm " & vbCrLf

        For i = 0 To (reikienmääräkiskossa - 1)

            paikat(i) = Aloitus + (reikienväli * i)

        Next
        For i = 0 To (reikienmääräkiskossa - 1)

----->>>            tulokset = tulokset & "reikä " & (i + 1) & "." & vbTab & paikat(i) & Format(paikat(i), "0.0") & " mm" & vbCrLf

        Next

        Reijät.Text = tulokset

groovyb [10.03.2009 23:14:50]

en pääse nyt testaamaan mutta mahtaisko toimia ihan:

Dim numero As Double

Dim tulos As String

tulos = numero.ToString(0.0)

tai vaihtoehtoisesti

Dim tulos As String

Dim numero As Double

numero = 12.1234

tulos = Format(numero.ToString(),"0.0")

Puoliväkisten [11.03.2009 17:59:55]

Moi

Ei toiminut, lisäsi 0.0 luvun perään, mikähän tässä on pielessä ?

 Dim reikienmääräkiskossa, reikienväli, väliinjääväpituus, ensimmäinenreikäeristimestä, erottimenreikä, Aloitus As Double
        Dim tulokset As String
        Dim i As Short
        Dim paikat() As Double
        ensimmäinenreikäeristimestä = 18
        erottimenreikä = PubTukierotin / 2
        väliinjääväpituus = PubKiskonpituus - (PubTukierotin * 2) - ensimmäinenreikäeristimestä
        reikienmääräkiskossa = txtReikienmäärä.Text
        ReDim paikat(reikienmääräkiskossa - 1)
        reikienväli = (väliinjääväpituus - ensimmäinenreikäeristimestä) / (txtReikienmäärä.Text - 1)
        Aloitus = ensimmäinenreikäeristimestä + PubTukierotin

        tulokset = "Reikien paikat kiskossa:" & vbCrLf & vbCrLf
        tulokset = "Erottimen reikä kiskon päästä: " & erottimenreikä & "mm " & vbCrLf

        For i = 0 To (reikienmääräkiskossa - 1)

            paikat(i) = Aloitus + (reikienväli * i)
        Next
        For i = 0 To (reikienmääräkiskossa - 1)

            tulokset = tulokset & "reikä " & (i + 1) & "." & vbTab & paikat(i) & " mm" & vbCrLf
            ' & Format(tulokset.ToString, "0.0"
            'tulokset = tulokset & "reikä " & (i + 1) & "." & vbTab & paikat(i) & Format(paikat(i), "0.0") & " mm" & vbCrLf
            'tulokset = Format(paikat.ToString(), "0.0")
        Next
Reijät.Text = tulokset

Grez [11.03.2009 18:19:04]

Formatille annetaan luku ja muotoilu. Ei valmis merkkijono ja muotoilu.

 Dim reikienmääräkiskossa, reikienväli, väliinjääväpituus, ensimmäinenreikäeristimestä, erottimenreikä, Aloitus As Double
        Dim tulokset As String
        Dim i As Short
        Dim paikat() As Double
        ensimmäinenreikäeristimestä = 18
        erottimenreikä = PubTukierotin / 2
        väliinjääväpituus = PubKiskonpituus - (PubTukierotin * 2) - ensimmäinenreikäeristimestä
        reikienmääräkiskossa = txtReikienmäärä.Text
        ReDim paikat(reikienmääräkiskossa - 1)
        reikienväli = (väliinjääväpituus - ensimmäinenreikäeristimestä) / (txtReikienmäärä.Text - 1)
        Aloitus = ensimmäinenreikäeristimestä + PubTukierotin

        tulokset = "Reikien paikat kiskossa:" & vbCrLf & vbCrLf
        tulokset = "Erottimen reikä kiskon päästä: " & erottimenreikä & "mm " & vbCrLf

        For i = 0 To (reikienmääräkiskossa - 1)

            paikat(i) = Aloitus + (reikienväli * i)
        Next
        For i = 0 To (reikienmääräkiskossa - 1)

            tulokset = tulokset & "reikä " & (i + 1) & "." & vbTab & Format(paikat(i),"0.0") & " mm" & vbCrLf
        Next
Reijät.Text = tulokset

Puoliväkisten [11.03.2009 20:13:56]

kiitokset, nyt toimii

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät