Implementare il beep con Gambas

Un pò di tempo fa si discuteva del fatto che nel linguaggio Gambas non era implementata una delle funzioni più elementari del mondo: il beep. Ebbene si, quel suono alle volte così fastidioso può risultare in alcuni momenti utile per avvisare, ad esempio, un utente che un processo ha terminato di funzionare o che un ciclo è finito.

In altri linguaggi è presente la funzione BEEP che ovvia al problema ma allora in gambas come si può fare? Per ovviare al problema ho creato una classe di nome sistema che contiene due funzioni: Beep a CanBeep. Analizziamole

BEEP

Questa funzione permette di eseguire un semplice beep con l'istruzione:


sistema.Beep()


oppure permette di impostare quante volte si vuole ripetere il beep e quanto tempo (in secondi) deve passare tra un suono e l'altro semplicemente con l'istruzione:


sistema.Beep(ripetizioni,secondi)


CANBEEP

Questa funzione restituisce un valore booleano che indica se nel sistema è installato xkbbell, ovvero il programma che permette alla classe di funzionare. La sintassi è:


sistema.CanBeep()


IMPORTARE LA CLASSE

Come fare ad importare la classe nel proprio progetto?Prima di tutto scaricare il file in fondo al post, una volta terminato il download scompattiamo l'archivio zip e dalla cartella copiamo il file sistema.class e incolliamolo nella cartella dove risiede il nostro progetto Gambas. Ora apriamo Gambas e come prima riga nel codice del form in cui utilizzeremo le funzioni della classe scriviamo quanto segue:


PRIVATE sistema AS NEW sistema


In questo modo avremo sempre disponibili le funzioni all'interno della classe. Spero che il mio codice possa essere utile. Rimango come sempre in attesa di responsi....:-)


Se volete scaricare la classe potete farlo selezionando il link Gamba-classe-sistema comodamente nel box DOWNLOAD nella colonna qui a destra.