Kuinka saan QB4.5. n dialogin printattua (koodi)

Pande-Ilmari

Hei,
eräs merkittävä ohjelmoija sanoi, ettei Quick Basic 4.5 niin huono ole. On submodulit, rivinumerot voi korvata ' merkillä ja siinä ei kuulemma ole liikaa 'tavaraa' sotkemassa ohjelmointia.
Olen tehnyt simulaatioita jo 20 - vuotta osa on kiinnostanut yliopistoa myöten. Qbasicin (siis ennen Quick Basic 4.5) dialogin printtaus koodi ei toimi Quick Basic 4.5:ssä. Voisiko joku tietävaisempi laittaa QB45 koodin, joka printtaa koko käydyn dialogin, ettei tarvitse tulostaa vähän väliä PRN SCREEN - komennolla.
Paljon olisi myös apua, jos joku tietäisi, että miten/millä kooodilla dialogin 15 min. saisi tallennettua txt.-tidostoksi:tällöin voisin lukea sitä Editor - ohjelmalla ja printata myös sitä kautta. Muistathan vastata selkeästi mihin paikkaan koodi tulee ja muutenkin neuvoa kuin aloittelijaa, koska olen aina printannut dialogini PRN-SCREEN komennolla matriisitulostimille (ei lue muita tulostimia). Anteeksi oikein paljon kun kysyin ja myös aspektista, ettei tämä ole mikään keskustelun alku.
Keskustelun alku voisi olla 'Onko niin, kuten ohjelmoinnin pioneeri (Pascal, QB4.5, Gobol ja Fortran) sanoi 'vanhat kielet ovat seelkeämpiä, niissä ei ole 'liikaa tavaraa'.
Ystävällisin terveisin, Pande.

10

