Розробка програмного забезпечення
КИЇВСЬКИЙ НАЦІОНАЛЬНИЙ
УНІВЕРСИТЕТ
ІМЕНІ
ТАРАСА ШЕВЧЕНКА
ОПТИКО-МЕХАНІЧНИЙ
КОЛЕДЖ
ЗВІТ З НАВЧАЛЬНОЇ ПРАКТИКИ
зі
спеціальності 5.05010301 "Розробка програмного забезпечення"
Студентки 3-го курсу групи ПР-31
Жидейкіної Наталії Анатоліївни
КИЇВ
- 2015
Зміст
Практична робота 1. "Програми лінійної структури"
Практична робота 2. "Програми розгалуженої структури"
Практична робота 3. "Програмна реалізація функцій для роботи з датою та часом"
Практична робота 4. "Програма для роботи з візуальними компонентами керування"
Практична робота 5. "Програми циклічної структури"
Практична робота 6. "Програми для роботи з масивами даних"
Практична робота 7. "Програми для роботи з рядками даних"
Практична робота 8. "Створення інтерфейсу користувача стандартними подіями"
Практична робота 9. "Програми для роботи з власними функціями"
Практична робота 10. "Програми для роботи зі структурами даних"
Практична робота 11. "Програми для роботи з файлами"
Практична робота 12. "Програми для роботи з графічної підсистемою"
Практична робота 13. "Програми для роботи з глобальними ідентифікаторами Screen, Mouse,
Application"
Практична робота 14. "Програми для роботи зі стандартними діалоговими компонентами"
Практична робота 15. "Програма для роботи з аудіо- та відео- файлами"
Практична робота 1. "Програми
лінійної структури"
Завдання 1.1
Дано значення температури TF в градусах Фаренгейта. Визначити
значення тієї ж температури у гарадусах Цельсію TC = (TF - 32)
.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{tf,tc;<<"tf=";>>tf;=(tf-32)*5/9;<<"tc="<<tc<<endl;("pause");0;}
Завдання 1.2
Дано змінні A, B, C. Змінити їх значення, перемістивши вміст A у B, B у C, C у A. Вивести нові значення змінних.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{A, B, C,
D;<<"A=";>>A;<<"B=";>>B;<<"C=";>>C;<<endl;=A;=C;=B;=D;<<"A="<<A<<endl;<<"B="<<B<<endl;<<"C="<<C<<endl;("pause");0;
}
Завдання 1.3
Знайти рішення (x, y) системи лінійних рівнянь виду:
заданої коефіцієнтами A1, B1, C1, A2, B2, C2, якщо відомо, що система має єдине
рішення.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{A1, B1, C1, A2, B2, C2, x,
y;<<"A1=";>>A1;<<"B1=";>>B1;<<"C1=";>>C1;<<"A2=";>>A2;<<"B2=";>>B2;<<"C2=";>>C2;<<endl;=(((A2*C1)-(A1*C2))/((B1*A2)-(B2*A1)));=((C1-(B1*y))/A1);<<"x="<<x<<endl;<<"y="<<y<<endl;("pause"); 0;
}
Завдання 1.4
Дано три точки A, B, C на числовій вісі. Точки C розміщена між точками A і B. Знайти добуток довжин сторін AC і BC.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"
#include "math.h"
#include "conio.h"_tmain(int argc, _TCHAR* argv[])
{Xa, Xb, Ya, Yb, Yc,
Xc,D=0;<<"Xa=";>>Xa;<<"Xb=";>>Xb;<<"(Xa<Xc<Xb)\nXc=";>>Xc;<<"Ya=";>>Ya;<<"Yb=";>>Yb;<<"(Ya<Yc<Yb)\nYc=";>>Yc;<<endl;((((Xa<Xc)&&(Xc<Xb))||((Xa>Xc)&&(Xc>Xb)))&&(((Ya<Yc)&&(Yc<Yb))||((Ya>Yc)&&(Yc>Yb))))
{ D=(sqrt(pow((Xc-Xa),2)+pow((Yc-Ya),2)))*(sqrt(pow((Xc-Xb),2)+pow((Yc-Yb),2)))
;<<"D="<<D<<endl;("pause");}
{
cout<<"D="<<D<<endl;("pause"); }0;
}
Практична робота 2. "Програми розгалуженої структури"
Завдання 2.1
Дано тризначне число. Перевірити істинність висловлювання:
"Всі цифри даного числа різні".
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{num;<<"write three-digit number\nnumber=";
cin>>num;
if((num>99)&&(num<1000))
{
if (((num/100)!=((num/10)%10))&&((num/100)!=((num%10)%10))&&(((num/10)%10)!=((num%10)%10)))
{
cout<<"three-digit number includ different
numbers\n";
}
else
cout<<"three-digit number includ same
numbers\n" ;
}<<"you write wrong
number";("pause");0;
}
Завдання 2.2
Дано ціле число, яке лежить в діпазоні 1-999. Винести його
рядок - опис виду "парне двозночне число", "непарне тризначне
число" і т.д.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{num;b=true;<<"write number in the range from 1 to
999 \nnumber=";>>num;
if((num>0)&&(num<10))
{cout<<"One-digit ";}
{if((num>9)&&(num<100))
{cout<<"Two-digit ";}
{if (((num>99)&&(num<1000)))
{cout<<"Three-digit ";}
{cout<<"you write wrong number\n";b=false;}
}
}(b)
{(num%2==0)
{ cout<<"pair number\n";}
{ cout<<"unpair number\n";}
}("pause");0;
}
Практична робота 3. "Програмна реалізація функцій для роботи з датою та часом"
Завдання 3.1
Використовуючи класс TDateTime (оголошенийв модулі systdate.h) розробіть застосування для роботи з
датою і часом, яке демонструватиме всі можливі операції над ними.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "systdate.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button1Click(TObject *Sender)
{DateTime =
TDateTime::CurrentDateTime();week=DateTime.DayOfWeek();
switch(week)
{
case 1:{Label1->Caption ="monday"; break;}
case 2:{Label1->Caption ="tuesday"; break;}
case 3:{Label1->Caption ="wednesday"; break;}
case 4:{Label1->Caption ="thursday"; break;}
case 5:{Label1->Caption ="friday"; break;}
case 6:{Label1->Caption ="saturday"; break;}
case 7:{Label1->Caption ="sunday"; break;}
}->Caption ="DateTime "+DateTime.DateTimeString();->Caption
="Date "+DateTime.DateString();->Caption ="Time
"+DateTime.TimeString();=
TDateTime::FileDateToDateTime(FileAge(Application->ExeName));->Caption =
"data and time of file: " + DateTime.DateTimeString();
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button2Click(TObject *Sender)
{>Terminate();
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button3Click(TObject *Sender)
{OldCursor = Screen->Cursor;
Screen->Cursor = crHourGlass;
TDateTime StartDateTime = TDateTime::CurrentDateTime();(int i
= 0; i < 500000; i++)
{(TDateTime::CurrentDateTime().DateTimeString());>ProcessMessages();
}EndDateTime = TDateTime::CurrentDateTime();>Cursor = OldCursor;->Caption
= (EndDateTime - StartDateTime).TimeString();
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button4Click(TObject *Sender)
{TDateTime DateTime = TDateTime::CurrentDateTime();
Label7->Caption = (DateTime++).DateTimeString();
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button5Click(TObject *Sender)
{TDateTime DateTime =
TDateTime::CurrentDateTime();->Caption =(DateTime += 1.125).DateTimeString();
}
//---------------------------------------------------------------------------__fastcall
TForm1::Timer1Timer(TObject *Sender)
{ String TimeFormat, DateFormat;(CheckBox1->Checked)
DateFormat = "dddddd ";
else
DateFormat = "ddddd ";(CheckBox2->Checked)=
"hh:nn:ss";
else= "hh:nn";->Caption =
TDateTime::CurrentDateTime().FormatString(DateFormat+TimeFormat);
}
//---------------------------------------------------------------------------__fastcall
TForm1::CheckBox1Click(TObject *Sender)
{(CheckBox1->Checked)
Label9->Caption =
TDateTime::CurrentDateTime().FormatString("dddddd:hh:nn");
else
Label9->Caption =
TDateTime::CurrentDateTime().FormatString("ddddd:hh:nn");
}
//---------------------------------------------------------------------------__fastcall
TForm1::CheckBox2Click(TObject *Sender)
{(CheckBox2->Checked)
Label9->Caption =
TDateTime::CurrentDateTime().FormatString("dd.mm.yy.hh:nn:ss");//TimeFormat
= "hh:nn:ss";
else->Caption =
TDateTime::CurrentDateTime().FormatString("dd.mm.yy.hh:nn");//
TimeFormat = "hh:nn";
}
Практична робота 4. "Програма для роботи з візуальними компонентами керування"
Завдання 4.1
За допомогою 2-х контейнерів Panel поділіть простір форми на дві частини
(головна та нижня) з прив`язкою до її границь. На
головній частині розмістіть кнопку Button. На нижній частині розиістіть компонент TrackBar. При зміні позицій
"повзунка" TrackBar реалізуйте можливість зміни прозорості форми. При наведенні
миші на кнопку Button
реалізуйте можливість зміни її положення відносно форми з нможливістю виходу за
межі форми.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall
TForm2::TrackBar1Change(TObject *Sender)
{
Form2->AlphaBlendValue=TrackBar1->Position;
}
//---------------------------------------------------------------------------__fastcall
TForm2::Button1Click(TObject *Sender)
{t=Panel1->Height - Button1->Height;t2=Panel1->Width
- Button1->Width;->Top=rand()%t;->Left=rand()%t2;}
Практична робота 5. "Програми циклічної структури"
Завдання 5.1
Дано два цілі числа A і B (A<B). Вивести в порядку зростання всі цілі числа, розташовані між A I B(включаючисамі числа A і B), а також кількість N цих чисел.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{A=0, B=0, N=0; bool
boolean=true;<<"A<B\nA=";>>A;<<"B=";>>B;(A<B)
for(;A<=B;A++)
{
cout<<A<<" ";
N++;
}
{cout<<"Error: A>B";boolean =
false;}<<endl;(boolean)
{<<"N="<<N<<"\n";
}("pause");0;
}
Завдання 5.2
.Обчислити значення змінної z = 
. Вивести значення a, b, z.
a = 
де k - кількість інтерацій.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"
#include "math.h"f1(double k)
{f=0;=(((cos((2.1*k))*sin(abs(k)))/0.15)-5.8);f;
}f2(double k)
{f=0;=abs(((sin(k))/(3.12))+cos(pow(k,2)));f;
}_tmain(int argc, _TCHAR* argv[])
{a=0,b=0,z=0;k=0;
cout<<"k=";
cin>>k;
for(int i=0;i<=k;i+=2)
{
a=f1(i);
if(i%8==0)
b=f2(i);
z=abs((12*a)-b);
}
cout<<"b="<<b<<"\na="<<a<<"\nz="<<z<<endl;
system("pause");
return
0;
}
Завдання 5.3
Спортсмен почав тренерування, пробіг у перший день 10 км.
Кожен наступний день він збільшував довжину пробігу на Р відсотків від пробігу
попереднього дня (0 <
P < 50). За заданим Р визначити, після якого
дня сумарний пробіг спортсмена за всі дні перевищить 200 км, і вмвести знайдену
кількість днів К та сумарний пробіг S на екран.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{P=0,K=1; double
S=10;<<"(0<P<50)\nP=";>>P;((0<P)&&(P<50))
{
for(;S<=200;++K)
S+=P*(S/100);
cout<<"S="<<S<<"
K="<<K<<"\n";
system("pause");
}0;
}
Завдання 5.4
Написати програму, яка обчислить суму і середнє арифметичне
послідовності додатних чисел, яка вводиться з клавіатури до тих пір, доки не
буде введено нуль.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{sum=0,number=0,i=1; double sr=0;<<"number=";
cin>>number;
{
sum+=number;
sr=sum/i;
cout<<"sum="<<sum<<"
sr="<<sr<<endl;
cout<<"number=";
cin>>number;
i++;
}(number!=0);("pause");0;
}
Завдання 5.5
Написати порграму, якаперевіряє, чи є введене користувачем
число простим.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{number=0;boolean=true;<<"number=";>>number;(int
i = 2; i < number; i++)
{
if((number%i!=0)&&(number!=2)&&(number!=0))
{
cout<<"number is not prime\n";
boolean=false;
break;
}
}(boolean)
{ cout<<"number is
prime";}("pause");0;
}
Практична робота 6. "Програми для роботи з масивами
даних"
Завдання 6.1
Дано масив з N цілих чисел. Написати програму, яка змінить масив таким чином, щоб
спочатку розміщювались всі числа, що не дорівнюють нулю, а в кінці нулі.
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"
#include "string.h"_tmain(int argc, _TCHAR* argv[])
{n=0,N=0;<<"n=";>>n;N=n;mas[1000];(int
i=0;i<n;i++)
{<<"mas["<<i<<"]=";>>mas[i];
}<<endl;(int i=0;i<n;i++)
{(mas[i]==0)
{
for(int l=i;l<n;l++)
{
mas[l]=mas[l+1];
} mas[n-1]=0;--n;
}
}(int i=0;i<N;i++)
{<<"mas["<<i<<"]="<<mas[i]<<endl;
//cin>>mas[i];
}("pause");0;
}
Завдання 6.2
Написати програму, яка в цілочисленому масиві знайде і виведе
на екран розмір найдовшої послідовності однакових чисел, що йдуть підряд, а
також це повторюване число.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"_tmain(int argc, _TCHAR*
argv[])
{n=0,I=1,MAX=0,NUMBER;<<"n=";>>n;mas[1000];(int
i=0;i<n;i++)
{<<"mas["<<i<<"]=";>>mas[i];
}<<endl;=mas[0];(int i=1;i<n;i++)
{(mas[i]==mas[i-1])
{I++;}
{if(I>=MAX)
{=I;=mas[i-1];=0;
}
{I=0;}
}
}<<"NUMBER="<<NUMBER<<"
MAX="<<MAX<<endl;("pause");0;
}
Завдання 6.3
Дано дві квадратні матриці A розміром NxK MxK. Обчислити матрицю C за формулою: C = 8B *A*B - A - B4
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"
#include "conio.h"_tmain(int argc, _TCHAR* argv[])
{
int
k;A[100][100];B[100][100];B28[100][100];AB28[100][100];B2[100][100];B4[100][100];C[100][100];AB4[100][100];<<"A:\n";
{for(int i=0;i<5;i++)
{(int j=0;j<5;j++)
{;[i][j]=rand()%10;<<A[i][j]<<" ";
//
cout<<"A["<<i<<"]["<<j<<"]=";
//cin>>A[i][j];
}cout<<endl;
} cout<<"\n";<<"B:\n";(int
i=0;i<5;i++)
{(int j=0;j<5;j++)
{
//cout<<"B["<<i<<"]["<<j<<"]=";
//cin>>B[i][j];;[i][j]=rand()%10;<<B[i][j]<<"
";
}cout<<endl;
} system("pause");
}<<"B2:\n";(int i=0;i<5;i++)
{(int j=0;j<5;j++)
{k=0;
for(int t=0;t<5;t++)
{
k+= B[i][t]*B[t][j];
} B2[i][j]=k; cout<< B2[i][j]<<" ";
} } cout<<endl;<<"B28:\n";(int
i=0;i<5;i++)
{(int j=0;j<5;j++)
{
B28[i][j]=B2[i][j]*8; cout<< B28[i][j]<<"
";
} cout<<"\n\n";
}<<"AB28:\n";(int i=0;i<5;i++)
{(int j=0;j<5;j++)
{k=0;(int t=0;t<5;t++)
{
k+= A[i][t]*B28[t][j];
} AB28[i][j]=k; cout<< AB28[i][j]<<" ";
} cout<<endl;
}<<endl;<<endl;cout<<"B4:\n";(int
i=0;i<5;i++)
{(int j=0;j<5;j++)
{k=0;
for(int t=0;t<5;t++)
{
k+= B2[i][t]*B2[t][j];
} B4[i][j]=k; cout<< B4[i][j]<<" ";
} cout<<endl;
}<<endl; cout<<"AB2:\n";(int
i=0;i<5;i++)
{(int j=0;j<5;j++)
{k=0;
for(int t=0;t<5;t++)
{
k+= A[i][t]*B4[t][j];
} AB4[i][j]=k; cout<< AB4[i][j]<<" ";
}} cout<<endl;cout<<"C:\n";(int
i=0;i<5;i++)
{(int j=0;j<5;j++)
{
C[i][j]= AB28[i][j]-AB4[i][j];
cout<< C[i][j]<<" ";
} cout<<endl;
}<<endl;("pause");0;}
Практична робота 7. "Програми для роботи з рядками
даних"
Завдання 7.1
Написати програму, яка буде виводити повідомлення в
телеграфному стилі: букви повинні з’являтися по одній, з деякою затримкою.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"
#include "string.h"
#include "windows.h"namespace std;_tmain(int argc,
_TCHAR* argv[])
{char ch[]="";<<"St=";(ch);n =
strlen(ch);(int i=0;i<=n;i++)
{
cout<<ch[i]<<" ";
Sleep(200);
}cout<<"\n";("pause");0;}
Завдання 7.2
Написати програму, яка вичислить значення виразу N1O1N2O2…OkNk, где N - ціле однорозрядне число, O - один із знаків найпростіших
арифметичних дій: додавання і віднімання.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"
#include "string.h"
#include "windows.h"namespace std;_tmain(int argc,
_TCHAR* argv[])
{
St[100];<<"(write number from 1 to 9 or + or
-)\nSt=";i=0;n=0;>>St;=strlen(St);s =atoi(&St[0]);(int
l=1;l<=n;l++)
{
switch(St[l])
{
case'+':{s+=atoi(&St[l+1]);i++;break;}
case'-':{s-=atoi(&St[l+1]);i++;break;}
}}<<"s="<<s<<endl;("pause");0;
}
Практична робота 8. "Створення інтерфейсу користувача стандартними подіями"
Завдання 8.1
Використовуючи компоненти ToolBar, ControlBar, PageScroller та ActionList створіть текстовий редактор "WordPad".
//---------------------------------------------------------------------------PACKAGE
TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
#include <vcl.h>
#pragma hdrstop
#include "Urichedit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{}
//---------------------------------------------------------------------------
/* TODO 2 -oСидоров -cКод : Главное меню */__fastcall
TForm1::MOpenClick(TObject *Sender)
{if (OpenDialog1->Execute())
{FName = OpenDialog1->FileName;->Lines->LoadFromFile(OpenDialog1->FileName);->Modified
= false;}}
//---------------------------------------------------------------------------__fastcall
TForm1::MSaveAsClick(TObject *Sender)
{SaveDialog1->FileName = FName;(SaveDialog1->Execute())
{FName = OpenDialog1->FileName;->Lines->SaveToFile(SaveDialog1->FileName);->Modified
= false; }}
//---------------------------------------------------------------------------__fastcall
TForm1::MFontClick(TObject *Sender)
{FontDialog1->Font->Assign(RichEdit1->SelAttributes);(FontDialog1->Execute())->SelAttributes->Assign(FontDialog1->Font);}
//---------------------------------------------------------------------------__fastcall
TForm1::MNumbClick(TObject *Sender)
{MNumb->Checked = ! MNumb->Checked;(MNumb->Checked)
RichEdit1->Paragraph->Numbering =
nsBullet;RichEdit1->Paragraph->Numbering = nsNone;
}
//---------------------------------------------------------------------------__fastcall
TForm1::MLeftClick(TObject *Sender)
{MLeft->Checked = true;->Paragraph->Alignment =
taLeftJustify;}
//---------------------------------------------------------------------------__fastcall
TForm1::MRightClick(TObject *Sender)
{MRight->Checked = true;->Paragraph->Alignment =
taRightJustify;}
//---------------------------------------------------------------------------__fastcall
TForm1::MCenterClick(TObject *Sender)
{MCenter->Checked = true;->Paragraph->Alignment =
taCenter;}
//---------------------------------------------------------------------------__fastcall
TForm1::FormCreate(TObject *Sender)
{RichEdit1->Paragraph->FirstIndent =
0;->Paragraph->LeftIndent = -
RichEdit1->Paragraph->FirstIndent;->Modified = false;}
//---------------------------------------------------------------------------__fastcall
TForm1::DisplayHint(TObject *Sender)
{}
//---------------------------------------------------------------------------__fastcall
TForm1::StatusExecute(TObject *Sender)
{->Panels->Items[0]->Text
=((int)RichEdit1->CaretPos.y+1) +
": "+IntToStr((int)RichEdit1->CaretPos.x+1);(RichEdit1->Modified)->Panels->Items[1]->Text
= "модиф.";StatusBar1->Panels->Items[1]->Text =
"";(RichEdit1->Paragraph->Alignment)
{taLeftJustify: TBLeft->Down = true;;taCenter:
TBCenter->Down = true;;taRightJustify: TBRight->Down = true;; }}
//---------------------------------------------------------------------------__fastcall
TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key,Shift)
{(Sender);
}
//---------------------------------------------------------------------------__fastcall
TForm1::RichEdit1MouseUp(TObject *Sender,Button, TShiftState Shift, int X, int
Y)
{(Sender);
}
//---------------------------------------------------------------------------__fastcall
TForm1::FormResize(TObject *Sender)
{StatusExecute(Sender);}
//---------------------------------------------------------------------------__fastcall
TForm1::MSaveClick(TObject *Sender)
{if (FName !=
"")->Lines->SaveToFile(FName);MSaveAsClick(Sender);}
//---------------------------------------------------------------------------__fastcall
TForm1::FontDialog1Apply(TObject *Sender, HWND Wnd)
{RichEdit1->SelAttributes->Assign(FontDialog1->Font);}
//---------------------------------------------------------------------------__fastcall
TForm1::MFindClick(TObject *Sender)
{ FindDialog1->FindText =
RichEdit1->SelText;->Execute();
}
//---------------------------------------------------------------------------__fastcall
TForm1::FindDialog1Find(TObject *Sender)
{FoundAt, StartPos, ToEnd;Option;*dlg = (TReplaceDialog
*)Sender;(dlg->Options.Contains(frWholeWord))<< stWholeWord;Option
>> stWholeWord;(dlg->Options.Contains(frMatchCase))<<
stMatchCase;Option >> stMatchCase;=
RichEdit1->FindText(dlg->FindText,, ToEnd, Option);(FoundAt != -1)
{ RichEdit1->SelStart = FoundAt;->SelLength =
dlg->FindText.Length();((dlg->Name ==
"ReplaceDialog1")&&(dlg->Options.Contains(frReplaceAll)))Replace(Sender);}ShowMessage("Текст
'" + dlg->FindText +
"' не найден");->SetFocus();}
//---------------------------------------------------------------------------__fastcall
TForm1::MCopyClick(TObject *Sender)
{RichEdit1->CopyToClipboard();}
//---------------------------------------------------------------------------__fastcall
TForm1::MCutClick(TObject *Sender)
{RichEdit1->CutToClipboard();}
//---------------------------------------------------------------------------__fastcall
TForm1::MPasteClick(TObject *Sender)
{RichEdit1->PasteFromClipboard();}
//---------------------------------------------------------------------------__fastcall
TForm1::MUndoClick(TObject *Sender)
{RichEdit1->Undo();}
//---------------------------------------------------------------------------__fastcall
TForm1::ReplaceDialog1Replace(TObject *Sender)
{ RichEdit1->SetFocus();(RichEdit1->SelText !=
"")
{RichEdit1->SelText = ReplaceDialog1->ReplaceText;(ReplaceDialog1->Options.Contains(frReplaceAll))->SelStart
+= ReplaceDialog1->ReplaceText.Length();}if
(ReplaceDialog1->Options.Contains(frReplace))
{ShowMessage("Текст '" +
ReplaceDialog1->FindText +
"' не найден");;}(ReplaceDialog1->Options.Contains(frReplaceAll))Find(Sender);}
//---------------------------------------------------------------------------__fastcall
TForm1::MReplaceClick(TObject *Sender)
{ ReplaceDialog1->FindText =
RichEdit1->SelText;->Execute();}
//---------------------------------------------------------------------------__fastcall
TForm1::MExitClick(TObject *Sender)
{Close();}
//---------------------------------------------------------------------------__fastcall
TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{if (RichEdit1->Modified)
{int res = MessageDlg("Текст в окне был изменен.
Сохранить его?",,() << mbYes<< mbNo << mbCancel,0);(res)
{case mrYes: MSaveClick(Sender);break;mrCancel: CanClose =
false; }}}
//---------------------------------------------------------------------------__fastcall
TForm1::MCreateClick(TObject *Sender)
{if (RichEdit1->Modified)
{int res = MessageDlg("Текст в окне был изменен.
Сохранить его?",,() << mbYes<< mbNo << mbCancel,0);(res)
{mrYes: MSaveClick(Sender);
break;mrCancel: return;
}
}->Clear();= "";
}
//---------------------------------------------------------------------------__fastcall
TForm1::MPrintSetupClick(TObject *Sender)
{->Execute();
}
//---------------------------------------------------------------------------__fastcall
TForm1::MPrintClick(TObject *Sender)
{(PrintDialog1->Execute())(int i = 1; i <=
PrintDialog1->Copies; i++)->Print("Печать PRichEdit1");
}__fastcall TForm1::ApplicationEvents1Hint(TObject *Sender)
{->Panels->Items[2]->Text = Application->Hint;
}
Практична робота 9. "Програми для роботи з власними
функціями"
Завдання 9.1
Написати програму з використання функції, яка визначає яке з
двох введених чисел має максимальну суму чисел.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"f1(int num1)
{sum1=0,sum2=0;
{
sum1+=num1%10;=num1/10;
//
cout<<"sum1="<<sum1<<"\n";
}((num1)>=1);sum1;
}_tmain(int argc, _TCHAR* argv[])
{first_num=0,second_num=0,s1=0,s2=0;<<"first_num=";>>first_num;<<"second_num=";>>second_num;=f1(first_num);=f1(second_num);
//bolean=f1(first_num,second_nim);
if(s1<s2)
{ cout<<"first sum is less then second\n";}
else
{cout<<"first sum is more then
second\n";}("pause");0;
}
Завдання 9.2
Є три стержня з номерами 1, 2,3. На першому стержні є n дисків різного діаметра, які
утворюють піраміду. Написати програму переміщень дисків зі стержня 1 на
стержень 2, використовуючи допоміжний стержень 3. Диск більшого діаметру не
повинен переміщатися на диск меньшого.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"
#include "conio.h"
// int n=0;
//cin>>n;_tmain(int argc, _TCHAR* argv[])
{
int
n=0,i=0,j,l=0,per=0;>>n;mas1[100];mas2[100];mas3[100];(i=0,j=0;i<n;j+=2,i++)
//for(int j=0;j<n*2;j+=2)
{
//randomize;[i]=j;<<mas1[i]<<" ";
}<<endl;i-=2;(l=0;l<n-1;l++)
{
mas3[l]=mas1[(n-1)-l];
cout<<mas3[l]<<" "; per++;
} cout<<endl;
mas2[0]=mas1[0];per++;
cout<<mas2[0]<<" ";
for(i=1,j=n-2;i<n;j--,i++)
{ mas2[i]=mas3[j];
cout<<mas2[i]<<" ";
per++;
}
cout<<"per="<<per<<endl;("pause");0;
}
Практична робота 10. "Програми для роботи зі структурами
даних"
Завдання 10.1
Використовуючи масив типу структура (з 6-10 елементів)
скласти програму, за допомогою якої можна ввести у пам’ять комп’ютера дані з
предметної області "Продовольчий магазин" і відібрати товари,
вартість яких меньша 10 грн. В кожній предметній області мають бути присутні
обчислювальні поля.
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"
#include "string.h"
#include "stdlib.h"str
{ double data;product_name[10];price;id_num;seller[10];tax;
}strc[10];_tmain(int argc, _TCHAR* argv[])
{strc[10];mas[100],j=0;n=0;<<"n=";>>n;(int
i = 0; i<n;i++)
{
randomize;
strc[i].data=rand()%30;
cout<<"strc.product_name["<<i<<"]=";
cin>>strc[i].product_name;
cout<<"strc.price["<<i<<"]=";
cin>>strc[i].price;
if( strc[i].price<10)
{
mas[j]=i;j++;
}
strc[i].id_num = rand()%100;
strcpy(strc[i].seller,"seller");
strc[i].tax=20*(strc[i].price/100);
for(int l = 0;l<j;l++ )
{
cout<<"data"<<strc[l].data<<" ";
cout<<"product_name["<<l<<"]="<<strc[l].product_name<<"
";
cout<<"price="<<strc[l].price<<"
";
cout<<"id="<<strc[l].id_num<<"
";
cout<<"seller="<<strc[l].seller<<"
";
cout<<"tax="<<strc[l].tax<<"
";
cout<<endl;
}
system("pause");0;
}
Практична робота 11. "Програми для роботи з
файлами"
Завдання 11.1
Модифікувати програму завдання 1 практичної роботи 6 таким чином,
щоб значення зчитувалися з текстового файлу, а результат обчислень записувався
у файл. (Реалізувати два варіанти роботи з файлами, за допомогою компонентів
вкладки Dialogs (візуальний режим роботи програми) та а допомогою директив ifstream.h, ofstream.h (консольний режим роботи програми)).
Візуальний
режим роботи програми:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button1Click(TObject *Sender)
{ Memo1->Clear();(OpenDialog1 ->
Execute())Memo1->Lines->LoadFromFile(OpenDialog1->FileName) ;
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button2Click(TObject *Sender)
{n,i=0,j=0;= Memo1->Lines->Count;->Clear();(i = 0;
i<n; i++)
{(Memo1->Lines->Strings[i]=="0")
{j++;}
{ Memo2->Lines->Add(Memo1->Lines->Strings[i]);}
}(i=0;i<j;i++)
{ Memo2->Lines->Add(0);}
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button3Click(TObject *Sender)
{(SaveDialog1 ->
Execute())Memo2->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
Консольнй режим:
#pragma hdrstop
#pragma argsused
#ifdef _WIN32
#include <tchar.h>
#elsechar _TCHAR;
#define _tmain main
#endif
#include <stdio.h>
#include "iostream.h"
#include <fstream>_tmain(int argc, _TCHAR* argv[])
{n=0,i=0,j=0;
//float a;*mas = new
int[100];F;.open("D:\\input.txt");(F)
{(!F.eof())
{>>mas[i];++;
} n=--i;
F.close();
fstream fl(ios_base::trunc);
fl.open("D:\\output.txt",ios_base::app);(i=0;i<=n;i++)
{(mas[i]!=0)
{fl<<mas[i];<<" ";}j++;
}(j!=0)
{fl<<0;j--;}.close();
}cout<<" fale is missed "<<endl;
return 0;
}
Практична робота 12. "Програми для роботи з графічної
підсистемою"
Задання 12.1
Користуючись компонентами мови програмування С++ написати
програму для виведення на екран наступних фігур.
Розміри: Фігура 1 =101 , Фігура 2 = 87, Фігура 3 = 89,
Координати Х, У=30,50.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{}
//---------------------------------------------------------------------------__fastcall
TForm1::Button1Click(TObject *Sender)
{a = 101;x =50;y =30;-> Repaint();-> Repaint();->
Canvas-> Rectangle(x,y,a+x,a+y);-> Canvas-> MoveTo(x,y);->
Canvas-> LineTo(a+x,a+y);-> Canvas-> MoveTo(a+x,y);-> Canvas->
LineTo(a-x,a+y);-> Canvas-> MoveTo((a/2)+x,y);-> Canvas->
LineTo((a/2)+x,a+y);-> Canvas-> MoveTo(a+x,(a/2)+y);-> Canvas->
LineTo(x,(a/2)+y);
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button2Click(TObject *Sender)
{a = 87;b =a/3;x =50;y =30;-> Repaint();->
Repaint();-> Canvas-> MoveTo(x,(a/4)+y);-> Canvas->
LineTo(b+x,(a/4)+y);-> Canvas-> MoveTo(x,(a/2)+y);-> Canvas->
LineTo(b+x,(a/2)+y);-> Canvas-> MoveTo(x,(a*0.75)+y);-> Canvas->
LineTo(b+x,(a*0.75)+y);-> Canvas-> Rectangle(b+x,y,b*2+x,a+y);->
Canvas-> MoveTo(b*2+x,(a/2)+y);-> Canvas-> LineTo(a+x,(a/2)+y);
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button3Click(TObject *Sender)
{double a =89;x =50;y =30;-> Repaint();->
Repaint();-> Canvas-> MoveTo(x,(a/4)+y);-> Canvas->
LineTo(x+(a/3),(a/4)+y);-> Canvas-> MoveTo(x+(2*a/3),(a/4)+y);->
Canvas-> LineTo(x+a,(a/4)+y);-> Canvas-> MoveTo(x+(a/3),y);->
Canvas-> LineTo(x+(a/3),(a/2)+y);-> Canvas-> MoveTo(x+(2*a/3),y);->
Canvas-> LineTo(x+(2*a/3),(a/2)+y);
}
//---------------------------------------------------------------------------
Завдання 12.2
Підготувати програму на мові С++ для виведення на екран двох
рядків тексту:
Software development
<Your name and surname>
Рядки вказаного тексту надрукувати двома гарнітурами, для кожної з яких задати два
різних кеглі з наступними кутами нахилу відносно горизонтальної вісі: 00,
900 .
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{}
//---------------------------------------------------------------------------__fastcall
TForm1::Button1Click(TObject *Sender)
{-> Canvas -> Rectangle(0,0,200,100);-> Canvas ->
Font -> Size = 10;-> Canvas -> Font -> Name=
"Arial";-> Canvas -> TextOutW(2,2,"Software
development");-> Canvas -> Font -> Size = 15;-> Canvas ->
Font -> Name= "Times New Roman";-> Canvas ->
TextOutW(2,22,"Zhideikina Nata");
}
//---------------------------------------------------------------------------
Завдання 12.3
Написати програму для побудови на екрані наступних фігур:
#include <vcl.h>
#pragma hdrstop
#define PI 3.1415926535897932
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{}
//---------------------------------------------------------------------------__fastcall
TForm1::Button1Click(TObject *Sender)
{double a = 50;-> Canvas ->MoveTo(100,100);-> Canvas
->LineTo(100-a*sin(36*PI/180),100-a*cos(36*PI/180));-> Canvas
->LineTo(100-a*sin(36*PI/180)+a*sin(72*PI/180),100-a*cos(36*PI/180)-a*cos(72*PI/180));->
Canvas ->LineTo(100+a+a*sin(36*PI/180),100-a*cos(36*PI/180));-> Canvas
->MoveTo(100,100);-> Canvas ->LineTo(100+a,100);-> Canvas
->LineTo(100+a+a*sin(36*PI/180),100-a*cos(36*PI/180));-> Canvas
->LineTo(100+a+a*sin(36*PI/180)+a*sin(36*PI/180),100-a*cos(36*PI/180)+a*cos(18*PI/180));->
Canvas
->LineTo(100+a+(a*sin(18*PI/180))+a*sin(72*PI/180),100+a*(cos(18*PI/180))+a*cos(72*PI/180));->
Canvas ->MoveTo(100+a,100);-> Canvas ->
LineTo(100+a+(a*sin(18*PI/180)),100+a*(cos(18*PI/180)));-> Canvas ->
LineTo(100+a+(a*sin(18*PI/180))+a*sin(72*PI/180),100+a*(cos(18*PI/180))+a*cos(72*PI/180));->
Canvas ->
LineTo(100+a+(a*sin(18*PI/180))+a*sin(72*PI/180)-a*sin(36*PI/180),100+a*(cos(18*PI/180))+a*cos(72*PI/180)+a*cos(36*PI/180));->
Canvas -> LineTo(100+a+(a*sin(18*PI/180))-(a*cos(36*PI/180)),100+a*(cos(18*PI/180))+(a*sin(36*PI/180))+a);->
Canvas -> MoveTo(100+a+(a*sin(18*PI/180)),100+a*(cos(18*PI/180)));->
Canvas ->
LineTo(100+a+(a*sin(18*PI/180))-(a*cos(36*PI/180)),100+a*(cos(18*PI/180))+(a*sin(36*PI/180)));->
Canvas -> LineTo(100+a+(a*sin(18*PI/180))-(a*cos(36*PI/180)),100+a*(cos(18*PI/180))+(a*sin(36*PI/180))+a);->
Canvas ->
LineTo(100+a+(a*sin(18*PI/180))-(a*cos(36*PI/180))-a*cos(18*PI/180),100+a*(cos(18*PI/180))+(a*sin(36*PI/180))+a-a*sin(18*PI/180));->
Canvas -> LineTo(100+a+(a*sin(18*PI/180))-2*(a*cos(36*PI/180))-a*sin(72*PI/180),100+a*(cos(18*PI/180))+a*cos(72*PI/180));->
Canvas ->
MoveTo(100+a+(a*sin(18*PI/180))-(a*cos(36*PI/180)),100+a*(cos(18*PI/180))+(a*sin(36*PI/180)));->
Canvas -> LineTo(100+a+(a*sin(18*PI/180))-2*(a*cos(36*PI/180)),100+a*(cos(18*PI/180)));->
Canvas ->
LineTo(100+a+(a*sin(18*PI/180))-2*(a*cos(36*PI/180))-a*sin(72*PI/180),100+a*(cos(18*PI/180))+a*cos(72*PI/180));->
Canvas -> LineTo(100-a*sin(36*PI/180)-a*sin(36*PI/180),100-a*cos(36*PI/180)+a*cos(18*PI/180));->
Canvas -> LineTo(100-a*sin(36*PI/180),100-a*cos(36*PI/180));-> Canvas
->
MoveTo(100+a+(a*sin(18*PI/180))-2*(a*cos(36*PI/180)),100+a*(cos(18*PI/180)));->
Canvas -> LineTo(100,100);}
//---------------------------------------------------------------------------
Практична робота 13. "Програми для роботи з глобальними
ідентифікаторами Screen, Mouse, Application"
Завдання 13.1
Створити застосування, яке:
Користуючись глобальним об’єктом Screen при своєму завантаженні
використовуватиме перевірку розміра екрана монітору і при перевищені формою
цього розміру автоматично прирівнюватиме до нього, а також виводитиме у
компонент ComboBox1 список всіх шрифтів даного
комп’ютера.
Користуючись глобальним об’єктом Mouse у StatusBar виводити поточні координати курсора
миші відносно форми та екрану, а також при натисканні на кнопку
використовуватиме реверсну зміну кнопок миші.
Користуючись властивостями компоненту ApplicationEvents при наведені мишею на
будь-якийкомпонент на формі у StatusBar виводився текст підказки закладений у властивість Hint кожного компонента.
При натисненні клавіші Num Lock, Caps Lock та Insert вивести у Statusbar стан кнопок.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{}
//---------------------------------------------------------------------------__fastcall
TForm1::FormCreate(TObject *Sender)
{>Width = this->Width > Screen->Width ?
Screen->Width : this->Width;>Height = this->Height >
Screen->Height ? Screen->Height :
this->Height;->Items->Assign(Screen->Fonts);
}
//---------------------------------------------------------------------------__fastcall
TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{POINT pos;(&pos);->Panels->Items[0]->Text =
"Экран: x=" + FloatToStr(pos.x) + " y=" +
FloatToStr(pos.y);->Panels->Items[1]->Text = "\nФорма: x=" +
FloatToStr(pos.x-Left) + \
" y=" + FloatToStr(pos.y-Top);
}
//---------------------------------------------------------------------------__fastcall
TForm1::Button1Click(TObject *Sender)
{bool b( false );( b = !b );
}
//---------------------------------------------------------------------------__fastcall
TForm1::ApplicationEvents1ActionExecute(TBasicAction *Action, bool
&Handled)
{ StatusBar1->Panels->Items[2]->Text =
Application->Hint;}
//---------------------------------------------------------------------------__fastcall
TForm1::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{(Key)
{VK_CAPITAL:->Panels->Items[3]->Text =
(::GetKeyState(VK_CAPITAL)) ? "CapsLock" :
"bbb";;VK_NUMLOCK:->Panels->Items[3]->Text =
(::GetKeyState(VK_NUMLOCK)) ? "NumLock" :
"bbb";;VK_SCROLL:->Panels->Items[3]->Text =
(::GetKeyState(VK_SCROLL)) ? "ScrollLock" : "bbb";;
}
}
//---------------------------------------------------------------------------
Практична робота 14. "Програми для роботи зі
стандартними діалоговими компонентами"
Завдання 14.1
За допомогою компонентів FontDialog, PrintDialog, PrintSetupDialog реалізувати підтримку форматованого
тексту в компоненті RichEdit з
можливістю друку його вмісту.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{}
//---------------------------------------------------------------------------__fastcall
TForm1::N1Click(TObject *Sender)
{ if (PrintDialog1->Execute()) {
Printer()->BeginDoc();
for(int i = 0;i<RichEdit1->Lines->Count;i++)
Printer()->Canvas->TextOut(100,100+(RichEdit1->Font->Size+80)*i,RichEdit1->Lines->Strings[0])
;
Printer()->EndDoc(); }}
//---------------------------------------------------------------------------__fastcall
TForm1::N3Click(TObject *Sender)
{->Execute();
}
//---------------------------------------------------------------------------__fastcall
TForm1::N2Click(TObject *Sender)
{(FontDialog1 -> Execute()) RichEdit1->Font =
FontDialog1->Font ;
}
//---------------------------------------------------------------------------
програма керування інтерфейс ідентифікатор
Практична робота 15. "Програма для роботи з аудіо- та
відео- файлами"
Завдання 15.1
Створити застосування, яке програватиме аудіо- та відео-
файли. Файли завантажуються в програму за допомогою компонента TOpenDialog.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{}
//---------------------------------------------------------------------------__fastcall
TForm1::Button1Click(TObject *Sender)
{->Close();(OpenDialog1->Execute()) {->FileName =
OpenDialog1->FileName;->Open();->Display=Panel1;->Play();
} }
//---------------------------------------------------------------------------
