Розробка програмного забезпечення - Программирование, компьютеры и кибернетика отчет по практике
Програми лінійної та розгалуженої структури. Програмна реалізація функцій для роботи з датою та часом. Робота з візуальними компонентами керування. Створення інтерфейсу користувача стандартними подіями. Глобальні ідентифікатори Screen, Mouse, Application.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
заданої коефіцієнтами A 1 , B 1 , C 1 , A 2 , B 2 , C 2 , якщо відомо, що система має єдине рішення.
int _tmain(int argc, _TCHAR* argv[])
double A1, B1, C1, A2, B2, C2, x, y;
y=(((A2*C1)-(A1*C2))/((B1*A2)-(B2*A1)));
Дано три точки A, B, C на числовій вісі. Точки C розміщена між точками A і B. Знайти добуток довжин сторін AC і BC.
int _tmain(int argc, _TCHAR* argv[])
if((((XaXc)&&(Xc>Xb)))&&(((YaYc)&&(Yc>Yb))))
{ D=(sqrt(pow((Xc-Xa),2)+pow((Yc-Ya),2)))*(sqrt(pow((Xc-Xb),2)+pow((Yc-Yb),2))) ;
Практична робота 2. "Програми розгалуженої структури"
Дано тризначне число. Перевірити істинність висловлювання: "Всі цифри даного числа різні".
int _tmain(int argc, _TCHAR* argv[])
cout<<"write three-digit number\nnumber=";
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";
cout<<"three-digit number includ same numbers\n" ;
Дано ціле число, яке лежить в діпазоні 1-999. Винести його рядок - опис виду "парне двозночне число", "непарне тризначне число" і т.д.
int _tmain(int argc, _TCHAR* argv[])
cout<<"write number in the range from 1 to 999 \nnumber=";
{cout<<"you write wrong number\n";b=false;}
Практична робота 3. "Програмна реалізація функцій для роботи з датою та часом"
Використовуючи класс TDateTime (оголошенийв модулі systdate.h) розробіть застосування для роботи з датою і часом, яке демонструватиме всі можливі операції над ними.
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
TDateTime DateTime = TDateTime::CurrentDateTime();
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;}
Label2->Caption ="DateTime "+DateTime.DateTimeString();
Label3->Caption ="Date "+DateTime.DateString();
Label4->Caption ="Time "+DateTime.TimeString();
DateTime = TDateTime::FileDateToDateTime(FileAge(Application->ExeName));
Label5->Caption = "data and time of file: " + DateTime.DateTimeString();
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
TCursor OldCursor = Screen->Cursor;
TDateTime StartDateTime = TDateTime::CurrentDateTime();
TDateTime(TDateTime::CurrentDateTime().DateTimeString());
TDateTime EndDateTime = TDateTime::CurrentDateTime();
Label6->Caption = (EndDateTime - StartDateTime).TimeString();
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
static TDateTime DateTime = TDateTime::CurrentDateTime();
Label7->Caption = (DateTime++).DateTimeString();
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
static TDateTime DateTime = TDateTime::CurrentDateTime();
Label8->Caption =(DateTime += 1.125).DateTimeString();
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
Label9->Caption = TDateTime::CurrentDateTime().FormatString(DateFormat+TimeFormat);
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
Label9->Caption = TDateTime::CurrentDateTime().FormatString("dddddd:hh:nn");
Label9->Caption = TDateTime::CurrentDateTime().FormatString("ddddd:hh:nn");
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox2Click(TObject *Sender)
Label9->Caption = TDateTime::CurrentDateTime().FormatString("dd.mm.yy.hh:nn:ss");//TimeFormat = "hh:nn:ss";
Label9->Caption = TDateTime::CurrentDateTime().FormatString("dd.mm.yy.hh:nn");// TimeFormat = "hh:nn";
Практична робота 4. "Програма для роботи з візуальними компонентами керування"
За допомогою 2-х контейнерів Panel поділіть простір форми на дві частини (головна та нижня) з прив`язкою до її границь. На головній частині розмістіть кнопку Button. На нижній частині розиістіть компонент TrackBar. При зміні позицій "повзунка" TrackBar реалізуйте можливість зміни прозорості форми. При наведенні миші на кнопку Button реалізуйте можливість зміни її положення відносно форми з нможливістю виходу за межі форми.
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
//---------------------------------------------------------------------------
void __fastcall TForm2::TrackBar1Change(TObject *Sender)
Form2->AlphaBlendValue=TrackBar1->Position;
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
int t=Panel1->Height - Button1->Height;
int t2=Panel1->Width - Button1->Width;
Практична робота 5. "Програми циклічної структури"
Дано два цілі числа A і B (AB";boolean = false;}
1.Обчислити значення змінної z = . Вивести значення a, b, z.
f=(((cos((2.1*k))*sin(abs(k)))/0.15)-5.8);
f=abs(((sin(k))/(3.12))+cos(pow(k,2)));
int _tmain(int argc, _TCHAR* argv[])
cout<<"b="<Lines->LoadFromFile(OpenDialog1->FileName);
//---------------------------------------------------------------------------
void __fastcall TForm1::MSaveAsClick(TObject *Sender)
RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
//---------------------------------------------------------------------------
void __fastcall TForm1::MFontClick(TObject *Sender)
{FontDialog1->Font->Assign(RichEdit1->SelAttributes);
RichEdit1->SelAttributes->Assign(FontDialog1->Font);}
//---------------------------------------------------------------------------
void __fastcall TForm1::MNumbClick(TObject *Sender)
{MNumb->Checked = ! MNumb->Checked;
if (MNumb->Checked) RichEdit1->Paragraph->Numbering = nsBullet;
else RichEdit1->Paragraph->Numbering = nsNone;
//---------------------------------------------------------------------------
void __fastcall TForm1::MLeftClick(TObject *Sender)
RichEdit1->Paragraph->Alignment = taLeftJustify;}
//---------------------------------------------------------------------------
void __fastcall TForm1::MRightClick(TObject *Sender)
RichEdit1->Paragraph->Alignment = taRightJustify;}
//---------------------------------------------------------------------------
void __fastcall TForm1::MCenterClick(TObject *Sender)
RichEdit1->Paragraph->Alignment = taCenter;}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{RichEdit1->Paragraph->FirstIndent = 0;
RichEdit1->Paragraph->LeftIndent = - RichEdit1->Paragraph->FirstIndent;
//---------------------------------------------------------------------------
void __fastcall TForm1::DisplayHint(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::StatusExecute(TObject *Sender)
StatusBar1->Panels->Items[0]->Text =
IntToStr((int)RichEdit1->CaretPos.y+1) +
": "+IntToStr((int)RichEdit1->CaretPos.x+1);
StatusBar1->Panels->Items[1]->Text = "модиф.";
else StatusBar1->Panels->Items[1]->Text = "";
switch (RichEdit1->Paragraph->Alignment)
case taLeftJustify: TBLeft->Down = true;
case taCenter: TBCenter->Down = true;
case taRightJustify: TBRight->Down = true;
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key,
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::MSaveClick(TObject *Sender)
RichEdit1->Lines->SaveToFile(FName);
//---------------------------------------------------------------------------
void __fastcall TForm1::FontDialog1Apply(TObject *Sender, HWND Wnd)
{RichEdit1->SelAttributes->Assign(FontDialog1->Font);}
//---------------------------------------------------------------------------
void __fastcall TForm1::MFindClick(TObject *Sender)
{ FindDialog1->FindText = RichEdit1->SelText;
//---------------------------------------------------------------------------
void __fastcall TForm1::FindDialog1Find(TObject *Sender)
TReplaceDialog *dlg = (TReplaceDialog *)Sender;
if (dlg->Options.Contains(frWholeWord))
if (dlg->Options.Contains(frMatchCase))
FoundAt = RichEdit1->FindText(dlg->FindText,
RichEdit1->SelLength = dlg->FindText.Length();
if ((dlg->Name == "ReplaceDialog1")&&(dlg->Options.Contains(frReplaceAll)))
else ShowMessage("Текст '" + dlg->FindText +
//---------------------------------------------------------------------------
void __fastcall TForm1::MCopyClick(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::MCutClick(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::MPasteClick(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::MUndoClick(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)
{RichEdit1->SelText = ReplaceDialog1->ReplaceText;
if (ReplaceDialog1->Options.Contains(frReplaceAll))
RichEdit1->SelStart += ReplaceDialog1->ReplaceText.Length();}
else if (ReplaceDialog1->Options.Contains(frReplace))
{ShowMessage("Текст '" + ReplaceDialog1->FindText +
if (ReplaceDialog1->Options.Contains(frReplaceAll))
//---------------------------------------------------------------------------
void __fastcall TForm1::MReplaceClick(TObject *Sender)
{ ReplaceDialog1->FindText = RichEdit1->SelText;
//---------------------------------------------------------------------------
void __fastcall TForm1::MExitClick(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{int res = MessageDlg("Текст в окне был изменен. Сохранить его?",
TMsgDlgButtons() << mbYes<< mbNo << mbCancel,0);
{case mrYes: MSaveClick(Sender);break;
case mrCancel: CanClose = false; }}}
//---------------------------------------------------------------------------
void __fastcall TForm1::MCreateClick(TObject *Sender)
{int res = MessageDlg("Текст в окне был изменен. Сохранить его?",
TMsgDlgButtons() << mbYes<< mbNo << mbCancel,0);
//---------------------------------------------------------------------------
void __fastcall TForm1::MPrintSetupClick(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::MPrintClick(TObject *Sender)
for (int i = 1; i <= PrintDialog1->Copies; i++)
RichEdit1->Print("Печать PRichEdit1");
void __fastcall TForm1::ApplicationEvents1Hint(TObject *Sender)
StatusBar1->Panels->Items[2]->Text = Application->Hint;
Практична робота 9. "Програми для роботи з власними функціями"
Написати програму з використання функції, яка визначає яке з двох введених чисел має максимальну суму чисел.
int _tmain(int argc, _TCHAR* argv[])
int first_num=0,second_num=0,s1=0,s2=0;
{ cout<<"first sum is less then second\n";}
{cout<<"first sum is more then second\n";}
Є три стержня з номерами 1, 2,3. На першому стержні є n дисків різного діаметра, які утворюють піраміду. Написати програму переміщень дисків зі стержня 1 на стержень 2, використовуючи допоміжний стержень 3. Диск більшого діаметру не повинен переміщатися на диск меньшого.
int _tmain(int argc, _TCHAR* argv[])
Практична робота 10. "Програми для роботи зі структурами даних"
Використовуючи масив типу структура (з 6-10 елементів) скласти програму, за допомогою якої можна ввести у пам'ять комп'ютера дані з предметної області "Продовольчий магазин" і відібрати товари, вартість яких меньша 10 грн. В кожній предметній області мають бути присутні обчислювальні поля.
int _tmain(int argc, _TCHAR* argv[])
cout<<"strc.product_name["< Execute())Memo1->Lines->LoadFromFile(OpenDialog1->FileName) ;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{ Memo2->Lines->Add(Memo1->Lines->Strings[i]);}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
if(SaveDialog1 -> Execute())Memo2->Lines->SaveToFile(SaveDialog1->FileName);
//---------------------------------------------------------------------------
int _tmain(int argc, _TCHAR* argv[])
fl.open("D:\\output.txt",ios_base::app);
else cout<<" fale is missed "< Canvas-> Rectangle(x,y,a+x,a+y);
PaintBox1 -> Canvas-> LineTo(a+x,a+y);
PaintBox1 -> Canvas-> MoveTo(a+x,y);
PaintBox1 -> Canvas-> LineTo(a-x,a+y);
PaintBox1 -> Canvas-> MoveTo((a/2)+x,y);
PaintBox1 -> Canvas-> LineTo((a/2)+x,a+y);
PaintBox1 -> Canvas-> MoveTo(a+x,(a/2)+y);
PaintBox1 -> Canvas-> LineTo(x,(a/2)+y);
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
PaintBox2 -> Canvas-> MoveTo(x,(a/4)+y);
PaintBox2 -> Canvas-> LineTo(b+x,(a/4)+y);
PaintBox2 -> Canvas-> MoveTo(x,(a/2)+y);
PaintBox2 -> Canvas-> LineTo(b+x,(a/2)+y);
PaintBox2 -> Canvas-> MoveTo(x,(a*0.75)+y);
PaintBox2 -> Canvas-> LineTo(b+x,(a*0.75)+y);
PaintBox2 -> Canvas-> Rectangle(b+x,y,b*2+x,a+y);
PaintBox2 -> Canvas-> MoveTo(b*2+x,(a/2)+y);
PaintBox2 -> Canvas-> LineTo(a+x,(a/2)+y);
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
PaintBox3 -> Canvas-> MoveTo(x,(a/4)+y);
PaintBox3 -> Canvas-> LineTo(x+(a/3),(a/4)+y);
PaintBox3 -> Canvas-> MoveTo(x+(2*a/3),(a/4)+y);
PaintBox3 -> Canvas-> LineTo(x+a,(a/4)+y);
PaintBox3 -> Canvas-> MoveTo(x+(a/3),y);
PaintBox3 -> Canvas-> LineTo(x+(a/3),(a/2)+y);
PaintBox3 -> Canvas-> MoveTo(x+(2*a/3),y);
PaintBox3 -> Canvas-> LineTo(x+(2*a/3),(a/2)+y);
//---------------------------------------------------------------------------
Підготувати програму на мові С++ для виведення на екран двох рядків тексту:
Рядки вказаного тексту надрукувати двома гарнітурами, для кожної з яких задати два різних кеглі з наступними кутами нахилу відносно горизонтальної вісі: 0 0 , 90 0 .
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
PaintBox1 -> Canvas -> Rectangle(0,0,200,100);
PaintBox1 -> Canvas -> Font -> Size = 10;
PaintBox1 -> Canvas -> Font -> Name= "Arial";
PaintBox1 -> Canvas -> TextOutW(2,2,"Software development");
PaintBox1 -> Canvas -> Font -> Size = 15;
PaintBox1 -> Canvas -> Font -> Name= "Times New Roman";
PaintBox1 -> Canvas -> TextOutW(2,22,"Zhideikina Nata");
//---------------------------------------------------------------------------
Написати програму для побудови на екрані наступних фігур:
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
PaintBox1 -> Canvas ->MoveTo(100,100);
PaintBox1 -> Canvas ->LineTo(100-a*sin(36*PI/180),100-a*cos(36*PI/180));
PaintBox1 -> Canvas ->LineTo(100-a*sin(36*PI/180)+a*sin(72*PI/180),100-a*cos(36*PI/180)-a*cos(72*PI/180));
PaintBox1 -> Canvas ->LineTo(100+a+a*sin(36*PI/180),100-a*cos(36*PI/180));
PaintBox1 -> Canvas ->MoveTo(100,100);
PaintBox1 -> Canvas ->LineTo(100+a,100);
PaintBox1 -> Canvas ->LineTo(100+a+a*sin(36*PI/180),100-a*cos(36*PI/180));
PaintBox1 -> 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));
PaintBox1 -> 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));
PaintBox1 -> Canvas ->MoveTo(100+a,100);
PaintBox1 -> Canvas -> LineTo(100+a+(a*sin(18*PI/180)),100+a*(cos(18*PI/180)));
PaintBox1 -> 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));
PaintBox1 -> 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));
PaintBox1 -> 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);
PaintBox1 -> Canvas -> MoveTo(100+a+(a*sin(18*PI/180)),100+a*(cos(18*PI/180)));
PaintBox1 -> 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)));
PaintBox1 -> 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);
PaintBox1 -> 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));
PaintBox1 -> 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));
PaintBox1 -> 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)));
PaintBox1 -> Canvas -> LineTo(100+a+(a*sin(18*PI/180))-2*(a*cos(36*PI/180)),100+a*(cos(18*PI/180)));
PaintBox1 -> 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));
PaintBox1 -> Canvas -> LineTo(100-a*sin(36*PI/180)-a*sin(36*PI/180),100-a*cos(36*PI/180)+a*cos(18*PI/180));
PaintBox1 -> Canvas -> LineTo(100-a*sin(36*PI/180),100-a*cos(36*PI/180));
PaintBox1 -> Canvas -> MoveTo(100+a+(a*sin(18*PI/180))-2*(a*cos(36*PI/180)),100+a*(cos(18*PI/180)));
PaintBox1 -> Canvas -> LineTo(100,100);}
//---------------------------------------------------------------------------
Практична робота 13. "Програми для роботи з глобальними ідентифікаторами Screen, Mouse, Application"
Користуючись глобальним об'єктом Screen при своєму завантаженні використовуватиме перевірку розміра екрана монітору і при перевищені формою цього розміру автоматично прирівнюватиме до нього, а також виводитиме у компонент ComboBox1 список всіх шрифтів даного комп'ютера.
Користуючись глобальним об'єктом Mouse у StatusBar виводити поточні координати курсора миші відносно форми та екрану, а також при натисканні на кнопку використовуватиме реверсну зміну кнопок миші.
Користуючись властивостями компоненту ApplicationEvents при наведені мишею на будь-якийкомпонент на формі у StatusBar виводився текст підказки закладений у властивість Hint кожного компонента.
При натисненні клавіші Num Lock, Caps Lock та Insert вивести у Statusbar стан кнопок.
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
this->Width = this->Width > Screen->Width ? Screen->Width : this->Width;
this->Height = this->Height > Screen->Height ? Screen->Height : this->Height;
ComboBox1->Items->Assign(Screen->Fonts);
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
StatusBar1->Panels->Items[0]->Text = "Экран: x=" + FloatToStr(pos.x) + " y=" + FloatToStr(pos.y);
StatusBar1->Panels->Items[1]->Text = "\nФорма: x=" + FloatToStr(pos.x-Left) + \
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1ActionExecute(TBasicAction *Action, bool &Handled)
{ StatusBar1->Panels->Items[2]->Text = Application->Hint;}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
StatusBar1->Panels->Items[3]->Text = (::GetKeyState(VK_CAPITAL)) ? "CapsLock" : "bbb";
StatusBar1->Panels->Items[3]->Text = (::GetKeyState(VK_NUMLOCK)) ? "NumLock" : "bbb";
StatusBar1->Panels->Items[3]->Text = (::GetKeyState(VK_SCROLL)) ? "ScrollLock" : "bbb";
//---------------------------------------------------------------------------
Практична робота 14. "Програми для роботи зі стандартними діалоговими компонентами"
За допомогою компонентів FontDialog, PrintDialog, PrintSetupDialog реалізувати підтримку форматованого тексту в компоненті RichEdit з можливістю друку його вмісту.
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
for(int i = 0;iLines->Count;i++)
Printer()->Canvas->TextOut(100,100+(RichEdit1->Font->Size+80)*i,RichEdit1->Lines->Strings[0]) ;
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
if(FontDialog1 -> Execute()) RichEdit1->Font = FontDialog1->Font ;
//---------------------------------------------------------------------------
програма керування інтерфейс ідентифікатор
Практична робота 15. "Програма для роботи з аудіо- та відео- файлами"
Створити застосування, яке програватиме аудіо- та відео- файли. Файли завантажуються в програму за допомогою компонента TOpenDialog.
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
MediaPlayer1->FileName = OpenDialog1->FileName;
//---------------------------------------------------------------------------
Аналіз технічного забезпечення, вибір інструментального програмного забезпечення та середовища розробки програм. Створення класів для реалізації необхідних функцій для роботи програмного засобу. Розробка інтерфейсу для користувача та лістинг програми. курсовая работа [343,9 K], добавлен 24.08.2012
Розробка структури програмного забезпечення, загальної схеми функціонування програми. Реалізація виведення графічних зображень, роботи з шлагбаумом, загальних елементів керування та музики. Інструкція з технічного обслуговування, системного програміста. курсовая работа [3,1 M], добавлен 10.03.2009
Розв'язання задач мовою програмування VBA з використанням алгоритмів лінійної, розгалуженої та ітераційної циклічної структури. Розробка блок-схеми алгоритму, таблиці ідентифікаторів та тексту програми. Створення власної панелі інструментів користувача. практическая работа [1012,6 K], добавлен 19.02.2010
Створення програми для роботи з веб-камерою з автоматичним визначенням встановленої камери на комп'ютері. Характеристика апаратної конфігурації програми. Опис мови і середовища програмування. Розробка алгоритму
Розробка програмного забезпечення отчет по практике. Программирование, компьютеры и кибернетика.
Доклад по теме Волевые качества и их развитие
Заполнение Дневника По Производственной Практике Электрика
Экономические Кризисы В России Курсовая
Сколько Слов В Эссе Ielts
Ответ на вопрос по теме Альбом иллюстраций по истории паранджи
Доклад: Правовые реформы в психиатрии
Теоретическое наследие Дж.М. Кейнса
Реферат: Развитие инфраструктуры рынка труда в рамках информационного пространства
Курсовая работа по теме Комплекс цветной металлургии Украины
Сочинение Про Воробушка 5 Класс
Реферат: Развивающийся мозг
Эссе Почему Я Стала Воспитателем Детского Сада
Реферат по теме Налоговый кодекс, бюджетный процесс
Программа Для Оформления Рефератов
Эссе С Двумя Кнопками
Сочинение Отцы И Дети
Реферат На Тему Боль В Животе У Детей
Курсовая Выбор Вида Транспорта Шилимов Вариант 54
Реферат: Минеральные ресурсы России, Украины и Казахстана
Реферат: Банк Англии
Принципові відмінності живих систем від неживих - Биология и естествознание реферат
Специальная лексика в современной научной фантастике (на материале британской и американской литературы) - Иностранные языки и языкознание дипломная работа
Земельные правоотношения - Государство и право контрольная работа