[Ubivec81]

Здравствуйте!
Прошу помочь новичку в VBA!!!
Есть форма в которой есть TextBox и кнопка. Нужно чтобы при введении численного значения в TextBox и нажатии на кнопку значение определялось в бесконечный массив (т.к. колличество значений не известно) для дальнейшей работы с данными этого массива.

[Сергей Дубина]

Сообщение от Ubivec81 колличество значений не известно

наверно лучше объект Collection.

[Ubivec81]

Сергей подскажите пожалуйста как это сделать.

[hwd]

Сообщение от Ubivec81 Прошу помочь новичку в VBA!!!

Если речь идёт о VBA в контексте AutoCAD, то я бы не рекомендовал браться за его изучение, поскольку Autodesk поставил на нём крест.

[Ubivec81]

Hwd я уже начал этим заниматься и потому не хочется отступать. А речь то как раз о том что вы говорите. Есть ли вариант объяснить как это тут устроить?

[Сергей Дубина]

Сообщение от hwd я бы не рекомендовал браться за его изучение

Вопрос не в тему, для тебя: vb .net интерпритатор?

[Ubivec81]

ага

[hwd]

Сообщение от Ubivec81 Hwd я уже начал этим заниматься и потому не хочется отступать.

Ну чтож... Не хочешь - не отступай, на всякий случай повнимательней прочти то, что я подсветил красным цветом (это информация от самого Autodesk):



Учить язык, заранее зная, что он обречён - имхо сие нерационально.

Сообщение от Сергей Дубина Вопрос не в тему, для тебя: vb .net интерпритатор?

Вопроса не понял.

[AlexV]

Код:

[Выделить все]

Option Explicit
Dim arr()
Private Sub CommandButton1_Click()
    If Len(TextBox1.Value) > 0 Then
    arr(UBound(arr)) = TextBox1.Value
    ReDim Preserve arr(UBound(arr)+1)
    Stop
End Sub
Private Sub UserForm_Initialize()
    ReDim arr(0)
End Sub

...но в автокаде под 64b виндой VBA уже совсем не жилец, особенно при использовании форм.

[trir]

Сообщение от AlexV ...но в автокаде под 64b виндой VBA уже совсем не жилец, особенно при использовании форм.

Не, не - ещё шевелится и ножками дрыгает, хотя ведёт себя странно и работает через раз

"АкАд 2011 x64 ругается на:
ThisDrawing.HWND
надо:
ThisDrawing.HWND32
должно работать и с x32"

[hwd]

Сообщение от trir хотя ведёт себя странно и работает через раз

Ну если так, то совсем другое дело - можно со спокойной душой начинать изучать VBA...

[forMA]

Сообщение от Ubivec81 Нужно чтобы при введении численного значения в TextBox и нажатии на кнопку значение определялось в бесконечный массив (т.к. колличество значений не известно) для дальнейшей работы с данными этого массива.

Может организовать файл последовательного доступа к данным?

[Ubivec81]

AlexV, огромное спасибо за помощь. Вот только что то тут не так.

Код:

[Выделить все]

Option Explicit
Dim arr()
Private Sub CommandButton1_Click()
   Dim line As AcadLine
   Dim point1(0 To 2) As Double
   Dim point2(0 To 2) As Double
    If Len(TextBox1.Value) > 0 Then
       arr(UBound(arr)) = TextBox1.Value
       ReDim Preserve arr(UBound(arr))
    End If
   point1(0) = arr(0): point1(1) = arr(1)
   point2(0) = arr(2): point2(1) = arr(3)
   Set line = ThisDrawing.PaperSpace.AddLine(point1, point2)
End Sub
Private Sub UserForm_Initialize()
    ReDim arr(0)
End Sub

Пытаюсь рисовать линию по внесенным данным но меня выбрасывает сразу после введения числа и нажатия на кнопку. у меня ощущение что цикла то который должен работать до бесконечности нету, или я что то делаю не так! Прошу еще раз помощи!!!

[gomer]

Ubivec81, горе ты луковое... Добавил в массив одно текстовое значение, а спрашиваешь аж 4? действительных двойных...
остальные повеселили

