[ARHIIV] mängumeistrid
Pole sisse logitud. [Logi sisse ]
Mine lehekülje algusesse
Prinditav versioon | Telli teema e-mailile | Lisa lemmikutesse  
Free Pascal / näide heli
gmmeiter
GlorY


Liitunud: 28.10.2005
Postitusi: 2032
[EEMAL]




postitati 7.6.2008 13:13 Tsiteeri
Free Pascal / näide heli



See on näide, kuidas FPC's heli tekitada.

http://www.dmgamez.pri.ee/foorum/images/smilies2/info.gifKui näide ei tööta paluks sellest siin teada anda.
http://www.dmgamez.pri.ee/foorum/images/smilies2/info.gifKui soovite paremat tulemust tuleb SEKUND'iga rohkem mängida.. hetkel ühtne pong...pong...pong...pong...



Kood:

uses
Crt;


const
SEKUND = 300; {Sekundi kestvus milli sekundis väib olla v„ike.. seda väib
suurendada kuni 65535'ni, kuid mitte le selle!
}
DOO = 0;
RE = 2;
MI = 4;
FA = 5;
SOL = 7;
LA = 9;
SI = 11;
VAIKEOKTAAV = -600;
ESIMENEOKTAAV = -9;

{ M„ngib antud numbri ja kestusega heli }
Procedure Heli(number : Integer; kestus: Word);
var
f: Word; { heli sagedus hertsides }
begin
f := Round(440 * Exp (number/12.0 * Ln(2)));
Sound(f);
Delay(kestus);
NoSound;
end;

begin
{heliredel}
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + RE, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(ESIMENEOKTAAV + FA, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(ESIMENEOKTAAV + LA, SEKUND);
Heli(VAIKEOKTAAV + Si, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + RE, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + FA, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + LA, SEKUND);
Heli(VAIKEOKTAAV + Si, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + RE, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + FA, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + LA, SEKUND);
Heli(VAIKEOKTAAV + Si, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + RE, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + FA, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + LA, SEKUND);
Heli(VAIKEOKTAAV + Si, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + RE, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + FA, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + LA, SEKUND);
Heli(VAIKEOKTAAV + Si, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + RE, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + FA, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + LA, SEKUND);
Heli(VAIKEOKTAAV + Si, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + RE, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + FA, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + LA, SEKUND);
Heli(VAIKEOKTAAV + Si, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
Heli(VAIKEOKTAAV + RE, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + FA, SEKUND);
Heli(VAIKEOKTAAV + MI, SEKUND);
Heli(VAIKEOKTAAV + LA, SEKUND);
Heli(VAIKEOKTAAV + Si, SEKUND);
Heli(VAIKEOKTAAV + DOO, SEKUND);
end.


Lisatud fail: heli.exe (56.22kb)
181 korda tõmmatud


Vaata kasutaja profiili Külasta kasutaja kodulehte Otsi kasutaja postitusi Saada privaatsõnum Vaata kasutaja MSN-i

Hetkel loevad seda teemat:
Mitte ühtegi - 1 külaline

Mine lehekülje lõppu





Foorumi algbaas põhineb XMB mootoril, modifitseeritud Valter Pundi poolt
Kodulehekülg on tehtud Valter Pundi poolt vpundi ät gmail punkt komm