Re: Проконсультируйте пожалуйста (начинающий программист)

angvelem · #16 08.04.2012, 23:44

Код:

...
   x1:=46875*5*StrToInt(Edit1.Text);
   x2:=9375*5* StrToInt(Edit2.Text);
   x3:=1875*5*StrToInt(Edit3.Text);
   x4:=375*5* StrToInt(Edit4.Text);
   x5:=75*5* StrToInt(Edit5.Text);
   x6:=15*5*StrToInt(Edit6.Text);
   x7:=5*5* StrToInt(Edit7.Text);
   x8:=5*StrToInt(Edit8.Text);
   y:= x1+x2+x3+x4+x5+x6+x7+x8;

  case y of
    0..5   : Label10.Caption := format('Новичок %i!', [y]);
    6..10  : Label10.Caption := format('Мастер %i!', [y]);
    11..15 : Label10.Caption := format('Профессионал %i!', [y]);
  end;

Как вариант.

LorDHeLeGaL · #17 08.04.2012, 23:54

Цитата:

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

Код:

...
   x1:=46875*5*StrToInt(Edit1.Text);
   x2:=9375*5* StrToInt(Edit2.Text);
   x3:=1875*5*StrToInt(Edit3.Text);
   x4:=375*5* StrToInt(Edit4.Text);
   x5:=75*5* StrToInt(Edit5.Text);
   x6:=15*5*StrToInt(Edit6.Text);
   x7:=5*5* StrToInt(Edit7.Text);
   x8:=5*StrToInt(Edit8.Text);
   y:= x1+x2+x3+x4+x5+x6+x7+x8;

  case y of
    0..5   : Label10.Caption := format('Новичок %i!', [y]);
    6..10  : Label10.Caption := format('Мастер %i!', [y]);
    11..15 : Label10.Caption := format('Профессионал %i!', [y]);
  end;

Как вариант.

Не выводит...Вписал после формулы сразу...даже менял Label10 на Label3....

angvelem · #18 08.04.2012, 23:58

Обязано выводить, добавь контрольную строчку:

Код:

  case y of
    0..5   : Label10.Caption := format('Новичок %i!', [y]);
    6..10  : Label10.Caption := format('Мастер %i!', [y]);
    11..15 : Label10.Caption := format('Профессионал %i!', [y]);
  else
    Label10.Caption := format('%i', [y]);
  end;

LorDHeLeGaL · #19 09.04.2012, 00:01

Цитата:

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

Обязано выводить, может напутал? Где расчёт производится?

Код:

{Все расчеты}
procedure TForm1.Button1Click(Sender: TObject);
  begin
  Label7.CleanupInstance;
  x1:=46875*StrToInt(Edit1.Text);
  x2:=9375* StrToInt(Edit2.Text);
  x3:=1875* StrToInt(Edit3.Text);
  x4:=375* StrToInt(Edit4.Text);
  x5:=75* StrToInt(Edit5.Text);
  x6:=15* StrToInt(Edit6.Text);
  x7:=5* StrToInt(Edit7.Text);
  x8:=StrToInt(Edit8.Text);
  y:= x1+x2+x3+x4+x5+x6+x7+x8;
  Label7.Caption :=
  Inttostr(y)+' $';
begin
   Label10.CleanupInstance;
   x1:=46875*5*StrToInt(Edit1.Text);
   x2:=9375*5* StrToInt(Edit2.Text);
   x3:=1875*5*StrToInt(Edit3.Text);
   x4:=375*5* StrToInt(Edit4.Text);
   x5:=75*5* StrToInt(Edit5.Text);
   x6:=15*5*StrToInt(Edit6.Text);
   x7:=5*5* StrToInt(Edit7.Text);
   x8:=5*StrToInt(Edit8.Text);
   y:= x1+x2+x3+x4+x5+x6+x7+x8;
   Label10.Caption :=
   (Inttostr(y))+' !';
case y of
    0..5   : Label3.Caption := format('Íîâè÷îê %i!', [y]);
    6..10  : Label3.Caption := format('Ìàñòåð %i!', [y]);
    11..15 : Label3.Caption := format('Ïðîôåññèîíàë %i!', [y]);
    end;
