Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: MIKÄ TÄSSÄ VIKANA??

Jukuripää [01.06.2003 12:41:33]

#

MIKÄ IHME TUOSSA SEURAAVASSA ON VIKANA?? ITSE EN LÖYDÄ MILLÄÄN, MUTTA TUOTA strTULOSTE-KOHTAA HERJATAAN (ja yleensä mustaa tuon "Kustannukset" kohdan ja sanoo, että end of statement...), ENKÄ PÄÄSE KOKEILEMAAN TOIMIIKO OHJELMA OLLENKAAN :-(

Sub Main()

    Const OTSIKKO As String = "Tupakkalaskuri"

        'Muuttujat
        Dim intViikkojenLukumaara As Integer
        Dim sngKulutusArkipaivana As Single
        Dim sngKulutusViikonloppuna As Single
        Dim sngTupakanKulutus As Single
        Dim curAskinHinta As Currency
        Dim curHintaYhteensa As Currency
        Dim strTuloste As String

        'Syötettyjen tietojen lukeminen
        intViikkojenLukumaara = InputBox("Syötä haluamasi viikkojen lukumäärä")
        sngKulutusArkipaivana = InputBox("Syötä tupakan kulutuksesi arkipäivänä")
        sngKulutusViikonloppuna = InputBox("Syötä tupakan kulutuksesi viikonloppuna: LA ja SU")
        curAskinHinta = InputBox("Syötä tupakka-askin hinta")

        'Tietojen prosessointi
        sngTupakanKulutus = intViikkojenLukumaara * sngKulutusArkipaivana * 5 + sngKulutusViikonloppuna
        curHintaYhteensa = curAskinHinta * sngTupakanKulutus / 20
        '(jaetaan tupakankulutus tupakka-askissa olevien tupakoiden määrällä, jotta saadaan askien määrä)

        strTuloste = "Tupakoiden kulutus:" & vbTab & FormatNumber(sngTupakanKulutus) & " tupakkaa" & vbCrLf _
                "Kustannukset": & vbTab & FormatCurrency(curHintaYhteensa, 2) & " euroa"

            'Tulostus
            MsgBox strTuloste, vbOKOnly, OTSIKKO



        End Sub

vipemype [01.06.2003 13:08:41]

#

lainaus:

strTuloste = "Tupakoiden kulutus:" & vbTab & FormatNumber(sngTupakanKulutus) & " tupakkaa" & vbCrLf _
"Kustannukset": & vbTab &

Pitäiskö tossa & vbCrLf _ kohan jälkeen olla &

Ps. Ei tarvi isolla kirjoittaa otsikoita

Jukuripää [01.06.2003 13:26:02]

#

No ei. Ei se ainakaan mitään auta.


Sori nyt ISO otsikko; rupeaa tässä vähän hätä tulemaan käteen kun pitäisi saada tänään kymmenen tehtävää valmiiksi, enkä ole saanut vielä ensimmäistäkään kokonaan tehtyä vaikka olen niitä tunti ja viikkokaupalla yrittänyt tehdä :-(

thefox [01.06.2003 14:29:11]

#

Varmaankin _ennen_ alaviivaa se &.

Jukuripää [01.06.2003 15:07:12]

#

Joo ennen, se on siellä nyt MUTTA ei sekään auta! Aina vaan herjaa tuota kyseistä kohtaa:

strTuloste = "Tupakoiden kulutus:" & vbTab & vbTab & intTupakanKulutus & " tupakkaa" & vbCrLf & _
                "Kustannukset": & vbTab & vbTab & curHintaYhteensa & " euroa"

Antti Laaksonen [01.06.2003 15:11:39]

#

Kaksoispiste kuuluu "Kustannukset"-merkkijonon sisälle (muutenhan se tarkoittaisi, että samalla rivillä on useampia lausekkeita). Eli:

strTuloste = "Tupakoiden kulutus:" & vbTab & vbTab & intTupakanKulutus & " tupakkaa" & vbCrLf & _
"Kustannukset:" & vbTab & vbTab & curHintaYhteensa & " euroa"

Antti [03.06.2003 13:28:07]

#

Noh... tuollaista pientä kaksoispistevirhettä taitaa kulua tupakaa useampikin ;)

Minä en löytänyt ainakaan ensisilmäyksellä muuta vikaa... paitsi kieliopillisesti piste tupakkaa ja euroa sanan jälkeen? ;)

Vastaus

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

Tietoa sivustosta