Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.10.2008, 22:16   #1
MyQwErTy
Пользователь
 
Аватар для MyQwErTy
 
Регистрация: 16.10.2008
Сообщений: 73
По умолчанию программа, которая расчитывает зарплату.

Я начинающий программист и мне нужна помощь.
Сейчас работаю над программкой, которая расчитывает зарплату.
Консольная версия работает отлично, но с приложением возникла проблема. Чтобы рассчитать премию, нужно повременную оплату умножить на 139 процентов. Вот скрин:

Напишите, пожалуйста, текст проги, если я что-то забыл говорите
MyQwErTy вне форума Ответить с цитированием
Старый 16.10.2008, 22:44   #2
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
Чтобы рассчитать премию, нужно повременную оплату умножить на 139 процентов.
Если я вас правильно понял, то код будет выглядеть так:

Код:
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Label24.Caption:=IntToStr(StrToInt(Label12.Caption)*139);
End;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 17.10.2008, 14:30   #3
MyQwErTy
Пользователь
 
Аватар для MyQwErTy
 
Регистрация: 16.10.2008
Сообщений: 73
По умолчанию

Спасибо, я соединил Ваши идеи и получилось неплохо.
З.Ы. занимаюсь программированием второй год, поэтому такие вопросы возникают =)
MyQwErTy вне форума Ответить с цитированием
Старый 20.10.2008, 16:43   #4
MyQwErTy
Пользователь
 
Аватар для MyQwErTy
 
Регистрация: 16.10.2008
Сообщений: 73
Вопрос

ещё вопрос...

var
Form1: TForm1;
tn:integer;
o:text;
surname,a1,a2,a3,a4,a5,a6,a7,a8,a9, a10,a11:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
assign(o,'C:\Program Files\Borland\Delphi7\report.txt');
{$I-}
Rewrite(o);
{$I+}
...
close(o);
end;

delphi пишет:
Incompatible types:'TPersistent' and 'Text'
Подскажите где ошибка, и объясните, пожалуйста, поподробней
MyQwErTy вне форума Ответить с цитированием
Старый 20.10.2008, 16:48   #5
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
o:text;
Исправь на o:textfile;
И сделай другое имя файла, в папке 'C:\Program Files\Borland\Delphi7 есть папка report.

Последний раз редактировалось puporev; 20.10.2008 в 16:53.
puporev вне форума Ответить с цитированием
Старый 20.10.2008, 17:02   #6
MyQwErTy
Пользователь
 
Аватар для MyQwErTy
 
Регистрация: 16.10.2008
Сообщений: 73
По умолчанию

всё равно не работает

Последний раз редактировалось mihali4; 18.11.2010 в 11:36.
MyQwErTy вне форума Ответить с цитированием
Старый 22.11.2008, 02:43   #7
MyQwErTy
Пользователь
 
Аватар для MyQwErTy
 
Регистрация: 16.10.2008
Сообщений: 73
По умолчанию

как сделать кнопки с картинками у элемента TToolBar (т.е. как добавить на кнопку картинку)
MyQwErTy вне форума Ответить с цитированием
Старый 22.11.2008, 13:32   #8
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
Сообщение от MyQwErTy Посмотреть сообщение
как сделать кнопки с картинками у элемента TToolBar (т.е. как добавить на кнопку картинку)
Поставьте на форму компонент ImageList и укажите его в ToolBar на вкладке Events в свойстве Images и потом когда создадите кнопки на ToolBar'е, то потом просто укажите у кнопок индекс картинки из ImageList.
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 06.04.2009, 16:19   #9
MyQwErTy
Пользователь
 
Аватар для MyQwErTy
 
Регистрация: 16.10.2008
Сообщений: 73
По умолчанию

вот так и знал, что сюда вернусь)
так вот у меня вопрос: у меня в программе есть калькулятор, который открывается в отдельном окне, как сделать так, чтобы, не закрывая калькулятор, работать с основным окном; у меня когда открываешь калькулятор и щелкаешь на неактивное основное окно, оно остается неактивным, а окно калькулятора "мигает"(не знаю как по-другому обозвать)).Заранее спасибо.
MyQwErTy вне форума Ответить с цитированием
Старый 06.04.2009, 16:21   #10
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

при вызове окна калькулятора делай не
Код:
калькулятор.showmodal;
a
Код:
калькулятор.show;
вступлю в команду разработчиков ПО на Delphi

Последний раз редактировалось maladoy; 06.04.2009 в 16:24.
maladoy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа которая делает кроссворд Иллидан Софт 15 02.12.2014 06:34
com-программа, которая блокирует клавиатуру Белка Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 26.11.2007 14:37
программа, которая выводит на экран одно из данных слов vados Паскаль, Turbo Pascal, PascalABC.NET 11 26.10.2007 23:47
программа которая сохраняет текст StringGrid без диалогов KSP БД в Delphi 2 19.09.2007 18:49