|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.08.2007, 22:20 | #11 |
Пользователь
Регистрация: 31.07.2007
Сообщений: 11
|
Пункты похожи, но они немного разные. Я думаю что модулем будет проще, и ничего компановать не надо. только как их сделать, чтобы они с внешней программой общались?
|
01.08.2007, 22:44 | #12 |
Пользователь
Регистрация: 31.07.2007
Сообщений: 11
|
procedure PPP (punct:byte;color1,color2,color3:TC olor;mes1,mes2, mes3:string); BEGIN clrscr; {10 okno} textcolor(color1); writeln(' --------------- '); textcolor(color1); writeln(' | Пункт № punct | '); textcolor(color1); writeln(' --------------- '); textcolor(color2); writeln; writeln(' " Дегазация спирта " '); writeln; writeln; writeln; writeln; writeln; textcolor(color3); writeln; writeln(mes1); writeln; writeln; writeln(mes2); writeln; writeln; writeln(mes3); writeln; textcolor(color2); writeln(' -------------------->'); writeln; textcolor(color3); writeln; writeln(' Нажмите Enter для продолжения'); readln; end; обращение PPP(24,green,blue,red,'ВЫКЛЮЧИТЕклапана 4,1','ВКЛЮЧИТЕКЛАПАН 1 (код 0101) ','Подождите 2 минуты'); Вот так вот? А с модулями не проще будет? или там очень сложно? |
02.08.2007, 00:34 | #13 |
Вот я и
Форумчанин
Регистрация: 07.04.2007
Сообщений: 501
|
Прогу я тебе сделал........
Теперь коротко объясню как происходит реализация: 1. запускаешь Modul1 и нажимаешь Alt+F9. 2. запускаешь Modul2 и нажимаешь Alt+F9. 3. запускаешь Modul3 и нажимаешь Alt+F9. 4. запускаешь Modul4 и нажимаешь Alt+F9. 5. запускаешь Osnov и нажимаешь Ctrl+F9. Программа начинает работать.......тестируется как часы, так что дерзай......
Исходники программ - http:\\www.kort.3dn.ru
Последний раз редактировалось KORT; 07.10.2007 в 00:47. |
02.08.2007, 00:43 | #14 | |
Пользователь
Регистрация: 31.07.2007
Сообщений: 11
|
Цитата:
Спасибо большое. Но на модуле 1 при нажатии альт+ф9 вылетает ошибка 48 что код слишком большой :-( Что делать? |
|
02.08.2007, 00:46 | #15 |
Вот я и
Форумчанин
Регистрация: 07.04.2007
Сообщений: 501
|
У меня все работает, я специально сделал много модулей.......никакой ошибки не возникало
Исходники программ - http:\\www.kort.3dn.ru
|
02.08.2007, 00:49 | #16 |
Пользователь
Регистрация: 31.07.2007
Сообщений: 11
|
|
02.08.2007, 00:52 | #17 |
Вот я и
Форумчанин
Регистрация: 07.04.2007
Сообщений: 501
|
Вот с этой ссылке сегодня скачал
Исходники программ - http:\\www.kort.3dn.ru
|
02.08.2007, 00:53 | #18 |
Пользователь
Регистрация: 31.07.2007
Сообщений: 11
|
|
02.08.2007, 00:57 | #20 |
Вот я и
Форумчанин
Регистрация: 07.04.2007
Сообщений: 501
|
Сейчас исправлю и скину 5 минут
Исходники программ - http:\\www.kort.3dn.ru
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
1 байт 9 бит ?! | Иллидан | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 4 | 13.04.2008 12:47 |
байт режима адресации | fermat_c | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 10.04.2008 15:39 |
что делает эта программа и где ошибка? | дангер | Паскаль, Turbo Pascal, PascalABC.NET | 27 | 28.01.2008 13:38 |
записать байт файл | мандарин | Общие вопросы Delphi | 8 | 09.05.2007 20:45 |
че делать если вылетает ошибка Table does not exist? | Алёна | БД в Delphi | 4 | 25.04.2007 15:09 |