Mundarija: kirish I bob. C++Ning konsol ilovasini yaratish va ma'lumotlarni kiritish, chiqarish operatorlari

CFrame := CFrame + 1;
Animatel.StartFrame := CFrame;
Animatel.StopFrame := CFrame;
Animate 1.Active := True;
if CFrame = Animate l.FrameCount
then Button2.Enabled:=False;
end;
end;
Procedure TForml.Button3Click(Sender: TObject);
Begin
if CFrame = Animate l.FrameCount
then Button2.Enabled := True;
140
if CFrame > 1 then begin
CFrame := CFrame - 1;
Animate 1. Start Frame := CFrame;
Animatel.StopFrame := CFrame;
Animate 1.Active := True;
if CFrame = 1
then Forml.Button3.Enabled := False;
end;
end;
Procedure TForml.RadioButtonlClick(Sender: TObject);
Begin
Buttonl.Enabled:=True;
Button3.Enabled:=False ;
Button2.Enabled:=False;
end;
Procedure TForml.RadioButton2Click(Sender: TObject);
Begin
Button2. Enabled:=True;
Button3. Enabled:= F alse;
Buttonl.Enabled:=False; end;
procedure TForml.ButtonlClick(Sender: TObject);
begin
If Animate 1. Active = False
Then begin
Animate 1. StartFrame:=1;
Animate 1 .StopFrame:=Animate 1. FrameCount;
Animate 1 .Active:=True;
Button 1 ,caption:=To‘xtash';
RadioButton2.Enabled:=False;
end;
else;
begin
Animatel.Active:=False;
Buttonl.caption:='Boshlash';
RadioButton2. Enabled:=T rue;
end;
end;
end.
MediaPlayer komponentasining belgisi System qatorida joylashgan bo‘lib, videoroliklar, tovush va tovushli animatsiyani qurishga imkon beradi. Formaga MediaPlayer komponentasi joylashtirilganda tugmalar guruhi paydo bo‘ladi. Bu tugmalar vazifalari jadvalda berilgan. MediaPlayer xossalari keyingi jadvalda keltirilgan. MediaPlayer komponentasi.

MediaPlayer komponentasining tugmalari: Tugma Belgisi, Eshittirish btPlay, Pauza btPause, Stop btStop, Keyingi btNext, Oldingi btPrev, Qadam btStep, Orqaga btBack, Yozuv btRecord, Ochish/Yopish btEject
Tovush fragmentlari WAV kengaytmali fayllarda saqlanadi. Misol uchun C:\Winnt\Media katalogida Windows standart tovushlari yozilgan fayllar joylashgan. Quyidagi dasturda MediaPiayer komponentasidan WAV-fayllarida joylashgan tovushlarni eshitish uchun foydalanish ko‘rsatilgan. MediaPiayer komponentasidan tashqari formada ListBox va ikki Label komponentalari mavjud bolib, birinchisi ma’lumotning aks etishi, kkinchisi ro‘yxatdan tanlangan WAV-fayl nomini aks ettirish uchun ishlatiladi. Bundan tashqari, ikki Button komponentalari mavjud bolib, birinchisi tovushli fayllar ro‘yxatini ekranga chiqarish, ikkinchisi ro‘yxatdan tovushli faylni tanlash uchun mo‘ljallangan. Dastur quyidagicha ishlaydi. Dialog oynasi paydo bo‘lgandan so‘ng ≪Microsoft tovushi≫ eshitiladi, so‘ngra foydalanuvchi ro‘yxatdan C:\Windows\Media katalogidagi ixtiyoriy tovushli faylni tanlaydi va Воспроизведение tugmasini bosgandan so‘ng shu faylni eshittiriladi. Microsoft Windows tovushlarining dastur formasi.

MediaPlayerl komponentasining o‘zgartirilgan xossalar qiymatlari jadvalda berilgan.
Tovush eshittirishdan tashqari MediaPlayer komponentasi AVIfayl (AVI -Audio Video Interleave so‘zining qisqartmasi bo‘lib, tovush va video almashuvi deb o‘qiladi) sifatida berilgan videorolik va multiplikatsiyani ko‘rishga imkon beradi. Quyidagi dasturda buyruq tugmasini bosish natijasida tovushli multiplikatsiyada soat mili bo‘yicha aylanuvchi C++ so‘zini ko‘rish mumkin (C++.avi fayli bu multiplikatsiyani o‘z ichiga oigan). Dasturning dialog oynasi rasmda, MediaPlayerl komponentasi xossalari qiymati jadvalda berilgan.