І. Терезе тақырыбы және фондық түсі бар қарапайым Windows-қосымшасын жасау



бет4/4
Дата12.03.2018
өлшемі346,6 Kb.
#39343
1   2   3   4

БАҚЫЛАУ ЖҰМЫСЫ


    1. Мәтінді форма бойынша сол жақтан оң жаққа үздіксіз жылжытыңыз.

    2. Мәтінді формада төмендегі траектория бойынша үздіксіз жылжытыңыз.

Программа

  1. Формаға Label және Button компоненттерін суреттегідей орналастырыңыз.

  2. Button2 объектісінің қасиетін өзгертіңіз:

DragMode: dmAutomatic

  1. Button2 объектісіне MouseMove оқиғасын өңдейтін код жазыңыз:

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin


Button2.Left := Button2.Left+10;

Button2.Top := Button2.Top+10;

end;


  1. Button1 обектісіне Click оқиғасын өңдеуге арналған код жазыңыз:

procedure TForm1.Button1Click(Sender: TObject);

begin


Label1.Caption := 'Мы были в этом уверены!'

end;


  1. Программаны орындаңыз.

  2. Программаны өзгертіңіз: тінтуір меңзерін Button2 обектісіне жылжытқанда ол көрінбейтін болуы керек. Меңзерді алып тастағанда ол қайта көрінуі керек.

БАҚЫЛАУ ЖҰМЫСЫ


  1. Батырма курсордан кез келген бағытта қашып жүретіндей етіп программаны өзгертіңіз. Бірақ форма шекарасынан шықпауы керек.

ІІ. Мультипликациясы, бейнеклипі және гиперсілтемесі бар программа

  1. Формаға 268х163 өлшемді панельді орналастырыңыз.

  2. Панельдің үстінде IMAGE1 компонентін орналастырыңыз. Оның өлшемі 072х163 болуы керек. IMAGE1 компонентіне Дракон.jpg файлын орналастырыңыз.

  3. Формада интервалы 250 болатын таймер компонентін орналастырып, OnTimer оқиғасына келесі кодты жазыңыз:

With Image1 do

Begin


Left:=Left-Width div 4;

If Left=-Width Then Left:=0;

End;


  1. Программаны орындап, сақтаңыз.

  2. Формаға жаңа панель және MediaPlayer1 компоненттерін орналастырыңыз.

  3. Форма құру процедурасына Cool.avi бейнеклипін ойнату кодын жазыңыз:

MediaPlayer1.Filename:='Cool.avi';

MediaPlayer1.Open;

MediaPlayer1.Display:=Panel2;

MediaPlayer1.Play;



  1. Программаны орындаңыз және программа дұрыс жұмыс істесе сатаңыз.

  2. Формада гиперсілтеме мәтіні бар тексті орналастырыңыз. Мәтін қаріпінің (шрифт) түсі көк және асты сызылған болуы керек. Мәтінге курсорды әкелгенде "Сайт преподавателя" көмекші мәтін шығуы және курсордың түрі қаламға өзгеруі керек. Программаның USES бөліміне ShellAPI модулін қосыңыз. Гиперсілтемені басу оқиғасы үшін келесі кодты жазыңыз:

ShellExecute(0,'Open', 'http://www.gor.h1.ru','','',SW_SHOW);


БАҚЫЛАУ ТАПСЫРМАЛАРЫ


  1. Гиперсілтемені өзгертіңіз: тінтуірді үстіне әкелгенде ғана оның түсі көкке және асты сызылған болып өзгеруі керек.

Каталог: download -> version
version -> БАҒдарламасы 5-9 сыныптар Астана 2010 Қазақстан республикасы білім және ғылым инистрлігі
version -> Өмірбаяны Ақан сері, Ақжігіт Қорамсаұлы (1843 жылы бұрынғы Көкшетау облысы Үлкен Қоскөлдің маңы 1913 жылы, сонда) ақын, әнші, композитор. Әкесінің есімі Қорамса, шешесі Жаңыл
version -> Абылай хан
version -> Бағдарламасы 5-9 сыныптар Астана 2010 Қазақстан республикасы білім және ғылым инистрлігі
version -> Ғалымдардың ең ежелгі адамды атауы
version -> Өмірбаяны Ақан сері, Ақжігіт Қорамсаұлы (1843 жылы бұрынғы Көкшетау облысы Үлкен Қоскөлдің маңы 913 жылы, сонда) ақын, әнші, композитор. Әкесінің есімі Қорамса, шешесі Жаңыл
version -> Mұхтар Омарханұлы Әуезов
version -> ТҮркістан қаласы
version -> Абай Құнанбайұлы
version -> Міржақып Дұлатұлы


Достарыңызбен бөлісу:
1   2   3   4




©www.engime.org 2024
әкімшілігінің қараңыз

    Басты бет