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.
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 :
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.