[AlexV]

Сообщение от Ubivec81 AlexV, огромное спасибо за помощь. Вот только что то тут не так...

Это точно! Многое, вообще, в этой жизни не так.. Найти б того, кто эту жизнь программировал!

[gomer]

AlexV, да кажется нашли уж
Так вы еще и на vba графоманите, респект
Ubivec81, и вообще, бесконечных массивов не существует, как и бесконечности вообще, только в нашем воображении, а если нет воображения...

[AlexV]

Сообщение от gomer AlexV, да кажется нашли уж Так вы еще и на vba графоманите, респект

Да мы бы и на лиспе графоманили, но скобки не рифмуются..
gomer, а кого нашли-то?

[gomer]

Сообщение от AlexV кого нашли-то?

Сообщение от AlexV Найти б того, кто эту жизнь программировал!

Аффтара!

[AlexV]

Сообщение от gomer Аффтара!

ага...угу...мда.. Ну, дык, это... А че там с аффтарским надзором?

[gomer]

ну тут все четко... и на ковер периодически вызывают...

[Ubivec81]

Так! Говорю же только начал все это! Читаю литературу которую нахожу... Господа подскажите! Может тогда не массив а коллекцию? Смысл в том что хочу сам сделать продольный профиль по земле. Все то что говорите это конечно правда, но жду объяснений!

[AlexV]

Сообщение от Ubivec81 Так! Говорю же только начал все это! Читаю литературу которую нахожу... Господа подскажите! Может тогда не массив а коллекцию? Смысл в том что хочу сам сделать продольный профиль по земле. Все то что говорите это конечно правда, но жду объяснений!

Читай внимательней!
gomer жеж тебе сказал, в чем ошибка. Ты в массив вводишь 1 значение, получить хочешь больше. Типы данных также не совпадают.

[Ubivec81]

Я наверно невкуриваю пока! я форме ввожу 4 разных значений и думал что они сохраняются с разными индексами. как же тогда сделать?

[AlexV]

У тебя по первому же нажатию кнопки идет сразу "point1(0) = arr(0): point1(1) = arr(1): point2(0) = arr(2): point2(1) = arr(3)", а значение в массиве всего одно пока. Разнеси эти процедуры на разные кнопки хотя б. И point1(1) = Val(arr(1)), к примеру..

[Ubivec81]

И правда.! че то я не подумал....:-( Сейчас пока некогда но попробую позже это все сделать. Спасибо за помощь! Обязательно вечерком отпишу что получается и получается ли!;-)

[Boxa]

Поддержу hwd, не смотря на то что мне нравиться VBA, изучать его в приложении к Автокаду уже не стоит. Если язык учить с нуля, для общего развития, то тоже не стоит, vb специфический язык и всю голову ломает, сползти с него потом сложно =))

[Ubivec81]

Boxa, это я уже понял. Не буду спорить или еще что то! помогите решить задачу! весь обед сижу, думаю, лазаю по форумам и доп. литературе.... = 0

[hwd]

Сообщение от Ubivec81 Boxa, это я уже понял. Не буду спорить или еще что то! помогите решить задачу! весь обед сижу, думаю, лазаю по форумам и доп. литературе.... = 0

Береги нервы
Рискну предположить, что на форуме не так много людей, которые пишут в автокаде на вба в виду его бесперспективности. Так что... продолжай "лазать"(с)

[Сергей Дубина]

Сообщение от hwd Рискну предположить, что на форуме не так много людей, которые пишут в автокаде на вба в виду его бесперспективности. Так что... продолжай "лазать"(с)

Можешь не злорадствовать. Лет через пять .NET, который ты так любишь, тоже станет "бесперспективным", в связи с алчностью хозяев автодеска и макрософта. И будешь снова носится с конвертерами генераторами и прочей лабудой.
А на мой вопрос ты так и не ответил. Не знаешь чем компилятор от инерпритатора отличается? Про NET на вики читал так и не понял в экзешнике машинный или байт-код.

[AlexV]

