Ĺadny brzuch
coś jest nie tak!
kalkulator działa jako tako nawet przy dzieleniu, zwraca liczby po przecinku, ale kiedy napiszę w edicie liczbę z przecinkiem np:
2,4 i próbuje dodać to nie zależnie jakie dziłanie wykonuje program sie wywraca :(
procedure TMainMenu.Button1Click(Sender: TObject); var a,b,wynik, pomocnicza: real; //| //|- odpowiednie zmienne wykożystane w kalkulatorze napis:string; //| begin try if edit1.Text = '' then // exit //zabezpieczenie kalkulatora zatrzymuje funkcję w else // momencie nie podania wartosci w edit1 czyli jak edit = ''; a:=StrToFloat(edit1.text); {zamiana napisu na liczbe} b:=strtoint(label2.caption); //zawartosc label2 jest przenoszone do zminnej pomocniczej wynik:=a; // a jest przenoszone do wyniku begin case label1.Caption[1] of //pętla case (wykonuje to co jest w label1 czyli odpowidnie znaki +, -, *, /.) '+' : wynik:=b+a; //kiedy w label1 będzie + będzie wykonane dodawanie '-' : wynik:=b-a; //kiedy w label1 będzie - będzie wykonane odejmowanie '*' : wynik:=b*a; //kiedy w label1 będzie * będzie wykonane mnozenie ':' : wynik:=b/a; //kiedy w label1 będzie / będzie wykonane dzielenie end; label1.Caption:='='; // po nacisnieciu przycisku = to do label1 będzie wpisane znak = napis:=floattostr(wynik); //zamiana liczby na napis} label2.caption:=napis; //w label2 będzie widoczny wynik dzialania edit1.clear; //usówanie zawartosci edit1 end; except on EConvertError do begin ShowMessage('To nie jest poprawna liczba rzeczywista'); end; end; end;
sorka że tak przynudzam ale to jest dla mnie ważne:roll:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:Asdef napisał:
coś jest nie tak!
kalkulator działa jako tako nawet przy dzieleniu, zwraca liczby po przecinku, ale kiedy napiszę w edicie liczbę z przecinkiem np:
2,4 i próbuje dodać to nie zależnie jakie dziłanie wykonuje program sie wywraca :(
Bo zamiast przecinka powinieneś użyć kropki :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Asdef napisał:...
Ale tyś to k**wa zamieszał:!:o:! Jeżeli jedną 'a' i 'b' pobierasz z edita to FloatToStr (i revers)(nie wiem czemu masz tam Label wogóle :roll: ).
pozatym:
b:=strtoint(label2.caption); - 'b' jest przecież REAL to czemu masz StrToInt:?, a nie StrToFloat:?
Jak zabierasz sie za robienie prawdziwego kalkulatora to polecam kożystanie tylko z jednego TEdit:!
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:Oxi napisał:
cytat:Asdef napisał:
coś jest nie tak!
kalkulator działa jako tako nawet przy dzieleniu, zwraca liczby po przecinku, ale kiedy napiszę w edicie liczbę z przecinkiem np:
2,4 i próbuje dodać to nie zależnie jakie dziłanie wykonuje program sie wywraca :(
Bo zamiast przecinka powinieneś użyć kropki :)
ten sam efekt :(
dzisiaj już kącze ale jutro napiszę więcej na ten temat
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:mariuszlorenc napisał:
cytat:Asdef napisał:...
ale tyś to k**wa zamieszał:!:o:! Jeżeli jedną 'a' i 'b' pobierasz z edita to FloatToStr (i revers)(nie wiem czemu masz tam Label wogóle :roll: ).
pozatym:
b:=strtoint(label2.caption); - 'b' jest przecież REAL to czemu masz StrToInt:?, a nie StrToFloat:?
Jak zabierasz sie za robienie prawdziwego kalkulatora to polecam kożystanie tylko z jednego TEdit:!
label mam do pokazywania wyników z niego również label wykożystałem do źródle ale to i tak muszę poprzerabiać
faktycznie b:=strtoint(label2.caption); jest źle musiałem się walnąć bo b:=strtofloat(label2.caption); działa :)
piszesz że kożystam z 2ch editów bo ja widzę tylko jeden :shock:
wiem że to co przedstawiłem jest lamerskie ale od czegoś trzeba zacząć nie?
PS. biorę się teraz za skaracanie źródła :P
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:Oxi napisał:
Bo zamiast przecinka powinieneś użyć kropki :)
sory że też w osobnym poście ale przypomniało mi się o tobie OXI :)
nie może być kropki bo po naprawie nie działa a z kropką tak
problem rozwiązałem więc dzięki wszystkim za pomoc:lol:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:Asdef napisał:
sory że też w osobnym poście ale przypomniało mi się o tobie OXI :)
nie może być kropki bo po naprawie nie działa a z kropką tak
To w końcu nie działa czy działa z tą kropką ? ;)
PS.
Oczywiście masz rację - mój błąd.
Pomyliło mi się z kropką wymaganą w kodzie delphi. Natomiast przy zamianie stringów na liczby rzeczywiście jest przecinek (o ile ktoś nie zmienił sobie tego w ustawieniach Windowsa)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
[...]
To w końcu nie działa czy działa z tą kropką ? ;)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
[/quote]
musi być przecinek :)
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:Asdef napisał:
musi być przecinek :)
Tak - wiem.
Chodziło mi o to, że napisałeś:
cytat:nie może być kropki bo po naprawie nie działa a z kropką tak
niebieska część wskazuje na to, że z kropką nie działa, a zielona część wskazuje na to, ze z kropką działa (mała sprzeczność :))
Ale nieważne - tak tylko się przyczepiłem ;)
Wiem o co Ci chodziło i jak już pisałem wyżej - masz rację, to mi się pomyliło.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
GetFormatSettings; DecimalSeparator:='.';Teraz będzie działać tylko z kropką ;)
--------------------
-=[ Delphi rUlzZz ]=-
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
kalkulator działa jako tako nawet przy dzieleniu, zwraca liczby po przecinku, ale kiedy napiszę w edicie liczbę z przecinkiem np:
2,4 i próbuje dodać to nie zależnie jakie dziłanie wykonuje program sie wywraca :(
procedure TMainMenu.Button1Click(Sender: TObject); var a,b,wynik, pomocnicza: real; //| //|- odpowiednie zmienne wykożystane w kalkulatorze napis:string; //| begin try if edit1.Text = '' then // exit //zabezpieczenie kalkulatora zatrzymuje funkcję w else // momencie nie podania wartosci w edit1 czyli jak edit = ''; a:=StrToFloat(edit1.text); {zamiana napisu na liczbe} b:=strtoint(label2.caption); //zawartosc label2 jest przenoszone do zminnej pomocniczej wynik:=a; // a jest przenoszone do wyniku begin case label1.Caption[1] of //pętla case (wykonuje to co jest w label1 czyli odpowidnie znaki +, -, *, /.) '+' : wynik:=b+a; //kiedy w label1 będzie + będzie wykonane dodawanie '-' : wynik:=b-a; //kiedy w label1 będzie - będzie wykonane odejmowanie '*' : wynik:=b*a; //kiedy w label1 będzie * będzie wykonane mnozenie ':' : wynik:=b/a; //kiedy w label1 będzie / będzie wykonane dzielenie end; label1.Caption:='='; // po nacisnieciu przycisku = to do label1 będzie wpisane znak = napis:=floattostr(wynik); //zamiana liczby na napis} label2.caption:=napis; //w label2 będzie widoczny wynik dzialania edit1.clear; //usówanie zawartosci edit1 end; except on EConvertError do begin ShowMessage('To nie jest poprawna liczba rzeczywista'); end; end; end;
sorka że tak przynudzam ale to jest dla mnie ważne:roll:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:Asdef napisał:
coś jest nie tak!
kalkulator działa jako tako nawet przy dzieleniu, zwraca liczby po przecinku, ale kiedy napiszę w edicie liczbę z przecinkiem np:
2,4 i próbuje dodać to nie zależnie jakie dziłanie wykonuje program sie wywraca :(
Bo zamiast przecinka powinieneś użyć kropki :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Asdef napisał:...
Ale tyś to k**wa zamieszał:!:o:! Jeżeli jedną 'a' i 'b' pobierasz z edita to FloatToStr (i revers)(nie wiem czemu masz tam Label wogóle :roll: ).
pozatym:
b:=strtoint(label2.caption); - 'b' jest przecież REAL to czemu masz StrToInt:?, a nie StrToFloat:?
Jak zabierasz sie za robienie prawdziwego kalkulatora to polecam kożystanie tylko z jednego TEdit:!
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:Oxi napisał:
cytat:Asdef napisał:
coś jest nie tak!
kalkulator działa jako tako nawet przy dzieleniu, zwraca liczby po przecinku, ale kiedy napiszę w edicie liczbę z przecinkiem np:
2,4 i próbuje dodać to nie zależnie jakie dziłanie wykonuje program sie wywraca :(
Bo zamiast przecinka powinieneś użyć kropki :)
ten sam efekt :(
dzisiaj już kącze ale jutro napiszę więcej na ten temat
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:mariuszlorenc napisał:
cytat:Asdef napisał:...
ale tyś to k**wa zamieszał:!:o:! Jeżeli jedną 'a' i 'b' pobierasz z edita to FloatToStr (i revers)(nie wiem czemu masz tam Label wogóle :roll: ).
pozatym:
b:=strtoint(label2.caption); - 'b' jest przecież REAL to czemu masz StrToInt:?, a nie StrToFloat:?
Jak zabierasz sie za robienie prawdziwego kalkulatora to polecam kożystanie tylko z jednego TEdit:!
label mam do pokazywania wyników z niego również label wykożystałem do źródle ale to i tak muszę poprzerabiać
faktycznie b:=strtoint(label2.caption); jest źle musiałem się walnąć bo b:=strtofloat(label2.caption); działa :)
piszesz że kożystam z 2ch editów bo ja widzę tylko jeden :shock:
wiem że to co przedstawiłem jest lamerskie ale od czegoś trzeba zacząć nie?
PS. biorę się teraz za skaracanie źródła :P
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:Oxi napisał:
Bo zamiast przecinka powinieneś użyć kropki :)
sory że też w osobnym poście ale przypomniało mi się o tobie OXI :)
nie może być kropki bo po naprawie nie działa a z kropką tak
problem rozwiązałem więc dzięki wszystkim za pomoc:lol:
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:Asdef napisał:
sory że też w osobnym poście ale przypomniało mi się o tobie OXI :)
nie może być kropki bo po naprawie nie działa a z kropką tak
To w końcu nie działa czy działa z tą kropką ? ;)
PS.
Oczywiście masz rację - mój błąd.
Pomyliło mi się z kropką wymaganą w kodzie delphi. Natomiast przy zamianie stringów na liczby rzeczywiście jest przecinek (o ile ktoś nie zmienił sobie tego w ustawieniach Windowsa)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
[...]
To w końcu nie działa czy działa z tą kropką ? ;)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
[/quote]
musi być przecinek :)
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
cytat:Asdef napisał:
musi być przecinek :)
Tak - wiem.
Chodziło mi o to, że napisałeś:
cytat:nie może być kropki bo po naprawie nie działa a z kropką tak
niebieska część wskazuje na to, że z kropką nie działa, a zielona część wskazuje na to, ze z kropką działa (mała sprzeczność :))
Ale nieważne - tak tylko się przyczepiłem ;)
Wiem o co Ci chodziło i jak już pisałem wyżej - masz rację, to mi się pomyliło.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
GetFormatSettings; DecimalSeparator:='.';Teraz będzie działać tylko z kropką ;)
--------------------
-=[ Delphi rUlzZz ]=-