сделайть мелодичным звонок на Паскаль

[Yurikus83]

Помогите разобраться как бы сделать звонок более мелодичным

program lab2;

{$M $1000, 0, 0}
{$N+ $R+}

uses
  Crt, Dos;

const
  Freq = 1000;
  TDur = 2;

var
  OldHandler: Procedure;
  F: Boolean;      
  t, RDur: Integer;       
  R, P, S, E: Word; 

{$F+}
procedure Handler; Interrupt;
begin
  Inc(t); 
  if (t = S) and (not F) then Sound(Freq); 
  if (t >= E) and (not F) then begin
    NoSound; 
    S := t + P;
    E := S + TDur;
  end;
  if (t = R) and (not F) then begin
    NoSound;  
    F := True; 
    Sound(Random(6200)); 
  end;
  if (t mod (R) < R) and F then begin
    NoSound;
    Sound(Random(6200));
  end;
  if (t mod (R + RDur) = 0) and F then begin
    NoSound;
    F := False;
  end;
  Inline($9C);
  OldHandler;
end;
{$F-}

var
  C1, C2, C3, L: Integer; 
  _P, _R: Double;
begin
  Val(ParamStr(1), _P, C1);
  Val(ParamStr(2), _R, C2);
  Val(ParamStr(3), L, C3);
  if (ParamCount <> 3) or (C1 <> 0) or (C2 <> 0) or (C3 <> 0) or (_P < 1) or (_P > 10) or
     (_R < 0.1) or (_R > 5) or (L < 1) or (L > 15) then begin
    WriteLn;
    WriteLn('Неправильно заданы параметры.');
    WriteLn('Должно быть 3 параметра:');
    WriteLn('1-й - период "тиканья" (1..10)');
    WriteLn('2-й - время, через которое должен прозвенеть будильник (0.1 - 5.0 в минутах)');
    WriteLn('3-й - длительность звонка (1..15)');
	WriteLn('Пример: C:/LAB2.exe 1 2 10');
    Halt;
  end;
  RDur := Round(18.2 * L);
  Randomize;
  t := 0;
  F := False;
  P := Round(18.2 * _P);
  R := Round(18.2 * (_R * 60));
  S := 0;
  E := TDur;
  GetIntVec($8, @OldHandler);
  SetIntVec($8, Addr(Handler));
  Keep(0);
end.

можно попробовать использовать этот вариант

nd;
  end;
  if Thread[2] = Active then begin { Њг§лЄÂ* }
    Inc(tMus);
    if tMus mod musSpeed = 0 then begin
      tMus := 0;
      Nosound;
      Inc(musFreq, 25); { ‡Â*¤Â*Ґ¬ зÂ*бв®вл ®в 50 ¤® 500 б Ї®б⥯ҐÂ*Â*л¬ 㢥«Ёз. }
      if musFreq > 500 then
        musFreq := 50;
      Sound(musFreq);

Может что то другое предложите?????

[Serge_Bliznykov]

не смотрел Ваш код (и, соответственно, не слышал, как звучит мелодия).
Но вопрос - чем текущий звонок не мелодичен?
В конце концов, можно вообще, музыку поставить! (поищите посты на форуме о воспроизведении музыки в TurboPascal).

[Yurikus83]

Я одного понять не могу , что форум мертвый что ли, почему ни кто не отвечает конкретно. Хоть бы подсказали куда и как вставить нужные команды.
В поисковике набирал:воспроизведении музыки в TurboPascal - вообще ноль результатов.

[Serge_Bliznykov]

ну, во-первых, поиском пользоваться не всегда получается - иногда надо точно знать, что ты ищешь, чтобы найти..

я имел в виду вот эти сообщения:
вот эта тема воспройзведение музыкальных файлов
и мой пост ТУТ в теме нужна программа со звуком


а во-вторых, Вы же не думаете, что выложив код резидентной программы на древнем ТурбоПаскале под антикварную (читай "мёртвую") операционнку, Вы получите массу ответов и советов?...

[s-andriano]

Сообщение от Yurikus83

Я одного понять не могу , что форум мертвый что ли, почему ни кто не отвечает конкретно.

Потому что:
1. Отсутствует формулировка задачи.
2. Отсутствует конкркетнеый1 вопрос.
3. Вообще непонятно, чего ТС хочет.