Eurolaskuri CoolBasicilla...

timodemus

Hei,

Näpyttelin tässä aikani kuluksi eurolaskurin CoolBasicilla, mutta en
saa sitä toimimaan. Ohjelma toimii muuten hyvin, mutta kun sen pitäisi
muuntaa markat euroiksi / eurot markoiksi, se antaa tulokseksi "0.0".
Tietääkö joku, mitä tein väärin?
Tässä lähdekoodi:

euro# = 5.94573
Cls

alku:
Repeat
Locate 1,1
Print "EuroCalc, ver. 1.0"

Locate 3,5
Print "(1) - EUR to FIM"
Locate 4,5
Print "(2) - FIM To EUR"
Locate 5,5
Print "(3) - Exit"

If KeyHit(cbkey1) Then Goto eurfim

If KeyHit(cbkey2) Then Goto fimeur

If KeyHit(cbkey3) Then End

Forever

eurfim:
luku# = Input("Anna luku ")
Locate 7,5
Print luku# * euro#
Print "paina mitä tahansa näppäintä..."
WaitKey
Cls
Goto alku

fimeur:
luku# = Input("Anna luku ")
Locate 7,5
Print luku# / euro#
Print "paina mitä tahansa näppäintä..."
WaitKey
Cls
Goto alku

2

528

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Mik26

      Pikaisen 5 min Coolbasin opiskelun jälkeen luku# voi siis sisältää desimaaliarvoja, ja Input lukee tekstiä. Kai Input osaa muuntaa annetun tekstin suoraan desimaaliluvuksi ? Entäs jos teet apumuuttujan ennen tulostusta ja tulostat sen: a# = luku# * euro# (jos vaikka Print ei tajua laskea tulosta ennen tulostusta tms.).

      • Nimetön

        Inputissa se vika oli, kiitos vinkistä.
        Tässä korjattu rivi:
        luku# = Int(Input("Anna luku "))

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Poliisi: Kymmenhenkinen pohjalaisperhe ollut vuoden kateissa kansainvälinen etsintäkuulutus Poliis

      Poliisi: Kymmenhenkinen pohjalaisperhe ollut vuoden kateissa – kansainvälinen etsintäkuulutus Poliisi pyytää yleisön apu
      Maailman menoa
      367
      3160

    2. Tässä totuus jälleensyntymisestä - voit yllättyä

      Jumalasta syntyminen Raamatussa ei tässä Joh. 3:3. ole alkukielen mukaan ollenkaan sanaa uudestisyntyminen, vaan pelkä
      Jälleensyntyminen
      310
      1508

    3. En kadu sitä, että kohtasin hänet

      mutta kadun sitä, että aloin kirjoittamaan tänne palstalle. Jollain tasolla se saa vain asiat enemmän solmuun ja tekee n
      Ikävä
      84
      1312

    4. Mitään järkeä?

      Että ollaan erillään? Kummankin pää on kovilla.
      Ikävä
      108
      1311

    5. Noniin rakas

      Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi
      Ikävä
      99
      1295

    6. Oisko mitenkään mahdollisesti ihan pikkuisen ikävä..

      ...edes ihan pikkuisen pikkuisen ikävä sulla mua??.. Että miettisit vaikka vähän missähän se nyt on ja oiskohan hauska n
      Ikävä
      59
      1255

    7. Lapuan sanomissa käy rytinä

      Pistivät sitten päätoimittajan pihalle
      Lapua
      48
      1145

    8. Helena Koivu : Ja kohta mennään taas

      Kohta kohtalon päivä lähestyy kuinka käy Helena Koivulle ? Kenen puolella olet? Jos vastauksesi on Helenan niin voisi
      Kotimaiset julkkisjuorut
      80
      1062

    9. Au pair -työ Thaimaassa herättää kiivasta keskustelua somessa: "4cm torakoita, huumeita, tauteja..."

      Au pairit -sarjan uusi kausi herättää keskustelua Suomi24 Keskustelupalvelussa. Mielipiteitä ladataan puolesta ja vastaa
      Tv-sarjat
      25
      960

    10. Oot ihana

      Toivottavasti nähdään sattumalta jonain kesäpäivänä♥️🥺🫂
      Ikävä
      33
      847
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt