PerlGtk.pl - Artykuły - Perl Tk

Perl Tk - część XIII
przez wrares (32 odsłon)
Jednym z elementów dostępnych w bibliotece Tk, jest Suwak. Za pomocą tego widgetu możemy ustawiać wartości, tak jak robimy to w trakcie sterowania urządzeniami. Innym elementem który dziś zaprezentujemy, to jest LabelFrame, który łączy elementy etykiety z ramką. LabelFrame pozwala grupować podobne widgety, opisujące ten sam problem i sterowane w podobny sposób. Aby ułatwić sobie zadanie skorzystamy z GUI Buildera, gdyż 99% operacji związanych z budową formatki, będziemy przeprowadzać tylko rysując. Co chcemy uzyskać i jak wykonujemy to zadanie. Cytat: 1) Określić parametry kotła i sterować nimi 2) Definiujemy cztery pola wejściowe, 11 etykiet 3) Definiujemy jeden LabelForm 4) Definiujemy jeden suwak 5) Przesuwając suwakiem zmieniamy wartość w polu Para Czynności które wykonujemy Cytat: Na początku uruchamiamy GUI Buildera i wybieramy opcję Perl/Tk. Określamy obszar formatki Dodajemy komponent LabelForm i określamy jego nazwę oraz wielkość czcionki Kolejnym krokiem jest dodawanie widgetów do LabeForm, a mianowicie etykiet oraz pól wejściowych entry Ustawienie czcionek, kolorów i wyrównania elementów w komponencie Pole Wejściowe Para, będzie ustawiane poprzez zmianę wskaźnika na suwaku, więc tutaj w parametrze -textvariablepiszemy \$para Przeciągamy widget scale na formatkę i ustawiamy jego parametry Suwak w parametrze -command zapisujemy procedurę anonimową sub {$e_para = $para;} Suwak w parametrze -variable zapisujemy \$para Ustawiamy orientację horyzontalną suwaka Ustawiamy kolor, oraz -tickinterval na wartość 10 Całość zapisujemy i uruchamiamy w shellu perl plik.pl Projektując dla swojej aplikacji obsługę w postaci GUI, możemy uprościć i zdecydowanie skrócić czas potrzebny na budowę okienek. Wystarczy potraktować GUI Buildera, jak Delphi, VC lub KDevelop, a Nasz projekt ma szansę powstać szybciej. Przykładowa aplikacja dostępna jest w Naszych zasobach na tej stronie.... A tutaj dostępny jest zrzut ekranu...

Powrót