Сообщение от Сергей Дубина Можешь не злорадствовать. Лет через пять .NET, который ты так любишь, тоже станет "бесперспективным", в связи с алчностью хозяев автодеска и макрософта. И будешь снова носится с конвертерами генераторами и прочей лабудой...

А тут злорадствуй-не злорадствуй, а VBA уже на 64 битных машинах корректно не работает. Я, собственно, на VBA писал всегда, немало костылей теперь пропадает.. Приходится на виртуальной машине 32бит работать (ну, не только и не столько из за моих макросов, сколько из-за PS от сисофта). Кое-что еще можно сделать, но без пользовательских форм.

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

Сообщение от Сергей Дубина в экзешнике машинный или байт-код.

Скорее байт-код.

[Ubivec81]

Спасибо всем за помощь! данный момент я постиг!

[hwd]

Сообщение от Сергей Дубина Можешь не злорадствовать.

А я и не злорадствую.

Сообщение от Сергей Дубина Лет через пять .NET, который ты так любишь, тоже станет "бесперспективным", в связи с алчностью хозяев автодеска и макрософта.

Возможно это тебя удивит, но помимо .net, я потихоньку юзаю и др. языки, например C и GO, а насчёт "любишь" - это ты загнул... Слово "предпочтение" более соответствует действительности. Не вижу связи между "алчностью" и "бесперспективностью". У тебя на машине установлены Windows и AutoCAD, которые стоят не копейки (в отличие от бесплатных .net-языков и .net-технологий), однако в ведро ты их не выбрасываешь. Где логика?

Сообщение от Сергей Дубина Лет через пять .NET, который ты так любишь, тоже станет "бесперспективным", в связи с алчностью хозяев автодеска и макрософта.

На сегодняшний день история показывает совершенно обратное.
В наше время жить вообще вредно для здоровья. С таким твоим отношением лучше вообще и не браться писать код.

Сообщение от Сергей Дубина И будешь снова носится с конвертерами генераторами и прочей лабудой.

А разве я уже носился?

Сообщение от Сергей Дубина А на мой вопрос ты так и не ответил.

Я ответил тебе. Мой ответ ты либо проигнорировал, либо не увидел. Смотри внимательней.

Сообщение от Сергей Дубина Не знаешь чем компилятор от инерпритатора отличается?

Знаю.

Сообщение от Сергей Дубина Про NET на вики читал так и не понял в экзешнике машинный или байт-код.

В .net содержимое exe-файла, равно как и dll-файла представлено в виде CIL (байт-код), можешь дополнительно почитать про JIT-компиляцию (используется в .net).

[Дима_]

Сообщение от Сергей Дубина Не знаешь чем компилятор от инерпритатора отличается?

Вопрос не мне - но хочу высказать ИХМО - сейчас нету (и быть не может) НИ одного чистого компилятора для ПО пользовательского уровня. Если мы "развернем" ЛЮБОЙ код там "работы" библиотек ОС на порядок больше нежили непосредственно алгоритма программы (включая программы win32 - "скомпилированные" на ассемблере). Я знаю "изнутри" принципы вызова виндовых процедур - это по сути очень далеко напоминает вызовы подпрограмм CPU (они инициализируются ОС при загрузке кода - да и в процессе выполнения практически ПОЛНОСТЬЮ контролируются ОС). Про обработку сообщений окнам, событиями и пр. - там вобще процессором даже не пахнет. Не претендую на абсолютную правду - просто мое мнение - компиляторы умерли вместе с ДОСом - сейчас есть только "степень интерпритируемости" - типа сразу из исходного кода программы, из байт-кода, из встраиваемого (в программу) интерпритатора, из "кода формата операционной системы". Чистый код - интерпретируемый как есть непосредственно в CPU остался только в "железе".

[hwd]

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

[sbi]

