Gestbase Programme de gestion de base SQLITE

Rédigé par spheris Aucun commentaire
Classé dans : Logiciels, base de donnees, gambas 3 Mots clés : aucun

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.
Télécharger le fichier source ICI
(renommez le fichier en gestbase.tar.gz pour l 'ouvrir)
 

Compiler un projet gambas en ligne de commande

Rédigé par spheris Aucun commentaire
Classé dans : Tutoriels, IDE, gambas 3, terminal Mots clés : aucun
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.

Utiliser le composant gb.scanner

Rédigé par spheris Aucun commentaire
Classé dans : Tutoriels, Composants, picturebox, gambas 3, scanner Mots clés : aucun
 
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.
Telechargez les sources de cet exemple

Fil RSS des articles