Alcuni codici per il nokia 1208

Eccone alcuni che ho trovato su internet!

• *#5512#
• *#5513#
• *#5514#

Provate a inserire questi codici e vedete cosa succede! Tranquilli se non volete rischiare vedete il video :P

La grafica in Perl

Ultimamente mi sto dedicando alla programmazione in Perl e mi sono chiesto se era possibile creare delle applicazioni grafiche accettabili! Naturalmente la risposta è si, altrimenti non ero qui a scrivere l'articolo. Mi sono segnato alcuni appunti su come creare un form, le label, i button e le cose principali. Su internet non c'è molto però effettuando delle ricerche approfondite ho capito che un modulo valido che potete utilizzare per le applicazioni grafiche è il Tk. Prima domanda: come faccio ad installare questo modulo? Semplice, almeno per chi già lo sa. Per chi ha Windows basta cliccare su Start > tutti i programmi > ActivePerl 5.10.1 Build 1007 (64-bit) > Perl Package Manager. Una volta aperto il programma dovete scaricare ed installare il modulo Tk. Come? Nella barra di ricerca che si trova in alto basta scrivere Tk e attendere. Compariranno svariati risultati e ciò che dovete fare è selezione la voce "Tk" (cercate bene perchè c'è).
Una volta installato possiamo iniziare a scrivere il codice.
PASSO A. Generare la finestra principale

1.#!/usr/bin/perl
2.use strict;
3.use Tk;
4.my $finestra
5.$finestra = MainWindow -> new (-background => "#colore");
6.$finestra -> title("testo");
7.$finestra -> maxsize(x,y);
8.$finestra -> minsize(x,y);

(linea 7): sono le dimensioni impostate quando viene premuto il tasto per ingrandire la finestra, mentre (linea 8) sono le dimensioni impostate quando viene premuto il tasto per rimpicciolire la schermata.

Per generare label o pulsanti bisogna eseguire una procedura simile:
PASSO B. Creare una label

9. $finestra -> Label(
10. -text=>"testo",
11. -foreground=>"#colore",
12. -background=>"#colore",
13. -font=>"Verdana 10"
14. )->pack(-anchor=>"n");

(linea 13) Il numero 10 rappresenta la dimensione del carattere; (linea 14) n sta per nord. Si sembra strano ma a differenza degli altri linguaggi di programmazione non si utilizza l e r (rispettivamente left e right) ma "w" e "e" le lettere inglesi che indicano ovest ed est quindi sinistra e destra.
Ora avete capito il meccanismo spero, la stessa cosa succede con gli altri pulsanti:
Entry che corrisponde alla casella di testo
Button che corrisponde al pulsante
Entrambi hanno lo stesso funzionamento della label sopra descritta, eccetto per delle loro caratteristiche peculiari.

Entry (casella di testo)
-textvariable => \ $variabile
dove $variabile è la variabile che contiene il testo digitato
Button (pulsante)
-command => sub {& sub ;}
dove sub è la subroutine che contiene il codice da eseguire

Questo è quello che fino ad ora ho capito della grafica in Perl!