Ad Menu

Random Integer Generator

Random Integer Generator:
un piacevole generatore casuale di numeri interi con un'interfaccia grafica, scritto in Perl, che può generare un numero intero casuale scelto tra due numeri interi.
Quando la semplicità risolve le vita, è possibile infatti generare velocemente i numeri da giocarsi al Super-Enalotto o altro concorso, è sufficiente selezionare come nello screenshot il range da 1 a 90.



Funzionamento:
Aprire un editor di testo ed incollare il seguente codice:


#!/usr/bin/perl
# © 2011 con-f-use@gmx.net. Use permitted under MIT license: http://www.opensource.org/licenses/mit-license.php
use Gtk2 '-init'; # relies on the gnome toolkit bindings for perl

$size = 100000;   # fontsize in 0.001 pt (only god knows why)

sub randomizeLabel {   #### this does the actual randomisation
    $min = int($entry1->get_text);
    $max = int($entry2->get_text);
    $rand = int(rand($max-$min+1)) + $min;
    $diplabel->set_markup( "$rand" );
}
#### the rest is gui stuff:
$window = Gtk2::Window->new('toplevel');
$window->set_title('Random Integer Generator');
$window->signal_connect(destroy => sub { Gtk2->main_quit; });
$window->signal_connect(delete_event => sub { Gtk2->main_quit; });
$window->set_border_width(10);
$vbox = Gtk2::VBox->new(0, 5);   $window->add($vbox); $vbox->show;

$diplabel = Gtk2::Label->new;
$diplabel->set_markup("<span size=\"$size\">0</span>");
$vbox->add($diplabel);          $diplabel->show;

$entry1 = Gtk2::Entry->new;     $vbox->add($entry1);    $entry1->show;
$entry2 = Gtk2::Entry->new;     $vbox->add($entry2);    $entry2->show;

$button = Gtk2::Button->new("Generate!");
$button->signal_connect(clicked => \&randomizeLabel, $window);
$vbox->add($button);            $button->show;

$window->show;    Gtk2->main;
exit 0;


Salvare il file ad esempio con il nome: "Random Generator.pl", e renderlo eseguibile dalla scheda delle proprietà, e per avviare fare doppio-click su di esso e selezionare "esegui" nel dialogo.
A questo punto è possibile anche trascinare lo script nella cartella: «$HOME/.gnome2/nautilus-scripts», per eseguirlo quando serve.
Autore: Qui.
Questo è tutto;)

Share/Bookmark
Stampa il Post - Print this Post

Comments :

0 commenti to “ Random Integer Generator ”
Related Posts with Thumbnails