Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите / 7 сообщений из 7, страница 1 из 1
22.03.2004, 18:20
    #32451885
Помогите
Ребята, вопрос наверно выглядит немного глупо, но...
у меня есть функция Public Function FindLeastElement(ByRef a() As Double, ByVal N As Long) As Long и тд. и я хочу привязать её к форме, то есть чтобы при нажатии command1_click() выполнялась вышеуказанная функция. Как это правильно написать, подскажите плз. Заранее благодарю
...
Рейтинг: 0 / 0
22.03.2004, 18:33
    #32451905
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите
private sub command1_click()

FindLeastElement(10,20)

end sub


Ниче не понял :(

Magnus
...
Рейтинг: 0 / 0
22.03.2004, 18:36
    #32451910
мадама
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите
Код: plaintext
1.
dim x as long
x = FindLeastElement(ByRef a() As Double, ByVal N As Long) 

or

Код: plaintext
1.
2.
3.
if FindLeastElement(ByRef a() As Double, ByVal N As Long) = 1  then
     'тут можете разместить что-нибудь, что обрабатывает возвращаемое значение 
       'или ничего не размещайте
end if


or

переделайте вашу функцию как sub и вызывайте её так

Код: plaintext
call FindLeastElement(ByRef a() As Double, ByVal N As Long) 
...
Рейтинг: 0 / 0
22.03.2004, 18:39
    #32451915
мадама
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите
Ой, забыла указать, вместо a() and N подставьте свои значения
...
Рейтинг: 0 / 0
22.03.2004, 18:41
    #32451921
Помогите
Вообще, выдаёт ошибку, пишет, что ожидает знак равенства во второй строке:

Private Sub command1_Click()
FindLeastElement(10,20)

End Sub

Public Function FindLeastElement(ByRef a() As Double, ByVal N As Long) As Long
Dim Result As Long
Dim I As Long

Result = 0
For I = 1 To N - 1 Step 1
If a(Result) > a(I) Then
Result = I
End If
Next I

FindLeastElement = Result
End Function
...
Рейтинг: 0 / 0
22.03.2004, 18:44
    #32451924
Помогите
Мадама, огромное 10х )
...
Рейтинг: 0 / 0
22.03.2004, 18:45
    #32451927
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите
Ну эт я так, для примера кинул.

На самом деле надо без скобок. Со скобками это если расчитываешь получить значение.


Magnus
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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