begin
    Label8.CleanupInstance;
    m1:=46875*2.5*StrToFloat(Edit1.Text);
    m2:=9375*2.5* StrToFloat(Edit2.Text);
    m3:=1875*2.5*StrToFloat(Edit3.Text);
    m4:=375*2.5* StrToFloat(Edit4.Text);
    m5:=75*2.5* StrToFloat(Edit5.Text);
    m6:=15*2.5*StrToFloat(Edit6.Text);
    m7:=5*2.5* StrToFloat(Edit7.Text);
    m8:=StrToInt(Edit8.Text);
    z:= m1+m2+m3+m4+m5+m6+m7+m8;
    Label8.Caption :=
    FloatToStr(z)+' ìèíóò';
begin
     akciy := StrToFloat(Edit9.Text);
     golos := akciy/5;
     label12.Caption :=
     FloatToStr(golos)+' çâåçä';
begin
 Button3Click(Sender);
begin
      Label13.CleanupInstance;
      x11:=46875*StrToInt(Edit1.Text);
      x22:=9375* StrToInt(Edit2.Text);
      x33:=1875* StrToInt(Edit3.Text);
      x44:=375* StrToInt(Edit4.Text);
      x55:=75* StrToInt(Edit5.Text);
      x66:=15* StrToInt(Edit6.Text);
      x77:=5* StrToInt(Edit7.Text);
      x88:=StrToInt(Edit8.Text);
      r:= x11+x22+x33+x44+x55+x66+x77+x88;
      Label13.Caption :=
      Inttostr(r)+' çâåçä';

    end;

LorDHeLeGaL · #20 09.04.2012, 00:09

Вот исходник...Как пример...На основе его делаю тест....тут все тоже самое.

LorDHeLeGaL · #21 09.04.2012, 00:11

Если можете,вставьте код и закоментируйте...Я уже не знаю что делать....

angvelem · #22 09.04.2012, 00:19

Что то каша какая-то, откуда столько begin-ов?

Код:

{Все расчеты}
procedure TForm1.Button1Click(Sender: TObject);
begin
  x1 := 46875 * StrToIntDef(Edit1.Text, 0);
  x2 := 9375 * StrToIntDef(Edit2.Text, 0);
  x3 := 1875 * StrToIntDef(Edit3.Text, 0);
  x4 := 375 * StrToIntDef(Edit4.Text, 0);
  x5 := 75 * StrToIntDef(Edit5.Text, 0);
  x6 := 15 * StrToIntDef(Edit6.Text, 0);
  x7 := 5 * StrToIntDef(Edit7.Text, 0);
  x8 := StrToInt(Edit8.Text);
  y := x1+x2+x3+x4+x5+x6+x7+x8;
  Label7.Caption := Inttostr(y)+' $';

  x1 := 46875 * 5 * StrToIntDef(Edit1.Text, 0);
  x2 := 9375 * 5 * StrToIntDef(Edit2.Text, 0);
  x3 := 1875 * 5 * StrToIntDef(Edit3.Text, 0);
  x4 := 375 * 5 * StrToIntDef(Edit4.Text, 0);
  x5 := 75 * 5 * StrToIntDef(Edit5.Text, 0);
  x6 := 15 * 5 * StrToIntDef(Edit6.Text, 0);
  x7 := 5 * 5 * StrToIntDef(Edit7.Text, 0);
  x8 := 5 * StrToIntDef(Edit8.Text, 0);
  y := x1+x2+x3+x4+x5+x6+x7+x8;
