Релиб / Программирование / VBA / Результат выполнения функции / Latest Posts

RE: Результат выполнения функции

Well78 — Thu, 10 May 2007 11:43:16 GMT

[quote][b]mmos (10.05.2007)[/b][hr]Я, конечно, тоже могу ошибаться. И в любом случае не претендую на абсолютную истину. Однако НЕ ПОЛУЧИТСЯ у тебя то, что ты задумал, ибо функция может вернуть ТОЛЬКО значение! Откажись от идеи использования функции и всё пойдёт нормально.

Если найдёшь решение проблемы с помощью функции, то во-первых буду очень рад за тебя, а во-вторых за себя потому что буду знать больше.

Желаю успехов.[/quote]

Уже сделал с помощью функции, которая возвращает "координаты" того самого куска где необходимо внести изменения. Коряво на мой взгляд, но во-первых не загромождает код и делает его прозрачным. Повторюсь еще раз: для этой задачи такое решение ни к чему. Это неплохой выход в ситуации, когда переменная MyVar содержит сложную структуру. В моем приложении это фактически дерево, содержащее массивы. И для изменения какого-либо атрибута в ней писать отдельную функцию, содержащую проход этого самого дерева нецелесообразно. Лучше выделить для этой цели отдельную функцию раз уж VB не поддерживает ссылки. Для этого куска кода, который я выложил это выглядело бы так:

Private Type CharacterType
Id As Long
ChName As String
End Type

Private Type MyType
Id As String
ArOfCharacters() As CharacterType
End Type

Private Type Coord
IdInd As Long
ChIdInd As Long
End Type

Dim MyVar() As MyType
'Возвращает кусок глобальной переменной
Private Function GetCharacter(Id, ChId) As Coord
GetCharacter.IdInd = -1
GetCharacter.ChIdInd = -1
For i = LBound(MyVar) To UBound(MyVar)
If MyVar(i).Id = Id Then
For j = LBound(MyVar(i).ArOfCharacters) To UBound(MyVar(i).ArOfCharacters)
If MyVar(i).ArOfCharacters(j).Id = ChId Then
GetCharacter.IdInd = i
GetCharacter.ChIdInd = j
Exit Function
End If
Exit Function
Next j
End If
Next i
End Function
'Процедура замены атрибута ChName у заданного элемента глобальной переменной
Private Function RenameElement(Id, ChId, NewName) As Boolean
RenameElement = False
With GetCharacter(Id, ChId) 'Функция возвращает координаты куска глобальной переменной
If .IdInd <> -1 Then
MyVar(.IdInd).ArOfCharacters(.ChIdInd).ChName = NewName 'Изменяю атрибут у куска глобальной переменной
End If
End With
End Function
Private Sub OkButton_Click()
'Изменяем значение выбранного элемента в списке CharactersListBox
CharactersListBox.List(CharactersListBox.ListIndex) = RenameCharacterTextBox.Text
'Отображаем эти изменения в структуре данных
Flazhok = RenameElement(ItemsListBox.ListIndex, CharactersListBox.ListIndex, RenameCharacterTextBox.Text)
End Sub

RE: Результат выполнения функции

mmos — Thu, 10 May 2007 09:26:03 GMT

Я, конечно, тоже могу ошибаться. И в любом случае не претендую на абсолютную истину. Однако НЕ ПОЛУЧИТСЯ у тебя то, что ты задумал, ибо функция может вернуть ТОЛЬКО значение! Откажись от идеи использования функции и всё пойдёт нормально.

Желаю успехов.

RE: Результат выполнения функции

Well78 — Thu, 10 May 2007 09:07:23 GMT

[quote][b]Well78 (03.05.2007)[/b][hr]Вот код - смотрите

Private Type CharacterType
id As Long
ChName As String
End Type

Private Type MyType
id As String
ArOfCharacters() As CharacterType
End Type

Dim MyVar() As MyType
'Возвращает кусок глобальной переменной
Private Function GetCharacter(id, ChId) As CharacterType
GetCharacter.ChName = "BLANK"
For i = LBound(MyVar) To UBound(MyVar)
If MyVar(i).id = id Then
For j = LBound(MyVar(i).ArOfCharacters) To UBound(MyVar(i).ArOfCharacters)
If MyVar(i).ArOfCharacters(j).id = ChId Then
GetCharacter = MyVar(i).ArOfCharacters(j)
Exit Function
End If
~~Exit Function~~
Next j
Exit Function
End If
Next i
End Function
'Процедура замены атрибута ChName у заданного элемента глобальной переменной
Private Function RenameElement(id, ChId, NewName) As Boolean
RenameElement = False
With GetCharacter(id, ChId) 'Функция возвращает копию куска глобальной переменной, а ну жна ссылка на него
If .ChName <> "BLANK" Then
.ChName = NewName 'Изменяю атрибут у копии куска глобальной переменной, а не у нее самой
End If
End With
End Function[/quote]

Да, выход из функции должен быть пониже, немного ошибся. Значит так. Код, какой бы ни был - всего лишь пример, может быть и не очень удачный. Думаете вам будет легче если я выложу все реальные типы данных, формирующие мою переменную? Ну получится 3 экрана кода. Здесь мне нужно всего лишь получить функцией GetCharacter ссылку на кусок переменной и все. Конечно можно вообще без нее обойтись - в данном случае. В моем случае нельзя - получится немерянное количество кода, который будет непрозрачен, что в конечном счете приведет к бардаку и поиску трудноуловимых багов.

