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.

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


 

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

4044. Определение момента инерции диска (стержня) по его крутильным колебаниям 50.5 KB
  Определение момента инерции диска (стержня) по его крутильным колебаниям. Цель работы Целью данной работы является определение момента инерции диска (стержня) относительно оси, проходящей через центр тяжести перпендикулярно плоскости диска...
4045. Определение положения центра тяжести и момента инерции физического маятника 47.5 KB
  Определение положения центра тяжести и момента инерции физического маятника. Цель работы Целью данной работы являются: определение ускорения свободного падения при помощи математического маятника определение положения центра тяжес...
4046. Определение коэффициента внутреннего трения жидкости по методу Стокса 79 KB
  Определение коэффициента внутреннего трения жидкости по методу Стокса. Цель работы. Целью данной работы является определение коэффициента внутреннего трения (вязкости) жидкости. Рисунок. Рабочая формула: Таблица результатов и...
4047. Определение сопротивления с помощью моста Уитстона 85.5 KB
  Определение сопротивления с помощью моста Уитстона I. Цель работы – определение связи между силой тока в цепи гальванического элемента тока и падением напряжением на внешнем участке цепи. Расчет на основании этих данных величины ЭДС, внутреннег...
4048. Исследование электростатических полей методом электролитической ванны 48.5 KB
  Исследование электростатических полей методом электролитической ванны Целью данной работы является изучение электростатических полей, создаваемых заряженными проводниками различной конфигурации, путем моделирования в электролитической ванне Ри...
4049. Исследование движения электронов в электростатическом поле 33.5 KB
  Исследование движения электронов в электростатическом поле Цель работы Определение зависимости смещения электронного пучка на экране осциллографа от величины напряжения на отклоняющих пластинах. Расчет чувствительных отклоняющих пластин осцилл...
4050. Исследование апериодического разряда конденсатора. Определение емкости конденсатора 77.5 KB
  Исследование апериодического разряда конденсатора. Определение емкости конденсатора Цель работы: Определение зависимости силы тока от времени при разряде конденсатора через сопротивление. Нахождение емкости конденсатора. Рисунок Рабочие...
4051. Исследование гальванического элемента тока 253.5 KB
  Исследование гальванического элемента тока Цель работы. Целью данной работы является определение связи между силой тока в цепи гальванического элемента тока и падением напряжения на внешнем участке цепи. Расчет на основании этих данных величин...
4052. Определение удельной электрической проводимости жидкости 226 KB
  Определение удельной электрической проводимости жидкости Изучение основных характеристик электрического тока. Изучение аналогии между электростатическим полем и стационарным электрическим полем. Определение удельной электрической проводимости жидкос...