Полезные коды и авторские программы на Lisp

Cheb · Регистрация: 09.11.2011

Расскажите, пожалуйста, что на лиспе пишите? вкратце, хотя бы. Очень интересно.
Понятно, что студенты пишут лабы, но вот все остальные, чем занимаются?
Сам пока ничего не пишу, а учу язык, но есть задумки написать веб-сервер для парсинга отчетов от АТС-ки. Заходит админ на него и смотрит кто куда и во сколько звонил по офису, статистика всякая там и прочее.
В общем не стесняйтесь, похвастайтесь, может сумеете заинтересовать случайного прохожего языком.

@Catstail · 30.10.2014, 09:52

У меня есть желание написать простой ассемблер на Лиспе. Даже начал, но потом тормознул. А сейчас смотрю на исходники - нужно делать по-другому. Если завершу - опубликую.

@korvin_ · 30.10.2014, 10:20

Я ничего серьезного не писал. Максимум -- генератор кода (так и не дописанный) на Паскале (Делфи) из S-выражений на CL и гуевину для управления (ну, громко сказано, запуск остановка проверки носителя и собственно проверка наличия этого носителя) линуксовым Касперским на Racket.

@castorsky · 30.10.2014, 15:13

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

У меня есть желание написать простой ассемблер на Лиспе.

Тоже, как и Вы, начал писать рефал и проект завис. Времени практически нету. Меня очень сильно огорчает факт, что язык незаслуженно забыт.
Есть несколько закрытых разработок для embedded устройств, шифрование переговоров gsm/cdma. Все это реализовано как набор паттернов для различных ассемблеров на языке racket. В сравнении с языком си, конечно разработка сильно облегчается, но итоговый код все таки нуждается в оптимизации. Т.е. если компактность и производительность первичны, то только c + asm. Была попытка написать verilog, но понял что велосипеды не нужны.

@wwall · 15.11.2014, 16:27

Сейчас пишу по тихому статический анализатор для SQL подобного языка запросов (1С-овский язык запросов)
Закончу - выложу.

@nullxdth · 20.11.2014, 16:08

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

Сейчас пишу по тихому статический анализатор для SQL подобного языка запросов (1С-овский язык запросов)
Закончу - выложу.

Интересно. Расскажи подробнее.

@wwall · 22.11.2014, 21:53

Постараюсь объяснить, если что будет не понятно - уточню.
У 1С есть встроенный язык запросов, некое подмножество SQL-92. Все сводиться к парсеру этого языка (сейчас реализовано на ragg, но переписываю), и обходу узлов получившегося дерева. Пока это небольшой интерпретатор собирающий ошибки и выводящий в консоль отчет. Но сейчас переписываю на racr + datalog по аналогии с https://github.com/jonase/kibit

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

@wwall · 19.01.2015, 12:37

Сообщение от transformator.t

доделаю на днях и уже будет видно по поводу статьи, ок?

Статью может оказаться сложно написать, но в твое случае окажется достаточно опубликовать исходники - код лучше статьи.
И сразу 2 вопроса - а restas смотрел под эту задачу? там вроде маршрутизация симпатично сделана. Второй - есть какое нибудь API для работы с сайтом? или только интерактивная работа?

transformator.t · 19.01.2015, 14:04

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

а restas смотрел под эту задачу

нет

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

есть какое нибудь API для работы с сайтом?

зачем?

@_sg · 20.01.2015, 10:56

transformator.t, Единорог - Нарвал ГЛ,сов,неперех,мр,ед,прош,изъяв

transformator.t · 20.01.2015, 14:46

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

@_sg · 20.01.2015, 15:00

transformator.t, нарвал - это животное, синоним, существительное, а не глагол, возможно ли существительному в синоним выводить существительное нарвал, а не глагол нарвал?

Добавлено через 44 секунды
https://ru.wikipedia.org/wiki/Нарвал

transformator.t · 12.02.2015, 01:29

Не по теме:

такое развлечение

разделим текст на предложения...

Lisp

INSOMNIA> (split-text 
          "Погода в тот день была \"хорошей\". There is no silver bullet. А. С. Пушкин - великий 
          русский поэт. Ф. М. Достоевский жил в не самое простое для России время. Началом 
          эпохи Unix считается 01. 01. 1970. Василий Пупкин был назначен и. о. генерального 
          менеджера 11.06.1999. Его почтовый адрес [email]v.pupkin@nowhere.ru.com[/email], 
          личная страничка здесь - nowhere.ru.com/pupkin.html - теперь все знают, как с ним связаться."
          *model*
          *data*)
 
Погода в тот день была "хорошей".
------------------------
 
 
 There is no silver bullet.
------------------------
 
 
 А. С. Пушкин - великий русский поэт.
------------------------
 
 
 Ф. М. Достоевский жил в не самое простое для России время.
------------------------
 
 
 Началом эпохи Unix считается 01. 01. 1970.
------------------------
 
 
 Василий Пупкин был назначен и. о. генерального менеджера 11.06.1999.
------------------------
 
 
 Его почтовый адрес [email]v.pupkin@nowhere.ru.com[/email], личная страничка здесь - nowhere.ru.com/pupkin.html - теперь все знают, как с ним связаться.
------------------------
 
 
NIL

чуть меньше 9-ста строк с комментами делают такое чудо...)
никакой эвристики, только мл, только хардкор..)

@castorsky · 12.02.2015, 01:34

Сообщение от transformator.t

только мл

ml или sml? Компилятор нью-джерси?

transformator.t · 12.02.2015, 01:43

не знаю, честно, что это за компилятор, я юзал обычные и скучные опорные вектора (cl-libsvm)

Добавлено через 46 секунд
мл - имел ввиду machine learning

@castorsky · 12.02.2015, 02:02

Сообщение от transformator.t

не знаю, честно, что это за компилятор

http://www.smlnj.org/

@robur · 23.03.2015, 23:44

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

. Код, скрин , естественно локализация "местная".

Кликните здесь для просмотра всего текста

Lisp

 /
// Макросы 
//
 
//
// BUT1
//
 
( defmacro MAC1 ( x1 x2 x3 x4 )
( prog  ( y1 y2 y3 ) 
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( setq y3 ( str2flo ( dlgGetText x3 ) ) )
( dlgPutText x4  ( flo2str   ( * ( - y2 y1 ) y3 ) ) ) 
)
)
 
 
( defmacro MAC2 ( x1 x2 x3 x4 )
( prog  ( y1 y2 y3  ) 
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( setq y3 ( str2flo ( dlgGetText x3 ) ) )
( dlgPutText x4  ( flo2str   ( * ( + y2 y1 ) y3 ) ) )  
)
)
 
 
( defmacro MAC3 ( x1 x2 )
( prog  ( y1 )
( setq y1  ( dlgGetText x1 ) )  
( dlgPutText x2 y1 )
) 
)
 
 
( defmacro MAC4 ( x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 ) 
( prog  ( y1 y2 y3 y4 y5 y6 y7 y8 y9  ) 
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( setq y3 ( str2flo ( dlgGetText x3 ) ) ) 
( setq y4 ( str2flo ( dlgGetText x4 ) ) )
( setq y5 ( str2flo ( dlgGetText x5 ) ) )
( setq y6 ( str2flo ( dlgGetText x6 ) ) )
( setq y7 ( str2flo ( dlgGetText x7 ) ) )
( setq y8 ( str2flo ( dlgGetText x8 ) ) )
( setq y9 ( str2flo ( dlgGetText x9 ) ) )
( dlgPutText x10 ( flo2str  ( + y1 y2 y3 y4 y5 y6 y7 y8 y9 ) ) )
)
)
 
//
// BUT2
//
 
( defmacro MAC5 ( x1 x2 x3 x4 x5 x6 x7 )
( prog  ( y1 y2 y3 y4 y5 y6  )
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( setq y3 ( str2flo ( dlgGetText x3 ) ) ) 
( setq y4 ( str2flo ( dlgGetText x4 ) ) )
( setq y5 ( str2flo ( dlgGetText x5 ) ) )
( setq y6 ( str2flo ( dlgGetText x6 ) ) )
( dlgPutText x7  ( flo2str  ( + y1 y2 y3 y4 y5 y6 ) ) )
)
)
 
//
// BUT3
//
 
( defmacro MAC6 ( x1 x2 x3 )
( prog  ( y1 y2  )
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( dlgPutText x3  ( flo2str  ( + y1 y2 ) ) )
)
)
 
//
// Инициализация файлов
//
 
