|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.10.2022, 17:54 | #1 |
Пользователь
Регистрация: 17.10.2022
Сообщений: 34
|
Помогите пожалуйста! Pascal ABCNET
Нужно написать обработчик для Button , когда условия такие задачи такие:
( Фон космоса, картинки земли и луны вставлены, добавлена кнопка ) Создайте анимацию движения месяца вокруг Земли. Для расчета координат верхнего левого угла PictureBox1, который содержит Месяц , можно использовать Параметрическое уравнение окружности: х= Rsin(t), у = Rcos(t), где R - радиус , t - параметр, меняющий свое значение от 0 до 2П |
17.10.2022, 18:01 | #2 |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
Код для кнопки:
Код:
|
17.10.2022, 18:10 | #3 |
Пользователь
Регистрация: 17.10.2022
Сообщений: 34
|
macomics, Так если бы только это, там же ещё надо сделать, чтобы оно крутилось, я это не могу понять
procedure Form1.button1_Click (sender: Object; e: EventArgs); begin Timer1.Enable := True; end; procedure Form1.Ttimer1_Tick (sender : Object; e: EventArgs); begin |
17.10.2022, 18:37 | #4 |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
По таймеру достаточно выполнять это:
Код:
Код:
|
17.10.2022, 18:54 | #5 |
Пользователь
Регистрация: 17.10.2022
Сообщений: 34
|
Помогите исправить ошибку Pascal ABCNET
Код:
Ошибка в 55 строке: Unit1.Form1.inc(55) : Неизвестное имя 'Form1_Load' Строка выглядит так: self.Load += Form1_Load; Исправление на := не помогло Последний раз редактировалось BDA; 17.10.2022 в 22:09. |
17.10.2022, 18:56 | #6 |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
Может потому, что надо объявить Form1_Load?
|
17.10.2022, 19:01 | #7 |
Пользователь
Регистрация: 17.10.2022
Сообщений: 34
|
macomics, Ещё бы знать как это объявить
|
17.10.2022, 19:03 | #8 |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
Например так:
Код:
Код:
|
17.10.2022, 19:09 | #9 |
Пользователь
Регистрация: 17.10.2022
Сообщений: 34
|
macomics, У меня истерика, какой тип
|
17.10.2022, 19:15 | #10 |
Пользователь
Регистрация: 17.10.2022
Сообщений: 34
|
macomics, Ладно, с этим разобралась, ОНИ МНЕ ОПЯТЬ ОШИБКУ ВЫБИЛИ:
Unit1.pas(30) : Неизвестное имя 'Timer1' Код:
Последний раз редактировалось BDA; 17.10.2022 в 22:09. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal ABCNET. Найти сколько зёрен поместится на шахматной доске и их вес | a_clarke | Помощь студентам | 8 | 13.10.2015 15:17 |
Помогите пожалуйста. (Pascal) | Amfetamin | Помощь студентам | 19 | 15.12.2014 23:59 |