//  Label10.Caption := (Inttostr(y))+' !';

  case y of
    0..5   : Label3.Caption := format('Новичок %i!', [y]);
    6..10  : Label3.Caption := format('Мастер %i!', [y]);
    11..15 : Label3.Caption := format('Профессионал %i!', [y]);
  else
    Label10.Caption := format('%i', [y]);
  end;

  m1 := 46875 * 2.5 * StrToFloatDef(Edit1.Text, 0);
  m2 := 9375 * 2.5 * StrToFloatDef(Edit2.Text, 0);
  m3 := 1875 * 2.5 * StrToFloatDef(Edit3.Text, 0);
  m4 := 375 * 2.5 * StrToFloatDef(Edit4.Text, 0);
  m5 := 75 * 2.5 * StrToFloatDef(Edit5.Text, 0);
  m6 := 15 * 2.5 * StrToFloatDef(Edit6.Text, 0);
  m7 := 5 * 2.5 * StrToFloat(Edit7.Text, 0);
  m8 := StrToIntDef(Edit8.Text, 0);
  z := m1+m2+m3+m4+m5+m6+m7+m8;
  Label8.Caption := FloatToStr(z)+' минут';

  akciy := StrToFloatDef(Edit9.Text, 0);
  golos := akciy/5;
  label12.Caption := FloatToStrDef(golos, 0)+' звезд';

  Button3Click(Sender);

  x11 := 46875 * StrToIntDef(Edit1.Text, 0);
  x22 := 9375 * StrToIntDef(Edit2.Text, 0);
  x33 := 1875 * StrToIntDef(Edit3.Text, 0);
  x44 := 375 * StrToIntDef(Edit4.Text, 0);
  x55 := 75 * StrToIntDef(Edit5.Text, 0);
  x66 := 15 * StrToIntDef(Edit6.Text, 0);
  x77 := 5 * StrToIntDef(Edit7.Text, 0);
  x88 := StrToIntDef(Edit8.Text, 0);
  r := x11+x22+x33+x44+x55+x66+x77+x88;
  Label13.Caption := Inttostr(r)+' звезд';
end;

LorDHeLeGaL · #23 09.04.2012, 00:26

Цитата:

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

Что то каша какая-то, откуда столько begin-ов?

Код:

{Все расчеты}
procedure TForm1.Button1Click(Sender: TObject);
begin
  x1 := 46875 * StrToIntDef(Edit1.Text, 0);
  x2 := 9375 * StrToIntDef(Edit2.Text, 0);
  x3 := 1875 * StrToIntDef(Edit3.Text, 0);
  x4 := 375 * StrToIntDef(Edit4.Text, 0);
  x5 := 75 * StrToIntDef(Edit5.Text, 0);
  x6 := 15 * StrToIntDef(Edit6.Text, 0);
  x7 := 5 * StrToIntDef(Edit7.Text, 0);
  x8 := StrToInt(Edit8.Text);
  y := x1+x2+x3+x4+x5+x6+x7+x8;
  Label7.Caption := Inttostr(y)+' $';

  x1 := 46875 * 5 * StrToIntDef(Edit1.Text, 0);
  x2 := 9375 * 5 * StrToIntDef(Edit2.Text, 0);
  x3 := 1875 * 5 * StrToIntDef(Edit3.Text, 0);
  x4 := 375 * 5 * StrToIntDef(Edit4.Text, 0);
  x5 := 75 * 5 * StrToIntDef(Edit5.Text, 0);
  x6 := 15 * 5 * StrToIntDef(Edit6.Text, 0);
  x7 := 5 * 5 * StrToIntDef(Edit7.Text, 0);
  x8 := 5 * StrToIntDef(Edit8.Text, 0);
  y := x1+x2+x3+x4+x5+x6+x7+x8;
//  Label10.Caption := (Inttostr(y))+' !';

  case y of
    0..5   : Label3.Caption := format('Íîâè÷îê %i!', [y]);
    6..10  : Label3.Caption := format('Ìàñòåð %i!', [y]);
    11..15 : Label3.Caption := format('Ïðîôåññèîíàë %i!', [y]);
  else
    Label10.Caption := format('%i', [y]);
  end;

  m1 := 46875 * 2.5 * StrToFloatDef(Edit1.Text, 0);
  m2 := 9375 * 2.5 * StrToFloatDef(Edit2.Text, 0);
  m3 := 1875 * 2.5 * StrToFloatDef(Edit3.Text, 0);
  m4 := 375 * 2.5 * StrToFloatDef(Edit4.Text, 0);
  m5 := 75 * 2.5 * StrToFloatDef(Edit5.Text, 0);
  m6 := 15 * 2.5 * StrToFloatDef(Edit6.Text, 0);
  m7 := 5 * 2.5 * StrToFloat(Edit7.Text, 0);
  m8 := StrToIntDef(Edit8.Text, 0);
  z := m1+m2+m3+m4+m5+m6+m7+m8;
  Label8.Caption := FloatToStr(z)+' ìèíóò';

  akciy := StrToFloatDef(Edit9.Text, 0);
  golos := akciy/5;
  label12.Caption := FloatToStrDef(golos, 0)+' çâåçä';
