Stránky neboli dlhú dobu aktualizované. Môžu obsahovať nepresné alebo neaktuálne informácie.
Hľadanie
Rozšírené vyhľadávanie
TOP 7 - stránky
Napaľovacie programy - 107 526x
Free Pascal - Úvod - 65 176x
Lazarus - Kreslenie - 46 561x
Free Pascal - Začiatky - 44 227x
Free Pascal - Podmienky - 36 700x
Free Pascal - Cykly - 35 878x
Internetové prehliadače - 35 798x
Nové v diskusii
Free Pascal - Cykly - štvrtok 31.3.
Lazarus - Začíname - piatok 25.3.
Anketa - streda 2.3.
Navigácia: Programovanie > Free Pascal - Jednotka CRT > Diskusia

Free Pascal - Jednotka CRT - Diskusia

Pridávanie príspevkov do diskusie bolo zastavené, keďže stránka už nie je udržiavaná.

Meno: pato1
Dátum: 4.1.2009, 10:21
Predmet: zvuk

Mam takyto problem:
pouzivam free pascal a ked chcem spravit zvuk tak spravi iba pip ale nie taky aky som nastavil proste iba bem . prosim pomozte.
p.s.: v google som to nenasiel :-(


Meno: Sulo
Dátum: 1.7.2008, 11:38
Predmet: Neobmedzeny redln/writeln

Tu su procedury LongRead (nahrada ReadLn) a LongWrite (nahrada WriteLn), ktore podporuju prakticky neobmedzeny pocet znakov:

program long_rw;
uses
 crt;

var
 sirka: byte = 80; // aktualna sirka okna

procedure LongRead(var ret: AnsiString);
var
 znak: char;
begin
 while znak <> #13 do begin
  znak := ReadKey;
  if znak <> #0 then begin
   if WhereX < sirka then
    write(znak)
   else
    writeln(znak);
   Insert(znak, ret, Length(ret) + 1);
  end;
 end;
 writeln;
end;

procedure LongWrite(ret: AnsiString);
var
 dlzka, i: integer;
begin
 dlzka := Length(ret) - 1;
 for i := 1 to dlzka do begin
  if WhereX < sirka then
   write(ret[i])
  else
   writeln(ret[i]);
 end;
 writeln;
end;

var
 retazec: AnsiString;
begin
 ClrScr;
 Window(1, 1, 60, 25);
 sirka := 60; // podla sirky okna
 LongRead(retazec);
 LongWrite(retazec);
end.


Maju svoje nedostatky, ale kazdy si ich moze upravit podla vlastnych potrieb.


Meno: stalker
Dátum: 29.5.2008, 17:02
Predmet: re: re

diki


Meno: Sulo
Dátum: 29.5.2008, 13:58
Predmet: Moved: vyplneny kruh

Otazka o vyplneni kruhu presunuta: http://suloweb.html.sk/free-pascal-grafika/diskusia/


Meno: Sulo
Dátum: 23.5.2008, 13:01
Predmet: Re: zvuk

Myslim, ze toto je presne to, co hladas:
http://community.freepascal.org:10000/bboards/message?message_id=117122&forum_id=24083


Meno: stalker
Dátum: 2.5.2008, 11:19
Predmet: zvuk

neslo by nejako rozchodit ten zvuk? urobil som (myslim) celkom pekny progra, kde si vyberiete ako dlho ma zvuk hrat a vysku(alebo pocet?) herzov. potom sa vypise status bar a ukazuje proces..nie, ten status bar nie je len na paradu, naozaj, dieliky v nom pribudaju podla toho, ako dlho ma zvuk trvat, takze ked zadate ze zvuk ma ist 1 hodinu, tak sa nacakate kym pribudne prvy dielik... no ved ak chcete mozete si to pozriet ale asi je to nanic lebo mi zvuk nechce ist, nedalo by sa to nejako spravit aby ten zvuk isiel? mam linux a programujem v programe Geany, fajn prgram, da sa tam programovat aj v pascal, C, C++, php, HTML, java a este nejake ruby. ale myslim, ze ked budete niekto vediet, ako sa to da spravit v pascale, tak to pojde aj mne.

P.S.: tu je link na youtube, keby ste nahodou chceli vidiet ten program ako funguje
http://www.youtube.com/watch?v=VnQkaqhn_2w


«Predchádzajúca strana
2005-2012, Matúš Sulír, matus.sulir (zav) gmail bodka com. Gen.: 0,0202 s. Valid XHTML, CSS.