🚀 go-pugleaf

Dnia Tue, 13 Nov 2007 22:31:37 +0100, jakże pięknego
marjan <klero.tk@gmail.pl.no-spam.com> wystukał co zawarte poniżej:

:: Witam.
:: 
:: Czy jest możliwe aby program wykonywał 2 procedury na raz?
:: 
:: Zależy mi na tym aby pomimo działania programu, w tym wykonywania
:: różnych poleceń, funkcji i procedur, cały czas "w tle" był wydobywany
:: dźwięk (poleceniem sound), ktorego melodia byłaby zapisana właśnie w
:: procedurze. Da się tak zrobić?
:: 

coś w ten deseń

var tablica_myzyki: array[0.99] of Byte;
	temp:pointer;

tablica_muzyki[0]:=512; (itp itd);

procedure muza(); interrupt;
begin
	repeat
		for i:=0 to 99
			sound(tablica_muzyki[i]);

		nosound();
	until (false);
end;



begin
	getincvec(jakies_przerwanie, temp)
	setintvec(jakies_przerwanie, addr(muza))

	repeat
		writeln('i muzka gra... haha');
	until (keypressed):
end.


Co do przerwania, to znajdz sobie jakieś. ;)

-- 
Home: admin.idns.pl
Linux registered user: 408584
Contact: GG#44450, solaris#idns.pl
19:16:28 -!- Platyna Erroneous Nickname