Keskustelu: Ohjelmointikysymykset: QB: Qbasic kysymyksiä

no tossa tuli pari juttuu mieleen jota en osaa eli ekaksi haluaisin tietää miten saan sillain että ruudulla menee prosenttilukuja sillain niinku kun jotain ohjelmaa asennetaan 1%,2%,3%,4% ja niin edespäin ja sitten miten saan sillain että kaksiväriä vilkkuu ruudussa ja se vilkkuminen loppuu kun jysäyttää entteriä ja sitten vielä mikä on paras komentoo joka vastaa SLEEP eli että kun kone odottaa että pitää painaa jotain nappia onko se do loop while inkeuy$ = "" vai onko siihen jotain muuta

No tuon prosenntijutun vois kai tehdä näin:

DIM pros AS INTEGER
CLS
pros = 0
FOR i = 1 TO 100
pros = pros + 1
LOCATE 1, 1: PRINT pros; "% valmiina..."
FOR hidaste = 1 TO 20000: NEXT hidaste    'Huono tapa hidastaa
NEXT i
PRINT "VALMIS!!!!"

Siis...? Pitääkö olla esim. kaksi laatikkoa, joissa väri vilkkuu vai pitäisikö taustavärin vaihtua?

Itse käytän tuota mainitsemaasi tapaa sleeppien sijasta, mutta toki voi olla parempiakin tapoja.

~Sose~

lainaus:

vielä mikä on paras komentoo joka vastaa SLEEP eli että kun kone odottaa että pitää painaa jotain nappia onko se do loop while inkeuy$ = "" vai onko siihen jotain muuta

DO WHILE INKEY$="":LOOP

lainaus:

no tossa tuli pari juttuu mieleen jota en osaa

Välimerkitkin olisi hyvä kerrata ennen viestien kirjoitusta varten...

lainaus:

eli ekaksi haluaisin tietää miten saan sillain että ruudulla menee prosenttilukuja sillain niinku kun jotain ohjelmaa asennetaan 1%,2%,3%,4% ja niin edespäin

Sose:en antama koodi käy ihan hyvin, mutta mikäli siitä prosenttimäärästä pitäisi nähdä asennuksen tila, niin sitten pitäisi tietää esim. asennettavan ohjelman koko ja paljonko sitä on jollakin hetkellä asennettu.

sose tossa kysy että laatokot vai tausta mielellään voisin molempien koodin saada ja trinit ei mun semmosii tartte tietää riittää ihan vaa tommone vaikka tosta koodista en tajunnu parii kohtaa voisko joka laittaa mulle selostuksen mitä mikäkin tekee tossa ekassa koodissa

lainaus:

sose tossa kysy että laatokot vai tausta mielellään voisin molempien koodin saada ja trinit ei mun semmosii tartte tietää riittää ihan vaa tommone vaikka tosta koodista en tajunnu parii kohtaa voisko joka laittaa mulle selostuksen mitä mikäkin tekee tossa ekassa koodissa

AARGH! Erota nyt edes virkkeet pisteellä!

miitä miitä

Joku kirjoittaa samalla lailla kuin minä ennen vanhaan, erona se että minä kirjoitin kylläkin 2-3 Kt tekstiä siihen tyyliin :-P Mutta mitä sinun koodiisi tulee, niin kysyisinpä sinun basic - osaamisesi tässä, että miten paljon sitä oikein osaat?

-Grey-

lainaus:

vaikka tosta koodista en tajunnu parii kohtaa voisko joka laittaa mulle selostuksen mitä mikäkin tekee tossa ekassa koodissa

Oli hankalaa erottaa lause, kun kaikki oli yhteen pötköön. Siis etkö tajua tuota laittamaani koodia? Selostetaanpa sitten...

DIM pros AS INTEGER
'Eli määrittelee että 'pros' on öö... Kokonaisluku(?)
CLS
'Tyhjentää näytön.
pros = 0
'Varmistaa että 'pros' on 0
FOR i = 1 TO 100
'Tekee FORin ja NEXTin välissä olevan jutun 100 kertaa.
pros = pros + 1
'Korottaa 'pros'ia yhdellä
LOCATE 1, 1: PRINT pros; "% valmiina..."
'Laittaa tekstin [prosenttimäärä]% valmiina ruutuun.
FOR hidaste = 1 TO 20000: NEXT hidaste    'Huono tapa hidastaa
'Hidastaa vähän, että prosentit näkyvät kasvavan
NEXT i
PRINT "VALMIS!!!!"
'Tulostaa lopulta "VALMIS!!!!"

