| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
31.08.2018, 13:52 | #1 | |
Возможно ли такое в DCL и лиспе
газо- нефтепереработка
Уфа
Регистрация: 22.07.2015
Сообщений: 98
|
||
Просмотров: 10252
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
А кто мешает dcl создавать "на лету"?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
газо- нефтепереработка Регистрация: 22.07.2015
Уфа
Сообщений: 98
|
Что значит на лету?
Увидел сколько строк нужно и тут же создал? Мне так не пойдет, я не смогу объяснить другим людям что такое DCL ----- добавлено через ~2 мин. ----- 2 формы, то что у меня высвечивается в диалоговых окнах. Во втором окне, для ввода данных одна строчка. А должно быть столько, сколько пользователь введет в первом диалоговом окне. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
protorgovec, я же тебе показывал, кажется, уже код, где dcl создается самим лиспом. В чем трудность-то?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 02.10.2016
Сообщений: 205
|
я с мобилы. прикрипи к теме файл с исходниками на лиспе и с описаним, что должно быть в диалоговых окнах.
за выходные сделаю и скину небе на почту. адрес своей почты скинь мне вличку. ----- добавлено через ~2 мин. ----- в том, что он делает первые шаги в разработке программ. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
Код:
Остальные недостойны получить сие сакральное знание?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
газо- нефтепереработка Регистрация: 22.07.2015
Уфа
Сообщений: 98
|
Цитата:
|
|||
|
||||
Регистрация: 02.10.2016
Сообщений: 205
|
Кулик Алексей, я с мобилы. Тут мне не выложить. А пальцем набивать уйдет много времени.
----- добавлено через ~3 мин. ----- в выходные у меня есть время, а в понедельник может не быть. |
|||
|
||||
Регистрация: 10.08.2013
Сообщений: 11,041
|
еще можно просто сделать одну форму для ввода данных блока и вызывать ее в цикле требуемое число раз.. только заголовок предусмотреть типа "ввод 3 значения из 10". Насколько понимаю, вопрос об юзабилити уже не стоит.
|
|||
|
||||
Регистрация: 02.10.2016
Сообщений: 205
|
Кулику Алексею. Ни чего секретного. Воспользуемся этим решением :
http://forum.dwg.ru/showthread.php?t=6459 опубликованном в 2006 году. |
|||
|
||||
газо- нефтепереработка Регистрация: 22.07.2015
Уфа
Сообщений: 98
|
[quote=Кулик Алексей aka kpblc;1751655]
Код:
Алексей, добрый день. А можно получить построчный комментарий к твоей программе? Некоторые строки для меня не понятны! ----- добавлено через 51 сек. ----- Добрый день. Актуально ли еще скидывать в личку? Или сегодня комп под рукой и тут все что нужно есть? |
|||
|
||||
Регистрация: 02.10.2016
Сообщений: 205
|
да.
подготовил простейший пример. ----- добавлено через ~52 мин. ----- (defun c:menu_1( /open_fail_name open_fail_d str_0 str_1 str_2 str_3 str_4 ) (startapp "d:/lispmenu1/menu_1.exe" "error open file" ) ;Останавливаем выполнее программы, пока пользователь не закончит работу с внешним диалрговым окном (write-line "Нажми для продолжения Enter") (setq str_0 (read-line)) ; Открытие файла (setq open_file_name "d:/lispmenu1/listmenu1.txt") (setq open_file_d (open open_file_name "r")) ;Чтение файла (setq str_1 (read-line open_file_d)) (princ "Нажата кнопка номер:") (princ str_1) (princ "\n") (setq str_2 (read-line open_file_d)) (princ "Текст:") (princ str_2) (princ "\n") ;Закрытие файла (close open_file_d) ) ----- добавлено через ~59 мин. ----- на яп Лазарус создаем новый проект сохраняем как Menu_1 На форме размещаем компаненты: Edit1 - текстовое поле; comboBox1 - комбинированный список; Memo1 - многострочное поле ввода текста; Button1, Button2 - Кнопки. ----- добавлено через ~1 ч. ----- Для кнопок на вкладке события в инспекторе объектов выбираем события OnClick Для формы событие OnCreate ----- добавлено через ~2 ч. ----- Var NameFile: ansistring; // Глобалная переменная хранит имя файла //При создании формы устанавливаем нач знач глоб переменных и меняем свойства компанентов Procedure TForm1.FormCreate (sender: tobject); begin // программно меняем свойства компанентов form1.caption:='пример меню'; Memo1.viseble:=false; button1.caption:='Передать данные'; button1.caption:='Отмена"; Edit1.text:='проба'; ComboBox1.items.add('Text1'); comboBox1.items.add('Текст2'); comboBox1.items.add('вгд3'); //нач знач NameFile:='d:\lispmenu1\listmenu1.txt'; // папка d:\lispmenu1 должна быть создана за ранее end; // процедура обработки нажатия кнопки отмена procedure TForm1.Button2Click(sender: tobject); begin memo1.clear; memo1.lines.add('0'); Try memo1.lines.saveToFile (Utf8ToAnsi(nameFile)); except showMessage ('Ошибка при записи '); end; close; end; // Процедура обработки нажати кнопки передача данных procedure TForm1.Button1Click(sender:TObject); begin memo1.Clear; memo1.Lines.Add('1'); memo1.Lines.Add(Utf8ToAnsi(Edit1.Text)); memo1.Lines.Add(Utf8ToAnsi(ComboBox1.Text)); memo1.Lines.Add(IntToStr(ComboBox1.ItemIndex)); tru memo1.Lines.SaveToFile(utf8ToAnsi(NameFile)); except showMessage ('ошибка'); end; close; end; Последний раз редактировалось CalcProg, 03.09.2018 в 12:09. Причина: очепятка |
|||
|
||||
газо- нефтепереработка Регистрация: 22.07.2015
Уфа
Сообщений: 98
|
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
Вы либо в ЛС и продолжайте общаться, либо создавайте новую тему в разделе "Программирование" и там обсуждайте.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 02.10.2016
Сообщений: 205
|
Цитата:
----- добавлено через ~1 мин. ----- Цитата:
без разницы, но лучше качать с официального сайта, а там только последние версии. |
|||
|
||||
Регистрация: 18.12.2010
Сообщений: 5,057
|
дичь, всё тоже самое далеается на dotNET и сильно проще
ставь Visual Studio Community |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844
|
CalcProg, еще раз: либо ведется обсуждение lisp и dcl с этой теме, но гласно. Либо организовываете междусобойчик и там говорите о чем хотите. Либо начинаете обсуждать Lazarus - но он к lisp/dcl не имеет прямого отношения, поэтому добро пожаловать в новую ветку.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 02.10.2016
Сообщений: 205
|
Цитата:
то что проще в ней спору нет. а лазарус проще для понимания. пока он в твоей вижуальной студии разберется, оно и уже не требо буде. ----- добавлено через ~4 мин. ----- Цитата:
пущай инициатор создает. ну или модератор создаст и перенесет все лишнее туда. я с мобилы, мой браузер такого не поддерживает. |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Реконструкция подвала при свайных фундаментах, возможно такое решение? | Наиль | Основания и фундаменты | 2 | 20.09.2013 10:43 |
Уменьшение теплоносителя после прогрева, возможно ли? | vikkiners | Отопление | 2 | 24.07.2013 12:57 |
А возможно ли такое!??! Вопрос нефтяникам и буровикам | Botan | Разное | 5 | 21.09.2009 20:12 |
XML и LISp - Такое возможно? | Diman111 | LISP | 3 | 03.03.2008 19:06 |
Возможно сделать такое перекрытие? | Alexcons_2 | Конструкции зданий и сооружений | 3 | 08.01.2008 14:45 |