Ses üretme

[EYasin]

Ben bir alarmlı saat yapmak istiyorum ama ama alarmın çalma zamanı geldiğinde bir ses dosyasını çalmasın sesi kendi üretsin bu mümkün mü?
yardımlarınızı bekliyorum Teşekkürler

**Birlikten kuvvet doğar**

[husonet]

Merhaba

Bak aklıma gelen microfonu eline al ve alfabeyi ayrı ayrı seslendirerek bir klasöre kaydet a.wav b.wav c.wav vesaire vesaire ve odosyadan alarm süresince rastgele dosyaları çağır ve çaldır çağırımlar alarm süresi bitinceye kadar devam etsin işte bu kadar basit

Kolay Gelsin...

[salvation]

istediğin tonda ve istediğin sürede ses çıkartabilirsin. Pascal daki kullanımıyla aynı..

Kod: Tümünü seç

//Kaynak : UDDF - Unoffical Delphi Developers FAQ
//Win9x için geçerli
//NT için ise Beep(Tone, Duration) kullanılabilir
procedure SetPort(address, Value:Word);
var
  bValue: byte;
begin
  bValue := trunc(Value and 255);
  asm
    mov dx, address
    mov al, bValue
    out dx, al
  end;
end;

function GetPort(address:word):word;
var
  bValue: byte;
begin
  asm
    mov dx, address
    in al, dx
    mov bValue, al
  end;
  GetPort := bValue;
end;

procedure Sound(Freq : Word);
var
    B : Byte;
begin
    if Freq > 18 then
        begin
            Freq := Word(1193181 div LongInt(Freq));
            B := Byte(GetPort($61));

            if (B and 3) = 0 then
               begin
                   SetPort($61, Word(B or 3));
                   SetPort($43, $B6);
               end;

            SetPort($42, Freq);
            SetPort($42, Freq shr 8);
        end;
end;

procedure NoSound;
var
  Value: Word;
begin
    Value := GetPort($61) and $FC;
    SetPort($61, Value);
end;

[warder]

Ben bir alarmlı saat yapmak istiyorum ama ama alarmın çalma zamanı geldiğinde bir ses dosyasını çalmasın sesi kendi üretsin bu mümkün mü?
yardımlarınızı bekliyorum Teşekkürler

**Birlikten kuvvet doğar**

Programın yanında ses dosyası taşımak istemiyorsanız resource olarak exe içerisine gömebilirsiniz.