Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сообщить функции ? / 10 сообщений из 10, страница 1 из 1
22.04.2011, 15:52
    #37229078
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
Всем доброго дня !!!
Я сразу прошу прощения если неправильно сформулировал вопрос.

Есть функция в классе.
Как ей сообщить (или признак), что при вызове процедуры Function я хочу использовать возвращаемое ею значение .
Или наоборот, сообщить (или признак), что выполняются все действия функции, но возвращаемое значение игнорируется .

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2011, 15:56
    #37229094
Gwa
Gwa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
Valeriu,
так процедура или функция?
Это не одно и то же.
Функции пофиг будете Вы использовать возвращаемое ею значение или нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2011, 15:56
    #37229096
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
ValeriuКак ей сообщить (или признак), что при вызове процедуры Function я хочу использовать возвращаемое ею значение .
Просто добавь параметр
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Function MyFunc(a As Integer, ResultWanted As Boolean) As String

if ResultWanted Then MyFunc = "Result"

End Function

'вызовы:
t = MyFunc( 5 , True) 'хочу возвращаемое значение
Call MyFunc( 5 , False) 'не хочу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2011, 16:30
    #37229194
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
Извините, я сам затрудняюсь ответить ...

Клиент пишет ТОЛЬКО ТАК !!! :
Код: plaintext
1.
2.
3.
.....
Ret = m.cmDo("test^test", a, b, c, d)  ' первый признак
m.cmDo "test^test", a, b, c, d         ' второй признак
....

Сама функция. Как она должна среагировать на это ?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Function cmDo(Routine As String, Optional v1, Optional v2, Optional v3, _
                                   Optional v4, Optional v5, Optional v6, _
                                   Optional v7, Optional v8, Optional v9, _
                                   Optional v10, Optional v11, Optional v12)

............
'здесь в зависимости что ???? пишу или "R" или "Q"
strRes = "DO " & Routine & "~" & Par & "~" & "R" _
& "~" & strLenAll & "~" & strLen1 & "~" & strLen2 _
& "~" & strLen3 & "~" & strLen4 & "~" & strLen5 _
& "~" & strLen6 & "~" & strLen7 & "~" & strLen8 _
& "~" & strLen9 & "~" & strLen10 & "~" & strLen11 _
& "~" & strLen12 & Chr( 0 ) & Str
GTMCmd.SendData strRes

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2011, 16:33
    #37229205
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
Valeriu,

Функция не сможет узнать, каким способом ее вызвали извне. Причем, я не могу придумать причину, по какой ей необходимо было бы это знать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2011, 16:51
    #37229259
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
Функция не сможет узнать, каким способом ее вызвали извне
Я согласен с Вами, но вот что я имею.
Я начал точить свою собственную функцию на подобие старой, которая работает (сторонний поставщик)
и для которой имеется только .dll.

Там вроде так работает, но как этот момент там реализован, я понятия не имею ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2011, 17:40
    #37229355
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
Valeriudll
Там вроде так работает
Сомневаюсь.
Но пусть меня поправят старшие товарищи
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2011, 17:45
    #37229375
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
Функция никак не узнает как её вызвали.
Например имея функцию:
Код: plaintext
Public Function Test() As Long
Вызывающая функция никак не узнает вернёт ли функция конкретное число или же не вернёт ничего. Возвратится в любом случае 0, если ей явно присвоили или не присвоили. На самом деле отличие Sub от Function - грубо количество используемых параметров на стеке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2011, 17:45
    #37229377
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
ValeriuЕсть функция в классе.
Как ей сообщить (или признак), что при вызове процедуры Function я хочу использовать возвращаемое ею значение .
Или наоборот, сообщить (или признак), что выполняются все действия функции, но возвращаемое значение игнорируется А ты можешь объяснить зачем это нужно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2011, 17:47
    #37229381
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сообщить функции ?
Примеры вызовов.
Код: plaintext
1.
2.
3.
Call Test 'Вернёт значение, но никуда не запишется()
Test 'Вернёт значение но никуда не запишется.
MsgBox(Test) 'Вернёт значение, и передастся как параметр в функцию MsgBox
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сообщить функции ? / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 478ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158776]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 335ms
total:  478ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]