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ä
      61
      1497

    2. Rakkauden riemuvoitto

      Valta voidaan voittaa tiedolla. Mutta tieto on huonompi kuin kauneus, hellyys ja rakkaus. Siksi kauneus on vallan ja tie
      Hindulaisuus
      349
      1161

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

      Pus pus :D
      Ikävä
      37
      862

    4. 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ä
      70
      856

    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
      809

    6. 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ä
      58
      799

    7. Siis ei ole edes mahdollista

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

    8. Martina kauniina lehtihaastattelussa

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

    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ä
      44
      719

    10. J-miehelle

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