RE: Результат выполнения функции

prosto — Fri, 04 May 2007 14:56:22 GMT

2 Well78

К сожалению приведенный Вами код как мне представляется неверен. Цикл в цикле и независимо ни от чего - Exit Function!!! То есть проходов по элементам массива фактически не выполняется.

RE: Результат выполнения функции

mmos — Fri, 04 May 2007 14:44:43 GMT

До обеда написал тебе довольно много чего критического, но сообщение пропало. Повторяться не буду. Посмотри на мой код и подумай: не хочешь ли ты получить что-то похожее. Обрати внимание, что для доступа к чати сложной переменной я не использую функции. Честно говоря, я даже не представляю, как их можно было бы здесь использовать. Если твоя задача не похожа на мой пример, то укажи чем именно. По твоему коду я ничегошеньки не понял, кроме одного - он неоправдано сложен и запутан.

[code]

Type MyType
L As Long
S As String
End Type

Type MyComplexType
L As Long
A(1 To 8) As MyType
End Type

Dim MySuperArray(1 To 5) As MyComplexType

Sub Main()
Dim i As Integer, j As Integer
For i = 1 To 5
MySuperArray(i).L = i
For j = 1 To 8
MySuperArray(i).A(j).L = j
MySuperArray(i).A(j).S = "Значение элемента №" & j
Next j
Next i
MsgBox MySuperArray(3).L
MsgBox MySuperArray(3).A(7).L
MsgBox MySuperArray(3).A(7).S
MySuperArray(3).A(7).S = "Изменённое значение элемента №7"
MsgBox MySuperArray(3).A(7).S
End Sub
[/code]

RE: Результат выполнения функции

Well78 — Fri, 04 May 2007 11:50:09 GMT

Пожалуйста - вот обработчик кнопочки "Ок":

Private Sub OkButton_Click()
'Изменяем значение выбранного элемента в списке CharactersListBox
CharactersListBox.List(CharactersListBox.ListIndex) = RenameCharacterTextBox.Text
'Отображаем эти изменения в структуре данных
Flazhok = RenameElement(ItemsListBox.ListIndex, CharactersListBox.ListIndex, RenameCharacterTextBox.Text)
End Sub

Вопросы типа - почему и зачем так сделано будут излишни. Я просто смоделировал подобную ситуацию. На мой код форума не хватит и никто в нем разбираться не будет.

Небольшое пояснение: структура данных содержит информацию об индексах и значениях списков ItemListBox и CharactersListBox. По кнопке "Ок" в список CharactersListBox в выделенный элемент списка заносится значение из RenameCharacterTextBox и это изменение вносится в структуру данных.

RE: Результат выполнения функции

mmos — Fri, 04 May 2007 11:30:08 GMT

В приведенном коде не хватает процедуры, из которой вызываются твои функции. А это место и представляет наибольший интерес. Если это не очень тебя затруднит...

RE: Результат выполнения функции

Well78 — Thu, 03 May 2007 11:03:41 GMT

Вот код - смотрите

Private Type CharacterType
id As Long
ChName As String
End Type

Private Type MyType
id As String
ArOfCharacters() As CharacterType
End Type

Dim MyVar() As MyType
'Возвращает кусок глобальной переменной
Private Function GetCharacter(id, ChId) As CharacterType
GetCharacter.ChName = "BLANK"
For i = LBound(MyVar) To UBound(MyVar)
If MyVar(i).id = id Then
For j = LBound(MyVar(i).ArOfCharacters) To UBound(MyVar(i).ArOfCharacters)
If MyVar(i).ArOfCharacters(j).id = ChId Then
GetCharacter = MyVar(i).ArOfCharacters(j)
Exit Function
End If
Exit Function
Next j
End If
Next i
End Function
'Процедура замены атрибута ChName у заданного элемента глобальной переменной
Private Function RenameElement(id, ChId, NewName) As Boolean
RenameElement = False
With GetCharacter(id, ChId) 'Функция возвращает копию куска глобальной переменной, а ну жна ссылка на него
If .ChName <> "BLANK" Then
.ChName = NewName 'Изменяю атрибут у копии куска глобальной переменной, а не у нее самой
End If
End With
End Function

RE: Результат выполнения функции

mmos — Fri, 27 Apr 2007 12:38:03 GMT

Суть в общем понятна, но есть много вопросов по деталям. Выложи код (хотя бы ключевые фрагменты). Где и как описана переменная? Откуда и как вызывается функция? что она делает с переменной? Как должен использоваться результат её работы?

RE: Результат выполнения функции

Well78 — Fri, 27 Apr 2007 12:15:26 GMT

В-общем указателей в VB нет. Я этого не знал.

Короче задача такая: есть переменная, созданная на основе собственного типа данных, который достаточно сложен и разветвлен. Есть функция, которая на выходе выдает кусок этой переменной. Мне нужно: получить доступ к этому куску и изменить в нем некоторые значения.

В VB указатели используются исключительно при передаче переменных в функции и процедуры с помощью служебного слова ByRef. Функция всегда возвращает не ссылку на переменную, а ее копию. В-общем буду что-нибудь кривое делать. Мыслишки кое-какие есть.