Калькулятор

[Иринка26]

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

[Google2010]

язык программирования?

[RUSt88]

200 руб сделаю на C++, C#, Delphi, VB

[Stilet]

Действительно, какой язык, и неплохо еще бы наработками похвастаться, чтоб знать от чего отталкиваться в помощи тебе.

[syava]

в delfi так:
вставить в деление:
if "имя переменой без кавычек"=0 then
MesageDlg('деление на ноль');

[Иринка26]

язык делфи..

var a,b,p,ot:real;

procedure TForm1.Button11Click(Sender: TObject);//кнопка сложить
begin
 if Edit1.Text<>' ' then begin
 a:=strtofloat(Edit1.Text);
 Edit1.Text:=' ';
 p:=1;
end;

procedure TForm1.Button12Click(Sender: TObject);//вычесть
begin
 if Edit1.Text<>' ' then begin
 a:=strtofloat(Edit1.Text);
 Edit1.Text:=' ';
 p:=2;
end;

procedure TForm1.Button13Click(Sender: TObject);//умножить
begin
 if Edit1.Text<>' ' then begin
 a:=strtofloat(Edit1.Text);
 Edit1.Text:=' ';
 p:=3;
end;

procedure TForm1.Button14Click(Sender: TObject);//разделить
begin
 if Edit1.Text<>' ' then begin
 a:=strtofloat(Edit1.Text);
 Edit1.Text:=' ';
 p:=4;
end;

procedure TForm1.Button15Click(Sender: TObject);//кнопка равно
begin
 if Edit1.Text<>' ' then begin
 b:=strtofloat(Edit1.Text);
 Edit1.Text:=' ';
 if p=1 then ot:=a+b;
 if p=2 then ot:=a-b;
 if p=3 then ot:=a*b;
 if (p=4) and (b<>0) then ot:=a/b else
 Edit1.Text:='Деление на ноль';
end;

и все равно он делит на ноль(((
и еще не могу сделать чтоб запятая печаталась только один раз..





end;

[syava]

за место ' ' напиши 0

[Иринка26]

это в каком месте?

[Stilet]

Ирочка, я бы тебе рекомендовал для каждой кнопки определить одну и ту же процедуру обработки клика, в которой прописать вотпримерно в таком ключе:

procedure TForm1.Button5Click(Sender: TObject);
var o:integer;
begin
// Проверяем введено ли число
 if not TryStrToInt(Edit1.Text,o) then exit;
// Если кликнута кнопка +
 if (sender=Button1) then tag:=tag+o;
// Если кликнута кнопка -
 if (sender=Button2) then tag:=tag-o;
// Если кликнута кнопка *
 if (sender=Button3) then tag:=tag*o;
// Если кликнута кнопка / и число не равно 0
 if (sender=Button4)and(o<>0) then tag:=tag div o;
// Если кликнута кнопка = то вывести
 if (sender=Button5) then begin caption:=inttostr(tag);tag:=0;end;
 Edit1.Text:='';
end;

[Google2010]

по поводу запятой
у поля ввода числа есть событие OnKeypress обрабатывайте его следующим образом

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ',' then
    Key := DecimalSeparator; // запятую заменяем на разделитель для числа

  if Key = '.' then
    Key := DecimalSeparator; // точку заменяем на сепаратор (на всякий случай)

  if not (Key in ['0'..'9','-',DecimalSeparator,#8,#13]) // символы которые пропускаются
    or ((Key = DecimalSeparator) // все цифры знак минус разделитель
    and (POS (DecimalSeparator, Edit1.Text) > 0)) // запрет на второй сепаратор
    or ((Key = '-') and (POS ('-', Edit1.Text) > 0)) // запрет на второй минус
    or ((Key = '-') and (Edit1.SelStart <> 0)) // запрет на минус не вначале цифры
    then // (можно и предыдущей строчки но так лучше для понимания)
  begin
      Key := #0; // запрещенный символ заменяем нулем
      MessageBeep (MB_OK); // биб в спикир
  end;
end;