Комбинирование имени процедуры

[R.I.Chernov]

Доброго времени суток, уважаемые форумчане! Я снова в тупике и снова прошу Вашей помощи!
Ситуация такая, у меня есть переменная "varia", которая может принимать значение от 1 до 20, и есть двадцать процедур с именами "proc_1" , "proc_2"..."proc_20" . В определенный  момент у меня срабатывает одна из двадцати процедур, в зависимости от значения переменной "varia". Ну т.е. если varia= 16, то должна сработать процедура proc_16. Подскажите пожалуйста, можно ли скомбинировать необходимое имя, чтобы условно вызвать процедуру с именем "proc_" & varia, вместо того, чтобы писать 20 условий в "if..then..else"

п.с. Прошу, не судите мой вопрос слишком строго, просто  программист я такой себе : ) Я с радостью разобрался бы сам, а не перекладывал бы свои заботы на Ваши плечи, если бы смог найти, где про это почитать

(update)
изменил название переменной с "const" на "varia" дабы не позориться
п.п.с. Я программирую в VBA. Но буду признателен за пример в любом из языков, а то даже, что гуглить не знаю толком

[Виктор Чекалин]

R.I.Chernov,
не совсем по теме, но называть переменную именем const, т.е. constant, т.е. постоянная величина - не очень хорошая практика :-)

А по теме. Нагуглилось вот такое

Код - Text [Выбрать]

1. Sub callSomeProc(i as Integer)
2.    Application.Run "proc_" & i
3. End Sub

[R.I.Chernov]

не совсем по теме, но называть переменную именем const, т.е. constant, т.е. постоянная величина - не очень хорошая практика :-)

))))))))))))))) Согласен. Помему-то это первый пришедший в голову вариант замены истинного имени переменной kolvo_verikalnih_stoek_osnovnogo_karkasa
Ну такие описки лишний раз показывают мой "профессионализм" в данной сфере.

А по теме. Нагуглилось вот такое

Код - Text [Выбрать]

1. Sub callSomeProc(i as Integer)
2.    Application.Run "proc_" & i
3. End Sub

Не захотело работать Я не указал выше, что я ищу код для VBA.

[Александр Ривилис]

Не захотело работать Я не указал выше, что я ищу код для VBA.

Небось у процедуры еще и параметры есть?

[R.I.Chernov]

Небось у процедуры еще и параметры есть?

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

Вобщем я проводил тест вышеуказанного кода на таком вот примере:

Код: [Выделить]

Sub callSomeProc(i As Integer)
i = 2
Application.Run "msg_" & i
End Sub

Public Sub msg_1()
Debug.Print "msg_1"
End Sub

Public Sub msg_2()
Debug.Print "msg_2"
End Sub


[Виктор Чекалин]

Не захотело работать  Я не указал выше, что я ищу код для VBA.

Так я для VBA и писал. Но не проверял, так как совсем не пишу на VBA.
А на что ругается?

[R.I.Chernov]

Так я для VBA и писал. Но не проверял, так как совсем не пишу на VBA.
А на что ругается?

Я чуть выше код привел, у меян не получилось запустить процедуру callSomeProc
Я попытался заменить на такой вот код:

Код: [Выделить]

Sub callSomeProc
dim i As Integer
i = 2
Application.Run "msg_" & i
End SubТогда он пишет что переменная "apllication" не задана.
Ну в смысле пишет "Variable not defined" и обводит слово Application ... может я как-то не так это понимаю

[Александр Ривилис]

Ну в смысле пишет "Variable not defined" и обводит слово Application ...

А если ThisApplication вместо Application?

[R.I.Chernov]

А если ThisApplication вместо Application?

Я щас не могу проверить - домой с работы еду. Но сегодня копался в браузере объектов, не нашел у ThisApplication метода run, правда не помню, попробовал ли ThisApplication в коде написать. Я нашел в браузере свойство VBA.Thisapplication но им также не получилось воспользоваться, и метода run у него тоже не было. Да и вобще, я не нашел ни одного метода run через поиск в объектом бразере. В родном  help VBA по запросу "run" находятся статьи, но я не смог в них найти решения

[Виктор Чекалин]

R.I.Chernov, нашел еще функцию CallByName. Можно ее попробовать, если она доступна в VBA для Inventor.

[Александр Ривилис]

И еще статья Владимира Ананьева: http://adndevblog.typepad.com/manufacturing/2012/07/run-vba-macro-using-inventor-api.html

[R.I.Chernov]

нашел еще функцию CallByName. Можно ее попробовать, если она доступна в VBA для Inventor.

Нашел в браузере данную функцию, доступ к ней осуществляется: Interaction.CallByName. В help VBA по этой функции написано приблизительно тоже самое что и в данной статье (если не меньше) :
http://www.excelworld.ru/stuff/vba_function/system/callbyname/24-1-0-87
Но эта функция дает возможность обращаться к объектам, свойствам и методам какого либо объекта объектной  модели программы (извиняюсь за тавтологию). А процедура вроде бы не является таковой. Я так понял, что эта функция для решения обсуждаемой нами задачи не подходит.
Если я ошибаюсь, то, пожалуйста , поправьте меня.

(update)
Попробовал достучаться до модуля по принципу: MyProject.MyModule.MyFunction (имена проекта, модуля и функции внутри модуля)
Т.е. 

Код - Text [Выбрать]

1. Call Interaction.CallByName(MyProject.MyModule, MyFunction, VbMethod)

Но он пишет мне "type mismatch" и выделяет в строке MyModule.

[Алексей Кулик]

На VBA, да еще и под Inventor... Это будет треш ))) Пинайте, если че
Как вариант, писал на VBA под Excel, но технология, по-моему, неизменна:

Код - Visual Basic [Выбрать]

1. Option Explicit
2.  
3. Public Sub Proc1(param As Integer, msgTitle As String)
4.   MsgBox "Proc1 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
5. End Sub
6.  
7. Public Sub Proc2(param As Integer, msgTitle As String)
8.   MsgBox "Proc2 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
9. End Sub
10.  
11. Public Sub Proc3(param As Integer, msgTitle As String)
12.   MsgBox "Proc3 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
13. End Sub
14.  
15. Public Sub Proc4(param As Integer, msgTitle As String)
16.   MsgBox "Proc4 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
17. End Sub
18.  
19. Public Sub Proc5(param As Integer, msgTitle As String)
20.   MsgBox "Proc5 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
21. End Sub
22.  
23. Public Sub TestToRun()
24. Dim sTitle As String
25.   sTitle = "Call from TestToRun"
26. Dim iCount As Integer
27.  
28.   iCount = CInt(InputBox("Enter proc number", sTitle, "0"))
29.  
30.   Select Case iCount
31.     Case 1:
32.       Proc1 iCount, sTitle
33.     Case 2:
34.       Proc2 iCount, sTitle
35.     Case 3:
36.       Proc3 iCount, sTitle
37.     Case 4:
38.       Proc4 iCount, sTitle
39.     Case 5:
40.       Proc5 iCount, sTitle
41.     Case Else:
42.       MsgBox "Do not defun proc!", vbOKOnly + vbCritical + vbApplicationModal
43.   End Select
44. End Sub

---
Добавлено: при использовании функций, как мне кажется, тоже мало что изменится:

Код - Visual Basic [Выбрать]

1. Option Explicit
2.  
3. Public Function Proc1(param As Integer, msgTitle As String) As Integer
4.   MsgBox "Proc1 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
5.   Proc1 = param
6. End Function
7.  
8. Public Function Proc2(param As Integer, msgTitle As String) As Integer
9.   MsgBox "Proc2 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
10.   Proc2 = param ^ 2
11. End Function
12.  
13. Public Function Proc3(param As Integer, msgTitle As String) As Integer
14.   MsgBox "Proc3 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
15.   Proc3 = param ^ 3
16. End Function
17.  
18. Public Function Proc4(param As Integer, msgTitle As String) As Integer
19.   MsgBox "Proc4 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
20.   Proc4 = param ^ 4
21. End Function
22.  
23. Public Function Proc5(param As Integer, msgTitle As String) As Integer
24.   MsgBox "Proc5 " + CStr(param), vbOKOnly + vbCritical + vbApplicationModal, msgTitle
25.   Proc5 = param ^ 5
26. End Function
27.  
28. Public Sub TestToRun()
29. Dim sTitle As String
30.   sTitle = "Call from TestToRun"
31. Dim iCount As Integer
32. Dim iRes As Integer
33.  
34.   iCount = CInt(InputBox("Enter proc number", sTitle, "0"))
35.  
36.   Select Case iCount
37.     Case 1:
38.       iRes = Proc1(iCount, sTitle)
39.     Case 2:
40.       iRes = Proc2(iCount, sTitle)
41.     Case 3:
42.       iRes = Proc3(iCount, sTitle)
43.     Case 4:
44.       iRes = Proc4(iCount, sTitle)
45.     Case 5:
46.       iRes = Proc5(iCount, sTitle)
47.     Case Else:
48.       MsgBox "Do not defun proc!", vbOKOnly + vbCritical + vbApplicationModal
49.   End Select
50.   MsgBox "iRes = " + CStr(iRes), vbOKOnly + vbCritical + vbApplicationModal
51.  
52. End Sub

[Алексей Романов]

Подскажите пожалуйста, можно ли скомбинировать необходимое имя, чтобы условно вызвать процедуру с именем "proc_" & varia, вместо того, чтобы писать 20 условий в "if..then..else"

Примерно так:

Код - Visual Basic [Выбрать]

1. Public Sub callSomeProc()
2.  
3. Dim i As Integer: i = 2
4. Dim name As String: name = "msg_" & i
5.  
6. Dim invVBAProject As InventorVBAProject
7. For Each invVBAProject In ThisApplication.VBAProjects
8.     If invVBAProject.name = "Проект_приложений" Then Exit For
9. Next
10.  
11. Dim invModule As InventorVBAComponent
12. Set invModule = invVBAProject.InventorVBAComponents.Item("Module4")
13.  
14. Dim invSub As InventorVBAMember
15. Set invSub = invModule.InventorVBAMembers.Item(name)
16. Call invSub.Execute
17.  
18. End Sub
19.  
20. Public Sub msg_1()
21. MsgBox "msg_1"
22. End Sub
23.  
24. Public Sub msg_2()
25. MsgBox "msg_2"
26. End Sub
27.  
28.  

[Виктор Чекалин]

Попробовал достучаться до модуля по принципу: MyProject.MyModule.MyFunction (имена проекта, модуля и функции внутри модуля)
Т.е. 

Код - Text: [Выделить]
Call Interaction.CallByName(MyProject.MyModule, MyFunction, VbMethod)

Но он пишет мне "type mismatch" и выделяет в строке MyModule.

Первым параметром надо передать объект, в котором находится вызываемая функция. Если процедуры находятся в том же самом модуле, откуда эти процедуры вызывается, то первым параметром должно стоять Me.

Алексей Кулик, думаю это не совсем то, чего хотел автор.

вместо того, чтобы писать 20 условий в "if..then..else"

Идея и состоит в том, чтобы вызвать процедуру, имя которой сформировано динамически.