Сгенерировать имя банка

[Glocaya cuzdra]

Здравствуйте, кодеры.
За проход цикла требуется создать очередной банк с оригинальным именем, чтоб по завершению цикла оказались бы созданы банки с названиями типа: bank1, bank2, bank3 и т.д.
Как может выглядеть генератор имён?

P.S. Это пишется приложение, строящее график на основании данных о цвете пикселов в видео, содержащего запись перемещения пятна от лазерной указки.

[DeeJex]

FFFFFUUUUUU & Facepalm
можно только так: bank[1], bank[2], bank[3] и т.д.

[den]

можно только так: bank[1], bank[2], bank[3] и т.д.

DeeJex хотел сказать: "Можно массив банков сделать"

P.S. Это пишется приложение, строящее график на основании данных о цвете пикселов в видео, содержащего запись перемещения пятна от лазерной указки.

Оригинально!

[HolyDel]

P.S. Это пишется приложение, строящее график на основании данных о цвете пикселов в видео, содержащего запись перемещения пятна от лазерной указки.

блицовая математика не создана для таких интенсивных расчетов.

[Glocaya cuzdra]

Спасибо, пойду про массивы банков курить.
(Пятно лазерной указки перемещается системой развёртки стенда, на котором закреплён модельный ракетный двигатель, т.е. - снимается график тяги)

[Glocaya cuzdra]

Сообщение от HolyDel

блицовая математика не создана для таких интенсивных расчетов.

Ничего интенсивного, сравнить пикселы, и всё.
Ранее снимал данные с game-порта(можно и USB-джоя), сохраняет данные в файл и скриншот, вот, прикреплено, если интересно.

[Glocaya cuzdra]

Сообщение от Den

DeeJex хотел сказать: "Можно массив банков сделать"

Количество элементов массива заранее не известно, так не получится.
Как можно автоматически сгенерировать имя очередного банка с приращением числа, содержащегося в названии, на единицу? Типа: bank1, bank2, bank3

[den]

Как можно автоматически сгенерировать имя очередного банка с приращением числа, содержащегося в названии, на единицу? Типа: bank1, bank2, bank3

Помойму никак

Количество элементов массива не известно, так не получиться.

bank[999]
------------------------------------------
А почему ты это на блице решил написать?

[Glocaya cuzdra]

Сообщение от Den

Помойму никак

Мне кажется, если так ↓
a$=CurrentDate$()
d1$=Mid$(a$,1,2)
d2$=Mid$(a$,4,3)
d3$=Mid$(a$,8,4)

dir$=d3$+"-"+d2$+"-"+d1$
ExecFile("cmd /C "+Chr$(32)+"MKDIR "+dir$+Chr$(32))

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

Сообщение от Den

bank[999]

Видео 30fps; на каждую секунду будет создаваться 30 банков, т.е. [999] хватит на полминуты видео. В принципе, интересующая часть видео - непосредственно работа двигателя - занимает ~1-5сек., можно и так попробовать.

Сообщение от Den

А почему ты это на блице решил написать?

Хлопцы пишут на питоне и ещё чём-то другом, но им требуется предварительная обрезка видео в виртуал-дубе, потом получение раскадровки в виде сотни .jpeg-ов, потом нехитрым vbs скриптом эти фотки в браузере подвергаются слиянию, результат скриншотится и уже потом (фуф) это изображение в виде осциллограммы подаётся программе, которая, оценивая яркость пикселов, строит график. А блитц не нуждается в предварительной обработке видео, работает с ним сам.
Кроме блитца я ничего не знаю, но и в его знании есть пробелы. Ранее пользовал с ним физикс, анимировал фронтальный погрузчик(делаю модели сам), стрелял из танка, звуки там, закончил полностью программу 3D гадание на картах Таро.
Сейчас смысл - комбинация использования простейшего стенда и сложной программной обработки позволяет получить качественный результат, сравнимый с результатами, полученными от дорогих, сложных в изготовлении стендов.
Корень зла тут: http://balancer.ru/_bors/igo?o=forum_post__2203042

[HolyDel]

блин, я точно не помню блицовый синтаксис, но если число элементов заранее не известно - то можно попробовать сделать новый тип.

как то так:
Type Screen
field bank%
end type
...
s.Screen = new Screen
s\bank = CreateBank... ? или как то так

[Reizel]

type Bank
field bank
field name$
end type

function AddBank(bank)
b.bank=new bank
b\name="bank"+handle(b)
b\bank=bank
end function

function FindBank(name$)
for B.bank=each bank
if(b\name==name) return b:exit;
next
end ufnciont

[pax]

лучше уш не хендлы использовать, а хранить последний индекс в какой-то переменной:
...
global lastBankIndex% = 1;

function AddBank.bank(bank)
b.bank=new bank
b\name="bank"+lastBankIndex
b\bank=bank
lastBankIndex=lastBankIndex+1
return b
end function

Синтаксиса бэйсика не помню... но как-то так )

[Glocaya cuzdra]

Вот это ближе к теме. Пока беру тайм аут на неделю, чтоб разобраться в этом чудном коде. Спасибо, хлопцы, за поддержку! DeeJex - Facepalm