Darts 501-laskuri excelillä.

ExcelVBA

Terve! Väsäsin tuollaisen darts-tikkapeliä helpottavan laskurin..
Mutta koodissa on pieni ongelma.. jos pelaaja1 saa esim. tulokseksi 350 ja pelaaja2 450..niin erosta tulee miinus-lasku.. Voisiko joku selittää mistä se johtuu? Koodi ladattavissa osoitteesta:
www.kotiposti.net/rauha/Darts.xlsm

10

1754

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ...

      Ihan niin kuin vertailu tapahtuisi välillä merkkijonona.
      Jos laittaisi erotuksen muuttujaan: erotus = summa.Value - summa2.Value

      • Thks

        tarviiko tuo erotus määritellä tietyksi tyypiksi? esim. double tms?


      • Tämä ongelma
        Thks kirjoitti:

        tarviiko tuo erotus määritellä tietyksi tyypiksi? esim. double tms?

        Mutta siis kokeile tuota koodia, että laitat toiselle pelaajalle 350 ja toiselle 450.. niin se väittää että pelaaja jolla on enemmän on johdossa ja sitten se näyttää piste-erona -100 esim...
        Vaikka pelaaja jolla on vähemmän on johdossa, eikä pitäisi olla negatiivista lukua erona.. Kiitos avusta!


      • ...
        Tämä ongelma kirjoitti:

        Mutta siis kokeile tuota koodia, että laitat toiselle pelaajalle 350 ja toiselle 450.. niin se väittää että pelaaja jolla on enemmän on johdossa ja sitten se näyttää piste-erona -100 esim...
        Vaikka pelaaja jolla on vähemmän on johdossa, eikä pitäisi olla negatiivista lukua erona.. Kiitos avusta!

        Noilla luvuilla saadaan, että 51 on suurempi kuin 151, kun verrataan merkkijonona.


      • ok
        ... kirjoitti:

        Noilla luvuilla saadaan, että 51 on suurempi kuin 151, kun verrataan merkkijonona.

        NO mikä ois siihen ratkasu?


      • ...
        ok kirjoitti:

        NO mikä ois siihen ratkasu?

        if summa.Value < 1 * summa2.Value then

        tai

        laskea erotus = summa.Value - summa2.Value
        if erotus


      • Eitoimivielä
        ... kirjoitti:

        if summa.Value < 1 * summa2.Value then

        tai

        laskea erotus = summa.Value - summa2.Value
        if erotus

        Ei auta tuo.. väärä pelaaja johtaa..


      • ...
        Eitoimivielä kirjoitti:

        Ei auta tuo.. väärä pelaaja johtaa..

        if 1 * summa.Value < 1 * summa2.Value then


      • Vieläyksjuttu
        ... kirjoitti:

        if 1 * summa.Value < 1 * summa2.Value then

        Noniin, kiitos nyt tuntuu alustavasti toimivan, osaatko sanoo siihen mitään että jos haluan tallentaa aina suurimman heiton niin ei voi tallentaa kun lukuun 99 asti? Eli miten saisin textboxin tukemaan yli 100 meneviä lukuja? Kiitos!


      • Kiitos1
        Vieläyksjuttu kirjoitti:

        Noniin, kiitos nyt tuntuu alustavasti toimivan, osaatko sanoo siihen mitään että jos haluan tallentaa aina suurimman heiton niin ei voi tallentaa kun lukuun 99 asti? Eli miten saisin textboxin tukemaan yli 100 meneviä lukuja? Kiitos!

        Tein samalla tavalla ja sain senki nyt toimimaan.
        Joten kiitoksia!


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

    Luetuimmat keskustelut

    1. Oletko tyytyväinen viime tapaamiseemme?

      Vai toivoitko sen menevän toisella tavalla? Miten?
      Ikävä
      72
      3063
    2. Nyt se sit loppuu

      Et ei enää nähdä ja yhteyttä pidetä.
      Ikävä
      55
      2725
    3. Kuoleman pelko katosi

      Olen pelännyt koko elämän ajan kuolemaa mutta yhtäkkiä kun hindut paljastivat totuuksia uskonnoista noin aloin yhtäkkiä
      Hindulaisuus
      432
      2335
    4. Viikonloppu terveiset kaivatulle

      tähän alas ⬇️⬇️⬇️
      Ikävä
      79
      2188
    5. Jos sitä keittelis teetä

      Ja miettis mitä mies siellä jossain touhuilee... ☕️
      Ikävä
      95
      1996
    6. Myötähäpeä kun näkee sut,

      tekisit jotain ittelles. Ihan hyvällä tämä!
      Ikävä
      57
      1929
    7. Huomenta ........

      Huomenta 💗 Tiedän, että tuntuisit hyvälle.
      Ikävä
      12
      1576
    8. Kuhmolainen on selvästi kepun lehti

      Kuhmolaise etukannessa oli Kuva kun Jaskalle annettiin karhu patsas.mutta kukmolaislehti oli niin kepulainen että Jaskan
      Kuhmo
      17
      1537
    9. Ei mun tunteet

      ole mihinkään kadonnut. Enkä mä sua inhoa tai ole kyllästynyt. Mä ymmärsin, ettet ole kiinnostunut minusta, ainakaan sil
      Ikävä
      30
      1380
    10. Mitä nämä palautteet palstalla ovat?

      Joku uusi toimintatapa rohkaista kirjoittajia vai mistä on kyse?
      Ikävä
      30
      1351
    Aihe