Hej, czesc!!! To juz wakacje. W momencie gdy to czytacie my,
czyli redakcja AM jestesmy wlasnie na wspolnym urlopie...:))) A
po drugie...wakacje sie Wam juz chyba koncza...:(( Dobrze wiec o
tym nie bede juz mowic. :)
Zaczynamy bawic sie troche mniej grzecznie. Jednym slowem
zapoznam Was dzis z instrukcja warunkowa i petlami w QBasicu. :)
Co do petli...wszyscy nauczyciele uczacy jezykow programowania w
tym miejscu zawsze zaznaczaja: Zapamietajcie sobie kombinacje
klawiszy ctrl+break, nie raz uratuje Wam zycie". I ja to w
tej chwili Wam pisze...przekonacie sie, ze to swieta prawda. ;)
***Instrukcja warunkowa***
Jest nia instrukcja IF, dzieki ktorej dokonujemy wyboru pomiedzy
DWIEMA mozliwosciami. Mozliwosci owe sygnalizujemy poprzez
instrukcje THEN.
***Wyrazenie warunkowe***
Jest to wyrazenie skladajace sie z polaczonych instrukcji IF oraz
THEN
Kazde wyrazenie konczymy instrukca END IF.
Przyklad 1
------------------------------------------------------------
CLS
INPUT "Ile masz lat?"; wiek 'Wczytanie danej
IF (wiek = 18) THEN 'Wyrazenie warunkowe
PRINT "Ojej, kiedy byl jumprez ;)"
END IF 'Koniec wyrazenia warunkowego
------------------------------------------------------------
Program wybiera jedynie pomiedzy dwoma przypadkami. Gdy zostanie
wpisana liczba 18 lub inna. Moze pojsc dwiema drogami. Gdy
wpisana dana bedzie rowna 18 wyswietli napis "Ojej, kiedy
byl jumprez;)" a gdy dana bedzie rozna od 18 program nie
zareaguje i zakonczy prace.
Jednym slowem tylko liczba 18 spelnia warunek. :)
<<<ELSE>>>
Gdy chcemy aby program reagowal na obydwie mozliwosci po THEN
dodajemu jeszcze ELSE i wpisujemy dana "reakcje". :)
Przyklad 2
------------------------------------------------------------
CLS
INPUT "Ile masz lat?"; wiek 'Wczytanie danej
IF (wiek = 18) THEN PRINT "Ojej, kiedy byl jumprez ;)"
ELSE PRINT "Masz jumprez za lub przed soba :))"
'Wyrazenie warunkowe
END IF 'Koniec wyrazenia warunkowego
------------------------------------------------------------
***Operatory logiczne***
"=" nie jest jedynym dostepnym operatorem logicznym.
Rownie dobrze w programie moglam zastosowac warunek z innym
operatorem, np: "IF (wiek < 18) THEN". Oto lista
dostepnych operatorow. :)
------------------------------
| < - mniejsz niz |
| > - wieksze niz |
| = - rowne |
| >= - wieksze lub rowne |
| <= - mniejsze lub rowne |
| <> - rozne, ale nie rowne |
------------------------------
### Ojej! Mozliwosci jest wiecej! :( ###
W takim przypadku nalezy zastosowac instrukcje SELECT CASE
(wybierz przypadek). Instrukcja powoduje odpowiednia reakcje
programu w momencie, gdy podany zostanie przypadek na jaki ma
zareagowac.
Przyklad 3
--------------------------------------------------------------
CLS
INPUT "Ile masz lat"; wiek
SELECT CASE (wiek)
CASE IS <18
PRINT "Ech...jeszcze nie bylo imprezy...;)"
CASE IS >18
PRINT "Czyli juz po imprezie...;)"
END SELECT
--------------------------------------------------------------
%%%%%%%%%%%%%%%%%%% PĘTLE %%%%%%%%%%%%%%%%%%%%%%%%
Petle sa strukturami niezyklwe pomocnymi. Pozwalaja na
wykonywanie tych samych czynnosci wiele razy bez konieczniosci
bezustannego powtarzania instrukcji. Skraca to kod i bardzo
ulatwia zycie zarowno programiscie jak i uzytkowinikowi programu.
1) Petla typu <<<FOR NEXT>>>
Petla typu FOR NEXT pomocna jest w momencie, gdy wiemy z gory ile
razy procedura bedzie musiala byc powtorzona. Petla wykonuje
zadania do momentu osiagniecia przez licznik petli liczby
wczesniej okreslonej.
Przyklad 4
--------------------------------------------------------------
CLS
FOR i = 1 TO 7
PRINT "Devi pisze trzecia czesc kursu"
NEXT i
END
--------------------------------------------------------------
Maksymalna liczba licznika petli moze byc podana tazke w trakcie
dzialania programu.
Przyklad 5
--------------------------------------------------------------
CLS
INPUT "Ile razy trzba powtarzac"; max
FOR i = 1 TO max
PRINT "Devi pisze trzecia czesc kursu"
NEXT i
END
--------------------------------------------------------------
Tyle na dzis robaczki (jak zwykla mawiac Pazool ;). Za miesiac
zabierzemy sie za trudniejsze petle konczac jednoczesnie
wykorzystanie QBasica pod wzgledem czysto tekstowym. Za miesiac
rowniez pokaze Wam jak za pomoca tego jezyka sprawic, aby nasz
komp wydal z siebie dzwieki. :)
^^^^^^^^^^^^^^^^^^^^^PYTANIA^^^^^^^^^^^^^^^^^^^^^^^^^^^
Dlaczego czesci kursu sa takie male?
*** Coz, zaczelam pisac ten kurs podczas przygotowan do matury
wiec sami rozumiecie. Poza tym chcialam ujac dany temat
(zagadnienie) w jednej czesci.
W kazdym razie mysle, ze w czesci trzeciej nastapi pozytywna
zmana objetosci. :)
Czy w Qbasicu można pisać gry, jeśli tak to czy jakieś powstały?
Gry pisac mozna, ale pisane sa one raczej w bardziej
skomplikowanych jezykach. QBasic sluzy do nauki podstaw
programowania, przydaje sie przy nauce Visual Basica. :)
Ile odcinków będzie miał ten kurs?
***Mysle, ze nie wiecej niz 10. :)
Czy w następnych numerach wraz z kursem dołączone będą
programy
nawiązujące do lekcji?
***Tak, jak najbardziej. Mysle, ze juz w drugiej czesci
znajdziecie jeden programik. :)
Właśnie robię swoją stronę internetową, czy mogę zamieścić
na niej ten
właśnie kurs?
***Tak, pod warunkiem, ze ja wyraze zgode ;) A tak
powaznie...chociaz nie, to bylo powaznie! :) W kazdym razie pod
textem MUSI byc:
"Ania - Devi. Napisane dla Action Mag w CD - Action"
Dlaczego w kursie tak dokladnie wszystko tłumaczysz? Przeciez
kazdy wie, co to jest instrukcja PRINT.
***Nie, nie kazdy to wie. Ten kurs w swoich zalozeniach mial byc
niezwykle prosty i wielu czytelnikow to wlasnie w nim chwali.
Trzymajcie sie dzielnie i milej nauki! (zarowno QBasica jak i tej
w szkole :)
Devi
Ew. pytania lub uwagi slijcie na adres:
kursqbasic@pf.pl