Laskimen teko takkuaa, apua tarvitaan

pikku_nÖrtti

Harjoittelen Visual Basicilla koodaamista (versiolla 3.0) ja teen parhaillaan laskinta. Muuten kaikki koodit, ulkoasu jne. on valmiina, mutta yksi koodinpätkä uupuu: eli laskimessa on kaksi tekstiboxia (toiseen näppäillään laskettava lauseke esim. 1 1-3 ja toiseen tulee tulos), mutten keksi miten saisin ohjelman suorittamaan text1:sen lauseketta. Eli kun on näppäillyt laskutoimituksen lukee text1 boxissa 1 1. Ilmeisesti = -painikkeeseen tarvittaisiin jonkinlainen suorituskäsky, esim. text2 = run"text1" tai jotain.

Osaisiko kukaan siis kertoa millä komennolla/koodinpätkällä = -painike toimisi? KIITOS!

2

456

    Vastaukset 2

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vb2005
      • xxxxx

        Itse olen tehnyt tuollaisia ohjelmiini jotenkin siten, että ensin etsin ensimmäisen operaattorin ja sitten seuraavan summan.

        Koodina jotenkin näin (kotikoneessani ei ole vb:tä, joten en voinut testata asiaa):

        dim i as integer, OperaattorinPaikka as integer,Operaattori as string,EdOperaattori$
        dim Tulos as double, Luku as double
        dim KokoLaskukaava as String'sisältää siis esim 33 4*5

        Tulos=0
        EdOperaattori$=" "'eka luku aina ynnätään

        while kokolaskukaava""
        OperaattorinPaikka=0
        for i=1 to len(KokoLaskukaava)
        operaattori$=mid$(KokoLaskukaava,i,1)
        if instr(1," -*/",Operaattori$) then OperaattorinPaikka=i:exit for
        next
        if OperaattorinPaikka=0 then OperaattorinPaikka=Len(KokoLaskukaava) 1
        Luku=val(mid$(KokoLaskukaava$,Operaattorinpaikka-1))
        KokoLaskukaava$=mid$(KokoLaskukaava,Operaattorinpaikka 1)

        select case EdOperaattori$
        case " ":Tulos=Tulos Luku
        case "-":Tulos=Tulos-Luku
        case "*":Tulos=Tulos*Luku
        case "/":Tulos=Tulos/Luku
        end select

        EdOperaattori$=Operaattori$'seuraavaksi on tämän -*/ vuoro

        wend


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

    Luetuimmat keskustelut

    1. Naiset ymmärtävät ettei talous lähde nousuun

      Miten paljon järjellisempi olento nainen onkaan kuin tilastollisestikin paremmin tienaava mies. Kun kaikkialla puskuroid
      Maailman menoa
      135
      865
    2. En jaksa

      Enää pelleillä ja paljastan J naisen nimen. Se on Jonna ja hän ei koskaan, edes luultavasti ollut täällä. Silti piene
      Ikävä
      43
      629
    3. Minkälainen nainen

      Minkälainen kaipaamasi nainen on luonteeltaan? Kaikki hassun hauskat antava ja helppo on sallittuja, jos poikien on kovi
      Ikävä
      21
      578
    4. Kissa eli kivuissa useita viikkoja

      Ei vienyt lääkäriin vaikka kissa parka maukui ja moni seuraajakin (minäkin) näin että kissa on sairas.
      Tuusniemi
      110
      543
    5. Yksi asia sen esti

      Etten antanut meille mahdollisuutta
      Ikävä
      36
      532
    6. Jos meillä olisi yhteinen koti

      Niin haittaisiko sinua pitää se vähä tavaraisena? Ajattelin tänään että jos joskus asuttaisiin yhdessä ja haluaisit pal
      Ikävä
      50
      525
    7. Okei, eli olet rakastunut

      Hyvä sinä, niin minäkin.
      Ikävä
      49
      490
    8. Tuntuu pahalta meidän molempien puolesta

      Anteeksi, että olen tällainen pelkuri. En vaan usko rakkauteen enää miehen ja naisen välillä omalla kohdalla. Tiedän, et
      Ikävä
      33
      461
    9. Martinan mauton tyyli

      Voi hyvää päivää 🤣 nyt ollaan oltu Muhiksen kanssa Kultareservin avajaisissa suorat housut jalassa ja 500€ korsetti pää
      Kotimaiset julkkisjuorut
      119
      452
    10. Arvaako kukaan?

      "Humalojalla metalliromun keräyspaikalla on kulkenut pitkin kevättä ja kesää joku henkilö, joka on vienyt sieltä kymmeni
      Haapavesi
      22
      417
    Aihe