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

473

Ää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. Täytyi haukkuu sut lyttyyn

      En haluu tuntee rakkautta sua kohtaan enää ja haluun unohtaa sut mut sit tulee kuiteki paha olo kun haluis vaan oikeesti
      Ikävä
      60
      1545

    2. Kieli pitkällä täällä odotan :D

      Pus pus :D
      Ikävä
      43
      924

    3. SINÄ nainen hyvin läheltä

      Pidän sinusta. Mutta mene ensin juttelemaan lääkärin luokse, ja hoida itsesi kuntoon. Sit kun sä olet kunnossa, niin mä
      Ikävä
      68
      901

    4. Ajatus aamuun

      Tämä jollekin tärkeälle. On asioita mistä jutellaan, on asioita mistä vitsaillaan, on myös asioita mistä ei puhuta kenen
      Ikävä
      65
      858

    5. Nainen mitä tekisit

      Joutuisit tekemään miehelle ja sinulle tai sinulle ja miehellesi ja kahdelle lapselle ruokaa ja kaapista löytyy 2 litraa
      Sinkut
      158
      829

    6. Siis ei ole edes mahdollista

      että ei törmätä, ei sit millään vaikka päällä hyppisi
      Ikävä
      41
      788

    7. Et voi olla loputtomasti hiljaa

      Nainen. Tarkoitan siis meidän juttua. Eihän tämä tällaiseen epätietoisuuteen voi jäädä siinä vaan särkyy kumpikin. Kerto
      Ikävä
      53
      761

    8. Martina kauniina lehtihaastattelussa

      Martina antoi hyväntuulisen haastattelun lehteen. Tyylikkäitä kuvia ja kivoja vaatteita kauniilla Martinalla.
      Kotimaiset julkkisjuorut
      182
      755

    9. Minä en luota sinuun yhtään nainen

      ja aistin että yrität taas satuttaa henkisesti koska tiedät että olet heikkouteni joten siksi tein mitä tein mutta en ki
      Ikävä
      34
      732

    10. J-miehelle

      haluan kertoa että olet edelleen mulle rakas. Ajattelen sinua päivittäin kulta.
      Ikävä
      49
      682
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt