Урок 33. Основні компоненти програми з графічним інтерфейсом

Задача 1. Кнопка, яка змінює текст

Умова: Створити програму, в якій є кнопка. При натисканні на кнопку текст на ній змінюється.

Python (Tkinter):

python

Копіювати код

import tkinter as tk

def change_text():

    button.config(text="Текст змінено!")

# Створення вікна

root = tk.Tk()

root.title("Кнопка")

# Додавання кнопки

button = tk.Button(root, text="Натисни мене", command=change_text)

button.pack(pady=20)

# Запуск програми

root.mainloop()

Lazarus:

Алгоритм створення проєкту:

1. Створіть нову форму.

2. Розмістіть компонент TButton на формі.

3. Встановіть властивість Caption кнопки на "Натисни мене".

4. У події OnClick кнопки додайте код для зміни тексту.

pascal

Копіювати код

procedure TForm1.Button1Click(Sender: TObject);

begin

  Button1.Caption := 'Текст змінено!';

end;

Задача 2. Поле введення тексту і кнопка

Умова: Створити програму, в якій є текстове поле для введення тексту та кнопка. При натисканні на кнопку виводиться текст, який ввів користувач.

Python (Tkinter):

python

Копіювати код

import tkinter as tk

def show_text():

    output_label.config(text="Введений текст: " + input_entry.get())

# Створення вікна

root = tk.Tk()

root.title("Поле введення")

# Текстове поле

input_entry = tk.Entry(root, width=30)

input_entry.pack(pady=10)

# Кнопка

button = tk.Button(root, text="Показати текст", command=show_text)

button.pack(pady=10)

# Поле для виводу

output_label = tk.Label(root, text="")

output_label.pack(pady=10)

# Запуск програми

root.mainloop()

Lazarus:

Алгоритм створення проєкту:

1. Створіть нову форму.

2. Додайте компоненти TEdit (текстове поле), TButton (кнопка) і TLabel (поле для виводу тексту).

3. У події OnClick кнопки реалізуйте логіку відображення тексту.

pascal

Копіювати код

procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption := 'Введений текст: ' + Edit1.Text;

end;

Задача 3. Лічильник кліків

Умова: Створити програму, яка рахує, скільки разів користувач натиснув на кнопку, і виводить кількість натискань.

Python (Tkinter):

python

Копіювати код

import tkinter as tk

count = 0

def count_clicks():

    global count

    count += 1

    label.config(text=f"Кількість натискань: {count}")

# Створення вікна

root = tk.Tk()

root.title("Лічильник кліків")

# Кнопка

button = tk.Button(root, text="Натисни мене", command=count_clicks)

button.pack(pady=10)

# Поле для відображення результату

label = tk.Label(root, text="Кількість натискань: 0")

label.pack(pady=10)

# Запуск програми

root.mainloop()

Lazarus:

Алгоритм створення проєкту:

1. Створіть нову форму.

2. Додайте компоненти TButton (кнопка) і TLabel (для відображення результату).

3. Додайте змінну для лічильника кліків у код форми.

4. У події OnClick кнопки реалізуйте збільшення лічильника.

pascal

Копіювати код

var

  ClickCount: Integer;

procedure TForm1.Button1Click(Sender: TObject);

begin

  Inc(ClickCount);

  Label1.Caption := 'Кількість натискань: ' + IntToStr(ClickCount);

end;

initialization

begin

  ClickCount := 0;

end;

Задача 1. Виведення тексту при натисканні кнопки

Python (Tkinter):

python

Копіювати

import tkinter as tk  # Імпортуємо бібліотеку tkinter для створення графічного інтерфейсу

def say_hello():  # Оголошуємо функцію say_hello

    label.config(text="Привіт, світ!")  # Змінюємо текст мітки на "Привіт, світ!"

root = tk.Tk()  # Створюємо головне вікно програми

root.title("Привітання")  # Встановлюємо заголовок вікна "Привітання"

button = tk.Button(root, text="Натисни мене", command=say_hello)  

# Створюємо кнопку з текстом "Натисни мене", яка викликає функцію say_hello при натисканні

button.pack(pady=10)  # Розміщуємо кнопку у вікні та додаємо відступ у 10 пікселів по вертикалі

label = tk.Label(root, text="")  

# Створюємо мітку для виводу тексту (поки що текст порожній)

label.pack(pady=10)  # Розміщуємо мітку у вікні та додаємо відступ у 10 пікселів по вертикалі

root.mainloop()  # Запускаємо основний цикл програми, щоб відобразити вікно

