Имитация движения жидкости в трубе

@weitraks · Регистрация: 13.10.2013

Студворк — интернет-сервис помощи студентам

Изображение в окне приложения должно имитировать движение жидкости в трубе. Окно настройки параметров трубы появляется после двойного «клика» на области ее изображения.
Элементы управления окна настройки должны предоставляют возможность управлять следующими параметрами трубы :
• ориентация (вертикальная или горизонтальная);
• геометрические размеры (диаметр и длина), в условных единицах;
• параметры жидкости – скорость течения и цвет в условных единицах;
• направление течения жидкости выбирается с использованием кнопок «влево», «вправо», «вверх», «вниз», но с учетом предыдущего выбора ориентации трубы, причем, если выбрана вертикальная ориентация, кнопки «влево», «вправо» становятся неактивными.
Визуально перемещению жидкости, в том числе и с учетом скорости и направления ее движения, должно соответствовать перемещение элементов штриховки трубы.
помогите ошибку исправить с " elline"
код уже есть со всем но не могу от ошибки избавится,может упустил что то...

SoftIce · 20.05.2015, 20:53

weitraks, это Ваш проект? Очень много ошибок.

SoftIce · 20.05.2015, 21:10

Вот, устранил штук 50 ошибок (синтаксических,отсутствие нужных объектов, наличие выдуманных апи функций и т.д.)
Проект задышал, но через раз

. Там еще работы - непочатый край.

@weitraks · 20.05.2015, 21:16 **[ТС]**

да ошибак не мало... я так сказать кусочками его клеил,так как сам не очень смекаю как делать всё... план действий составить могу, но сходу что то писать для меня пока сложно(
спс вам

@weitraks · 25.05.2015, 18:37 **[ТС]**

блин вертикальное положение трубы с учётом выбора размеров никак не могу сделать, постояноо рисунок разлетается за границы рамки(

@weitraks · 02.06.2015, 12:04 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Option Explicit
Private Sub Form_DblClick()
fParam.Visible = True ' видимость формы
fTrub.Visible = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub
Public Sub Form_Load()
Dim rComb As Long, rnew As Long
Dim brFrame As Long, brPaint As Long
If m = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf m = 2 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
Me.AutoRedraw = True ' сохранение графики
elline(0).Height = 5
elline(0).Width = 615
a_X(0) = 1100 + q
elline(0).Top = a_X(0) 'X
a_Y(0) = 1000 + q
elline(0).Left = a_Y(0) + q  'y
For i = 1 To n 'цикл, выводящий массив обьектов
Load elline(i) ' загрузка Shape1
With elline(i) ' блок для установки свойств объекта  elline(i)
 
.Visible = True
.Shape = 4
.Height = 5
.Width = 400
a_Y(i) = 200
a_Y(i) = (a_Y(i - 1)) + q ' расположение частиц
elline(i).Top = elline(i - 1).Top + 55
elline(i).Left = (a_X(i)) + Rnd * 2800
 
End With
Next i
rComb = CreateRoundRectRgn(100 - dia * 2, 50, 230 + dia * 2, 120 + dl * 2, 80, 30)
rnew = CreateEllipticRgn(100 - dia * 2, 50, 230 + dia * 2, 70)
brPaint = CreateSolidBrush(vbYellow)
brFrame = CreateSolidBrush(1)
FillRgn fTrub.hdc, rComb, brPaint
FrameRgn fTrub.hdc, rComb, brFrame, 1, 2
FillRgn fTrub.hdc, rnew, brPaint
FrameRgn fTrub.hdc, rnew, brFrame, 1, 2
End Sub
 
Private Sub Timer1_Timer() ' таймер движения
End Sub
 
Private Sub Timer2_Timer() ' таймер движения
For i = 0 To n
With elline(i)
 .Move .Left - sp, .Top
If .Left < 1100 Then .Left = 2800
If .Left > 2800 Then .Left = 1100
End With
Next i
End Sub

помогите таймер написать для движения вверх и вниз
влево и вправо есть а с верхом не знаю

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Timer2_Timer() ' таймер движения
For i = 0 To n
With elline(i)
 .Move .Left - sp, .Top
If .Left < 1100 Then .Left = 2800
If .Left > 2800 Then .Left = 1100
End With
Next i
End Sub

@Alex77755 · 02.06.2015, 20:35

Движение вверх вниз показал как можно сделать
А уж привязку к диаметру и длине трубы сам дерзай

@weitraks · 02.06.2015, 20:59 **[ТС]**

да это уж сделаю
спасибо большое

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.05.2015, 20:53
	weitraks, это Ваш проект? Очень много ошибок. 0

@weitraks 0 / 0 / 2 Регистрация: 13.10.2013 Сообщений: 66
	20.05.2015, 21:16 [ТС]
	да ошибак не мало... я так сказать кусочками его клеил,так как сам не очень смекаю как делать всё... план действий составить могу, но сходу что то писать для меня пока сложно( спс вам 0

@weitraks 0 / 0 / 2 Регистрация: 13.10.2013 Сообщений: 66
	25.05.2015, 18:37 [ТС]
	блин вертикальное положение трубы с учётом выбора размеров никак не могу сделать, постояноо рисунок разлетается за границы рамки( 0

@weitraks 0 / 0 / 2 Регистрация: 13.10.2013 Сообщений: 66
	02.06.2015, 20:59 [ТС]
	да это уж сделаю спасибо большое 0

Имитация движения жидкости в трубе

Решение