gambaslinux

Aides aux utilisateurs de gambas linux

Accueil  /  Archives décembre 2021


gestbase.jpg

 
Bonjour,
Philippe nous livre ici un excellent programme pour apprendre à manipuler les bases de données sqlite en Gambas.

Ce logiciel vous permettra de comprendre:
- Comment créer une base de données
- Comment ajouter, supprimer, modifier une occurence.
- Comment faire une copie d 'écran
- Comment imprimer l 'intégralité de la base.
- Comment gérer une interface multilangue.

Merci à philippe pour son excellent travail.
(renommez le fichier en gestbase.tar.gz pour l 'ouvrir)
 


Bonjour,

Une petite astuce aujourd 'hui qui consiste à compiler un projet en gambas 3 en ligne de commande.
Il vous suffit d 'ouvrir un terminal et de taper la commande suivante:

gba3 ledossierprojetgambas

Ainsi dans votre dossier de l 'application, l 'exécutable sera généré.

Merci pour votre attention.



 
gbocr.jpg
 

bonjour,
Aujourd'hui je vous propose un exemple du composant gb.scanner pour scanner un document.
Le resultat sera chargé dans une picturebox.

A)detection de votre scanner
Pour les possesseurs d'un scanner ouvrez un terminal et tapez en ligne de commande :


scanimage -L

vous devriez lire le nom de votre scanner comme ceci (pour mon appareil connecté) :
device 'brother4:bus3;dev3'

B) créer un nouveau projet
créez maintenant un nouveau projet graphique Gambas 3 ou ouvrez les sources présentes en bas de page.
Je choisi gtk2 par souci de compatibilité.

C) Voici le code de mon application:

Private monscan As Scanner
Public Sub Button1_Click()
Dim myimg As Image
myimg = monscan.Scan()
PictureBox1.Image = myimg
End

Public Sub Form_Open()
Me.Center()
monscan = New Scanner("brother4:bus3;dev3")
End

Public Sub binfo_Click()
If monscan.IsAvailable() Then 'Test if scanner is online and available return one boolean
Label1.Text = "scanner connected"
Else
Label1.Text = "Scanner not connected"
Endif
lname.Text = monscan.Name 'return our brother4:bus3;dev3 text
lmodel.Text = monscan.Model 'return string model of your scanner
lvendor.Text = monscan.Vendor 'return string vendor of your scanner
ltype.Text = monscan.Type 'return string connection type of your scanner
End

Public Sub CheckBox1_Click()
PictureBox1.Stretch = CheckBox1.Value
End




une petite remarque cependant:
pour créer un nouveau scanner "monscan" dans Form_open, je dois dire quel DEVICE (matériel) je possède entre les parenthèses.

C'est pour cette raison que je dois d'abord lancer le terminal pour le détecter.
le déclenchement d'un scan est tout simplement déclenché par la commande monscan.scan()
l'image est ensuite affichée dans la picturebox1.


Merci pour votre attention.