Практична робота № 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

[@sonyapiay7724]

Спасибі, свята людина, в рай без черги!

[@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 < record: 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()

[@und6965]

Дуже велике дякую, всім в моєму класі допомогли.

[@bullsment4991]

Дякую велике,я без тебе ще мучався б да мучався

[@AVP-lg8fk]

просто спас, спасибо тебе!

[@TheDerevo]

Спасибо очень помогло!!!!

[@nastyam2383]

Большое спасибо !

[@user-ue8sc7bj5r]

огромное спасибо выручил достоин лайка!!

[@lask533]

Саня?

[@user-zq1jw2cm6c]

Доброго дня, підкажіть будь ласка, коли буде практична робота номер 9? Дуже потрібна

[@TaskInformatics]

Відео ще не опублікував, але можете переглянути за посиланнями Виконано в Lazarus kzbin.info/www/bejne/eH_QqHeHicull7s Виконано в Python kzbin.info/www/bejne/gZKqpGN-pNWgi7M

[@user-ol6zu9rs4h]

Добрий день хотіла Вас запитати коли будете виконувати практичну роботу №10 за лазарусом потрібно дуже?

[@TaskInformatics]

Відео ще не опублікував, але можете переглянути за посиланнями Задача 1 kzbin.info/www/bejne/gl6WnpiCar5od5Y Задача 2 kzbin.info/www/bejne/npOtnnWie6uDiKs Задача 3 kzbin.info/www/bejne/rnaVc6CieNKVe6M

[@lask533]

Чел, спасибо большое!

[@nace-719]

Спасибо братан выручил от души!!!

[@NN-vu6dm]

0:44

[@fgvj712]

Друже поможи будь ласка у мене немає інспектора об'єктів, з чим це можу бути пов'язано

[@TaskInformatics]

Вкладка Вигляд => Інспектор об'єктів. Або клавіша F11

[@user-dp9zu3ny4k]

Чи не могли б ви зробити цю практичну письмово в зошиті,просто у мене немає можливості створити в програмі,а в зошиті я не розумію як робити

[@TaskInformatics]

Якщо в зошиті, то перепишіть код програми. Після procedure

[@user-dp9zu3ny4k]

@@TaskInformatics Величезне дякую!

[@Crozeee]

Мені треба зробити практичну у (replit) а там цей код не працює,що робити?

[@TaskInformatics]

Думаю, що не буде працювати. В peplit яка мова програмування використовується?

[@Crozeee]

@@TaskInformatics python

[@TaskInformatics]

kzbin.info/www/bejne/nnO6ZJmqqa9pp6c

[@Crozeee]

@@TaskInformatics велике спасибі!

[@fxmiks5680]

Можете делать ссылку где скачать путон?

[@TaskInformatics]

Процес завантаження та встановлення Python можете переглянути тут kzbin.info/www/bejne/qJSUc4GXgJtjb9U

[@eweneja]

а можна 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 пікселів

[@toca_world_angelina9877]

Допоможіть будь ласка в мене чомусь воно не працює тобто не змінює колір і ширина не збільшується

[@TaskInformatics]

Скопіюйте свій код в коментар

[@TaskInformatics]

@@YariKKart В самому коді помилок немає. Видаліть рядок procedure FormCreate(Sender: TObject); Ви створили подію OnCreate а потім видалили. Але також потрібно видалити ще зверху десь приблизно в рядку 15

[@YariKKart]

@@TaskInformatics Спасибо большое!

[@user-jx7cx1ni8q]

А на phyton немає?

[@TaskInformatics]

Є kzbin.info/www/bejne/nnO6ZJmqqa9pp6c

[@user-jx7cx1ni8q]

@@TaskInformatics дякую дуже допомогли

[@Lia_l_am]

Нифига не понятно