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.

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


 

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

46852. Кризис подросткового возраста. Его преодоление 31.96 KB
  Кризис подросткового возраста, является одной из актуальнейших проблем детей современного мира. Это связано с возникновением современно новых требований, предъявляемых к ним происходящими социально – экономическими преобразованиями.
46853. Определение наивыгоднейших и максимальных зазоров. Влияние основных факторов на износ 33.46 KB
  На процесс изнашивания рабочих поверхностей деталей машин оказывают влияние различные факторы которые можно разделить на две группы: 1 факторы влияющие на износостойкость деталей; 2 факторы влияющие на изнашиваемость деталей. К факторам влияющим на изнашиваемость деталей относятся: вид трения сопряженных деталей; характер и величина удельных нагрузок на поверхностях трения; относительные скорости перемещения трущихся поверхностей; форма и размер зазора между сопряженными поверхностями; условия смазки трущихся поверхностей; наличие...
46854. Государственная гражданская служба в системе государственного управления 33.49 KB
  Данное законом определение государственной службы указывает на ее сущность. Система государственной службы включает в себя следующие виды: 1 государственная гражданская служба; 2 военная служба; 3 правоохранительная служба. Государственная гражданская служба РФ вид государственной службы представляющий собой профессиональную служебную деятельность граждан РФ на должностях государственной гражданской службы РФ по обеспечению исполнения полномочий федеральных государственных органов государственных органов субъектов РФ лиц замещающих...
46857. Роль общения в психическом развитии ребенка. Влияние дефицита общения на психическое развитие ребенка 33.5 KB
  Роль общения в психическом развитии ребенка. Влияние дефицита общения на психическое развитие ребенка. Путь ребенка к вещам и к удовлетворению собственных потребностей по мнению Л. Начало его психической жизни состоит в формировании у ребенка специфически человеческой потребности в общении.
46858. Рисование. Уроки рисования. Рисование карандашом. Рисование лиц карандашом 11.89 MB
  Эти уроки рисования карандашом и этот сайт о рисовании станут для Вас основой в увлекательном процессе обучения и вы поймёте как научиться рисовать. Очень хорошо, что вся человеческая раса, каждый мужчина, женщина и дети имеют неповторимые индивидуальные черты лица. Если бы лица были одинаковыми, как бирки на баночках с томатами