Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
Manipuler les images - Traitement d'image
LE TRAITEMENT D'IMAGE AVEC GAMBAS LINUX
bricolimage.png
Faire du traitement d'image, est ce possible sous gambas ? Ma réponse est oui !
Et même tout un lot de traitement fantastique. Flou, implode, etirer, ombre, etc... autant d'effet que vous pourrez appliquer à votre image.

Remarque : J'attire votre attention qu'il faut différencier une PICTURE et une IMAGE. Ce n'est pas la même chose. Mais il existe un moyen de passer de l'un à l'autre.

Il faut aussi cocher le composant gb.image dans les propriétés de votre projet.

Le traitement s'applique à une IMAGE et non une PICTURE.

C'est bon ? Etes vous prêt ? Allons y !

pour réaliser un traitement sur une image, trois étapes :

A) Ouverture de notre image

DIM monimage AS Image
DIM chemin AS String
monimage = Image.Load(chemin)

B) LE TRAITEMENT

monimage.Blur(mavaleur)

C) L'affichage dans une picturebox

PictureBox2.Picture = monimage.Picture

Maintenant que vous savez tout passons à la pratique.
Dans l'exemple téléchargeable ci dessous , vous trouverez des effets simples. Il en existe pas mal d'autre.
Pour connaitre tous les effets disponibles, allez voir dans la doc ici à la dernière ligne en bas .
A bientôt
wink

TELECHARGER LE PROGRAMME EXEMPLE

Voici le code de l'application  :

' Gambas class file
PUBLIC monimage AS Image
PUBLIC chemin AS String

PUBLIC SUB _new()
END

PUBLIC SUB Form_Open()
ME.Center
chemin = Application.Path & "/img/salon.png"
'lecture de l'image
monimage = Image.Load(chemin)
PictureBox1.Picture = Picture.Load(chemin)
END

PUBLIC SUB Menu2_Click()
ME.Close
END

'reglage luminosite
PUBLIC SUB Slider1_Change()
monimage = Image.Load(chemin)
monimage.Balance(Slider1.Value / 100, Slider2.Value / 100, Slider3.Value / 100)
PictureBox2.Picture = monimage.Picture
END

'reglage contraste
PUBLIC SUB Slider2_Change()
monimage = Image.Load(chemin)
monimage.Balance(Slider1.Value / 100, Slider2.Value / 100, Slider3.Value / 100)
PictureBox2.Picture = monimage.Picture
END

'reglage du gamma
PUBLIC SUB Slider3_Change()
monimage = Image.Load(chemin)
monimage.Balance(Slider1.Value / 100, Slider2.Value / 100, Slider3.Value / 100)
PictureBox2.Picture = monimage.Picture
END

'densité du flou
PUBLIC SUB Slider4_Change()
monimage = Image.Load(chemin)
monimage.Blur(Slider4.Value / 100)
PictureBox2.Picture = monimage.Picture
END

'densite effet charcoal
PUBLIC SUB Slider5_Change()
monimage = Image.Load(chemin)
monimage.Charcoal(Slider5.Value / 100)
PictureBox2.Picture = monimage.Picture
END

'valeur de désaturation
PUBLIC SUB Slider6_Change()
monimage = Image.Load(chemin)
monimage.Charcoal(Slider6.Value / 100)
PictureBox2.Picture = monimage.Picture
END

'minimise le bruit
PUBLIC SUB Button1_Click()
monimage = Image.Load(chemin)
monimage.Despeckle()
PictureBox2.Picture = monimage.Picture
END

'contour de l'image
PUBLIC SUB Slider7_Change()
monimage = Image.Load(chemin)
monimage.Edge(Slider7.Value / 100)
PictureBox2.Picture = monimage.Picture
END

'egalisation des couleurs
PUBLIC SUB Button2_Click()
monimage = Image.Load(chemin)
monimage.Equalize()
PictureBox2.Picture = monimage.Picture
END

'choix couleur adoucissement
PUBLIC SUB ColorChooser1_Change()
ValueBox1.Value = ColorChooser1.Value
END

'effet adoucissement
PUBLIC SUB Slider8_Change()
monimage = Image.Load(chemin)
monimage.Fade(ValueBox1.Value, Slider8.Value / 100)
PictureBox2.Picture = monimage.Picture
END

'conversion en niveau de gris
PUBLIC SUB Button3_Click()
monimage = Image.Load(chemin)
monimage.Gray()
PictureBox2.Picture = monimage.Picture
END

'choix couleur implosion
PUBLIC SUB ColorChooser2_Change()
ValueBox2.Value = ColorChooser2.Value
END

'facteur d'implosion
PUBLIC SUB Slider9_Change()
monimage = Image.Load(chemin)
monimage.Implode(Slider9.Value / 100, ValueBox2.Value)
PictureBox2.Picture = monimage.Picture
END

Date de création : 18/12/2009 @ 22:56
Dernière modification : 18/12/2009 @ 23:16
Catégorie : Manipuler les images
Page lue 5587 fois

Imprimer l'article Imprimer l'article


react.gifRéactions à cet article


Réaction n°1 

 par valaquarus le 17/04/2020 @ 16:59

 Excellent programme de démonstration.Une erreur facile à corriger : image.charcoal est utilisé à la place de image.desaturate.Par contre chez moi image.charcoal plante la machine systématiquement, dommage car c'est un effet sympa.Philippe.

ACCES RAPIDE

doc.png DOCUMENTATION
forum.png   FORUM GAMBAS
logiciel.png LOGICIELS GB
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
actualite et medias
compteur gratuit
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^