Практична робота № 8. Проєкти, що змінюють значення властивостей вікна (Lazarus) | 8 клас | Ривкінд
8 клас. Практичні завдання з інформатики за підручником Й.Я.Ривкінда 2021 року.
Практична робота № 8. Проєкти, що змінюють значення властивостей вікна та використовують вікно повідомлень.
Виконано в Lazarus.
1. Створіть проект, під час виконання якого буде відкриватися вікно з такими значеннями властивостей:
• колір фону - сірий;
• ширина - 200 пікселів;
• висота -100 пікселів;
• відступ лівої межі -150 пікселів;
• відступ верхньої межі -100 пікселів;
• текст у рядку заголовка - Практична робота.
2. Збережіть проект у папці з іменем Практична 8, створеній у вашій папці.
3. Додайте до проекту обробник події Click для вікна, виконання якого установить червоний колір фону вікна, відступ верхньої межі вікна 200 пікселів від верхньої межі екрана, збільшить його ширину на 300 пікселів, зменшить на 50 пікселів відступ лівої межі вікна від лівої межі екрана, відкриє вікно повідомлень з текстом Ми вивчаємо програмування!.
4. Збережіть проект із тим самим іменем у тому самому місці.
5. Додайте до проекту обробник події KeyPress, виконання якого змінить колір фону вікна на синій, збільшить на 300 пікселів відступ верхньої межі вікна від верхньої межі екрана, збільшить його ширину на 200 пікселів.
6. Збережіть проект із тим самим іменем у тому самому місці.
Підтримати мою роботу: donatello.to/TaskInformatics
Підтримати мою роботу на Patreon: / taskinformatics
Пікірлер: 39
Спасибі, свята людина, в рай без черги!
@SkillSor
Ай бұрын
from tkinter import * def calculate_results(): times = [float(x) for x in entry1.get().split()] record = float(entry2.get()) best_result = min(times) label3['text'] = 'Найбільший час учасника: ' + str(best_result) label4['text'] = 'Найменший час учасника: ' + str(max(times)) k = 0 for i in times: if i == best_result: k = k + 1 label5['text'] = 'Кількість спортсменів, які показали найкращий час: ' + str(k) if best_result label6['text'] = 'Рекорд оновлено' label6['fg'] = 'green' else: label6['text'] = 'Рекорд не оновлено' label6['fg'] = 'red' root = Tk() root.title('Змагання') root.geometry('450x250+550+100') root['bg'] = 'light blue' label1 = Label(text='Введіть час учасників через пропуск:', font=('Arial', 11, 'bold'), bg='light blue') entry1 = Entry(font=('Arial', 11)) label2 = Label(text='Введіть рекорд школи:', font=('Arial', 11, 'bold'), bg='light blue') entry2 = Entry(font=('Arial', 11)) button = Button(text='Розрахувати', bg='yellow', font=('Arial', 11, 'bold'), fg='grey', command=calculate_results) label3 = Label(font=('Arial', 11, 'italic'), bg='light blue') label4 = Label(font=('Arial', 11, 'italic'), bg='light blue') label5 = Label(font=('Arial', 11, 'italic'), bg='light blue') label6 = Label(font=('Arial', 11, 'italic'), bg='light blue') label1.pack() entry1.pack() label2.pack() entry2.pack() button.pack(pady=10) label3.pack() label4.pack() label5.pack() label6.pack(pady=5) root.mainloop()
Дуже велике дякую, всім в моєму класі допомогли.
Добрий день хотіла Вас запитати коли будете виконувати практичну роботу №10 за лазарусом потрібно дуже?
@TaskInformatics
2 жыл бұрын
Відео ще не опублікував, але можете переглянути за посиланнями Задача 1 kzread.info/dash/bejne/fmFnz8eFZbybcZc.html Задача 2 kzread.info/dash/bejne/mpZ-z6Sldqm2gqw.html Задача 3 kzread.info/dash/bejne/qnlmpM-lc9DIdaQ.html
Доброго дня, підкажіть будь ласка, коли буде практична робота номер 9? Дуже потрібна
@TaskInformatics
2 жыл бұрын
Відео ще не опублікував, але можете переглянути за посиланнями Виконано в Lazarus kzread.info/dash/bejne/dIKh2aaKhMnYkbw.html Виконано в Python kzread.info/dash/bejne/fZV71ZKBn9PThbQ.html
Друже поможи будь ласка у мене немає інспектора об'єктів, з чим це можу бути пов'язано
@TaskInformatics
Жыл бұрын
Вкладка Вигляд => Інспектор об'єктів. Або клавіша F11
Чи не могли б ви зробити цю практичну письмово в зошиті,просто у мене немає можливості створити в програмі,а в зошиті я не розумію як робити
@TaskInformatics
Жыл бұрын
Якщо в зошиті, то перепишіть код програми. Після procedure
@user-dp9zu3ny4k
Жыл бұрын
@@TaskInformatics Величезне дякую!
Спасибо очень помогло!!!!
Дякую велике,я без тебе ще мучався б да мучався
Большое спасибо !
просто спас, спасибо тебе!
Спасибо братан выручил от души!!!
а можна 3-9 завданнь на сторінці 172 перед практичною номер 8?
@TaskInformatics
Жыл бұрын
Відео до завдань в кінці параграфа не створюю До завдання 6.2.3 Це майже так само як у вправі параграфа 6.2 до сьомого пункту. Тільки: 1. Колір змінюєте не на жовтий 'yellow', а на синій 'blue'. 2. В заголовок вписуєте назву свого населеного пункту root.title('назва') (це для Python, а для Lazarus змінюєте властивість Caption в Інспекторі об'єктів)
@TaskInformatics
Жыл бұрын
До завдання 6.2.6 Також майже так само як у вправі параграфа 6.2 (до сьомого пункту). Тільки: 1. Подія у вас буде Create () Колір змінюєте не на жовтий 'yellow', а на синій 'blue'. 2. Змінювати заголовок вам не потрібно 3. Потрібно ще зменшити відступ зліва на 100 пікселів. Як це зробити можна подивитися в практичній роботі 8. Там зменшується на 50 пікселів
Чел, спасибо большое!
Мені треба зробити практичну у (replit) а там цей код не працює,що робити?
@TaskInformatics
Жыл бұрын
Думаю, що не буде працювати. В peplit яка мова програмування використовується?
@Crozeee
Жыл бұрын
@@TaskInformatics python
@TaskInformatics
Жыл бұрын
kzread.info/dash/bejne/mnaLlcitpK2coag.html
@Crozeee
Жыл бұрын
@@TaskInformatics велике спасибі!
Можете делать ссылку где скачать путон?
@TaskInformatics
Жыл бұрын
Процес завантаження та встановлення Python можете переглянути тут kzread.info/dash/bejne/pJdlpLCae5mWadY.html
Допоможіть будь ласка в мене чомусь воно не працює тобто не змінює колір і ширина не збільшується
@TaskInformatics
Жыл бұрын
Скопіюйте свій код в коментар
@TaskInformatics
Жыл бұрын
@@YariKKart В самому коді помилок немає. Видаліть рядок procedure FormCreate(Sender: TObject); Ви створили подію OnCreate а потім видалили. Але також потрібно видалити ще зверху десь приблизно в рядку 15
@YariKKart
Жыл бұрын
@@TaskInformatics Спасибо большое!
огромное спасибо выручил достоин лайка!!
@lask533
2 жыл бұрын
Саня?
0:44
А на phyton немає?
@TaskInformatics
Жыл бұрын
Є kzread.info/dash/bejne/mnaLlcitpK2coag.html
@user-jx7cx1ni8q
Жыл бұрын
@@TaskInformatics дякую дуже допомогли
Нифига не понятно