ошибка 48 - программа больше 62520 байт. Что делать?

[Pancher]

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

[Pancher]

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 минуты');


Вот так вот?

А с модулями не проще будет? или там очень сложно?

[KORT]

Прогу я тебе сделал........
Теперь коротко объясню как происходит реализация:
1. запускаешь Modul1 и нажимаешь Alt+F9.
2. запускаешь Modul2 и нажимаешь Alt+F9.
3. запускаешь Modul3 и нажимаешь Alt+F9.
4. запускаешь Modul4 и нажимаешь Alt+F9.
5. запускаешь Osnov и нажимаешь Ctrl+F9.

Программа начинает работать.......тестируется как часы, так что дерзай......

[Pancher]

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

Прогу я тебе сделал........
Теперь коротко объясню как происходит реализация:
1. запускаешь Modul1 и нажимаешь Alt+F9.
2. запускаешь Modul2 и нажимаешь Alt+F9.
3. запускаешь Modul3 и нажимаешь Alt+F9.
4. запускаешь Modul4 и нажимаешь Alt+F9.
5. запускаешь Osnov и нажимаешь Ctrl+F9.

Программа начинает работать.......тестируется как часы, так что дерзай......

Спасибо большое. Но на модуле 1 при нажатии альт+ф9 вылетает ошибка 48 что код слишком большой :-( Что делать?

[KORT]

У меня все работает, я специально сделал много модулей.......никакой ошибки не возникало

[Pancher]

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

У меня все работает, я специально сделал много модулей.......никакой ошибки не возникало

А у тебя в модуле один нет ошибки? А какой у тебя паскаль?
В чём же может быть дела

[KORT]

Вот с этой ссылке сегодня скачал

[Pancher]

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

У меня все работает, я специально сделал много модулей.......никакой ошибки не возникало

А почему у тебя процедуры в модуле 1 и в модуле 4 повторяются? так надо?

[Pancher]

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

Вот с этой ссылке сегодня скачал

Я тоже щас её скачал, и там ошибка 48. А ты можешь сейчас ещё попробывать открыть модуль1 и нажать альт+ф9 ?

[KORT]

Сейчас исправлю и скину 5 минут