Freesco, NND, CDN, EOS

http://www.freesco.pl
Dzisiaj jest czwartek, 28 marca 2024, 20:05

Strefa czasowa UTC+2godz.




Nowy temat Odpowiedz w temacie  [ Posty: 4 ] 
Autor Wiadomość
 Tytuł: delphi
Post: czwartek, 9 listopada 2006, 16:38 
Offline

Rejestracja: niedziela, 20 marca 2005, 12:29
Posty: 45
Lokalizacja: czewa
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


Na górę
 Wyświetl profil  
 
 Tytuł:
Post: czwartek, 9 listopada 2006, 18:07 
Offline
PGF

Rejestracja: wtorek, 27 czerwca 2006, 14:09
Posty: 2112
Lokalizacja: Poznań
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.

_________________
Dedykowane systemy CRM, e-commerce i witryny korporacyjne.
Software House Poznań


Na górę
 Wyświetl profil  
 
 Tytuł:
Post: czwartek, 9 listopada 2006, 18:46 
Offline
Użytkownik

Rejestracja: czwartek, 3 października 2002, 16:23
Posty: 271
Lokalizacja: Częstochowa
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;


Niewiem czy dobrze zrozumiałem twój problem.


Na górę
 Wyświetl profil  
 
 Tytuł:
Post: czwartek, 9 listopada 2006, 19:02 
Offline

Rejestracja: niedziela, 20 marca 2005, 12:29
Posty: 45
Lokalizacja: czewa
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


Na górę
 Wyświetl profil  
 
Wyświetl posty nie starsze niż:  Sortuj wg  
Nowy temat Odpowiedz w temacie  [ Posty: 4 ] 

Strefa czasowa UTC+2godz.


Kto jest online

Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 8 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
cron
Technologię dostarcza phpBB® Forum Software © phpBB Group
Hosting: Compus-Net
RobertKonik.pl