Siinä oli luultavasti tarpeeksi tarkka selostus. Ja jos ei ollut, voisit aluksi lukea oppaat.

~Sose~

Hyi kamala! Olen pahoillani tuosta viestistä. Jostain olen lukenut, että liika kommentointi on pahasta. Nyt se sitten tuli todistettua. Ei kestä lukea edes tommosta.

~Sose~ on pyytää nöyrästi anteeksi.

hmm no tuo sinun selostus auttoi minua todella paljon nyt ymmärrän tuon for i = 1 to 100 en enne ees tienny tommosta nyt voin laittaa jonku jutun toistuu 100 kertaa eli toimisko se näin

FOR i = 1 TO 200
pisteet = pisteet + 2
PRINT pisteet
FOR hinari = 1 TO 200000 NEXT hinari
NEXT i
PRINT "häh toimiiko tää?"

no hyvinhän se toimi unohtu vaan toi : yhest kohasta mutta nyt haluaisin tietää miten saan tehtyä kuvan qbasiciin ja avattua sen helpoimalla tavalla

Jaahas. Eikös nuo 3/4:n (*FLD*:n profiilista) QBasicillä pitäis mennä vasemmalla kädellä silmät kiinni toinen käsi housuissa?
Kuvien lataukseen: http://reaper.letku.net/phile/pcxtofoo.zip
Kuvat väännät vaikkapa PSP:llä.

lainaus:

ja trinit ei mun semmosii tartte tietää riittää ihan vaa tommone vaikka tosta koodista en tajunnu parii kohtaa voisko joka laittaa mulle selostuksen mitä mikäkin tekee tossa ekassa koodissa

OK. Oma vastaukseni jäi vajavaiseksi, koska yhteyteni katkesi kesken vastauksen lähetyksen ja sen takia viestistäni puuttui kokonaan koodin pätkä:

DIM OhjelmanKoko AS INTEGER
DIM Asennettu AS INTEGER

CLS

OhjelmanKoko = 1024  ' Olkoon ohjelman koko vaikka 1024 kt
Asennettu = 0        ' Paljonko on asennettu ohjelmasta

FOR Asennettu = 0 TO OhjelmanKoko
    LOCATE 1, 1: PRINT CINT(100 * (Asennettu / OhjelmanKoko)); "% asennettu"
    LOCATE 2, 1: PRINT Asennettu; " kt OK"
    WAIT &H3DA, 8
NEXT

lainaus:

AARGH! Erota nyt edes virkkeet pisteellä!

aivan olen samaa mieltä *FLD* koittaisit nyt laittaa jotain välimerkkejä lauseisiisi tekstistäsi ei meinaa saada mitään tolkkua kun kaikki on kirjoitettu yhteen pötköön keskustelualueen ohjeet olisi hyvä myös lukea ne löytyvät osoitteesta https://www.ohjelmointiputka.net/ohje.php?tunnus­=kohjeet

Ja sama teksti luettavassa muodossa ;)

Aivan, olen samaa mieltä. *FLD* koittaisit nyt laittaa jotain välimerkkejä lauseisiisi. Tekstistäsi ei meinaa saada mitään tolkkua kun kaikki on kirjoitettu yhteen pötköön. Keskustelualueen ohjeet olisi hyvä myös lukea. Ne löytyvät osoitteesta https://www.ohjelmointiputka.net/ohje.php?tunnus­=kohjeet

Tämä ei ole mitenkään henkilökohtaista *FLD*, vaan yleisen viihtyvyyden takia kirjoitettu.

no hö ku en mä osaa kirjottaa millää pisteillä oon linzannu liikaa ja en jaksa alkaa muotoilee mitenkää ja onhan tuo 3/4 vähän liian suuri =) mutta osaisin varmasti paremmin jos joku olisi opettanut mutta ei ole nyt löysin ohjelmointiputkan ja se on hyvä kun voin aina kysyä nevoa täältä ja alan oppimaan ja oon tosi kiinostunu qbasicista ja nyt haluisin tietää JONKUN KIRJAN jossa on SUOMEKSI juttua qbasicista

