Jūsų informacinių technologijų darbai

[Gaucho]

Būtų įdomu pamatyti kiekvieno darbus internetinėje srityje.
(pvz: tinklalapiai, dizainai, programos)

Gerai. Mano naujesni darbeliai (pasipraktikavimui).

http://tadas.local.lt/darbai/nightclub.png
http://tadas.local.lt/darbai/grafika.png
http://tadas.local.lt/darbai/designscene.png
http://tadas.local.lt/darbai/dailyart.png

[vb100]

Būtų įdomu pamatyti kiekvieno darbus internetinėje srityje.
(pvz: tinklalapiai, dizainai, programos)

Tai aš parodysiu programą (FPS): Jau seniai ir daug kartų esu ją rodęs:
http://files-upload.com/files/638154/teleloto.exe

[mrmodern]

Jei pats padarei tai gal kodą atsiūstum? labai norėčiau žvilgtelėti.

[vb100]

Tai svetimų darbų nesiųsčiau. Prieš kokius 2 metus tai buvau sukūręs, o po to per mano neapdairumą, po kelių kart Windows'ų perrašymų pradingo kodas. Liko tik *.exe.

Kai programa klausia: „Dar žaisti [ENTER]?", spasukite "0" (nulį) ir pamatysit, kad tai tikrai mano darbas.

Programa visai nesudetinga tiesiog pažingsniui visi punktai daryti (procedūrų ir funkcijų pagalba), tik, kad krapštytis tame kode reikėjo nemažai.

[mrmodern]

Viskas tai tikrai nėra sudėtinga tik kaip padaryti, kad matytusi generuojami skaičiai?

[vb100]

Kiek pamenu, dariau kažką panašaus į tai:

1. Užpildomas masyvas nepasikartojančių reikšmių (bilietų numerių).
2.

Code: Select all

repeat if i + 1 > 100 then i := 0; //kad neperžengtų rėžių, nes aš masyve generavau 100 bilietų, pilnai man to užteko i := i + 1; ClrScr; GoToXY(20, 25) //na čia nesvarbu Writeln(bilietas[i]); until Keypressed;

3.

Code: Select all

Tavo_Bilietas := bilietas[i];

Na ir nepamirškime naudoti Crt modulio.

[mrmodern]

Esmė tai buvo tokia, kad ištrini eilutę, nueini į eilutės pradžią ir vėl parašai, paskui ištrini ir taip toliau... Ir gaunasi toks vaizdas. Teisingai?

[vb100]

Ištrini eilutę, nueini į eilutės pradžią ir vėl parašai, paskui ištrini ir taip toliau... Ir gaunasi toks vaizdas.

.

Jei tavo sakiny žodį ištrini, pakeistumėme išvalyti ekraną (ClrScr) tai esmė tokia.
Tik cikle GoToXY pagalba nurodome eilutės pradžią.

Na iš tikrųju taip, esmė tokia, kaip parašei, rezultate visvien tas pats būtų. Arba tu tą patį kitais žodžiais parašei.

[mrmodern]

Mano darbas iš geresnių būtų http://files-upload.com/files/640251/ta ... avimas.exe
Manau supratot ką skaičiuoja.

O dar vienas klausimas vb100: Kaip tu padarei kad skaičiai visalaik būtų vienodo ilgio?

[mrmodern]

Nu krc jau įkirtau esmę.

[vb100]

vb100: Kaip tu padarei kad skaičiai visalaik būtų vienodo ilgio?

Skaičių generuojame intervale [100000;999999];

Ant greičio dabar parašiau, esmė turėtų matytis:

Code: Select all

program PVz; uses Crt; {--------------------------------} procedure Darbas; type mas = array [1..100] of integer; {-----------------} procedure Uzpildymas(var m : mas); var i : integer; begin for i := 1 to 100 do m[i] := Random(200)+100; end; {-----------------} {-----------------} procedure Rodymas(m : mas); var i : integer; begin i := 0; repeat if i + 1 > 100 then i := 0; i := i + 1; ClrScr; GoToXY(5,5); Delay(1); Writeln(m[i]); until KeyPressed; GoToXY(5,5); Writeln(m[i]); Readln; end; {-----------------} var m : mas; begin Uzpildymas(m); Rodymas(m); end; {---------------------------------} begin ClrScr; Darbas; Readln; end.

--------------------------------------------

Ta su taurėm programa visai tokia įdomi, tik kai atlieka skaičiavimus, ir kai norių, kad toliau skaičiuotų su kitais duomenim, reiktų gal kokią ryškesnę ribą padaryt tarp pirmo ir antro skaičiavimų. Arba kiekvienos sesijos metu valyti ekraną.

[mrmodern]

Tą programą dariau prieš metus tai dar net nežinojau tokių dalykų.

[vb100]

Įdedu dar vieną mano ir užteks. http://files-upload.com/files/640274/LINIJOS.exe

Čia jau tikrai visai nieko ypatingo 10 kl. lygio, tiesiog neseniai pradėjau su grafika dirbt tai dar mokausi.
Programa tiesiog išgeneruoja linijas: atsitiktinai parenkama spalva ir ilgis.
Galėjau padaryt, kad būtų galima nurodyti centro koordinates, bet su Graph moduliu yra viena blogybė, kad Graph langas užgožia Dos langą.

[anonimas]

Su kokia programavimo kalba rasyta?9 klasėj as dabar tai dar nemokė nieko programuot

[mrmodern]

vb100: Kaip tu padarei kad skaičiai visalaik būtų vienodo ilgio?

Skaičių generuojame intervale [100000;999999];

Ant greičio dabar parašiau, esmė turėtų matytis:

Code: Select all

program PVz; uses Crt; {--------------------------------} procedure Darbas; type mas = array [1..100] of integer; {-----------------} procedure Uzpildymas(var m : mas); var i : integer; begin for i := 1 to 100 do m[i] := Random(200)+100; end; {-----------------} {-----------------} procedure Rodymas(m : mas); var i : integer; begin i := 0; repeat if i + 1 > 100 then i := 0; i := i + 1; ClrScr; GoToXY(5,5); Delay(1); Writeln(m[i]); until KeyPressed; GoToXY(5,5); Writeln(m[i]); Readln; end; {-----------------} var m : mas; begin Uzpildymas(m); Rodymas(m); end; {---------------------------------} begin ClrScr; Darbas; Readln; end.

--------------------------------------------

Ta su taurėm programa visai tokia įdomi, tik kai atlieka skaičiavimus, ir kai norių, kad toliau skaičiuotų su kitais duomenim, reiktų gal kokią ryškesnę ribą padaryt tarp pirmo ir antro skaičiavimų. Arba kiekvienos sesijos metu valyti ekraną.

Bandei pariktint tą programą ? manau turėtų atrodyti taip:

Code: Select all

program PVz; uses Crt; {--------------------------------} procedure Darbas; type mas = array [1..100] of integer; {-----------------} procedure Uzpildymas(var m : mas); var i : integer; begin for i := 1 to 100 do m[i] := Random(200)+100; end; {-----------------} {-----------------} procedure Rodymas(m : mas); var i : integer; begin i := 0; repeat if i + 1 > 100 then i := 0; i := i + 1; GoToXY(5,5); Delay(1); Writeln(m[i]); until KeyPressed; GoToXY(5,5); Writeln(m[i]); Readln; end; {-----------------} var m : mas; begin Uzpildymas(m); Rodymas(m); end; {---------------------------------} begin ClrScr; Darbas; Readln; end.