end;

Button3Click(Sender);
begin
  x11 := 46875 * StrToIntDef(Edit1.Text, 0);
  x22 := 9375 * StrToIntDef(Edit2.Text, 0);
  x33 := 1875 * StrToIntDef(Edit3.Text, 0);
  x44 := 375 * StrToIntDef(Edit4.Text, 0);
  x55 := 75 * StrToIntDef(Edit5.Text, 0);
  x66 := 15 * StrToIntDef(Edit6.Text, 0);
  x77 := 5 * StrToIntDef(Edit7.Text, 0);
  x88 := StrToIntDef(Edit8.Text, 0);
  r:= x11+x22+x33+x44+x55+x66+x77+x88;
  Label13.Caption := Inttostr(r)+' çâåçä';
end;

Компилятор выдает ошибки и я писал begin...

angvelem · #24 09.04.2012, 00:29

Я при исправлении допустил ошибку - подправил.

LorDHeLeGaL · #25 09.04.2012, 00:34

Не компилирует...
Скопировал код и вставил....
Бум разбираться

Компоновка
[Совет] Unit1.pas(202): Value assigned to 'HM' never used
[Ошибка] Unit1.pas(283): There is no overloaded version of 'StrToFloat' that can be called with these arguments
[Ошибка] Unit1.pas(290): Undeclared identifier: 'FloatToStrDef'
[Ошибка] Unit1.pas(305): ';' expected but 'END' found
[Предупреждение] Unit1.pas(306): Text after final 'END.' - ignored by compiler
[Ошибка] Unit1.pas(93): Unsatisfied forward or external declaration: 'TForm1.Button7Click'
[Ошибка] Unit1.pas(94): Unsatisfied forward or external declaration: 'TForm1.Edit9KeyPress'
[Ошибка] Unit1.pas(95): Unsatisfied forward or external declaration: 'TForm1.N20Click'
[Ошибка] Unit1.pas(96): Unsatisfied forward or external declaration: 'TForm1.SpeedButton1Click'
[Фатальная ошибка] Project1.dpr(7): Could not compile used unit '..\5\Unit1.pas'

angvelem · #26 09.04.2012, 00:40

Проект большой? Выложи в архиве, только *.pas, *.dfm, *.dpr.

LorDHeLeGaL · #27 09.04.2012, 00:41

Цитата:

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

Проект большой? Выложи в архиве, только *.pas, *.dfm, *.dpr.

Я же выложил

LorDHeLeGaL · #28 09.04.2012, 00:44

Цитата:

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

Проект большой? Выложи в архиве, только *.pas, *.dfm, *.dpr.

Проект не большой,это просто первый мой проект и я основательно решил подойти к поставленной задаче,много раз хотел плюнуть и сидеть дальше в фотошопе работать,но я хочу научиться....И если все пойму,то постепенно буду реализовывать все свои смелые идеи

angvelem · #29 09.04.2012, 00:45

Цитата:

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

Я же выложил

Весь каталог со всем мусором, а я просил

Цитата:

... только *.pas, *.dfm, *.dpr.

LorDHeLeGaL · #30 09.04.2012, 00:49

Безусловно мне нравится этот портал....
Я обычно не общаюсь на форумах,при возникновении трудностей читаю книги,гуглю....а тут нестандартный вопрос получился...
Написал сообщение такое же на 7 форумах,только тут мне внятно все подсказывают и помогают

Будьте навсегда

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	RSS лента	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Новости сайта Новости форума	Ссылки и Баннеры Donate О сайте Реклама Контакты

Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
LorDHeLeGaL (08.04.2012)

Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
LorDHeLeGaL (09.04.2012)