42591

При натисненні на кнопку 1 змінити написання тексту деякої мітки (встановити атрібути курсив та підкреслений)

Лабораторная работа

Информатика, кибернетика и программирование

Розмістити на формі необхідні для виконання індивідуального завдання компоненти TEdit TLbel TButton. Програмний код: unit lb1; interfce uses Windows Messges SysUtils Vrints Clsses Grphics Controls Forms Dilogs StdCtrls; type TForm1 = clssTForm Button1: TButton; Button2: TButton; Edit1: TEdit; Lbel1: TLbel; procedure Button1ClickSender: TObject; procedure Button2ClickSender: TObject; privte { Privte declrtions } public { Public declrtions } end; vr Form1: TForm1;...

Украинкский

2013-10-30

66.5 KB

1 чел.

Міністерство освіти і науки, молоді та спорту України

Київська державна академія водного транспорту імені гетьмана Петра Коношевича-Сагайдачного

Звіт

По виконанню лабораторної роботи №1

З дисципліни «Основи програмування»

Виконав:

Студент І курсу

спеціальності «Програмна інженерія»

групи 1119

Харлим Сергій

Київ 2012

Завдання

1. Створити новий проект з одним головним вікном: FileNewApplication.

2. Зберігти файл проекту та файл модуля у власній директорії: FileSave Project As…

3. Змінити зовнішній вигляд форми за власним смаком:

  •  В заголовок форми додати назву групи, номер варіанту, власне прізвище та ініціали.
  •  Змінити розміри, колір та піктограму форми.

4. Розмістити на формі необхідні для виконання індивідуального завдання компоненти (TEdit, TLabel, TButton).

5. При створенні форми в мітці 1 вивести текст індивідуального завдання.

6. В редакторі коду написати необхідні процедури обробки подій, які б забезпечували необхідну функціональність додатку.

Індивідуальне завдання

15

При натисненні на кнопку 1 змінити написання тексту деякої мітки (встановити атрібути курсив та підкреслений). При натисненні на кнопку 2 в полі компоненту Edit1 вивести своє ім’я.

Програмний код:

unit laba1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

   Button1: TButton;

   Button2: TButton;

   Edit1: TEdit;

   Label1: TLabel;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption:='Text';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Label1.Caption:=Edit1.Text;

end;

end.

Результати роботи програми:


 

А также другие работы, которые могут Вас заинтересовать

14938. Мұса Жәлел 55 KB
  АСАУ ЖҮРЕК Өгей ұлың болдым ғой мен өз елім. Өлім күтіп шетте өртендіау өзегім. Өлсем қызыл гүлдер өссін қаныма Көз жасымды қабылдасынөзенің. Мұса Жәлел Берлинде Осыдан он жылдай бұрын Алматыда Ғалымдар үйінде атақты ақын Мұса Жәлелдің туғаны
14939. Отаршылдық саясаттың Түркі өркениетіне тигізген кері әсері 46.5 KB
  Тарихсыз халық тұл демекші әр халықтың өзіндік өткені жолы, даму тарихы болады. Еліміздің ұлттық тәуелсіздік алуы – қазақ халқының тарихи даму жолына қатысты жаңа көзқарастар туғызды...
14940. ҰЛТТЫҚ САНА-СЕЗІМ – ШЕКСІЗ ДҮНИЕ (Өзбекстандағы қазақтар жайында) 46.5 KB
  Нұрсұлтан Жүсіпов Өзбекстан мемлекеттік әлем тілдері университетінің докторанты филология ғылымдарының кандидаты ҰЛТТЫҚ САНАСЕЗІМ ШЕКСІЗ ДҮНИЕ Өзбекстандағы қазақтар жайында Ұлттық санасезім ұлттық патриотизм әр адамды әр халықты ұлттық ойлау қ
14941. ОРТАҚ ОТАН – ҚАЗАҚСТАН 44 KB
  Төкен ӨмірҰзақ Педагогғалым Ресей ОРТАҚ ОТАН ҚАЗАҚСТАН Қазақстан Республикасының елордасы Астана қаласының 10 жылдығына және Алаш қозғалысының 90 жылдығына орай Әлем қазақтарының рухани сұхбаты: тіл мәдениет және Алаш мұраты атты халықаралық конферен...
14942. САБАҚТАСТЫҚ Алаш идеялары және тәуелсіз Қазақстан мұраттары 56.5 KB
  САБАҚТАСТЫҚ Алаш идеялары және тәуелсіз Қазақстан мұраттары Қазақстанға Сталин жендеті Голощекин келгенше Алаш қозғалысы Алашорда өкіметі және оның серкелері туралы әредік обьективті пікірлер де айтылып отырды. Бұл ретте Ахмет Байтұрсыновтың өмірі мен қоғамд
14943. ТӘУЕЛСІЗ ҚАЗАҚСТАН МҰРАТТАРЫНЫҢ АЛАШ ИДЕЯЛАРЫМЕН САБАҚТАСТЫҒЫ 62 KB
  ТӘУЕЛСІЗ ҚАЗАҚСТАН МҰРАТТАРЫНЫҢ АЛАШ ИДЕЯЛАРЫМЕН САБАҚТАСТЫҒЫ Қазақстанға Сталин жендеті Голощекин келгенше Алаш қозғалысы Алаш орда өкіметі оның серкелері туралы әредік обьективті пікірлер де айтылып отырды. Бұл ретте Ахмет Байтұрсыновтың өмірі мен қоғамдықш
14944. Түріксой ұйымы – түркі халықтарыны мәдениетінің бірлігі 51.5 KB
  Түріксой ұйымы түркі халықтарыны мәдениетінің бірлігі Арғы тарихтың бедерінде күллі әлемге із қалдырған түркі дүниесінің бүгінгі күні де дүниежүзілік өркениетте ерекше орны бар екені белгілі. Жалауын жоғары ұстап намысын ешкімге таптатпаған ежелгі түркі халықта
14945. ҰЛТ ДАМУЫНЫҢ ЖАҢА КЕЗЕҢІ ЖӘНЕ АЛАШ МҮДДЕСІ 35 KB
  ҰЛТ ДАМУЫНЫҢ ЖАҢА КЕЗЕҢІ ЖӘНЕ АЛАШ МҮДДЕСІ Құрметті конференция қонақтары Қадірлі отандастар Біз Қазақстан Республикасы аталатын дәстүрі терең бағдары жаңа қоғамның бар мүмкіндігін экономикалық мәденирухани дамуға жұмсап келеміз. ҚР Президенті Н.Ә.Назарбае
14946. ҰЛЫБРИТАНИЯДАҒЫ ҚАЗАҚТАР ТУРАЛЫ 43 KB
  ҰЛЫБРИТАНИЯДАҒЫ ҚАЗАҚТАР ТУРАЛЫ Ұлыбританиядағы қазақтардың саны Түркиядан біраз қазақтар 1980 жылдың басынан бастап Ұлыбританияға жұмыс бабымен қоныс аудара бастаған. Олардың барлығы дерлік бұл күнде Лондонда өмір сүріп жатыр. Бұдан басқа соңғы жылдары Қытай жә