PerlGtk.pl - Artykuły - Perl Tk

Perl Tk - część VII
przez wrares (42 odsłon)
Dziś sobie trochę policzymy. Będziemy obliczać równe raty kredytu na samochód lub dom. Tradycyjne zaczniemy od pokazania Naszego warsztatu z formatką, którą tworzymy oraz jej wygląd po uruchomieniu aplikacji. GUI z naszą formatką wygląda tak.... Uruchomiany program to wygląda tak.... Mamy już za sobą małe prezentacje, więc przystępujemy do omówienia szczegółów. Co wykorzystaliśmy Cytat: 1) Formatka 2) Przyciski 3) Etykiety 4) Pola Wprowadzania - Entry Skorzystaliśmy ze standardowego sposobu obliczania rat kredytu, dostępnego w literaturze lub internecie. Nie będziemy tutaj głębiej wchodzić w to zagadnienie. Jak działa aplikacja Cytat: 1) Posiadamy cztery pola (Entry), z czego 3 służą wprowadzaniu informacji, a czwarte służy do wyświetlenia wyniku 2) Mamy dwa przyciski, jeden służy do wykonywania obliczeń, drugi do czyszczenia pól, przed następnym wprowadzaniem informacji. 3) Pomiędzy polami poruszamy się klawiszem TAB lub wskaźnikiem myszki. A teraz nasz kod z omówieniem `sub b_czysc_command { $e_procent->configure(-text => " "); $e_rata->configure(-text => " "); $e_kwota->configure(-text => " "); $e_lata->configure(-text => " "); }` Ta procedura czyści zawartość wszystkich pól do wprowadzania informacji, jak i do wyświetlania wyniku. `sub b_oblicz_command { #Założono liczbę rat w ciągu roku na 12 my ($p, $w, $z, $k, $r, $wynik) = 0; my ($z1, $z2, $z3, $z4) = 0.0; $p = $e_procent->get; $k = $e_kwota->get; $z = $e_lata->get; $r = $e_rata->get; $z1 = ($p/100) * $k / 12; $z2 = -(12 * $z); $z3 = (($p/100) / 12) + 1.0; $z4 = 1.0 - ($z3 $z2); $wynik = ($z1 / $z4); $e_rata->configure(-text => sprintf("%.2f",$wynik)); }` Jest to procedura obliczająca nasze raty. Na początku założono, że raty będą spłacane miesięcznie, a że rok ma ich dwanaście to w kodzie programu jest 12. Następnie wprowadzono zmienne pomocnicze w nawiasach, aby ułatwić zrozumienie algorytmu. Poniżej procedurą get pobieramy wartości które wpisaliśmy do naszych pól (Entry) i zapisujemy je w zmiennych. Następnym krokiem jest cała seria obliczeń. Na końcu wynik formatujemy funkcją sprintf i wyświetlamy w komponencie (Entry). `rata_pozyczki::userinit() if defined &rata_pozyczki::userinit; our $top = MainWindow->new(); $top->title("Obliczenie Raty Kredytu - Portal PerlGtk Programował wrares 19/03/2010"); $top->resizable(0,0); $top->geometry('+300+200'); rata_pozyczki::ui($top); rata_pozyczki::run() if defined &rata_pozyczki::run; Tk::MainLoop(); 1;` Nadajemy tytuł formatce, uniemożliwiamy rozszerzanie oraz ustawiamy miejsce gdzie ma być wyświetlona na na ekranie. Jak nietrudno zauważyć, tworzenie GUI dla Naszych programów, które liczą, wyświetlają, zmieniają informacje w dane są możliwe do realizacji w sposób prosty i szybki. To co zostało zademonstrowane jest tylko przykładem, który jest użyteczny i działa, ale warto go rozbudowywać aby nabrać praktyki. Tradycyjnie cały program pobieramy z tej strony...**

Powrót