JOKUNEN KIRJA ja vieläpä SUOMEKSI: https://www.ohjelmointiputka.net/keskustelu/358-qbasic-kirjoja
Ja olisi muuten korkea aika opiskella ne välimerkit sun muut tilpehöörit.
Noh.. loppujen lopuksi kirjoitustyylisi ei yhtään ihmetytä huomattuani että tapaat majailla gaugenetissä..

juu hyvä että kirjoja on ja muuten toi ihme foo juttu ei toimi muutenkin se on aika kökkö kun se ei toimi SEEK #1, LOF(1) - 767 tossa rivissä on vika en tiiä yhtää mitä toi ees meinaa ja jep oon guagenetissä hih

lainaus:

...mutta osaisin varmasti paremmin jos joku olisi opettanut mutta ei ole...

Ei opetetuksessa opi ohjelmoimaan (Ainakaan hyvin). Itse se opiskelutyö täytyy tehdä!(IMO) Lue vaikka se Torkkelin kirja, itse opin silloin aikoinaan QB:tä siitä.

juu no siis kun ei ole mitään mazkua ollut mistä oppia niin se on aika paha sitten oppia

Kirjastosta löytyy jotain kirjoja qbasicista. Tosin nekin harvat alkavat olla jo siirtymässä pois hyllyiltä tilan puutteen takia. Kysy vaikka joltain kirjaston hoitajalta niitä kirjoja. Jos ei ole hyllyssä niin ne saattavat olla varastossa.

lainaus:

mutta osaisin varmasti paremmin jos joku olisi opettanut mutta ei ole nyt löysin ohjelmointiputkan ja se on hyvä kun voin aina kysyä nevoa täältä ja alan oppimaan ja oon tosi kiinostunu qbasicista ja nyt haluisin tietää JONKUN KIRJAN jossa on SUOMEKSI juttua qbasicista

*FLD, Öh, profiilissasi qbasic osaamisesi on kolme. Minusta kun vähän tuntuu, että sillä osaamisella olisi ehkä lukenut jonkun kirjan tai joku olisi opettanut qbasicia.

itse mä itseni opetin

Ai että ei ole "mazkua"? Oletko kuullut Internetistä? Kuulostaako Google tutulta? http://www.google.com
"Mazkua" kyllä on, sitä pitää vain osata etsiä.

no löytyy sitä mutta siis eihän noista sillai tajuu jos kukaan ei oo kertomassa tarkemmi

Pakko on tajuta, ainakin jossain vaiheessa. Et voi odottaa että joku olisi opettamassa sinua kädestä käteen aina. Välillä hommat pitää hoitaa itse.
Itse pidän itseopiskelusta, välillä koulussakin tuntuu että olisi paljon mukavampi käydä jotain tiettyä asiaa yksikseen kotona kirjan kanssa läpi kuin kuunnella opettajan murinaa ja marinaa :) Onneksi on tenttimismahdollisuus.. :)

Opettajan työ on parhaillaan sosiaalista toimintaa, ja ainakaan jollakulla täällä päin Suomea ei ole sosiaalisuutta mitään vastaan. Kuitenkin, Qbasicista löytyy itsestään ohjeita, tai ainakin esimerkkejä käskyistä siinä. Ne kylläkin ovat, jollei oteta putkasta löytyvää suomenkielistä QuickBasicia, IBM omaa versiota muuten, englanniksi, mutta koska osasin siitä itse lukea ja olen vielä surkea kyseisen kielen kanssa, ei sinulle voi tulla mitään estettä niiden avulla opiskella.. Paitsi aivokapasiteetti.. Sorry :-)

-Grey-

Pakko se on osata opetella yksin.. :) varsinkin täällä nettipiireissä alkeet saa itse selville helpoiten muita häiritsemättä..

niimpä niin täällä hilluu tämmösii 12v tyyppejä no joo mutta ois se kiva kun on joku onkelma nii vois kysyy siltä mitn se koodataan ja sillia ku netistä ei aina välttämättä löydä just sitä mitä tarttee tai no löytyy mutta sitä ei löydä ja en nyt jaksa alkaa muotoilemaan tätä tekstii voi olla että mun kannattas parantaa mun äidinkielen numero mutta NÄÄH turhaa