Page loading

Share your opinion
What do you think about gambaslinux.fr?
 
Interesting
It miss some informations
Excellent website
Results
WIDGETS GAMBAS
GAMBAS 3 SOFTWARES
TUTORIALS
Library
Use picture - convert image
french only sorry...
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

Creation date : 18/12/2009 @ 22:56
Last update : 18/12/2009 @ 23:16
Category : Use picture
Page read 5593 times

Print the article Print the article


react.gifReactions to this article


Reaction #1 

 by valaquarus 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.

QUICK MENU

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

SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
actualite et medias
compteur gratuit
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^