Freesco, NND, CDN, EOS
http://forum.freesco.pl/

delphi
http://forum.freesco.pl/viewtopic.php?f=28&t=14023		 Strona 1 z 1
Autor:  lukasz191 [ czwartek, 9 listopada 2006, 16:38 ]
Tytuł:  delphi
pytanie czy jest w tym kodzie blad . problem polega na tym ze niby wszystkie dzialania sa ok oprocz sqrt objawia sie to w programie tym ze jak klikam cyferke i daje sqrt to i tak mam tylko cyferke po wcisniecu znaku rownosci nie wiem co jest nie tak, dopiero ucze sie delphi

wiec chcialem prosic o jakas pomoc i zerkniecie na to

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Edit1: TEdit;
Button16: TButton;
Button17: TButton;
Button19: TButton;
Button18: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
znak:char;
liczba1,liczbA2: integer;
wynik : double;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='1';
end
else edit1.Text:=edit1.Text+'1';

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='2';
end
else edit1.Text:=edit1.Text+'2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='3';
end
else edit1.Text:=edit1.Text+'3';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
edit1.Text:='0';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='4';
end
else edit1.Text:=edit1.Text+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='5';
end
else edit1.Text:=edit1.Text+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='6';
end
else edit1.Text:=edit1.Text+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='7';
end
else edit1.Text:=edit1.Text+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='8';
end
else edit1.Text:=edit1.Text+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='9';
end
else edit1.Text:=edit1.Text+'9';
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
if edit1.Text='0'then
begin
edit1.Text:='0';
end
else edit1.Text:=edit1.Text+'0';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
znak:='+';
liczba1:=StrToInt(edit1.Text);
edit1.Text:='';
end;

procedure TForm1.Button14Click(Sender: TObject);
var
i : Integer;
begin
liczba2:=StrToInt(edit1.Text);

if znak='+' then
begin
wynik:=liczba1+liczba2;
edit1.Text:=FloatToStr(wynik);
end
else if znak='-' then
begin
wynik:=liczba1-liczba2;
edit1.Text:=FloatToStr(wynik);
end
else if znak='/' then
begin
if not (liczba2 = 0) then
begin
wynik:=liczba1/liczba2;
edit1.Text:=FloatToStr(wynik);
end
else
begin
showmessage('dzielenie przez zero');
end;
end
else if znak='*' then
begin
wynik:=liczba1*liczba2;
edit1.Text:=FloatToStr(wynik);

end
else if znak='@' then
begin
wynik :=1;
for i:=1 to liczba2 do
begin
wynik := liczba1 * wynik;

end;
edit1.Text:=floattostr(wynik);
end
else if znak='!' then
begin
if liczba1 >= 0 then
begin
wynik:=sqrt(liczba1);
edit1.Text:=floattostr(wynik);
end
else
begin
showmessage('liczba ujemna');
end
end
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
znak:='-';
liczba1:=StrToInt(edit1.Text);
edit1.Text:='';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
znak:='/';
liczba1:=StrToInt(edit1.Text);
edit1.Text:='';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
znak:='*';
liczba1:=StrToInt(edit1.Text);
edit1.Text:='';
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
znak:='@';
liczba1:=strtoint(edit1.Text);
edit1.Text:='';
end;

Procedure TForm1.Button18Click(Sender: TObject);
begin
znak:='!';
liczba1:=strtoint(edit1.Text);
edit1.Text:='';
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
form1.Close;
end;

end.



sorki za rozmieszczenie kodu wiem jest niechlujnie zrobiony
Autor:  JakubC [ czwartek, 9 listopada 2006, 18:07 ]
Tytuł: 
Zdaje sobie sprawe, że to HydePark... mimo wszystko mysle, że z tematyką średnio trafiłeś na forum(w związku z czym ciężko będzie uzyskac pomoc, i tylko o to mi chodzi). ja na Twoim miejscu szukał bym pomocy jednak na forum ściślej związanym z programowaniem w dephi.
Autor:  puchatek007 [ czwartek, 9 listopada 2006, 18:46 ]
Tytuł: 
W Edit1 wpisuje liczbe, naciskam Button-a i w Edit2 otrzymuje wynik pierwiastkowania. Procedura Buttona taka:
: [/] [] ()
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := FloatToStr(sqrt(StrToFloat(Edit1.text)));
end;
GeSHi © Codebox Plus


Niewiem czy dobrze zrozumiałem twój problem.
Autor:  lukasz191 [ czwartek, 9 listopada 2006, 19:02 ]
Tytuł: 
ok dziki za pomoc juz doszedlem do tego co jest nie tak w tym kodzie.

co do miejsca na kazdym forum znajdzie sie ktos kto interesuje sie i umnie nie tylko tematyke forum ale wiele innych rzeczy wiec warto sprobowac jak widzisz poskutkowalo bo dzieki postowi kolegi poprawilem dleda
Strona 1 z 1 Strefa czasowa UTC+2godz.
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/