Ghbdtn hf[bv)))

Дорогой будущий Я, Ты как))????
А я сегодня вышмат здал кзамен)) у... как было трудно 40 вопросов тест и без вариантов ответа)) И по матстату мне поставила зачёт.. хотя в лекциях эироглифы)))
ну.. крсовои почти готов осталось только отчёт здать.. вот мой код программы))))


interface

uses
Buttons, MMSYSTEM, FileCtrl;

var
FMaibn: TFMaibn;
implementation
uses AboutUnit;
var
SoundPath: string[255];
min,sec: integer;
volume: LongWord;
{$R *.dfm}
procedure TFMaibn.Button1Click(Sender: TObject);
begin
if Panel3.visible then Panel3.hide
else Panel3.Show;
end;
procedure TFMaibn.N3Click(Sender: TObject);
begin
Close;
end;
procedure TFMaibn.N2Click(Sender: TObject);
begin
if not OpenDialog1.Execute then Exit;
try
Edit1.Text := ExtractFileName(OpenDialog1.FileName);
MP.FileName := OpenDialog1.FileName;
MP.DoubleBuffered:=true;
MP.Open;
MP.Play;
MP.DisplayRect:=panel2.ClientRect;
except
ShowMessage(\'?????? ???????? ?????!\');
Exit;
end;
end;
procedure TFMaibn.N5Click(Sender: TObject);
begin
About.ShowModal;
end;
procedure TFMaibn.Panel2Click(Sender: TObject);
begin
MP.DisplayRect:=panel2.ClientRect;
end;
procedure TFMaibn.BitBtn1Click(Sender: TObject);
begin
if MP.Visible then MP.Play
else MP.pause;
end;
procedure TFMaibn.BitBtn2Click(Sender: TObject);
begin
MP.Pause;
end;
procedure TFMaibn.BitBtn3Click(Sender: TObject);
begin
MP.Rewind;
end;
procedure TFMaibn.BitBtn4Click(Sender: TObject);
begin
MP.Step;
end;
procedure TFMaibn.BitBtn5Click(Sender: TObject);
begin
MP.Back;
end;
procedure TFMaibn.FormCreate(Sender: TObject);
begin
Panel3.hide;
TrackBar1.Position := 0;
volume := (TrackBar1.Position - TrackBar1.Max+1)* +100;
volume := volume + (volume shl 16);
waveOutSetVolume(WAVE_MAPPER,volume);
end;
procedure TFMaibn.TrackBar1Change(Sender: TObject);
begin
volume := 6500* (TrackBar1.Max - TrackBar1.Position);
volume := volume + (volume shl 16);
waveOutSetVolume(WAVE_MAPPER,volume);
end;
procedure TFMaibn.TrackBar3Change(Sender: TObject);
begin
if ABS(MP.Position - TrackBar3.Position) >= 1000 then
begin
If TrackBar3.Position<>MP.Position then
MP.Position:=TrackBar3.Position;
MP.Play;
end;
end ;
procedure TFMaibn.Timer1Timer(Sender: TObject);
begin
if MP.FileName<>\'\' then
begin
TrackBar3.Max:=MP.Length;
TrackBar3.Position:=MP.Position;
end;
end;
end.
И... сегодня проходили флеш анимацию...)) класс)) создавали часы)))