Help me

[{ Roman }]

Как найти максимальное число из трёх заданных в Visual Basic
Если нетрудно пришлите мни исходник плииз



Tesla-Master@mail.ru

[ZlydenGL]

Ты что, издеваешься?

Код: Выделить всё

Dim Arr(2) as Double

Sub My()
Dim Temp As Double, I As Integer
For I=0 To 2
If Temp<Arr(I) Then Temp=Arr(I)
Next I
...
End Sub

И вообще, тебе с этим вопросом - к новичкам.

[Samovar]

Точно, добро пожаловать:
http://bbs.vbstreets.ru/viewtopic.php?t=9880&highlight=

[kazah_]

Ты что, издеваешься?

Код: Выделить всё

Dim Arr(2) as Double

Sub My()
Dim Temp As Double, I As Integer
For I=0 To 2
If Temp<Arr(I) Then Temp=Arr(I)
Next I
...
End Sub

И вообще, тебе с этим вопросом - к новичкам.

"Это тебе к новичкам идти. Ситайвнимательно и учись!

Для максимального будет


Sub My()
Dim Temp As Double, I As Integer
For I=0 To 2
If Temp>Arr(I) Then Temp=Arr(I)
Next I
...
End Sub[/code]

или
private sub my
If (a > c) And (a >= b) Then Max = a
If (b > c) And (b >= a) Then Max = b
If (c > a) And (c >= b) Then Max = c
end sub

[SHURUP]

Люди, а если нужно с наибольшей переменной произвести какие-то действия, то как получить, что-то типа указателя на эту перменную?

[tyomitch]

Люди, а если нужно с наибольшей переменной произвести какие-то действия, то как получить, что-то типа указателя на эту перменную?

Самое простое - завернуть в объект.
Если эта переменная - элемент массива, как оно чаще всего бывает, то достаточно хранить индекс.
Если это три совершенно разные и несвязанные друг с другом переменные простого типа, тогда никак.
Ну, через VarPtr и CopyMemory-то всегда можно, это не в счёт

[SHURUP]

Ну, через VarPtr и CopyMemory-то всегда можно, это не в счёт

А что это вообще за скрытые функции ObjPtr, StrPtr, VarPtr, что-то о них подробнее можно?
Так понимаю некий намек на указатели! Но инфы маловато! Желательно с примерчиками!

[tyomitch]

Всё тут: http://vbstreets.ru/VB/Articles/65973.aspx

[Andrey Fedorov]

Самое простое - завернуть в объект.

А нафига?

Просто передать ее своей функции по ссылке. Кстати, по ссылке она передается по умолчанию, если не указано ByVal...

[ZlydenGL]

Это тебе к новичкам идти. Ситайвнимательно и учись!

Для максимального будет


Sub My()
Dim Temp As Double, I As Integer
For I=0 To 2
If Temp>Arr(I) Then Temp=Arr(I)
Next I
...
End Sub[/code]

Товарисч, я могу ошибаться, но твой алгоритм выдаст не максимальное, а минимальное значение.

[tyomitch]

Самое простое - завернуть в объект.

А нафига?

Просто передать ее своей функции по ссылке. Кстати, по ссылке она передается по умолчанию, если не указано ByVal...

А если функции нет?

Выделять десяток строк в отдельную функцию обычно не проще, чем завернуть переменную в объект.

[Andrey Fedorov]

А если функции нет?

А что тогда есть-то? Ну и пользуй собственно переменную.

Выделять десяток строк в отдельную функцию обычно не проще, чем завернуть переменную в объект.

Опять-же нафига?

[tyomitch]

А если функции нет?

А что тогда есть-то? Ну и пользуй собственно переменную.

Есть три переменные - a As Long, b As Long, c As Long.
Задача - заменить наибольшую из них (x) на x * Sin(x * x)
Твои действия? Временную переменную не предлагать

Выделять десяток строк в отдельную функцию обычно не проще, чем завернуть переменную в объект.

Опять-же нафига?

А просто так:

И я оглянулся на все мои дела, которые мои руки сделали, и на труд, которым я трудился, делая их: и вот, всё – суета и томление духа, и нет от них пользы под солнцем!

[Andrey Fedorov]

Есть три переменные - a As Long, b As Long, c As Long

Вах как сложно - сделай массив из трех (или скольки угодно) переменных, найди индекс наибольшего значения и выполни над этим значением свое действие. Объекты тут даром не нужны.

[tyomitch]

Есть три переменные - a As Long, b As Long, c As Long

Вах как сложно - сделай массив из трех (или скольки угодно) переменных, найди индекс наибольшего значения и выполни над этим значением свое действие. Объекты тут даром не нужны.

Значит, ты не читал те посты, на которые отвечал

Самое простое - завернуть в объект.
Если эта переменная - элемент массива, как оно чаще всего бывает, то достаточно хранить индекс.
Если это три совершенно разные и несвязанные друг с другом переменные простого типа, тогда никак.

А если это не массив?

[Andrey Fedorov]

Ладно, завертывай все числа в объекты - я не буду возражать....

[Andrey Fedorov]

А если это не массив?

Надо вообще-то определиться ЧТО ЖЕ ЭТО ТАКОЕ И ЧТО С НИМ ДЕЛАТЬ вначале!

[tyomitch]

А если это не массив?

Надо вообще-то определиться ЧТО ЖЕ ЭТО ТАКОЕ И ЧТО С НИМ ДЕЛАТЬ вначале!

Безусловно. Я просто хотел тебе показать, зачем может понадобиться заворачивать числа в объекты.

Ещё, кстати, идея - можно завернуть в UDT (из одного поля) и работать в блоке With. Но там ограничение, что "ссылку" можно иметь всего одну.