Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
Страница 1 из 11
Модератор форума: Peter, DEMBEL 
Форум NeoBook » Всё о программе NeoBook » Сценарии и скриптовые языки в Neobook » Проблема с функцией -скриптом
Проблема с функцией -скриптом
wikslДата: Вт, 01 Октября 2013, 21:30 | Сообщение # 1
Участник
Есть функция, я не помню где я её взял:
On Error Resume Next
intA = [%1]
intB = [%2]
intC = [%3]
If intC <= intB-intA+1 then Generate
Sub Generate
Dim source()
Dim target()
ReDim source(intB-intA)
intSrc = UBound(source)
For counter = 0 to intSrc
source(counter) = intA
intA=intA+1
Next
Randomize Timer
Redim target(intSrc)
For El = intSrc To 0 STEP -1
tmp = INT(RND * (El + 1))
target(El) = source(tmp)
source(tmp) = source(El)
Redim Preserve source(El)
Next
For El = 0 To intC-1
nbSetVar "[AA"&El+1&"]", target(El)
Next
End Sub

Она генерирует случайные числа из определенного интервала, все нормально работает, но на некоторых компьютерах не выполняется - даёт надпись:
Класс не зарегистрирован
Причем это и в XP и 7-ке, и в Висте, т.е. от самой ОС не зависит, как я понял, а зависит от настройки, но вот что именно я не знаю, может кто помочь?
Может, кто подскажет, что должно быть особенно установлено в системе, чтобы эта функция работала?


Вик

Сообщение отредактировано
wiksl - Вт, 01 Октября 2013, 21:31
 
СообщениеЕсть функция, я не помню где я её взял:
On Error Resume Next
intA = [%1]
intB = [%2]
intC = [%3]
If intC <= intB-intA+1 then Generate
Sub Generate
Dim source()
Dim target()
ReDim source(intB-intA)
intSrc = UBound(source)
For counter = 0 to intSrc
source(counter) = intA
intA=intA+1
Next
Randomize Timer
Redim target(intSrc)
For El = intSrc To 0 STEP -1
tmp = INT(RND * (El + 1))
target(El) = source(tmp)
source(tmp) = source(El)
Redim Preserve source(El)
Next
For El = 0 To intC-1
nbSetVar "[AA"&El+1&"]", target(El)
Next
End Sub

Она генерирует случайные числа из определенного интервала, все нормально работает, но на некоторых компьютерах не выполняется - даёт надпись:
Класс не зарегистрирован
Причем это и в XP и 7-ке, и в Висте, т.е. от самой ОС не зависит, как я понял, а зависит от настройки, но вот что именно я не знаю, может кто помочь?
Может, кто подскажет, что должно быть особенно установлено в системе, чтобы эта функция работала?

Автор - wiksl
Дата добавления - 01 Октября 2013 в 21:30
СергейДата: Ср, 02 Октября 2013, 10:18 | Сообщение # 2
Необукер
wiksl, попробуй на тех компах, где не работает запустить другую функцию
можно попробовать эту на JScript:

А вот с vbs, дело темное :D
Я сколько не пытался найти решение ошибки класса, так и не смог найти универсального...
А у самого знания vbs на уровне "хелло ворд" :)
Тут только Дембель может подсказать, он в нем хорошо шарит

Добавлено (02 Октября 2013, 09:58)
---------------------------------------------
Кстати, когда у меня были ошибки в вбс и ява (увы бывает и тут) на разных компах
То делал рандом диапазона на НБ

Адаптировал функцию из JS

Добавлено (02 Октября 2013, 10:18)
---------------------------------------------
Обернул в функцию НБ
Проверил, вроде все работает нормально...
Если мин и макс оставить пустыми, то выдаст число от 1 до 999


Сообщение отредактировано
Сергей - Пт, 18 Июля 2014, 00:19
 
Сообщениеwiksl, попробуй на тех компах, где не работает запустить другую функцию
можно попробовать эту на JScript:

А вот с vbs, дело темное :D
Я сколько не пытался найти решение ошибки класса, так и не смог найти универсального...
А у самого знания vbs на уровне "хелло ворд" :)
Тут только Дембель может подсказать, он в нем хорошо шарит

Добавлено (02 Октября 2013, 09:58)
---------------------------------------------
Кстати, когда у меня были ошибки в вбс и ява (увы бывает и тут) на разных компах
То делал рандом диапазона на НБ

Адаптировал функцию из JS

Добавлено (02 Октября 2013, 10:18)
---------------------------------------------
Обернул в функцию НБ
Проверил, вроде все работает нормально...
Если мин и макс оставить пустыми, то выдаст число от 1 до 999

Автор - Сергей
Дата добавления - 02 Октября 2013 в 10:18
wikslДата: Чт, 03 Октября 2013, 23:17 | Сообщение # 3
Участник
Цитата (Сергей)
Тут только Дембель может подсказать, он в нем хорошо шарит

Остается воскликнуть: Дембель приди :)


Вик
 
Сообщение
Цитата (Сергей)
Тут только Дембель может подсказать, он в нем хорошо шарит

Остается воскликнуть: Дембель приди :)

Автор - wiksl
Дата добавления - 03 Октября 2013 в 23:17
СергейДата: Пт, 04 Октября 2013, 12:06 | Сообщение # 4
Необукер
Цитата (wiksl)
Остается воскликнуть: Дембель приди

а использовать функцию на НБ, не?!
 
Сообщение
Цитата (wiksl)
Остается воскликнуть: Дембель приди

а использовать функцию на НБ, не?!

Автор - Сергей
Дата добавления - 04 Октября 2013 в 12:06
wikslДата: Пт, 04 Октября 2013, 18:29 | Сообщение # 5
Участник
Цитата (Сергей)
а использовать функцию на НБ, не?!

Можно и на НБ, только я наверное не так описал функцию
Она должна брать в определенном интервале заданное число разных случайных чисел, т.е.
задаю например 1,5,5 получаю 1,3,4,2,5 и т.д.
если б только одно число надо было я б и функцию не использовал, хватило бы команды: Random,
я делал свою функцию, но по сравнению с той что выложил, она работает так медленно, что дляже для 6 чисел это уже ощутимо.


Вик
 
Сообщение
Цитата (Сергей)
а использовать функцию на НБ, не?!

Можно и на НБ, только я наверное не так описал функцию
Она должна брать в определенном интервале заданное число разных случайных чисел, т.е.
задаю например 1,5,5 получаю 1,3,4,2,5 и т.д.
если б только одно число надо было я б и функцию не использовал, хватило бы команды: Random,
я делал свою функцию, но по сравнению с той что выложил, она работает так медленно, что дляже для 6 чисел это уже ощутимо.

Автор - wiksl
Дата добавления - 04 Октября 2013 в 18:29
mishemДата: Пт, 04 Октября 2013, 19:32 | Сообщение # 6
Эксперт форума
wiksl, Посмотри этот плагин. Команда npRandomFromStr

Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщениеwiksl, Посмотри этот плагин. Команда npRandomFromStr

Автор - mishem
Дата добавления - 04 Октября 2013 в 19:32
Форум NeoBook » Всё о программе NeoBook » Сценарии и скриптовые языки в Neobook » Проблема с функцией -скриптом
Страница 1 из 11
Поиск: