Ответ: Изображение :
uses ABCObjects,GraphABC;
begin
New PictureABC(10,10,'demo.bmp');
end.
или
uses
graphabc;
var
p: picture;
p := new Picture(640, 480);
p.Load('1.bmp');
p.Draw;
звук:
uses Sounds;
var n: integer;
n:=LoadSound('b.wav');
PlaySound(n);
Sleep(SoundTime(n));
DestroySound(n);
Пример работы со звуком с использованием класса Sound
var s: Sound;
s:=Sound.Create('b.wav');
s.Play;
Sleep(s.Length);
s.Destroy;
Объяснение:выше
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ: Изображение :
uses ABCObjects,GraphABC;
begin
New PictureABC(10,10,'demo.bmp');
end.
или
uses
graphabc;
var
p: picture;
begin
p := new Picture(640, 480);
p.Load('1.bmp');
p.Draw;
end.
звук:
uses Sounds;
var n: integer;
begin
n:=LoadSound('b.wav');
PlaySound(n);
Sleep(SoundTime(n));
DestroySound(n);
end.
Пример работы со звуком с использованием класса Sound
uses Sounds;
var s: Sound;
begin
s:=Sound.Create('b.wav');
s.Play;
Sleep(s.Length);
s.Destroy;
end.
Объяснение:выше