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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

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

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

Решение