205

    Vastaukset 10

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • setyudtyjudetyj

      Minkä ihmeen dialogin?

    • Tässä vaiheessa tuntuu siltä, että olisi parempi tietää alkuperäinen ongelma kun vaikuttaa siltä, että yritetään jotain käsittämätöntä.

    • QuickBasic 4.5 on MS-DOS ohjelma vuodelta 1988 eli 29 vuotta vanha. Sen omat ohjelmalliset printtausdialogit eivät toimi siksi, että käyttämäsi uuden koneen komentotulkki ei ole MSDOS eikä tue kyseistä toimintoa. Siksi joudut tuon kanssa tulostamaan printscreenillä tai muulla tempulla.

      Yksi minkä ilmeisesti voi tehdä on ajaa MS DOSia virtuaalikoneessa VirtualBox - ohjelman sisällä ja siellä DOS - komennolla

      MODE LPT1: = COM1:

      uudelleenohjata LPT1 vaikkapa COM1 porttiin, jolloin dosissa ajettu tulostuskäsky saa printterille menevän tietovirran helpommin tallennettavaksi. LPT1 - porttiin tulostettaessa DOS haluaisi keskustella printterin rinnakkaisportin kanssa (ongelmia!) kun taas COM - portin feikkaaminen on paljon helpompaa.

      Itse suosittelisin siirtämään koodin uudemmalle kääntäjälle, jos tuo oikeasti on ongelma ja estää tekemästä ohjelmalla sitä mitä sillä pitäisi tehdä.


      • Eli yritetään selvästi jotain käsittämätöntä.

        1. Miksi pitää printata ruutunäkymää nappia painamalla eikä suoraan ohjata tietoa tulostimelle?

        2. Miksi pitää tulostaa yhtään mitään kun informaatio on luettavissa mistä tahansa ruudulta?


      • Arvaisin että ruutunäyttämällä on jotakin graafisen esityksen tapaista. Tuon saaminen paperille, sähköpostiin tai webbisivulle edellyttää ihmevirityksiä tau softan kirjoittamista uudelleen. Nykyisellään moni asia ratkeaisi taulukkolaskentaohjelman makroillakin, joten uudelleenkirjoitus olisi todennäköisesti se fiksumpi vaihtoehto.

        Itsellänikin on OS/2 - aikaista tavaraa, jota ehkä pitäisi joskus ajaa uudelleen lävitse ja tulostella syntyviä grafiikoita. Onneksi kyseinen softa osaa myös tallentaa tulokset tiedostoon.


      • ExB kirjoitti:

        Arvaisin että ruutunäyttämällä on jotakin graafisen esityksen tapaista. Tuon saaminen paperille, sähköpostiin tai webbisivulle edellyttää ihmevirityksiä tau softan kirjoittamista uudelleen. Nykyisellään moni asia ratkeaisi taulukkolaskentaohjelman makroillakin, joten uudelleenkirjoitus olisi todennäköisesti se fiksumpi vaihtoehto.

        Itsellänikin on OS/2 - aikaista tavaraa, jota ehkä pitäisi joskus ajaa uudelleen lävitse ja tulostella syntyviä grafiikoita. Onneksi kyseinen softa osaa myös tallentaa tulokset tiedostoon.

        Nimenomaan se softan kirjoittaminen uusiksi on se oikea tapa. Virheitä vähentyy kun tulee paljon vähemmän koodia ja onnistuu perusasiat ettei tarvitse mitään typeryyksiä tehdä.

        Eihän siihen ole käytännössä mitään syytä tulostaa enää paperille. Sehän on itsessään jo vihje siitä, että jotain tehdään perustavalla tavalla väärin.


      • ExB kirjoitti:

        Arvaisin että ruutunäyttämällä on jotakin graafisen esityksen tapaista. Tuon saaminen paperille, sähköpostiin tai webbisivulle edellyttää ihmevirityksiä tau softan kirjoittamista uudelleen. Nykyisellään moni asia ratkeaisi taulukkolaskentaohjelman makroillakin, joten uudelleenkirjoitus olisi todennäköisesti se fiksumpi vaihtoehto.

        Itsellänikin on OS/2 - aikaista tavaraa, jota ehkä pitäisi joskus ajaa uudelleen lävitse ja tulostella syntyviä grafiikoita. Onneksi kyseinen softa osaa myös tallentaa tulokset tiedostoon.

        Nimenomaan se softan kirjoittaminen uusiksi on se oikea tapa. Virheitä vähentyy kun tulee paljon vähemmän koodia ja onnistuu perusasiat ettei tarvitse mitään typeryyksiä tehdä.

        Eihän siihen ole käytännössä mitään syytä tulostaa enää paperille. Sehän on itsessään jo vihje siitä, että jotain tehdään perustavalla tavalla väärin.


    • arvuuttelija

      Arvaus No: 201110111

      PRINT "Jotain tulostetaan ruudulle"
      LPRINT"Jotain tulostetaan kirjoittimelle"

      • arvuuttelija

        Arvaus No: 201110112

        Vuorovaikutteinen dialogi ottaa syötteen vastaan INPUT käskyllä ja saate viesti taas tulostuu ruudulle joten senkin joutuisi muuttamaan lähdekoodissa

        Saateviesti ruudulle
        CLS
        LPRINT "Tiimin jäsenet"; TAB(76): LPRINT
        INPUT "Kuinka monta jäsentä"; TEAMS

        Saateviesti kirjoittimelle
        CLS
        LPRINT "Tiimin jäsenet"; TAB(76): LPRINT
        LPRINT "Kuinka monta jäsentä"
        INPUT TEAMS

        Jotain parempaa varmaan joutuu keksimään, jos aikoo ilman kuvaruutua toimia. Sen matriisitulostimenkin pitäs olla LPT1 portissa, on se vaan vaikeeta. Voihan se onnistua kun intoa riittää. Oliko se olemassa jokin näppäin yhdistelmä jolla ruudulle tuleva ohjattiin kirjoittimelle suoraan, ei jaksa muistaa.


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

    Luetuimmat keskustelut

    1. Ampuminen kylpylässä

      Onko vornasen timbe käynyt hiukan kylpemässä vai mikä tämä ampumatapaus on kylpylässä? Tuntuu aika villi meno olevan naa
      Naantali
      75
      1689
    2. Naantalin kylpylän ampujat

      Oli somppumatuja. Nyt mennään. Suomi on ruotsi.
      Maailman menoa
      24
      1186
    3. Kemijärvellä vesionnettomuus

      Pitkänsillan ja taiteilijanniemen välillä nähty henkilön painuvan veden alle. Mitä on tapahtunut? Onko vesihiisi taas as
      Kemijärvi
      33
      1084
    4. Hei, voitko kuunnella

      Voisitko auttaa minua selvittämään asioita? En halua ajaa sinua hulluuteen kanssani, en sitoa sinua, en esittää vaatimu
      Ikävä
      134
      916
    5. Joku porukka lähtenyt täältä

      Ihmeen hiljainen on palsta nyt. Yleensä tänne tulvii aloituksia yms, mutta nyt on kyllä erikoisen hiljaista.
      Ikävä
      189
      826
    6. Miten yrität

      Vielä saada kaivattusi?
      Ikävä
      64
      694
    7. Olipa yllätys

      Kuten hyvin moni tiesi/arvasi että valetta alusta loppuun toi *olemme ystäviä* satu. Instassaan käsi kädessä kuva kertoo
      Kotimaiset julkkisjuorut
      192
      619
    8. On todella ikävää

      Todella ikävää, että asiat ovat menneet tällaisiksi. Tämä ei ollut missään vaiheessa tarkoitukseni. Olen tehnyt virheit
      Ikävä
      79
      608
    9. 71
      577
    10. Tuletko tänään

      Jos soitan? Niin... tuletko?🖤
      Ikävä
      49
      571
    11. Se kun olit pitkästä aikaa silmieni edessä

      Oli kyllä sykähdyttävää. Tiedätkö, mikä laittaa minut ikävöimään sinua? Kun palautan mieleeni valtavan ihanan olemuksen,
      Ikävä
      32
      528
    12. Ottanet yhteyttä

      Facebookissa,jos on jotain asiaa.Miehelle! T.M-nainen.
      Ikävä
      55
      517
    13. Muutto auto hakee sut tänään!

      Tein sulle oman huoneen! mieheltä naiselle
      Ikävä
      57
      502
    14. Oletteko koskaan torjuneet kaivattuanne?

      Minä olen, kun en silloin tajunnut vielä ihastuneeni. Yritin paikata tapahtunutta, mutta ei onnistunut enää.
      Ikävä
      25
      457
    15. 34
      444
    16. Kai sä mies ymmärrät..

      ..ettet jättänyt vaihtoahtoa. Tottakai toivon vielä, että pystyisit toimimaan niin että asiat korjaantuisivat. Vahvast
      Ikävä
      28
      432
    17. En tiedä mitä sanoa

      Siksi en vastannut😔
      Ikävä
      33
      423
    18. Jos kaivattusi olisi

      Vieressäsi niin mitä tekisit?
      Ikävä
      40
      417
    19. Kiinni jäit

      Ei olisi uskonut sinusta
      Ikävä
      16
      409
    20. Päivän galluppi

      Minkälainen ehkäisy sinkkupalstalaisilla käytössä?
      Sinkut
      82
      398
    Aihe