42594

Основи програмування

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

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

На формі знаходится одна група залежних та одна група незалежних перемикачів. В групі залежних перемикачів знаходяться три значення: іспит, залік, курсовий проект. В іншій групі знаходяться назви дисциплін поточного семестру. При виборі користувачем одного з значень залежних перемикачів (іспит чи залік) встановити прапорці біля відповідних дисциплін.

Русский

2013-10-30

69.5 KB

1 чел.

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

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

Звіт

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

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

Виконав:

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

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

групи 1119

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

Київ 2012

Завдання

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

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

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

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

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

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

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

15

На формі знаходится одна група залежних та одна група незалежних перемикачів. В групі залежних перемикачів знаходяться три значення: іспит, залік, курсовий проект. В іншій групі знаходяться назви дисциплін поточного семестру. При виборі користувачем одного з значень  залежних перемикачів (іспит чи залік) встановити прапорці біля відповідних дисциплін.

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

unit laba2;

interface

uses

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

 Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

   RadioButton1: TRadioButton;

   RadioButton2: TRadioButton;

   RadioButton3: TRadioButton;

   CheckBox1: TCheckBox;

   CheckBox2: TCheckBox;

   CheckBox3: TCheckBox;

   procedure RadioButton1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.checked=true then Checkbox1.checked:=true;

if RadioButton1.checked=false then Checkbox1.checked:=false;

if RadioButton2.checked=true then Checkbox2.checked:=true;

if RadioButton2.checked=false then Checkbox2.checked:=false;

if RadioButton3.checked=true then Checkbox3.checked:=true;

if RadioButton3.checked=false then Checkbox3.checked:=false;

end;

end.

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


 

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

39451. ОПИСАНИЕ ПРИНЦИПА СТРУКТУРНОЙ ЭЛЕКТРИЧЕСКОЙ СХЕМЫ УСТРОЙСТВА СДВИГА ДВОИЧНЫХ ЧИСЕЛ 369.29 KB
  Операция сдвига широко используется в современной вычислительной технике для реализации умножения деления нормализации двоичных чисел с плавающей точкой и т. Поэтому даже в самых ранних ЭВМ использовались так называемые сдвигающие регистры. Такие регистры применяются и в новейших машинах но наряду с ними стали использоваться и комбинационные многоразрядные программируемые сдвигатели Целью данного курсового проекта является формирование начальных умений и навыков самостоятельного проектирования цифровых устройств углубление и...
39452. Создание ЦЛП на направлении Витебск – Бегомль – Лепель 348 KB
  В состав аппаратуры ИКМ120 входят: оборудование вторичного временного группооброзования ВВГ оконечное оборудование линейного тракта ОЛТ необслуживаемые регенерационные пункты НРП а также комплект контрольноизмерительных приборов КИП таких как пульт для испытания линейных трактов и регенераторов ПИЛТ пульт настройки и проверки регенераторов ПНПР пульт измерения затухания кабельной линии ИЗКЛ. Таблица 1 – Основные параметры системы передачи Параметр Значение параметра Число организуемых каналов 120 Скорость передачи информации...
39454. Правоотношения: понятие, виды, структура 133.5 KB
  Правовые отношения, проблема их понятия и содержания является одной из фундаментальных проблем теории права и юридической науки в целом. Её значение в регулировании всех отраслей права неоспоримо
39455. Создание качественных каналов связи на направлении Витебск – Браслав – Глубокое 217 KB
  В состав аппаратуры ИКМ120 входят аналогоцифровое оборудование формирования стандартных первичных цифровых потоков АЦО оборудование вторичного временного группообразования ВВГ оконечное оборудование линейного тракта ОЛТ необслуживаемые регенерационные пункты НРП. Оконечное оборудование линейного тракта обеспечивает согласование выхода оборудования ВВГ с линейным трактом дистанционное питание НРП телеконтроль и сигнализацию о состоянии линейного тракта служебную связь между оконечными и промежуточными...
39456. Цифровое представление и цифровая обработка информации с применением средств вычислительной техники 352 KB
  кабель прокладываемый вдоль данной автомобильной дороги и необслуживаемыерегенерационные пункты НРП.2 Расчет длин регенерационных участков Размещение необслуживаемых регенерационных пунктов НРП вдоль кабельной ЛП осуществляется в соответствии с номинальной длиной регенерационного участка РУ для проектируемой СП. блоки линейных регенераторов в НРП не содержат искусственных линий ИЛ. Подставляя числовые значения в формулы 3 и 4 и округляя результат до целого числа определяем количество регенерационных участков: на секции ОП1ПВ:...
39457. Создание качественных каналов передачи и связи по направлению МИНСК-Барановичи-Брест 425 KB
  Расчетная частота кГц 17186 Номинальное затухание участка регенерации дБ 65 Номинальное значение тока ДП мА 200 Допустимое отклонение тока ДП мА 10 Допустимые значения напряжения ДП В 1300В650В относительно земли Максимальное расстояние ОРПОРП 200 км Максимальное число НРП между ОРП 66 Максимальное число НРП в полу секции ДП 33 Комплекс аппаратуры третичной ЦСП ИКМ480 предназначен для организации на внутризоновых и магистральной сетях связи пучков каналов по кабелю МКТ4 с парами 12 46 мм.1 Стойка оборудования линейного...
39459. Разработка рекомендаций по улучшению и совершенствованию корпоративной культуры в ООО АКБ-Сервис 1 MB
  Культура фирмы - не синоним понятия “климат”. Культура сама предполагает климат, ценности, стиль, взаимоотношения в данной организации. В ее понятие входят: некие постоянно повторяющиеся характеристики поведения людей