Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
64 / 20 / 1
Регистрация: 29.07.2012
Сообщений: 151

Добавить свою функцию к числу математических

11.04.2014, 22:25. Показов 1561. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите есть ли возможность добавлять свои функции к числу математических (тех, что находятся в разделе Math на ряду с Sin, Cos, Abs и т. п.)? Это нужно для того, чтобы воспользоваться ими в MS Script Контроле 1.0.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.04.2014, 22:25
Ответы с готовыми решениями:

Добавить свою кнопку в заголовок формы
Привет, All! )) Ребята, кто-нить подскажет, как можно изменить стандартный набор системных кнопок на форме не включив/отключив их, а...

Как добавить свою кнопку в title-bar ЧУЖОГО окна?
Как добавить свою кнопку в title-bar ЧУЖОГО окна? Насколько я понял, полазив по Сети, это непростая задача. Есть примеры добавления...

Добавить свою функцию
Добрый день!! Ребята, подскажите, пожалуйста как добавить свою функцию в текст программы, а то в книгах пишутся коды уже готовые со...

3
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
11.04.2014, 23:19
Как раз в скриптконтроле можно создавать на лету новые функции, чтобы использовать их в VB/VBA/VBS:
Программа должна уметь распознавать функции, записанные в TextBox
1
64 / 20 / 1
Регистрация: 29.07.2012
Сообщений: 151
12.04.2014, 00:49  [ТС]
Спасибо, но никак не разберусь: выдает Invalid Number:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim num As Integer
num = 2
sc.Language = "VBScript"
                            'Создаю ф-ю, которая увеличивает число в 100 раз
'On Error Resume Next
  sc.AddCode "Function UserTestFunc(num)" & _
               "UserTestFunc = " & num * 100 & _
             "End Function"
  If Err Then MsgBox "Неверный синтаксис функции!": Exit Sub
  Print sc.Run("UserFunc", num)
End Sub
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
12.04.2014, 13:35
Лучший ответ Сообщение было отмечено The trick как решение

Решение

brifing,
1. В той теме дальше поправили - надо добавлять перевод строки
Visual Basic
1
2
3
4
  sc.AddCode "Function UserTestFunc(num)" & vbCrLf & _
               "UserTestFunc = " & num * 100 & vbCrLf & _
             "End Function"
  If Err Then MsgBox "Неверный синтаксис функции!": Exit Sub
2. Print sc.Run("UserTestFunc", num)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.04.2014, 13:35
Помогаю со студенческими работами здесь

Добавить свою функцию в Excel
Здравствуйте. Скажите пожалуйста как добавить в Excel свою функцию - если_то (реализует импликацию): Public Function Eсли_То(l1, l2) ...

Необходимо заменить функцию ДАТАМЕС на свою аналогичную функцию
Всем Добрый Вечер! Если кто то знает,прошу подсказать.. Необходимо заменить функцию ДАТАМЕС на свою аналогичную функцию, но не...

Необходимо заменить функцию ДАТАМЕС на свою аналогичную функцию
Всем Здравствуйте.. Уже спрашивала этот вопрос, но прога не прокатила.. Необходимо заменить функцию ДАТАМЕС на свою аналогичную...

Преобразовать функцию strcmp в СВОЮ функцию
Нужно заменить функцию strcmp на свою. я создала свою, но код не коректний и выбивает ошибки. #include <iostream> #include...

Преобразовать функцию strcmp в СВОЮ функцию
Необходимо редактировать код программы(получающей на входе строку и выводящую одинаковые слова и количество их повторов). Вместо strcmp...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru