Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.67/82: Рейтинг темы: голосов - 82, средняя оценка - 4.67
Cheb
90 / 57 / 8
Регистрация: 09.11.2011
Сообщений: 443
1

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

30.10.2014, 09:43. Просмотров 14716. Ответов 67
Метки нет (Все метки)

Расскажите, пожалуйста, что на лиспе пишите? вкратце, хотя бы. Очень интересно.
Понятно, что студенты пишут лабы, но вот все остальные, чем занимаются?
Сам пока ничего не пишу, а учу язык, но есть задумки написать веб-сервер для парсинга отчетов от АТС-ки. Заходит админ на него и смотрит кто куда и во сколько звонил по офису, статистика всякая там и прочее.
В общем не стесняйтесь, похвастайтесь, может сумеете заинтересовать случайного прохожего языком.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.10.2014, 09:43
Ответы с готовыми решениями:

Полезные коды и проекты на VBA
В этой теме предлагаю выкладывать различные коды и готовые проекты VBA, которые, на Ваш взгляд,...

Полезные коды для PascalABC.NET
В этой теме размещаются полезные исходники программ, различные процедуры и функции, а так же...

Готовые решения и полезные коды на Visual Basic 6.0
Запрещаются любые обсуждения выложенных здесь работ (читаем спойлер). Собственно тут буду...

Visual Basic .NET FAQ. Готовые решения, полезные коды
Предлагаю в этой теме размещать ответы на часто задаваемые вопросы и просто делиться полезными...

Программы на 1С и авторские права
На форуме много сильных программистов, полагаю, что кто-то пишет и отдельные программы. Интересует...

67
Catstail
Модератор
24833 / 12628 / 2305
Регистрация: 12.02.2012
Сообщений: 20,555
30.10.2014, 09:52 2
У меня есть желание написать простой ассемблер на Лиспе. Даже начал, но потом тормознул. А сейчас смотрю на исходники - нужно делать по-другому. Если завершу - опубликую.
3
korvin_
2747 / 2019 / 364
Регистрация: 28.04.2012
Сообщений: 6,892
30.10.2014, 10:20 3
Я ничего серьезного не писал. Максимум -- генератор кода (так и не дописанный) на Паскале (Делфи) из S-выражений на CL и гуевину для управления (ну, громко сказано, запуск остановка проверки носителя и собственно проверка наличия этого носителя) линуксовым Касперским на Racket.
1
castorsky
1974 / 1077 / 87
Регистрация: 29.11.2013
Сообщений: 3,354
30.10.2014, 15:13 4
Цитата Сообщение от Catstail Посмотреть сообщение
У меня есть желание написать простой ассемблер на Лиспе.
Тоже, как и Вы, начал писать рефал и проект завис. Времени практически нету. Меня очень сильно огорчает факт, что язык незаслуженно забыт.
Есть несколько закрытых разработок для embedded устройств, шифрование переговоров gsm/cdma. Все это реализовано как набор паттернов для различных ассемблеров на языке racket. В сравнении с языком си, конечно разработка сильно облегчается, но итоговый код все таки нуждается в оптимизации. Т.е. если компактность и производительность первичны, то только c + asm. Была попытка написать verilog, но понял что велосипеды не нужны.
1
30.10.2014, 15:13
wwall
204 / 197 / 15
Регистрация: 29.05.2014
Сообщений: 1,040
15.11.2014, 16:27 5
Сейчас пишу по тихому статический анализатор для SQL подобного языка запросов (1С-овский язык запросов)
Закончу - выложу.
3
nullxdth
2196 / 955 / 76
Регистрация: 12.03.2013
Сообщений: 4,387
20.11.2014, 16:08 6
Цитата Сообщение от wwall Посмотреть сообщение
Сейчас пишу по тихому статический анализатор для SQL подобного языка запросов (1С-овский язык запросов)
Закончу - выложу.
Интересно. Расскажи подробнее.
0
wwall
204 / 197 / 15
Регистрация: 29.05.2014
Сообщений: 1,040
22.11.2014, 21:53 7
Постараюсь объяснить, если что будет не понятно - уточню.
У 1С есть встроенный язык запросов, некое подмножество SQL-92. Все сводиться к парсеру этого языка (сейчас реализовано на ragg, но переписываю), и обходу узлов получившегося дерева. Пока это небольшой интерпретатор собирающий ошибки и выводящий в консоль отчет. Но сейчас переписываю на racr + datalog по аналогии с https://github.com/jonase/kibit

Добавлено через 59 секунд
Ну и плюс ко всему, работа с этим проектом позволила понять разработку парсеров намного лучше чем в универе.
3
wwall
204 / 197 / 15
Регистрация: 29.05.2014
Сообщений: 1,040
19.01.2015, 12:37 8
Цитата Сообщение от transformator.t Посмотреть сообщение
доделаю на днях и уже будет видно по поводу статьи, ок?
Статью может оказаться сложно написать, но в твое случае окажется достаточно опубликовать исходники - код лучше статьи.
И сразу 2 вопроса - а restas смотрел под эту задачу? там вроде маршрутизация симпатично сделана. Второй - есть какое нибудь API для работы с сайтом? или только интерактивная работа?
0
transformator.t
defun
598 / 612 / 44
Регистрация: 30.04.2011
Сообщений: 701
19.01.2015, 14:04 9
Цитата Сообщение от wwall Посмотреть сообщение
а restas смотрел под эту задачу
нет
Цитата Сообщение от wwall Посмотреть сообщение
есть какое нибудь API для работы с сайтом?
зачем?
0
_sg
4164 / 3908 / 297
Регистрация: 12.05.2012
Сообщений: 2,750
20.01.2015, 10:56 10
transformator.t, Единорог - Нарвал ГЛ,сов,неперех,мр,ед,прош,изъяв
0
transformator.t
defun
598 / 612 / 44
Регистрация: 30.04.2011
Сообщений: 701
20.01.2015, 14:46 11
_sg, хм...
возможно там в коде ошибка где то была (есть) ошибка)
я сейчас делаю рефакторинг и обновляю базу..
0
Миниатюры
Полезные коды и авторские программы на Lisp  
_sg
4164 / 3908 / 297
Регистрация: 12.05.2012
Сообщений: 2,750
20.01.2015, 15:00 12
transformator.t, нарвал - это животное, синоним, существительное, а не глагол, возможно ли существительному в синоним выводить существительное нарвал, а не глагол нарвал?

Добавлено через 44 секунды
https://ru.wikipedia.org/wiki/Нарвал
0
transformator.t
12.02.2015, 01:29
  #13

Не по теме:


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

разделим текст на предложения...
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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-ста строк с комментами делают такое чудо...)
никакой эвристики, только мл, только хардкор..)

0
castorsky
1974 / 1077 / 87
Регистрация: 29.11.2013
Сообщений: 3,354
12.02.2015, 01:34 14
Цитата Сообщение от transformator.t Посмотреть сообщение
только мл
ml или sml? Компилятор нью-джерси?
0
transformator.t
defun
598 / 612 / 44
Регистрация: 30.04.2011
Сообщений: 701
12.02.2015, 01:43 15
не знаю, честно, что это за компилятор, я юзал обычные и скучные опорные вектора (cl-libsvm)

Добавлено через 46 секунд
мл - имел ввиду machine learning
3
castorsky
1974 / 1077 / 87
Регистрация: 29.11.2013
Сообщений: 3,354
12.02.2015, 02:02 16
Цитата Сообщение от transformator.t Посмотреть сообщение
не знаю, честно, что это за компилятор
http://www.smlnj.org/
1
robur
113 / 12 / 0
Регистрация: 18.09.2014
Сообщений: 15
23.03.2015, 23:44 17
...сделал для себя калькулятор коммунальных услуг на HomeLisp, а то были нарекания со стороны домашних по поводу моего участия в заполнения счетов и как следствия переплаты . Код, скрин , естественно локализация "местная".
Кликните здесь для просмотра всего текста
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
 /
// Макросы 
//
 
//
// 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
5
robur
113 / 12 / 0
Регистрация: 18.09.2014
Сообщений: 15
28.03.2015, 09:27 18
:black_eye.: Код оказался косячный опять получил от домашних, ошибка в арифметических действиях в расчёте канализации.. "астрономические" суммы надо сказать Вместо суммы разности предыдущих и текущих значений холодной горячей вычислял разность текущих значений горячей и холодной. Поправка Код.
Кликните здесь для просмотра всего текста
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
 
 
//
// Макросы 
//
 
//
// 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_)
)
 
)
4
Lambdik
1044 / 938 / 107
Регистрация: 04.11.2012
Сообщений: 971
Записей в блоге: 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
28.03.2015, 11:06
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.03.2015, 11:06

Поменять авторские права в описании программы
Народ подскажите как поменять авторские права в описании программы, срочно надо. Пож-та

Авторские программы, библиотеки, надстройки и шаблоны
Коллектив модераторов раздела оставляет за собой право использовать данный пост аналитики для...

Полезные программы для програмистов под VB
Предлагаю сюда скидывать все программы которые упрощают жизнь програмисту. Например: - Программа...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.