( defun MAC7 nil 
( prog nil 
( filOpen 'Fi1 "hl1.txt" _OUTPUT )
( filPutLine 'Fi1 0.00  )
( filPutLine 'Fi1 0.00 )
( filPutLine 'Fi1 0.00  )
( filClose ' Fi1 ) ) )
 
( defun MAC8 nil
( prog nil 
( filOpen 'Fi2 "hl2.txt" _OUTPUT )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filClose ' Fi2 ) ) )
 
//
// CH1 Запись в фаил hl1
//
 
( defmacro MAC9 ( x1 x2 x3 )
( prog nil 
( filOpen 'Fi1 "hl1.txt" _OUTPUT )
( filPutLine 'Fi1 ( dlgGetText x1 ) )
( filPutLine 'Fi1 ( dlgGetText x2 ) )
( filPutLine 'Fi1 ( dlgGetText x3 ) )
( filClose 'Fi1 ) ) )
 
//
// CH2 Запись в файл hl2
//
 
( defmacro MAC10 ( x1 x2 x3 x4 x5 x6 x7 x8 x9 )
( prog nil 
( filOpen ' Fi2 "hl2.txt" _OUTPUT )
( filPutLine 'Fi2 ( dlgGetText x1 ) )
( filPutLine 'Fi2 ( dlgGetText x2 ) )
( filPutLine 'Fi2 ( dlgGetText x3 ) )
( filPutLine 'Fi2 ( dlgGetText x4 ) )
( filPutLine 'Fi2 ( dlgGetText x5 ) )
( filPutLine 'Fi2 ( dlgGetText x6 ) )
( filPutLine 'Fi2 ( dlgGetText x7 ) )
( filPutLine 'Fi2 ( dlgGetText x8 ) )
( filPutLine 'Fi2 ( dlgGetText x9 ) )
( filClose 'Fi2 ) ) )
 
//
//Чтение из файлов, запись в текст-боксы.
//
 
( defmacro MAC11 ( x1 x2 x3 )
( prog  ( y1 y2 y3 )
( filOpen 'Fi1 "hl1.txt"  _INPUT )
( setq y1 ( printline ( filGetLine 'Fi1 ) ) )
( setq y2 ( printline ( filGetLine 'Fi1 ) ) ) 
( setq y3 ( printline ( filGetLine 'Fi1 ) ) )
( filClose 'Fi1 )
( dlgPutText x1 y1 )
( dlgPutText x2 y2 )
( dlgPutText x3 y3 )
)
)
 
 
( defmacro MAC12 ( x1 x2 x3 x4 x5 x6 x7 x8 x9 )
( prog  ( y1 y2 y3 y4 y5 y6 y7 y8 y9 )
( filOpen 'Fi2 "hl2.txt"  _INPUT )
( setq y1 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y2 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y3 ( printline ( filGetLine 'Fi2 ) ) )
( setq y4 ( printline ( filGetLine 'Fi2 ) ) )
( setq y5 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y6 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y7 ( printline ( filGetLine 'Fi2 ) ) )
( setq y8 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y9 ( printline ( filGetLine 'Fi2 ) ) ) 
( filClose 'Fi2 )
( dlgPutText x1 y1 )
( dlgPutText x2 y2 )
( dlgPutText x3 y3 )
( dlgPutText x4 y4 )
( dlgPutText x5 y5 )
( dlgPutText x6 y6 )
( dlgPutText x7 y7 )
( dlgPutText x8 y8 )
( dlgPutText x9 y9 )
)
)
 
 
 
 
//
// Главная функция
//
 
 
( defun MAC0 NIL
 
 
 
 
//
//  Программа отображения диалога _Dlg_
//
 
(prog nil
 
      
 
      (dlgCreate '_Dlg_ 1005 849 "Калькулятор расчёта платы за коммунальные услуги локализация Алматы АЛСЕКО,ИВЦ" &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_1 _LABEL 37 35 135 21 '("Tahoma" 8,25 1 0 0) "Предидущие значения" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_2 _LABEL 210 35 135 21 '("Tahoma" 8,25 1 0 0) "Значения сейчас" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_3 _LABEL 374 35 146 54 '("Tahoma" 8,25 1 0 0) "Фиксировать текущие значения для последующего расчёта, поставте галочку" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_4 _LABEL 543 35 81 21 '("Tahoma" 8,25 1 0 0) "Тариф" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_5 _LABEL 649 35 147 61 '("Tahoma" 8,25 1 0 0) "Фиксировать текущие значения для последующего расчета, поставте галочку" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_6 _LABEL 828 35 109 25 '("Tahoma" 8,25 1 0 0) "Итог" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_7 _LABEL 60 69 88 23 '("Tahoma" 8,25 1 0 0) "Эл. энергия" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_8 _LABEL 60 135 88 23 '("Tahoma" 8,25 1 0 0) "Горячая вода" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_9 _LABEL 60 202 88 23 '("Tahoma" 8,25 1 0 0) "Холод. вода" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_10 _LABEL 35 302 456 26 '("Tahoma" 8,25 1 0 0) "Канализация. Вычисляется автоматический путём суммирования расхода горячей ихолодной воды" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_11 _LABEL 430 368 88 23 '("Tahoma" 8,25 1 0 0) "Газ" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_12 _LABEL 430 435 88 23 '("Tahoma" 8,25 1 0 0) "ВДГО" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_13 _LABEL 430 502 88 23 '("Tahoma" 8,25 1 0 0) "Вывоз ТБО" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_14 _LABEL 430 569 88 23 '("Tahoma" 8,25 1 0 0) "Домофон" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_15 _LABEL 430 638 88 26 '("Tahoma" 8,25 1 0 0) "Служба спасения" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_16 _LABEL 828 668 88 23 '("Tahoma" 8,25 1 0 0) "Итого" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_17 _LABEL 60 369 88 26 '("Tahoma" 8,25 1 0 0) "Содержание дома" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_18 _LABEL 221 342 88 26 '("Tahoma" 8,25 1 0 0) "Начислено" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_19 _LABEL 60 400 88 26 '("Tahoma" 8,25 1 0 0) "Т/О системы отопления" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_20 _LABEL 60 431 88 26 '("Tahoma" 8,25 1 0 0) "Уборка подъезда" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_21 _LABEL 60 462 88 26 '("Tahoma" 8,25 1 0 0) "Т/О Вен. каналов" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_22 _LABEL 60 493 88 26 '("Tahoma" 8,25 1 0 0) "Юридические Услуги" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_23 _LABEL 60 524 88 26 '("Tahoma" 8,25 1 0 0) "Услуги ММТС телефон" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_24 _LABEL 221 569 88 23 '("Tahoma" 8,25 1 0 0) "Итого" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_25 _LABEL 548 694 88 23 '("Tahoma" 8,25 1 0 0) "Общий Итог" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ 'tx1 _TEXT 60 100 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx2 _TEXT 221 100 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx3 _TEXT 548 100 88 26 '("Tahoma" 8 1 0 0) "0.0" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'CH1 _CHECK 425 110 15 15 '("Tahoma" 8,25 1 0 0) "" 0 &H80000012 &H8000000F)
 
      (dlgAddControl '_Dlg_ 'tx4 _TEXT 828 100 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx5 _TEXT 60 167 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx6 _TEXT 60 234 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx7 _TEXT 221 167 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx8 _TEXT 221 234 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx9 _TEXT 548 167 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx10 _TEXT 548 234 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx11 _TEXT 828 167 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx12 _TEXT 828 234 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx13 _TEXT 548 301 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx14 _TEXT 548 368 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'CH2 _CHECK 680 110 15 15 '("Tahoma" 8,25 1 0 0) "" 0 &H80000012 &H8000000F)
 
      (dlgAddControl '_Dlg_ 'tx15 _TEXT 548 435 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx16 _TEXT 548 502 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx17 _TEXT 548 569 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx18 _TEXT 548 638 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx19 _TEXT 828 301 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx20 _TEXT 828 368 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx21 _TEXT 828 435 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx22 _TEXT 828 502 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx23 _TEXT 828 569 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx24 _TEXT 828 638 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx25 _TEXT 828 694 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx26 _TEXT 221 369 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx27 _TEXT 221 400 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx28 _TEXT 221 431 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx29 _TEXT 221 462 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx30 _TEXT 221 493 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx31 _TEXT 221 524 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx32 _TEXT 221 638 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx33 _TEXT 427 692 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'BUT1 _BUTTON 828 733 88 35 '("Tahoma" 8,25 1 0 0) "Вычислить 1")
 
      (dlgAddControl '_Dlg_ 'BUT2 _BUTTON 221 733 88 35 '("Tahoma" 8,25 1 0 0) "Вычислить 2")
 
      (dlgAddControl '_Dlg_ 'BUT3 _BUTTON 430 733 88 35 '("Tahoma" 8,25 1 0 0) "Общая сумма")
 
      (dlgAddControl '_Dlg_ 'BUT4 _BUTTON 548 733 252 35 '("Tahoma" 9 1 0 0) "Закрыть приложение")
 
 
      //
      // Инициализация файлов 
      //
 
      ( unless ( filExistp "hl1.txt" ) ( MAC7 ) )
      ( unless ( filExistp "hl2.txt" ) ( MAC8 ) )
 
     //
     // Чтение из файлов, запись в текст-боксы.
     //
 
     ( MAC11 tx1 tx5 tx6 )
     ( MAC12 tx3 tx9 tx10 tx13 tx14 tx15 tx16 tx17 tx18 )
 
      //
      // Обработчик события CLICK для кнопки BUT1
      //
 
      (defun BUT1_Click  Nil 
 
      ( prog nil
 
      (  MAC1 tx1 tx2 tx3 tx4 )
      (  MAC1 tx5 tx7 tx9 tx11 )
      (  MAC1 tx6 tx8 tx10 tx12 )
 
      (  MAC2 tx7 tx8 tx13 tx19 )
 
      (  MAC3 tx14 tx20 )
      (  MAC3 tx15 tx21 )
      (  MAC3 tx16 tx22 )
      (  MAC3 tx17 tx23 )
      (  MAC3 tx18 tx24 )
 
      ( MAC4 tx4 tx11 tx12 tx19 tx20  
        tx21 tx22 tx23 tx24 tx25 ) 
 
      )
 
      )
 
      //
      //   Назначение процедуры-события BUT1_Click  контролу BUT1
      //
 
      (dlgSetEvent 'BUT1 'BUT1_Click )
 
      //
      // Обработчик события CLICK для кнопки BUT2
      //
 
      (defun BUT2_Click  Nil 
 
      ( prog nil
 
      ( MAC5 tx26 tx27 tx28 tx29 tx30 tx31 tx32 ) 
 
      )
 
      )
 
      //
      //   Назначение процедуры-события BUT2_Click  контролу BUT2
      //
 
      (dlgSetEvent 'BUT2 'BUT2_Click )
 
      //
      // Обработчик события CLICK для кнопки BUT3
      //
 
      (defun BUT3_Click  Nil 
 
      ( prog nil( MAC6 tx25 tx32 tx33 ) 
 
      )
 
      )
 
      //
      //   Назначение процедуры-события BUT3_Click  контролу BUT3
      //
 
      (dlgSetEvent 'BUT3 'BUT3_Click )
 
      //
      // Обработчик события CLICK для галочки CH1
      //
 
      (defun CH1_Click  Nil 
 
      ( prog nil ( MAC9 tx2 tx7 tx8 ) )
 
      )
 
      //
      //   Назначение процедуры-события CH1_Click  контролу CH1
      //
 
      (dlgSetEvent 'CH1 'CH1_Click )
 
      //
      // Обработчик события CLICK для галочки CH2
      //
 
      (defun CH2_Click  Nil 
 
      ( prog nil
      ( MAC10 tx3 tx9 tx10 tx13 tx14 tx15 tx16 tx17 tx18 ) 
 
      )
 
      )
 
 
      //
      //   Назначение процедуры-события CH2_Click  контролу CH2
      //
 
      (dlgSetEvent 'CH2 'CH2_Click )
 
      //
      // Обработчик события CLICK для кнопки BUT4
      //
 
      (defun BUT4_Click  Nil ( dlgHide '_DLG_ ))
 
      //
      //   Назначение процедуры-события BUT4_Click  контролу BUT4
      //
 
      (dlgSetEvent 'BUT4 'BUT4_Click )
 
 
      //
      //   Отображение диалога _Dlg_
      //
 
      (dlgShow '_Dlg_)
)
 
)

Полезные коды и авторские программы на Lisp

@robur · 28.03.2015, 09:27

:black_eye.: Код оказался косячный опять получил от домашних, ошибка в арифметических действиях в расчёте канализации.. "астрономические" суммы надо сказать

Вместо суммы разности предыдущих и текущих значений холодной горячей вычислял разность текущих значений горячей и холодной. Поправка Код.

Кликните здесь для просмотра всего текста

Lisp

 
 
//
// Макросы 
//
 
//
// BUT1
//
 
( defmacro MAC1 ( x1 x2 x3 x4 )
( prog  ( y1 y2 y3 ) 
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( setq y3 ( str2flo ( dlgGetText x3 ) ) )
( dlgPutText x4  ( flo2str   ( * ( - y2 y1 ) y3 ) ) ) 
)
)
 
 
( defmacro MAC2 ( x1 x2 x3 x4 x5 x6)
( prog  ( y1 y2 y3 y4 y5 ) 
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( setq y3 ( str2flo ( dlgGetText x3 ) ) )
( setq y4 ( str2flo ( dlgGetText x4 ) ) )
( setq y5 ( str2flo ( dlgGetText x5 ) ) )
( dlgPutText x6  
( flo2str ( * ( + ( - y2 y1 ) ( - y4 y3 ) ) y5 ) ) ) 
)
)
 
 
( defmacro MAC3 ( x1 x2 )
( prog  ( y1 )
( setq y1  ( dlgGetText x1 ) )  
( dlgPutText x2 y1 )
) 
)
 
 
( defmacro MAC4 ( x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 ) 
( prog  ( y1 y2 y3 y4 y5 y6 y7 y8 y9  ) 
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( setq y3 ( str2flo ( dlgGetText x3 ) ) ) 
( setq y4 ( str2flo ( dlgGetText x4 ) ) )
( setq y5 ( str2flo ( dlgGetText x5 ) ) )
( setq y6 ( str2flo ( dlgGetText x6 ) ) )
( setq y7 ( str2flo ( dlgGetText x7 ) ) )
( setq y8 ( str2flo ( dlgGetText x8 ) ) )
( setq y9 ( str2flo ( dlgGetText x9 ) ) )
( dlgPutText x10 ( flo2str  ( + y1 y2 y3 y4 y5 y6 y7 y8 y9 ) ) )
)
)
 
//
// BUT2
//
 
( defmacro MAC5 ( x1 x2 x3 x4 x5 x6 x7 )
( prog  ( y1 y2 y3 y4 y5 y6  )
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( setq y3 ( str2flo ( dlgGetText x3 ) ) ) 
( setq y4 ( str2flo ( dlgGetText x4 ) ) )
( setq y5 ( str2flo ( dlgGetText x5 ) ) )
( setq y6 ( str2flo ( dlgGetText x6 ) ) )
( dlgPutText x7  ( flo2str  ( + y1 y2 y3 y4 y5 y6 ) ) )
)
)
 
//
// BUT3
//
 
( defmacro MAC6 ( x1 x2 x3 )
( prog  ( y1 y2  )
( setq y1 ( str2flo ( dlgGetText x1 ) ) )
( setq y2 ( str2flo ( dlgGetText x2 ) ) )
( dlgPutText x3  ( flo2str  ( + y1 y2 ) ) )
)
)
 
//
// Инициализация файлов
//
 
( defun MAC7 nil 
( prog nil 
( filOpen 'Fi1 "hl1.txt" _OUTPUT )
( filPutLine 'Fi1 0.00  )
( filPutLine 'Fi1 0.00 )
( filPutLine 'Fi1 0.00  )
( filClose ' Fi1 ) ) )
 
( defun MAC8 nil
( prog nil 
( filOpen 'Fi2 "hl2.txt" _OUTPUT )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filPutLine 'Fi2  0.00  )
( filClose ' Fi2 ) ) )
 
//
// CH1 Запись в фаил hl1
//
 
( defmacro MAC9 ( x1 x2 x3 )
( prog nil 
( filOpen 'Fi1 "hl1.txt" _OUTPUT )
( filPutLine 'Fi1 ( dlgGetText x1 ) )
( filPutLine 'Fi1 ( dlgGetText x2 ) )
( filPutLine 'Fi1 ( dlgGetText x3 ) )
( filClose 'Fi1 ) ) )
 
//
// CH2 Запись в файл hl2
//
 
( defmacro MAC10 ( x1 x2 x3 x4 x5 x6 x7 x8 x9 )
( prog nil 
( filOpen ' Fi2 "hl2.txt" _OUTPUT )
( filPutLine 'Fi2 ( dlgGetText x1 ) )
( filPutLine 'Fi2 ( dlgGetText x2 ) )
( filPutLine 'Fi2 ( dlgGetText x3 ) )
( filPutLine 'Fi2 ( dlgGetText x4 ) )
( filPutLine 'Fi2 ( dlgGetText x5 ) )
( filPutLine 'Fi2 ( dlgGetText x6 ) )
( filPutLine 'Fi2 ( dlgGetText x7 ) )
( filPutLine 'Fi2 ( dlgGetText x8 ) )
( filPutLine 'Fi2 ( dlgGetText x9 ) )
( filClose 'Fi2 ) ) )
 
//
//Чтение из файлов, запись в текст-боксы.
//
 
( defmacro MAC11 ( x1 x2 x3 )
( prog  ( y1 y2 y3 )
( filOpen 'Fi1 "hl1.txt"  _INPUT )
( setq y1 ( printline ( filGetLine 'Fi1 ) ) )
( setq y2 ( printline ( filGetLine 'Fi1 ) ) ) 
( setq y3 ( printline ( filGetLine 'Fi1 ) ) )
( filClose 'Fi1 )
( dlgPutText x1 y1 )
( dlgPutText x2 y2 )
( dlgPutText x3 y3 )
)
)
 
 
( defmacro MAC12 ( x1 x2 x3 x4 x5 x6 x7 x8 x9 )
( prog  ( y1 y2 y3 y4 y5 y6 y7 y8 y9 )
( filOpen 'Fi2 "hl2.txt"  _INPUT )
( setq y1 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y2 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y3 ( printline ( filGetLine 'Fi2 ) ) )
( setq y4 ( printline ( filGetLine 'Fi2 ) ) )
( setq y5 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y6 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y7 ( printline ( filGetLine 'Fi2 ) ) )
( setq y8 ( printline ( filGetLine 'Fi2 ) ) ) 
( setq y9 ( printline ( filGetLine 'Fi2 ) ) ) 
( filClose 'Fi2 )
( dlgPutText x1 y1 )
( dlgPutText x2 y2 )
( dlgPutText x3 y3 )
( dlgPutText x4 y4 )
( dlgPutText x5 y5 )
( dlgPutText x6 y6 )
( dlgPutText x7 y7 )
( dlgPutText x8 y8 )
( dlgPutText x9 y9 )
)
)
 
 
 
 
//
// Главная функция
//
 
 
( defun MAC0 NIL
 
 
 
 
//
//  Программа отображения диалога _Dlg_
//
 
(prog nil
 
      
 
      (dlgCreate '_Dlg_ 1005 849 "Калькулятор расчёта платы за коммунальные услуги локализация Алматы АЛСЕКО,ИВЦ" &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_1 _LABEL 37 35 135 21 '("Tahoma" 8,25 1 0 0) "Предидущие значения" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_2 _LABEL 210 35 135 21 '("Tahoma" 8,25 1 0 0) "Значения сейчас" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_3 _LABEL 374 35 146 54 '("Tahoma" 8,25 1 0 0) "Фиксировать текущие значения для последующего расчёта, поставте галочку" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_4 _LABEL 543 35 81 21 '("Tahoma" 8,25 1 0 0) "Тариф" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_5 _LABEL 649 35 147 61 '("Tahoma" 8,25 1 0 0) "Фиксировать текущие значения для последующего расчета, поставте галочку" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_6 _LABEL 828 35 109 25 '("Tahoma" 8,25 1 0 0) "Итог" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_7 _LABEL 60 69 88 23 '("Tahoma" 8,25 1 0 0) "Эл. энергия" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_8 _LABEL 60 135 88 23 '("Tahoma" 8,25 1 0 0) "Горячая вода" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_9 _LABEL 60 202 88 23 '("Tahoma" 8,25 1 0 0) "Холод. вода" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_10 _LABEL 35 302 456 26 '("Tahoma" 8,25 1 0 0) "Канализация. Вычисляется автоматический путём суммирования расхода горячей ихолодной воды" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_11 _LABEL 430 368 88 23 '("Tahoma" 8,25 1 0 0) "Газ" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_12 _LABEL 430 435 88 23 '("Tahoma" 8,25 1 0 0) "ВДГО" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_13 _LABEL 430 502 88 23 '("Tahoma" 8,25 1 0 0) "Вывоз ТБО" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_14 _LABEL 430 569 88 23 '("Tahoma" 8,25 1 0 0) "Домофон" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_15 _LABEL 430 638 88 26 '("Tahoma" 8,25 1 0 0) "Служба спасения" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_16 _LABEL 828 668 88 23 '("Tahoma" 8,25 1 0 0) "Итого" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_17 _LABEL 60 369 88 26 '("Tahoma" 8,25 1 0 0) "Содержание дома" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_18 _LABEL 221 342 88 26 '("Tahoma" 8,25 1 0 0) "Начислено" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_19 _LABEL 60 400 88 26 '("Tahoma" 8,25 1 0 0) "Т/О системы отопления" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_20 _LABEL 60 431 88 26 '("Tahoma" 8,25 1 0 0) "Уборка подъезда" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_21 _LABEL 60 462 88 26 '("Tahoma" 8,25 1 0 0) "Т/О Вен. каналов" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_22 _LABEL 60 493 88 26 '("Tahoma" 8,25 1 0 0) "Юридические Услуги" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_23 _LABEL 60 524 88 26 '("Tahoma" 8,25 1 0 0) "Услуги ММТС телефон" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_24 _LABEL 221 569 88 23 '("Tahoma" 8,25 1 0 0) "Итого" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ '_LBL_25 _LABEL 548 694 88 23 '("Tahoma" 8,25 1 0 0) "Общий Итог" 0 &HFFFFFF &H3F3F3F)
 
      (dlgAddControl '_Dlg_ 'tx1 _TEXT 60 100 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx2 _TEXT 221 100 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx3 _TEXT 548 100 88 26 '("Tahoma" 8 1 0 0) "0.0" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'CH1 _CHECK 425 110 15 15 '("Tahoma" 8,25 1 0 0) "" 0 &H80000012 &H8000000F)
 
      (dlgAddControl '_Dlg_ 'tx4 _TEXT 828 100 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx5 _TEXT 60 167 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx6 _TEXT 60 234 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx7 _TEXT 221 167 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx8 _TEXT 221 234 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx9 _TEXT 548 167 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx10 _TEXT 548 234 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx11 _TEXT 828 167 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx12 _TEXT 828 234 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx13 _TEXT 548 301 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx14 _TEXT 548 368 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'CH2 _CHECK 680 110 15 15 '("Tahoma" 8,25 1 0 0) "" 0 &H80000012 &H8000000F)
 
      (dlgAddControl '_Dlg_ 'tx15 _TEXT 548 435 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx16 _TEXT 548 502 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx17 _TEXT 548 569 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx18 _TEXT 548 638 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx19 _TEXT 828 301 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx20 _TEXT 828 368 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx21 _TEXT 828 435 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx22 _TEXT 828 502 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx23 _TEXT 828 569 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx24 _TEXT 828 638 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx25 _TEXT 828 694 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx26 _TEXT 221 369 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx27 _TEXT 221 400 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx28 _TEXT 221 431 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx29 _TEXT 221 462 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx30 _TEXT 221 493 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx31 _TEXT 221 524 88 26 '("Tahoma" 8 1 0 0) "0.00" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx32 _TEXT 221 638 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'tx33 _TEXT 427 692 88 26 '("Tahoma" 8 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ 'BUT1 _BUTTON 828 733 88 35 '("Tahoma" 8,25 1 0 0) "Вычислить 1")
 
      (dlgAddControl '_Dlg_ 'BUT2 _BUTTON 221 733 88 35 '("Tahoma" 8,25 1 0 0) "Вычислить 2")
 
      (dlgAddControl '_Dlg_ 'BUT3 _BUTTON 430 733 88 35 '("Tahoma" 8,25 1 0 0) "Общая сумма")
 
      (dlgAddControl '_Dlg_ 'BUT4 _BUTTON 548 733 252 35 '("Tahoma" 9 1 0 0) "Закрыть приложение")
 
 
      //
      // Инициализация файлов 
      //
 
      ( unless ( filExistp "hl1.txt" ) ( MAC7 ) )
      ( unless ( filExistp "hl2.txt" ) ( MAC8 ) )
 
     //
     // Чтение из файлов, запись в текст-боксы.
     //
 
     ( MAC11 tx1 tx5 tx6 )
     ( MAC12 tx3 tx9 tx10 tx13 tx14 tx15 tx16 tx17 tx18 )
 
      //
      // Обработчик события CLICK для кнопки BUT1
      //
 
      (defun BUT1_Click  Nil 
 
      ( prog nil
 
      (  MAC1 tx1 tx2 tx3 tx4 )
      (  MAC1 tx5 tx7 tx9 tx11 )
      (  MAC1 tx6 tx8 tx10 tx12 )
 
      (  MAC2 tx5 tx7 tx6 tx8 tx13 tx19 )
 
      (  MAC3 tx14 tx20 )
      (  MAC3 tx15 tx21 )
      (  MAC3 tx16 tx22 )
      (  MAC3 tx17 tx23 )
      (  MAC3 tx18 tx24 )
 
      ( MAC4 tx4 tx11 tx12 tx19 tx20  
        tx21 tx22 tx23 tx24 tx25 ) 
 
      )
 
      )
 
      //
      //   Назначение процедуры-события BUT1_Click  контролу BUT1
      //
 
      (dlgSetEvent 'BUT1 'BUT1_Click )
 
      //
      // Обработчик события CLICK для кнопки BUT2
      //
 
      (defun BUT2_Click  Nil 
 
      ( prog nil
 
      ( MAC5 tx26 tx27 tx28 tx29 tx30 tx31 tx32 ) 
 
      )
 
      )
 
      //
      //   Назначение процедуры-события BUT2_Click  контролу BUT2
      //
 
      (dlgSetEvent 'BUT2 'BUT2_Click )
 
      //
      // Обработчик события CLICK для кнопки BUT3
      //
 
      (defun BUT3_Click  Nil 
 
      ( prog nil( MAC6 tx25 tx32 tx33 ) 
 
      )
 
      )
 
      //
      //   Назначение процедуры-события BUT3_Click  контролу BUT3
      //
 
      (dlgSetEvent 'BUT3 'BUT3_Click )
 
      //
      // Обработчик события CLICK для галочки CH1
      //
 
      (defun CH1_Click  Nil 
 
      ( prog nil ( MAC9 tx2 tx7 tx8 ) )
 
      )
 
      //
      //   Назначение процедуры-события CH1_Click  контролу CH1
      //
 
      (dlgSetEvent 'CH1 'CH1_Click )
 
      //
      // Обработчик события CLICK для галочки CH2
      //
 
      (defun CH2_Click  Nil 
 
      ( prog nil
      ( MAC10 tx3 tx9 tx10 tx13 tx14 tx15 tx16 tx17 tx18 ) 
 
      )
 
      )
 
 
      //
      //   Назначение процедуры-события CH2_Click  контролу CH2
      //
 
      (dlgSetEvent 'CH2 'CH2_Click )
 
      //
      // Обработчик события CLICK для кнопки BUT4
      //
 
      (defun BUT4_Click  Nil ( dlgHide '_DLG_ ))
 
      //
      //   Назначение процедуры-события BUT4_Click  контролу BUT4
      //
 
      (dlgSetEvent 'BUT4 'BUT4_Click )
 
 
      //
      //   Отображение диалога _Dlg_
      //
 
      (dlgShow '_Dlg_)
)
 
)

@Lambdik · 28.03.2015, 10:48

robur И сколько же времени ушло на создание этой рамочки?

@robur · 28.03.2015, 11:06

Ну в общей сложности часов 8-12 -ать, урыками в течение пару месяцев, учитывая разные варианты формы переписывание кода раза три.. И то поскользнулся на ровном месте, не тестил ведь, думал под конец месяца будем платить там и протестирую.. "некогда всё было"

Cheb 91 / 58 / 8 Регистрация: 09.11.2011 Сообщений: 443
		1
	Полезные коды и авторские программы на Lisp 30.10.2014, 09:43. Показов 23806. Ответов 117 Метки нет (Все метки) Расскажите, пожалуйста, что на лиспе пишите? вкратце, хотя бы. Очень интересно. Понятно, что студенты пишут лабы, но вот все остальные, чем занимаются? Сам пока ничего не пишу, а учу язык, но есть задумки написать веб-сервер для парсинга отчетов от АТС-ки. Заходит админ на него и смотрит кто куда и во сколько звонил по офису, статистика всякая там и прочее. В общем не стесняйтесь, похвастайтесь, может сумеете заинтересовать случайного прохожего языком. 0

@Catstail Модератор 30004 / 16479 / 3337 Регистрация: 12.02.2012 Сообщений: 27,432 Записей в блоге: 5
	30.10.2014, 09:52	2
	У меня есть желание написать простой ассемблер на Лиспе. Даже начал, но потом тормознул. А сейчас смотрю на исходники - нужно делать по-другому. Если завершу - опубликую. 3

@korvin_ 3866 / 2486 / 447 Регистрация: 28.04.2012 Сообщений: 8,164
	30.10.2014, 10:20	3
	Я ничего серьезного не писал. Максимум -- генератор кода (так и не дописанный) на Паскале (Делфи) из S-выражений на CL и гуевину для управления (ну, громко сказано, запуск остановка проверки носителя и собственно проверка наличия этого носителя) линуксовым Касперским на Racket. 1

@castorsky 1978 / 1082 / 87 Регистрация: 29.11.2013 Сообщений: 3,353
	30.10.2014, 15:13	4
	Сообщение от Catstail У меня есть желание написать простой ассемблер на Лиспе. Тоже, как и Вы, начал писать рефал и проект завис. Времени практически нету. Меня очень сильно огорчает факт, что язык незаслуженно забыт. Есть несколько закрытых разработок для embedded устройств, шифрование переговоров gsm/cdma. Все это реализовано как набор паттернов для различных ассемблеров на языке racket. В сравнении с языком си, конечно разработка сильно облегчается, но итоговый код все таки нуждается в оптимизации. Т.е. если компактность и производительность первичны, то только c + asm. Была попытка написать verilog, но понял что велосипеды не нужны. 1

@wwall 210 / 203 / 15 Регистрация: 29.05.2014 Сообщений: 1,056
	15.11.2014, 16:27	5
	Сейчас пишу по тихому статический анализатор для SQL подобного языка запросов (1С-овский язык запросов) Закончу - выложу. 3

@nullxdth 2303 / 1062 / 77 Регистрация: 12.03.2013 Сообщений: 4,980
	20.11.2014, 16:08	6
	Сообщение от wwall Сейчас пишу по тихому статический анализатор для SQL подобного языка запросов (1С-овский язык запросов) Закончу - выложу. Интересно. Расскажи подробнее. 0

@wwall 210 / 203 / 15 Регистрация: 29.05.2014 Сообщений: 1,056
	22.11.2014, 21:53	7
	Постараюсь объяснить, если что будет не понятно - уточню. У 1С есть встроенный язык запросов, некое подмножество SQL-92. Все сводиться к парсеру этого языка (сейчас реализовано на ragg, но переписываю), и обходу узлов получившегося дерева. Пока это небольшой интерпретатор собирающий ошибки и выводящий в консоль отчет. Но сейчас переписываю на racr + datalog по аналогии с https://github.com/jonase/kibit Добавлено через 59 секунд Ну и плюс ко всему, работа с этим проектом позволила понять разработку парсеров намного лучше чем в универе. 3

@wwall 210 / 203 / 15 Регистрация: 29.05.2014 Сообщений: 1,056
	19.01.2015, 12:37	8
	Сообщение от transformator.t доделаю на днях и уже будет видно по поводу статьи, ок? Статью может оказаться сложно написать, но в твое случае окажется достаточно опубликовать исходники - код лучше статьи. И сразу 2 вопроса - а restas смотрел под эту задачу? там вроде маршрутизация симпатично сделана. Второй - есть какое нибудь API для работы с сайтом? или только интерактивная работа? 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	19.01.2015, 14:04	9
	Сообщение от wwall а restas смотрел под эту задачу нет Сообщение от wwall есть какое нибудь API для работы с сайтом? зачем? 0

@_sg 4556 / 4262 / 363 Регистрация: 12.05.2012 Сообщений: 3,001
	20.01.2015, 10:56	10
	transformator.t, Единорог - Нарвал ГЛ,сов,неперех,мр,ед,прош,изъяв 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	20.01.2015, 14:46	11
	_sg, хм... возможно там в коде ошибка где то была (есть) ошибка) я сейчас делаю рефакторинг и обновляю базу.. Миниатюры 0

@_sg 4556 / 4262 / 363 Регистрация: 12.05.2012 Сообщений: 3,001
	20.01.2015, 15:00	12
	transformator.t, нарвал - это животное, синоним, существительное, а не глагол, возможно ли существительному в синоним выводить существительное нарвал, а не глагол нарвал? Добавлено через 44 секунды https://ru.wikipedia.org/wiki/Нарвал 0

@castorsky 1978 / 1082 / 87 Регистрация: 29.11.2013 Сообщений: 3,353
	12.02.2015, 01:34	14
	Сообщение от transformator.t только мл ml или sml? Компилятор нью-джерси? 0

transformator.t defun 603 / 617 / 44 Регистрация: 30.04.2011 Сообщений: 702
	12.02.2015, 01:43	15
	не знаю, честно, что это за компилятор, я юзал обычные и скучные опорные вектора (cl-libsvm) Добавлено через 46 секунд мл - имел ввиду machine learning 3

@castorsky 1978 / 1082 / 87 Регистрация: 29.11.2013 Сообщений: 3,353
	12.02.2015, 02:02	16
	Сообщение от transformator.t не знаю, честно, что это за компилятор http://www.smlnj.org/ 1

@Lambdik 1045 / 939 / 107 Регистрация: 04.11.2012 Сообщений: 972 Записей в блоге: 3
	28.03.2015, 10:48	19
	robur И сколько же времени ушло на создание этой рамочки? 0

@robur 113 / 12 / 0 Регистрация: 18.09.2014 Сообщений: 15
	28.03.2015, 11:06	20
	Ну в общей сложности часов 8-12 -ать, урыками в течение пару месяцев, учитывая разные варианты формы переписывание кода раза три.. И то поскользнулся на ровном месте, не тестил ведь, думал под конец месяца будем платить там и протестирую.. "некогда всё было" 3