Lazarus:

pascal

Копіювати

procedure TForm1.Button1Click(Sender: TObject);  

// Оголошуємо процедуру обробки події для кнопки (виконується при натисканні)

begin

  Label1.Caption := 'Привіт, світ!';  

  // Змінюємо текст мітки (Label1) на "Привіт, світ!"

end;

Алгоритм створення в Lazarus:

1. Форма: створіть форму.

2. Компоненти: додайте кнопку (TButton) і мітку (TLabel).

3. Подія кнопки: у властивостях кнопки встановіть обробник події OnClick і напишіть код.

Задача 2. Лічильник кліків

Python (Tkinter):

python

Копіювати

import tkinter as tk  # Імпортуємо бібліотеку tkinter для створення графічного інтерфейсу

count = 0  # Оголошуємо глобальну змінну count, що зберігає кількість натискань

def count_clicks():  # Оголошуємо функцію count_clicks

    global count  # Декларуємо, що змінна count є глобальною

    count += 1  # Збільшуємо значення змінної count на 1

    label.config(text=f"Кількість натискань: {count}")  

    # Змінюємо текст мітки, додаючи кількість натискань

root = tk.Tk()  # Створюємо головне вікно програми

root.title("Лічильник кліків")  # Встановлюємо заголовок вікна "Лічильник кліків"

button = tk.Button(root, text="Натисни мене", command=count_clicks)  

# Створюємо кнопку, яка викликає функцію count_clicks при натисканні

button.pack(pady=10)  # Розміщуємо кнопку у вікні з відступом 10 пікселів

label = tk.Label(root, text="Кількість натискань: 0")  

# Створюємо мітку з початковим текстом "Кількість натискань: 0"

label.pack(pady=10)  # Розміщуємо мітку у вікні з відступом 10 пікселів

root.mainloop()  # Запускаємо основний цикл програми

Lazarus:

pascal

Копіювати

var

  ClickCount: Integer;  

  // Оголошуємо змінну ClickCount для зберігання кількості натискань

procedure TForm1.Button1Click(Sender: TObject);  

// Процедура обробки події натискання кнопки

begin

  Inc(ClickCount);  

  // Збільшуємо значення змінної ClickCount на 1

  Label1.Caption := 'Кількість натискань: ' + IntToStr(ClickCount);  

  // Встановлюємо текст мітки як "Кількість натискань: " + значення ClickCount

end;

initialization

  ClickCount := 0;  

  // Ініціалізуємо змінну ClickCount значенням 0 при запуску програми

Алгоритм створення в Lazarus:

1. Форма: створіть форму.

2. Компоненти: додайте кнопку (TButton) і мітку (TLabel).

3. Подія кнопки: у властивостях кнопки встановіть обробник події OnClick і напишіть код.

Задача 3. Виведення тексту з текстового поля

Python (Tkinter):

python

Копіювати

import tkinter as tk  # Імпортуємо бібліотеку tkinter

def show_text():  # Оголошуємо функцію show_text

    output_label.config(text="Введений текст: " + input_entry.get())  

    # Змінюємо текст мітки, додаючи текст із текстового поля

root = tk.Tk()  # Створюємо головне вікно програми

root.title("Виведення тексту")  # Встановлюємо заголовок вікна

input_entry = tk.Entry(root, width=30)  

# Створюємо текстове поле для введення тексту, ширина 30 символів

input_entry.pack(pady=10)  # Розміщуємо текстове поле у вікні

button = tk.Button(root, text="Відобразити текст", command=show_text)  

# Створюємо кнопку, яка викликає функцію show_text при натисканні

button.pack(pady=10)  # Розміщуємо кнопку у вікні

output_label = tk.Label(root, text="")  

# Створюємо мітку для відображення введеного тексту (поки що текст порожній)

output_label.pack(pady=10)  # Розміщуємо мітку у вікні

root.mainloop()  # Запускаємо основний цикл програми

Lazarus:

pascal

Копіювати

procedure TForm1.Button1Click(Sender: TObject);  

// Процедура обробки події натискання кнопки

begin

  Label1.Caption := 'Введений текст: ' + Edit1.Text;  

  // Встановлюємо текст мітки як "Введений текст: " + текст із текстового поля

end;

Алгоритм створення в Lazarus:

1. Форма: створіть форму.

2. Компоненти: додайте текстове поле (TEdit), кнопку (TButton) і мітку (TLabel).

3. Подія кнопки: у властивостях кнопки встановіть обробник події OnClick і напишіть код.