|
Menu główne
use PerlMongers::Warszawa;
use PerlMongers::Krakow;
NG_gRadio
|
| Konwersja wartości na zapis słowny Perl-Gtk2 |
|
przez szycha
(386 odsłon)
|
Konwersja kwoty na kwotę słownie można również przedstawić za pomocą bibloteki Gtk2.
Przykład doskonale obrazuje jak w szybki sposób możemy stworzyc małe GUI, który uatrakcyjni nasz program napisany w PERLU.
W pierwszej kolejnośći instalujemy moduł z CPANA:
Lingua::PL::Numbers
Następnie w programie GLADE rysujemy okienka :
i zapisujmey plik jako slownie.glade
tworzymy teraz plik :
slownie
#!/usr/bin/perl
use encoding 'utf-8';
use slownie;
Gtk2->main;
oraz slownie.pm
w którym zapisujemu obsługę zdarzeń.
package slownie;
use strict;
use Lingua::PL::Numbers;
require Exporter;
use vars qw(@EXPORT_OK);
@EXPORT_OK = qw ($gladexml);
use vars qw($gladexml);
use Gtk2 '-init';
use Gtk2::GladeXML;
$gladexml = Gtk2::GladeXML->new('slownie.glade');
slownie::init();
$gladexml->signal_autoconnect_from_package('slownie');
1;
package slownie;
use strict;
use vars qw($gladexml);
sub init {
$gladexml = $slownie::gladexml;
our $kwota = $gladexml->get_widget('kwota');
our $slownie = $gladexml->get_widget('label_slownie');
}
sub zakoncz { Gtk2->main_quit; }
sub oblicz {
my $entry = $slownie::kwota->get_text;
my $numer = Lingua::PL::Numbers->new;
$entry =~ s/,/./; #zamina przecinka na kropkę
my $dobra_kwota = $numer->currency("$entry");
$slownie::slownie->set_label($dobra_kwota);
}
1;
Efekt działania:
Program slownie.tar.gz
|
|
|
Szukaj w PerlGtk.pl
The Perl Job site
Szukaj kodu :
|
