Вопрос № 45111: Здравствуйте, Эксперты!
Дали задание в школе написать программу на Visual Basic 6. Суть ее такова, есть котел с водой, и плитка. При включении плитки вода в котле должна нагреватся, при этом надо вычислить ее текущую температуру. Сложность заключ...
Вопрос № 45.111
Здравствуйте, Эксперты!
Дали задание в школе написать программу на Visual Basic 6. Суть ее такова, есть котел с водой, и плитка. При включении плитки вода в котле должна нагреватся, при этом надо вычислить ее текущую температуру. Сложность заключается в том, что я не знаю как отобразить образование пузырьков и выход пара из котла? Знакомые сказали, что нужно использовать элемет shape, но что это я не знаю. Пожалуйста подскажите. Ниже даю ссылку для загрузки моей программы http://rapidshare.de/files/22113827/Water.rar.html
Отвечает: Miklucho
Здравствуйте, Иванов Евгений Андреевич!
На панели элементов управления есть такой компонент Shape.
У него есть cв-во Shape, которое задает геометрическую фигуру. Выбираешь окружность (т.е.Circle).
Кроме того у каждого компонента есть метод Move, с помощью которого можно перемещать элементы по форме. Если напишешь вот такое:
Option Explicit
Dim i As Single
Private Sub Form_Load()
i = 1000
End Sub
Private Sub Timer1_Timer()
i = i - 1
Shape1.Move 1000, i
End Sub
То круг будет медленно перемещаться вверх. Только на форму не забудь поставить элемент Timer и задать ему cв-во Interval равным 10.
Накидай на форму несколько Shape'ов и помести их в разные Таймеры. Это самый простой (хотя и не самый удобный) способ заставить что-либо двигаться на форме.
Ответ отправил: Miklucho (статус: Студент)
Ответ отправлен: 04.06.2006, 07:43 Оценка за ответ: 5 Комментарий оценки: OK! Но как сделать, чтобы окружность снова появлялась вначале и
повторяла тоже самое действие? в таймере интервал поставил 10, а все равно не повт
;оряет.