Добавлю свои копейки: "В чем зло VBA" -он старик http://forum.dwg.ru/showthread.php?p=271813&#post271813
но, исправно трудится, пока молодёжь не постигнет новые технологии...
(пока работоет в 2010,Win7 (32бита)

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

Дима_, по большому счету ты прав, но тем не менее вычислительная часть на чистом VS C++ компилируется в машинный код, который непосредственно обрабатывается процессором.

[Дима_]

Сообщение от hwd Offtop: компиляторы... интерпретаторы... какая млин разница - важен конечный результат. Мне нужно, чтобы свой код я мог бы без проблем и лишних телодвижений скомпилировать, и чтобы результат этой компиляции без проблем работал, а как оно там внутри устроено (машинный код или байт-код) - лично мне фиолетово.

Во - Здесь я двумя руками за - программировать надо в том - что:
1. Менее геморно для юзера (использование).
2. Более подходит под конкретную задачу.

но тем не менее вычислительная часть на чистом VS C++ компилируется в машинный код, который непосредственно обрабатывается процессором.

и я бы не сказал что это "правильно" - т.к. в процесорры тоже добавляются "высокоуровневые" опкоды - хеши, шифрование, и пр. - причем с явно более высоким КПД нежели делать это "вручную" на том-же процессоре - для этого и созданны ОС. Если, например, Net не умрет - то вполне возможно появятся хардовые Net процессоры - что безусловно продлит ЖЦПП (господа не ржите это официальная абривиатура) - не надо ничего "перекомпилировать" новой версией - та-же программа начнет работать "новее" (быстрее например).

[Сергей Дубина]

Человек спросил как кружкой пользоваться, а ему говорят - выбрость кружку возьми ведро. Я вообще считаю построение профилей таким образом бесперспективным, однако помалкиваю(вал)
Он, может, автокад купил и апгрейдить не собирается, накладно.
З.Ы.
Если кого задел, извините.

[hwd]

Сообщение от Сергей Дубина выбрость кружку возьми ведро

Сравнение совершенно не в тему.

На данный момент у топикстартера объём знаний по программированию одинаков что в .net, что в AutoLisp/VisualLisp, что в C++ ObjectARX.

Нет таких языков, на которых можно писать, не зная их спецификации (хотя бы в объёме, достаточном для решения поставленной задачи).

"Кружку" VBA он за пять минут так же не выучит. Моё мнение - применительно к программированию в AutoCAD быстрее изучить такое "ведро" такой язык, как AutoLisp\VisualLisp, чем "вёдра" языки C++, VB.Net, C# и т.д. (т.е. библиотеки ObjectArx или .Net API).

Он, может, автокад купил и апгрейдить не собирается, накладно.

а это тут причём? вряд ли он купил DOS-версию, а если и DOS - лисп имеется и там (я это отлично помню, поскольку начинал писать на лиспе под 9-ю версию).

P.S. Предлагаю не развивать дискуссию на эту тему, ибо топикстартер всё равно будет изучать VBA.

[AlexV]

Offtop: Человек спросил "-а как,
Сделать мне простейший шаг?"
Мы ему расскажем сразу:
"Да чего ходить пешком,
Ведь летать приятней глазу,
Или ехать с ветерком...

На VBA все-таки можно писать, обладая самым минимумов и знаний, и талантов программистких. По крайней мере, в нем можно решать сиюминутные задачи, копируя куски кода из справки / других программ, даже не всегда понимая, как что работает. Для Net такой принцип не прокатывает ( у меня по крайней мере халява не прокатила )

[hwd]

Сообщение от AlexV копируя куски кода из справки / других программ, даже не всегда понимая, как что работает.

Вот это как раз таки самое опасное!
Юзер может быть спокойным, что его код работает, но работать-то прога может и неправильно, причём узнать об этом юзер может например в результате того, что его начальника порвали на ковре за неверно предоставленный отчёт, сформированной такой программой. Нетрудно догадаться, в чью сторону начальник "раскроет свои чакры"...

Да и копипастить нужно с умом... Не понимая можно такого накопипастить...

Касательно VBA - я имею (в прошлом) некоторый опыт написания на нём довольно таки серьёзных приложений (документооборот/материально-технический учёт/сметная программа/процентовки (КС2, КС3)/журналы работ/акты приёма выполненных работ и т.п.) - писал на VBA в MS Access 2003-2007 и ушёл с него (VBA) по ряду причин, среди которых была и такая, что по сути VBA - чёрный ящик, привязывающий юзера к конкретному софту. Например у меня в редакторе кода, написанном на VBA со временем появились такие "артефакты", что в некоторых строках кода (я даже наизусть уже запомнил куда именно), нельзя было даже просто ставить курсор мыши (просто курсор ставить!!!), потому, что если это сделать - Access тут же зависал и осыпался в труху... Так же было несколько диалоговых окошек, в которых я уже точно знал какие контролы нельзя перемещать или менять их размеры, ибо реакция Access была такой же как в приведённом ранее случае... И ведь повлиять на это никак невозможно, поскольку х.з. как оно там за кулисами устроено (это спрятано от юзера). Причём эти "косяки" появляются спонтанно, со временем, я даже не вносил изменений в те места, где они вдруг начинали появляться, поэтому не могу даже предположить, чем это вызвано. В свете оного, я просто решил уйти с VBA, что и сделал.

[AlexV]

Сообщение от hwd Вот это как раз таки самое опасное! Юзер может быть спокойным, что его код работает, но работать-то прога может и неправильно, причём узнать об этом юзер может например в результате того, что его начальника порвали на ковре за неверно предоставленный отчёт, сформированной такой программой. Нетрудно догадаться, в чью сторону начальник "раскроет свои чакры"... Да и копипастить нужно с умом... Не понимая можно такого накопипастить...

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

[gomer]

Сообщение от AlexV Мы его расскажем сразу: "Да чего ходить пешком, Ведь летать приятней глазу,

Да уж разглаголили...
Я объясню для непонятливых... автор спросил: как мне нарисовать линию на вба? Его ткнули носом в .нет... Сказали: тю, так ты купи себе автокад поновее (наверное за кровные) и студию поставь на пару тройку гектаров, ну тогда и комп за одно прикупи посвежее... чего уж там, раз этот тормозит... и никто не поинтересовался... может у товарища и не автокад совсем... а какой нибудь клонокад... или автокад все таки, но 2005, так ему .нет как козе баян; а даже если у него сейчас 2012 ворованный, никто не знает, что будет через год...
В свете теории Большой Красной кнопки... так вообще вба за глаза хватит

Сообщение от AlexV На VBA все-таки можно писать, обладая самым минимумов и знаний, и талантов программистких. По крайней мере, в нем можно решать сиюминутные задачи, копируя куски кода из справки / других программ, даже не всегда понимая, как что работает.

А вот это врядли... и эта тема красочный тому пример...
Автору, для рисования 1й линии тебе нужны 4-6 текстбоксов и кнопка... Для рисования нескольких линий нужно к тому же листбокс для наглядности... три кнопки: добавить, удалить, редактировать, две кнопки загрузить, сохранить список + диалоговый контрол, чтоб все это работало нужно еще две функции преобразования данных в удобоваримую форму для глаз и для автокада...Но, это все для пенсионеров, а настоящие хардкорные пацаны использовали бы, то, что у тебя + функцию-парсер из строки в массив даблов... например такой строки:
0,0;10;0 10,0;10,10...

[hwd]

Сообщение от gomer Его ткнули носом в .нет... Сказали: тю, так ты купи себе автокад поновее (наверное за кровные) и студию поставь на пару тройку гектаров, ну тогда и комп за одно прикупи посвежее... чего уж там, раз этот тормозит...

И тут Остапа Юру понесло (с)... Причём по старой дорожке. Не буду утруждать себя повторными линками (кои ему уже давал касательно "платности"), учитывая, что gomer, что называется "в домике".

[gomer]

Сообщение от hwd Не буду утруждать себя повторными линками

да я ж не спорю что нет это хорошо или плохо... я говорю о том нужно ли это? Если у меня не запускается программа для расчета балочки, или плиты фундаментальной, которую я скачал рад интереса... кто редиска? Я, потому что не поставил себе фреймворк, или программист который использовал .net ради красивых кнопочек? А я не хочу это фв ставить, принципиально...
раньше у меня стоял bitmeter, теперь networx, первый использует второй нет... а по функциональности второй еще фору даст первому
собственно, в лиспе вообще эта задача в 2-3 строки решается

[hwd]

Сообщение от gomer Я, потому что не поставил себе фреймворк, или программист который использовал .net ради красивых кнопочек? А я не хочу это фв ставить, принципиально...

Ты можешь и не ставить. Только тот же AutoCAD (2007 и выше) без него не запустится. Windows 7 изначально поставляется с предустановленным .Net Framework. Любая "принципиальность" должна иметь под собой разумную основу. Кодеки ты дома на компьютер тоже принципиально не ставишь, или принципиальность возникает когда дело касается только .net-приложений? Кроме того - никто ведь насильно тебя не заставляет устанавливать .Net Framework (библиотеки которого, кстати, сейчас используются во многих приложениях, и без него они попросту не будут работать).

.Net я использую не ради красивых кнопочек (как-раз таки это меня меньше всего интересует), а ради богатого набора библиотек/технологий самого различного направления (кои я юзаю по мере необходимости) + бесшовная совместимость между языками + кроссплатформенность + учу всего один язык, а использую его везде где хочу.

[gomer]

Сообщение от hwd Ты можешь и не ставить. Только тот же AutoCAD (2007 и выше) без него не запустится. Windows 7 изначально поставляется с предустановленным .Net Framework. Любая "принципиальность" должна иметь под собой разумную основу. Кодеки ты дома на компьютер тоже принципиально не ставишь, или принципиальность возникает когда дело касается только .net-приложений?

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

банальная задача про вагоны... вы решили ее с помощью библиотек нет...
весьма к слову элегантно с применением словарей... как я понял...
Я решил с помощью лиспа (и Димы_) ведь списки, конек лиспа... так "зачем же платить больше?" К слову для вба не знаю, а на автолиспе не видел ни одной серьезной (популярной) библиотеки (есть dwgru-, но это совсем не то...) потому что не нужны они... разве что для связи с базами данных...
конечно, все должно иметь свою меру... но зачастую люди идут не вдумываясь на поводу у прогресса... и начинается... Сначала уж надо научиться думать, а потом все остальное легче станет...

Сообщение от hwd Кроме того - никто ведь насильно тебя не заставляет устанавливать .Net Framework (библиотеки которого, кстати, сейчас используются во многих приложениях, и без него они попросту не будут работать).

ну, вот я о том же... не нравится - вон с пляжа... то же к англоязычным программам... то же к платным программам... постепенно избавился от оффиса, маткада, винрара... винампа... прагмы... и т.д. Я не против нет, просто эта тема про другое... я считаю, что лучше будет если сам придешь к этому состоянию, тогда и "учить" гораздо меньше надо будет...
Это старые прожженные гуры могут полумигнув одним глазом написать на коленке на любом языке, а новое поколение живет по принципу "копипаста" и на слово "подумай" отвечает, "ну, сделай, чего тебе стоит, ты ж знаешь как"... драть таких надо или с таких три шкуры...
у меня есть не большой печальный опыт изучения ОбжектАркс с нуля...
это когда компилятор выдает сто строк невразумительного бреда только из-за того, что поставил точку с запятой не в том месте... поэтому я поставил точку... да и не надо оно мне сейчас, к сожалению...

[sbi]

Предлагаю: вернемся к нашим «баранам», начинать нужно почти начала
http://ufa.olx.ru/iid-125641071
потом http://bookz.ru/authors/avtor-neizvesten/trbasic.html
и затем http://ru.wikipedia.org/wiki/Visual_Basic
Тогда станет ясно, что в первую очередь необходимо создать массив (например, в виде последовательного числового файла), после чего использовать последний в VBA.

[gomer]

sbi, а где же книга по vba? после vb весьма проблематично довольствоваться vba!
От себя добавлю книжку которую сам почитывал...
Джон Кларк Крейг и Джефф Уэбб Microsoft® Visual Basic 6.0. Мастерская разработчика. 5е изд.
зы почему нет книги "Как научиться всему за 14 дней"

[sbi]

gomer Согласен, шестерка тоже необходима и время тоже, не все так быстро, как хочется...