Rotation d'une image a l'angle voulu !
Soyez le premier à donner votre avis sur cette source.
Vue 6 408 fois - Téléchargée 1 160 fois
Description
pour faire tourner votre image tres facilement avec le nivo de precision voulu !
et voila soyer simpa et laisser des commentairessssssssss ;-) :-) !
Source / Exemple :
Private Sub Command1_Click() Rotation Picture1, Picture2, 90, 10 'apeller du sub| picture1 = image a tourner, picture2= image de fin, 90 = la rotation en degrer, 10 la precision End Sub Sub Rotation(Picture1 As PictureBox, Picture2 As PictureBox, Angle As Long, Precision As Long) Picture1.AutoRedraw = True Picture2.AutoRedraw = True r = Atn(1) * 4 / 180 If Picture1.Width > Picture1.Height Then Picture2.Width = Picture1.Width + (Picture1.Width / 2) Picture2.Height = Picture1.Width + (Picture1.Width / 2) Else Picture2.Width = Picture1.Height + (Picture1.Height / 2) Picture2.Height = Picture1.Height + (Picture1.Height / 2) End If centrex1 = Picture1.ScaleWidth / 2 centrey1 = Picture1.ScaleHeight / 2 centrex2 = Picture2.ScaleWidth / 2 centrey2 = Picture2.ScaleHeight / 2 For y = 0 To Picture1.ScaleHeight Step Precision For x = 0.0001 To Picture1.ScaleWidth Step Precision p = Picture1.Point(x, y) wx = x - centrex1 wy = y - centrey1 a = Atn(wy / wx) / r + Angle If x > centrex1 Then a = a + 180 t = Sqr(wx * wx + wy * wy) DoEvents rx = centrex2 - Cos(a * r) * t ry = centrey2 - Sin(a * r) * t Picture2.PSet (rx, ry), p Next Next End Sub
Conclusion :
et voila soyer simpa et laisser des commentairessssssssss ;-) :-) !
Codes Sources
A voir également
- Rotation d'une image a l'angle voulu !
- Affiche une image suivant un angle - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Simple rotation d'une image - Codes sources - Visual Basic / VB.NET (Graphique)
- Delphi / Pascal : Rotation d'une image - CodeS SourceS - Guide
- Visual Basic / VB.NET : Rotation d'une image en son centre - CodeS SourceS - Guide
- PHP : Fonction rotation d'une image - CodeS SourceS - Guide
Commentaires
- Messages postés
- 20
- Date d'inscription
- mardi 9 avril 2002
- Statut
- Membre
- Dernière intervention
- 18 septembre 2008
-- Messages postés
- 102
- Date d'inscription
- mercredi 11 octobre 2000
- Statut
- Membre
- Dernière intervention
- 9 septembre 2003
-- Messages postés
- 7
- Date d'inscription
- mercredi 19 décembre 2001
- Statut
- Membre
- Dernière intervention
- 8 novembre 2002
-Merci pour cette source.
Gadot
- Messages postés
- 29
- Date d'inscription
- dimanche 8 juin 2003
- Statut
- Membre
- Dernière intervention
- 16 janvier 2013
-- Messages postés
- 1
- Date d'inscription
- mercredi 27 août 2003
- Statut
- Membre
- Dernière intervention
- 27 janvier 2004
-et avec les optimisations, c'est nickel !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.