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

499

Ää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. Saako kaunis ihminen parempaa kohtelua?

      Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa
      Sinkut
      106
      3014

    2. Ei ole kyllä mennyt

      Kovin hyvin kun alussa pieni sekoaminen hänestä 😏
      Ikävä
      10
      1874

    3. En rehellisesti usko et oisit

      Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos
      Ikävä
      37
      1855

    4. Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa

      Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin
      NATO
      394
      1723

    5. Näin sinusta taas unta!

      Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly
      Ikävä
      21
      1631

    6. Nainen, olet jotenkin lumoava

      Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel
      Ikävä
      68
      1457

    7. Olet muutenkin tyhmä

      Ja käyttäydyt epäasiallisesti siinä työssäsi.
      Ikävä
      119
      1287

    8. Se sinun kaipauksen kohde

      Ei todellakaan käy täällä höppänä mies.
      Ikävä
      13
      1186

    9. En muuttaisi sinusta mitään

      Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul
      Ikävä
      9
      1156

    10. Et katso sitä

      Niinkuin minua. Ehkä se luo toivetta
      Ikävä
      20
      1049
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt