Основне меню  

   

Реклама  

Скачуйте відеуроки для створення сайту за допомогою SMS Joomla 

реклама

 

 

   

Ми в Facebook  

Калькулятор расчета пеноблоков смотрите на этом ресурсе
Все о каркасном доме можно найти здесь http://stroidom-shop.ru
Как снять комнату в коммунальной квартире смотрите тут comintour.net
   

Реклама в мережі  

   

Статистика  

Користувачі
1
Статті
183
Перегляди статей
642247
   

Пошук по сайту  

   

Ми знаходимось тут  

   

Посібник Delphi  

ДОСТУПНИЙ ВИКЛАД,

ЦІКАВІ ПРИКЛАДИ, ВИХІДНІ КОДИ.

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 500 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Посібник по C#  

 Вивчаємо сучасну мову  програмування C# 7.0

ПРОГРАМУЄМО в VISUAL STUDIO 2017

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 1000 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Випадкове фото  

   

Наш відеоканал  

   

Відвідування сайту  

Яндекс.Метрика

 

   

Відеокурс по С++  

   

Рекомендуємо:  

   

Сайти  

Українські уроки про ІТ

Єдина Країна! Единая Страна!

 

Українські уроки про програмування

 

 
   

Проект1

Створити проект, в якому потрібно ввести радіус, в компоненті ListBox вибрати: довжина кола, площа круга чи об’єм кулі.

Після натискання кнопки "Результат" має з’явитись відповідь. Відповідь вивести в текстове поле Label.

 

 


·        Компонент ListBox

Компонент ListBox знаходиться на закладці Standart. За допомогою властивості Items (Strings) можна занести список. Натиснути кнопку (TStrings)


Для того, щоб був вибраний перший елемент списку потрібно створити подію для форми і написати такий код:ListBox1.ItemIndex:=0;

Для перевірки того, який елемент списку вибраний потрібно написати команду:

case ListBox1.ItemIndex of

0: команда

1:команда

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var R,l,S,V:real;

begin

R:=StrToFloat(Edit1.Text);

case ListBox1.ItemIndex of

0:begin l:=2*Pi*R;Label2.Caption:= FloatToStrf(l,ffNumber,6,2);end;

1:begin S:=pi*R*R;Label2.Caption:= FloatToStrf(S,ffNumber,6,2);end;

2:begin V:=3/4*pi*R*R*R; Label2.Caption:=FloatToStrf(V,ffNumber,6,2);end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

listBox1.ItemIndex:=0;

end;

 

Проект 2.

Розробити проект, в якому за допомогою компонента ComboBox можна вибрати місяць, а в Мемо буде виводитись знак зодіака.

 


 

Для ComboBox виберіть властивість Items значення Strings і занесіть місяці.

 

 

 

 

 

 

 

 

 

 

Тоді для компонента ComboBox створіть подію OnSelect (вибір із списку) і напишіть для цієї події такий код:

 

procedure TForm1.ComboBox1Select(Sender: TObject);

begin

case ComboBox1.ItemIndex of

1:Memo1.Lines.Add('Знак Зодіака КОЗЕРІГ');

2:Memo1.Lines.Add('Знак Зодіака ВОДОЛІЙ');

3:Memo1.Lines.Add('Знак Зодіака РИБИ');

4:Memo1.Lines.Add('Знак Зодіака ВАГИ');

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

ComboBox1.ItemIndex:=0;

end;

 


Додати коментар

Захисний код
Оновити

   

Поділіться з друзями

 
   

Сайт для перевірки своїх знань з програмування на сайті:http://www.quizful.net/test

Онлайн тести  для програмістів: https://proghub.ru/


 Розробка сайтів, інтернет-магазинів під ключ. Створення програмного забезпечення для обліку в магазинах,

гуртовнях, ведення власного бізнесу та інших. Написання дипломних та курсових робіт з програмування, баз даних.

 

Звертайтесь за адресою email:kuzbyt@ukr.net

 

 

© (C) Sambir, I.Kuzbyt