Free Pascal - Jednotka CRT - Diskusia

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

---