Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


[ASTUCES] Dessiner en 2D

Partagez
avatar
Blackorion35
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 2565
Age : 27
Localisation : Rouen
Emploi/loisirs : Dirigeant société informatique déclaré/Informaticien au CNED
Humeur : En forme !
Date d'inscription : 19/03/2013

[ASTUCES] Dessiner en 2D

Message par Blackorion35 le Jeu 14 Nov 2013 - 21:57

ATTENTION : Codé sous Visual Basic 2010 Express... à vous de l'adapter pour SZ2012


Bonjour,

Voici un projet complet rapide et simple à comprendre pour créer une animation 2D dans une fenêtre.
Malheureusement j'ai pas réussi à l'adapter à SZ2012 amusé
A vous de jouer Wink !

https://mega.co.nz/#!qUFA3TgA!Ci0FbxSJV2SmNyKwWE0Eh3QDkkI55-IyleA1Yhwk0K4
(contient l'executable du projet en Release ainsi que le projet VS 2010 Express complet)

Petite image Very Happy : 



EDIT : Désolé pour mon double écran et le fond d'écran de Dota 2 dessus x)

J'offre 10000 euros un bisous à celui qui adapte ça à SZ2012 amusé



Le site officiel de notre société : http://algostep-company.fr
Notre WebOS "Rynna" en développement : http://rynnawebos.fr/login
Le WebOS "Zator" conçu pour le forum et ses membres dispo en test ici :
http://algostep-company.fr/WebOS-Zator-Test1/
---------------------------------------------------------
avatar
polien


Masculin Nombre de messages : 2869
Age : 21
Localisation : Bouches du Rhones
Emploi/loisirs : velo, informatique, électronique, robotique, modélisme feroviaire
Humeur : Je commence tout mais ne finit rien :P
Date d'inscription : 19/05/2011

Re: [ASTUCES] Dessiner en 2D

Message par polien le Ven 15 Nov 2013 - 11:32

Bonjour,

Bon programme même si ça aurait été bien de commenter les sources. Sa reste du bon boulot, comme d'hab Wink
Quand j'aurai le temps, je l'adapterai sous SZ Wink



Cordialement,
Polien.

You want to have an english help for Software Zator ? Let's try to read the first tutorial in english Wink : CLIC HERE
BESOINS D'UN TUTO? CONSULTER LE SOMMAIRE !

Débutez avec SZ avec les tutos en pdf !
avatar
Blackorion35
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 2565
Age : 27
Localisation : Rouen
Emploi/loisirs : Dirigeant société informatique déclaré/Informaticien au CNED
Humeur : En forme !
Date d'inscription : 19/03/2013

Re: [ASTUCES] Dessiner en 2D

Message par Blackorion35 le Ven 15 Nov 2013 - 15:57

Cool ça merci Polien Very Happy



Le site officiel de notre société : http://algostep-company.fr
Notre WebOS "Rynna" en développement : http://rynnawebos.fr/login
Le WebOS "Zator" conçu pour le forum et ses membres dispo en test ici :
http://algostep-company.fr/WebOS-Zator-Test1/
---------------------------------------------------------
avatar
fandeonepiece2
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 1804
Age : 16
Localisation : chez moi
Emploi/loisirs : Programmation H24
Humeur : massacrante... si je n'ai pas ma dose journalière de programmation
Date d'inscription : 14/09/2013

Re: [ASTUCES] Dessiner en 2D

Message par fandeonepiece2 le Ven 15 Nov 2013 - 16:00

bonjour,
c'est quoi l'animation graphique je n'ai pas trouvé ? Razz 
j'ai lancé l’exécutable mais cela ne fait rien quand je balade ma souris, quand je maintien un clic et je déplace ma souris il ne se passe rien
merci



(ಠ_ಠ)


http://openclassrooms.com/forum/sujet/regie-publicitaire-drozor
avatar
Blackorion35
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 2565
Age : 27
Localisation : Rouen
Emploi/loisirs : Dirigeant société informatique déclaré/Informaticien au CNED
Humeur : En forme !
Date d'inscription : 19/03/2013

Re: [ASTUCES] Dessiner en 2D

Message par Blackorion35 le Ven 15 Nov 2013 - 16:19

Ben c'est juste un graphique 2D utilisant chaque point (pixel) de la fenêtre (en gros ce que tu vois c'est justement les calculs qui font ça ^^)



Le site officiel de notre société : http://algostep-company.fr
Notre WebOS "Rynna" en développement : http://rynnawebos.fr/login
Le WebOS "Zator" conçu pour le forum et ses membres dispo en test ici :
http://algostep-company.fr/WebOS-Zator-Test1/
---------------------------------------------------------
avatar
fandeonepiece2
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 1804
Age : 16
Localisation : chez moi
Emploi/loisirs : Programmation H24
Humeur : massacrante... si je n'ai pas ma dose journalière de programmation
Date d'inscription : 14/09/2013

Re: [ASTUCES] Dessiner en 2D

Message par fandeonepiece2 le Ven 15 Nov 2013 - 16:24

bonjour,
d'accord
c'est vrai que sur ta screen il y a plus de ligne que moi sur ma toute petite résolution d'écran
merci



(ಠ_ಠ)


http://openclassrooms.com/forum/sujet/regie-publicitaire-drozor
avatar
polien


Masculin Nombre de messages : 2869
Age : 21
Localisation : Bouches du Rhones
Emploi/loisirs : velo, informatique, électronique, robotique, modélisme feroviaire
Humeur : Je commence tout mais ne finit rien :P
Date d'inscription : 19/05/2011

Re: [ASTUCES] Dessiner en 2D

Message par polien le Ven 15 Nov 2013 - 16:44

re,

La bonne nouvelle s'est que j'ai adapté le programme sur SZ Wink
La mauvaise, s'est que j'ai une belle liste d'erreur que je ne peut pas résoudre Neutral 

Est ce que quelqu'un est quand même intéressé par le projet ?



Cordialement,
Polien.

You want to have an english help for Software Zator ? Let's try to read the first tutorial in english Wink : CLIC HERE
BESOINS D'UN TUTO? CONSULTER LE SOMMAIRE !

Débutez avec SZ avec les tutos en pdf !
avatar
Softwarezatorman


Masculin Nombre de messages : 1249
Age : 17
Localisation : 76230 Bois-Guillaume
Emploi/loisirs : Code, musique, sport
Humeur : Toujours heureux évidemment!
Date d'inscription : 22/10/2011

Re: [ASTUCES] Dessiner en 2D

Message par Softwarezatorman le Ven 15 Nov 2013 - 17:01

Bonjour Smile

euh moi Mega reste à 100% mais mon téléchargement ne se fait pas (rhaa c'était mieux avant la MàJ!)



Modérateur de la section SoftwareZator

SoftwareZator ah... quel outil formidable Very Happy Very Happy Very Happy 
Créer des logiciels en toute simplicité...c'est merveilleux study
Quand quelque chose ne va pas scratch: Le forum est là! Smile



Vous êtes sur un forum et il y a des règles à respecter: éviter les doubles-post et ne pas utiliser le langage sms. Merci de votre compréhension.


N'hésitez surtout pas à faire des tutoriels pour les autres.
Merci Very Happy



Venez voir ma chaîne Youtube: ChriisX !

Mon instagram: _chrischr


Bonjour Invité Smile
avatar
fandeonepiece2
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 1804
Age : 16
Localisation : chez moi
Emploi/loisirs : Programmation H24
Humeur : massacrante... si je n'ai pas ma dose journalière de programmation
Date d'inscription : 14/09/2013

Re: [ASTUCES] Dessiner en 2D

Message par fandeonepiece2 le Ven 15 Nov 2013 - 17:17

bonjour,
c'est un peu hors sujet mais bon
il n'y a jamais eu de mise a jour de MEGA.
Au départ c'était mégaupload, mais cela a été arrêter par le FBI.
Un nouveau site est né MEGA (je crois que ce sont les mêmes créateurs) pour remplacer mégaupload.



(ಠ_ಠ)


http://openclassrooms.com/forum/sujet/regie-publicitaire-drozor
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: [ASTUCES] Dessiner en 2D

Message par lereparateurdepc le Ven 15 Nov 2013 - 17:20

re,

Comme tu ne peut pas ajouter les Imports, as-tu pensé à réécrire sur chaque ligne qui les utilise, le "chemin" complet ?

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
polien


Masculin Nombre de messages : 2869
Age : 21
Localisation : Bouches du Rhones
Emploi/loisirs : velo, informatique, électronique, robotique, modélisme feroviaire
Humeur : Je commence tout mais ne finit rien :P
Date d'inscription : 19/05/2011

Re: [ASTUCES] Dessiner en 2D

Message par polien le Ven 15 Nov 2013 - 17:25

lereparateurdepc a écrit:re,

Comme tu ne peut pas ajouter les Imports, as-tu pensé à réécrire sur chaque ligne qui les utilise, le "chemin" complet ?

Cordialement,
Le réparateur de PC
oui, s'est d'ailleurs ce qui m'a pris le plus de temps Wink



Cordialement,
Polien.

You want to have an english help for Software Zator ? Let's try to read the first tutorial in english Wink : CLIC HERE
BESOINS D'UN TUTO? CONSULTER LE SOMMAIRE !

Débutez avec SZ avec les tutos en pdf !
avatar
Softwarezatorman


Masculin Nombre de messages : 1249
Age : 17
Localisation : 76230 Bois-Guillaume
Emploi/loisirs : Code, musique, sport
Humeur : Toujours heureux évidemment!
Date d'inscription : 22/10/2011

Re: [ASTUCES] Dessiner en 2D

Message par Softwarezatorman le Ven 15 Nov 2013 - 17:42

@fandeonepiece2: avant le design de Mega n'était pas comme ça, et ça marchait beaucoup mieux Smile



Modérateur de la section SoftwareZator

SoftwareZator ah... quel outil formidable Very Happy Very Happy Very Happy 
Créer des logiciels en toute simplicité...c'est merveilleux study
Quand quelque chose ne va pas scratch: Le forum est là! Smile



Vous êtes sur un forum et il y a des règles à respecter: éviter les doubles-post et ne pas utiliser le langage sms. Merci de votre compréhension.


N'hésitez surtout pas à faire des tutoriels pour les autres.
Merci Very Happy



Venez voir ma chaîne Youtube: ChriisX !

Mon instagram: _chrischr


Bonjour Invité Smile
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: [ASTUCES] Dessiner en 2D

Message par lereparateurdepc le Ven 15 Nov 2013 - 17:44

re,

SZMan a raison le graphisme à changé.

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
Softwarezatorman


Masculin Nombre de messages : 1249
Age : 17
Localisation : 76230 Bois-Guillaume
Emploi/loisirs : Code, musique, sport
Humeur : Toujours heureux évidemment!
Date d'inscription : 22/10/2011

Re: [ASTUCES] Dessiner en 2D

Message par Softwarezatorman le Ven 15 Nov 2013 - 17:49

Et depuis ça ne marche plus les téléchargements pour moi :'(



Modérateur de la section SoftwareZator

SoftwareZator ah... quel outil formidable Very Happy Very Happy Very Happy 
Créer des logiciels en toute simplicité...c'est merveilleux study
Quand quelque chose ne va pas scratch: Le forum est là! Smile



Vous êtes sur un forum et il y a des règles à respecter: éviter les doubles-post et ne pas utiliser le langage sms. Merci de votre compréhension.


N'hésitez surtout pas à faire des tutoriels pour les autres.
Merci Very Happy



Venez voir ma chaîne Youtube: ChriisX !

Mon instagram: _chrischr


Bonjour Invité Smile
avatar
fandeonepiece2
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 1804
Age : 16
Localisation : chez moi
Emploi/loisirs : Programmation H24
Humeur : massacrante... si je n'ai pas ma dose journalière de programmation
Date d'inscription : 14/09/2013

Re: [ASTUCES] Dessiner en 2D

Message par fandeonepiece2 le Ven 15 Nov 2013 - 18:02

bonjour,
d'accord je savais pas pour le graphisme
peut être que les téléchargements fait sur MEGA son pris pour des téléchargement malveillants par ton navigateur ?
quel navigateur utilise tu ?



(ಠ_ಠ)


http://openclassrooms.com/forum/sujet/regie-publicitaire-drozor
avatar
Blackorion35
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 2565
Age : 27
Localisation : Rouen
Emploi/loisirs : Dirigeant société informatique déclaré/Informaticien au CNED
Humeur : En forme !
Date d'inscription : 19/03/2013

Re: [ASTUCES] Dessiner en 2D

Message par Blackorion35 le Ven 15 Nov 2013 - 18:11

( Oui MEGA.CO est bienl'ancetre de Megaupload amusé )
Et GG pour la transformation sous SZ 2012 Smile !!
C'est quoi la liste d'erreur ?



Le site officiel de notre société : http://algostep-company.fr
Notre WebOS "Rynna" en développement : http://rynnawebos.fr/login
Le WebOS "Zator" conçu pour le forum et ses membres dispo en test ici :
http://algostep-company.fr/WebOS-Zator-Test1/
---------------------------------------------------------
avatar
fandeonepiece2
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 1804
Age : 16
Localisation : chez moi
Emploi/loisirs : Programmation H24
Humeur : massacrante... si je n'ai pas ma dose journalière de programmation
Date d'inscription : 14/09/2013

Re: [ASTUCES] Dessiner en 2D

Message par fandeonepiece2 le Ven 15 Nov 2013 - 18:18

Bonjour,Blackorion35 a écrit:( Oui MEGA.CO est bien l'ancetre de Megaupload amusé )
heu c'est pas l'inverse ?


Blackorion35 a écrit:Et GG pour la transformation sous SZ 2012 Smile !!
cela veut dire quoi GG ?



(ಠ_ಠ)


http://openclassrooms.com/forum/sujet/regie-publicitaire-drozor
avatar
Softwarezatorman


Masculin Nombre de messages : 1249
Age : 17
Localisation : 76230 Bois-Guillaume
Emploi/loisirs : Code, musique, sport
Humeur : Toujours heureux évidemment!
Date d'inscription : 22/10/2011

Re: [ASTUCES] Dessiner en 2D

Message par Softwarezatorman le Ven 15 Nov 2013 - 18:21

J'utilise firefox, je vais essayer avec IE et Google chrome Smile



Modérateur de la section SoftwareZator

SoftwareZator ah... quel outil formidable Very Happy Very Happy Very Happy 
Créer des logiciels en toute simplicité...c'est merveilleux study
Quand quelque chose ne va pas scratch: Le forum est là! Smile



Vous êtes sur un forum et il y a des règles à respecter: éviter les doubles-post et ne pas utiliser le langage sms. Merci de votre compréhension.


N'hésitez surtout pas à faire des tutoriels pour les autres.
Merci Very Happy



Venez voir ma chaîne Youtube: ChriisX !

Mon instagram: _chrischr


Bonjour Invité Smile
avatar
polien


Masculin Nombre de messages : 2869
Age : 21
Localisation : Bouches du Rhones
Emploi/loisirs : velo, informatique, électronique, robotique, modélisme feroviaire
Humeur : Je commence tout mais ne finit rien :P
Date d'inscription : 19/05/2011

Re: [ASTUCES] Dessiner en 2D

Message par polien le Ven 15 Nov 2013 - 18:25

re,

Blackorion35 a écrit:( Oui MEGA.CO est bienl'ancetre de Megaupload amusé )
Et GG pour la transformation sous SZ 2012 Smile !!
C'est quoi la liste d'erreur ?
liste d'erreur a écrit:
Error === Line 121, Column 0, Error BC30002
Description : Type 'System.Drawing.Drawing2D.SmoothingMode.AntiAlias' non défini.


Error === Line 130, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 142, Column 0, Error BC30519
Description : La résolution de surcharge a échoué, car aucun 'New' accessible ne peut être appelé sans conversion restrictive :
   'Public Sub New(brush As System.Drawing.Brush)': L'argument qui correspond au paramètre 'brush' passe de 'Object' à 'System.Drawing.Brush'.
   'Public Sub New(color As System.Drawing.Color)': L'argument qui correspond au paramètre 'color' passe de 'Object' à 'System.Drawing.Color'.


Error === Line 156, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 158, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 158, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 160, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 160, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 162, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 162, Column 0, Error BC30516
Description : La résolution de surcharge a échoué, car aucun 'Scale' accessible n'accepte ce nombre d'arguments.


Error === Line 166, Column 0, Error BC30002
Description : Type 'System.Drawing.StringAlignment.Center' non défini.


Error === Line 168, Column 0, Error BC30002
Description : Type 'System.Drawing.StringAlignment.Center' non défini.
Code généré par SZ a écrit:'------------------------------------------------------------------------------
'
'     Ce code a été généré par un outil.
'     Version du runtime :4.0.30319.18051
'
'     Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
'     le code est régénéré.
'
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Windows.Forms
"Dessin"),  _
 Assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0"),  _
 Assembly: System.Reflection.AssemblyCopyrightAttribute("Copyright ©  2013"),  _
 Assembly: System.Reflection.AssemblyDescriptionAttribute(""),  _
 Assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0"),  _
 Assembly: System.Runtime.InteropServices.GuidAttribute("7b83dc3e-57da-440c-b701-b60c0b5565cc"),  _
 Assembly: System.Reflection.AssemblyTrademarkAttribute("Dessin™"),  _
 Assembly: System.Reflection.AssemblyProductAttribute("Dessin"),  _
 Assembly: System.Reflection.AssemblyCompanyAttribute(""),  _
 Assembly: System.Runtime.InteropServices.ComVisibleAttribute(false)> 

'----------------------------------------------------------------------
'This code was generated by SoftwareZator 2012 Edition Professionnelle (3.0.0.3)
'The vendredi 15 novembre 2013 at 19:24:30
'----------------------------------------------------------------------
Namespace Dessin
    
      _
    Partial Public Class Fenêtre1
        Inherits System.Windows.Forms.Form
        
        Public button1 As System.Windows.Forms.Button
        
        Public Sub New()
            MyBase.New
            Me.InitializeComponent
        End Sub
        
        Public Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Fenêtre1))
            Me.button1 = New System.Windows.Forms.Button()
            Me.SuspendLayout
            '
            'button1
            '
            Me.button1.Cursor = System.Windows.Forms.Cursors.Default
            Me.button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
            Me.button1.ImeMode = System.Windows.Forms.ImeMode.Disable
            Me.button1.Location = New System.Drawing.Point(0, 0)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(46, 23)
            Me.button1.TabIndex = 0
            Me.button1.Text = "Quitter"
            Me.button1.UseVisualStyleBackColor = true
            '
            'Fenêtre1
            '
            Me.AutoValidate = System.Windows.Forms.AutoValidate.EnableAllowFocusChange
            Me.ClientSize = New System.Drawing.Size(763, 388)
            Me.Controls.Add(Me.button1)
            Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.Name = "Fenêtre1"
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
            Me.Text = "Fenêtre1"
            Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
            Me.ResumeLayout(false)
            AddHandler Me.Load, AddressOf Me.Form_Load
            AddHandler button1.Click, AddressOf Me.button1_Click
            AddHandler Me.Paint, AddressOf Me.Fenêtre1_Paint
        End Sub
        
          _
        Public Shared Sub Main()
            _manager.Run(System.Environment.GetCommandLineArgs())
        End Sub
    End Class
    
    Public Class Fenêtre1
        
        'Fonction Form_Load
        Public Sub Form_Load(ByVal sender As ObjectByVal e As System.EventArgs)
            'Cette fonction se déclenche à l'ouverture de la fenêtre.
            '
            'This function is launched during opening.
        End Sub
        
        'Fonction button1_Click
        Public Sub button1_Click(ByVal sender As ObjectByVal e As System.EventArgs)
            Me.DialogResult = System.Windows.Forms.DialogResult.None : Me.Close()
        End Sub
        
        'Fonction Fenêtre1_Paint
        Public Sub Fenêtre1_Paint(ByVal sender As ObjectByVal e As System.Windows.Forms.PaintEventArgs)
            ggg = e.Graphics
            Me.Dessiner(ggg)
        End Sub
        
        'Fonction Dessiner
        Public Sub Dessiner(ByVal g As Object)
g = New System.Drawing.Drawing2D.SmoothingMode.AntiAlias

            rect = Me.ClientRectangle
            cx = rect.Width
            cy = rect.Height
            scale = CSng(cy) / CSng(cx)
            _brush = New System.Drawing.Drawing2D.LinearGradientBrush(Me.ClientRectangle, Color.Empty, Color.Empty, 45)
            blend = New System.Drawing.Drawing2D.ColorBlend()
            CType(blend,System.Drawing.Drawing2D.ColorBlend).Colors = {Color.Red, Color.Green, Color.Blue}
            CType(blend,System.Drawing.Drawing2D.ColorBlend).Positions = {0.0, 0.5, 1.0}
            CType(_brush,System.Drawing.Drawing2D.LinearGradientBrush).InterpolationColors = blend
            _pen = New System.Drawing.Pen(_brush)
            format = New StringFormat()
            s = "Blackorion Test 2D Mantrix Project - Traduit pour SZ par Polien"
            ggg = g
            'ci dessus, on initialise toutes les
            'variables qui vont nous servir.
            x = 0
            Do While (x < cx)
                ggg.DrawLine(_pen,0,x * scale,cx - x,0)
                ggg.DrawLine(_pen,0,(cx - x) * scale,cx - x,cx * scale)
                ggg.DrawLine(_pen,cx - x,0 * scale,cx,(cx - x) * scale)
                ggg.DrawLine(_pen,cx - x,cx * scale,cx,x * scale)
                x = (x + 7)
            Loop
            CType(format,System.Drawing.StringFormat).Alignment = New System.Drawing.StringAlignment.Center
            CType(format,System.Drawing.StringFormat).LineAlignment = New System.Drawing.StringAlignment.Center
            ggg.DrawString(s,Me.Font,_brush,rect.X,rect.Y,Format)
        End Sub
    End Class
End Namespace

Namespace Dessin.My
    
    Partial Friend Class MyApplication
        Inherits Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase
        
          _
        Public Sub New()
            MyBase.New(Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
            Me.IsSingleInstance = false
            Me.EnableVisualStyles = true
            Me.SaveMySettingsOnExit = true
            Me.ShutdownStyle = Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
        End Sub
        
          _
        Protected Overrides Sub OnCreateMainForm()
            Me.MainForm = Variables.Fenêtre1
        End Sub
    End Class
End Namespace



NameSpace Dessin
  Module Variables
      Public _manager As My.MyApplication = New My.MyApplication
      Public _computer As Microsoft.VisualBasic.Devices.Computer = New Microsoft.VisualBasic.Devices.Computer
      Public _brush As New System.Object 
      Public _pen As New System.Object 
      Public blend As New System.Object 
      Public cx As New System.Object 
      Public cy As New System.Object 
      Public format As New System.Object 
      Public ggg As New System.Object 
      Public rect As New System.Object 
      Public s As New System.Object 
      Public scale As New System.Object 
      Public x As New System.Object 
      Private _Fenêtre1 As New Global.Dessin.Fenêtre1()
      Public Property Fenêtre1 As Global.Dessin.Fenêtre1 ' Window Fenêtre1
           Get
               If _Fenêtre1.IsDisposed Then _Fenêtre1 = New Global.Dessin.Fenêtre1()
               Return _Fenêtre1
           End Get
           Set(ByVal value As Global.Dessin.Fenêtre1)
               _Fenêtre1 = value
           End Set
      End Property
  End Module
End NameSpace
fandeonepiece2 a écrit:
Bonjour,Blackorion35 a écrit:( Oui MEGA.CO est bien l'ancetre de Megaupload amusé )
heu c'est pas l'inverse ?


Blackorion35 a écrit:Et GG pour la transformation sous SZ 2012 Smile !!
cela veut dire quoi GG ?
good game = bien joué



Cordialement,
Polien.

You want to have an english help for Software Zator ? Let's try to read the first tutorial in english Wink : CLIC HERE
BESOINS D'UN TUTO? CONSULTER LE SOMMAIRE !

Débutez avec SZ avec les tutos en pdf !
avatar
Blackorion35
Je suis là tous les jours
Je suis là tous les jours

Masculin Nombre de messages : 2565
Age : 27
Localisation : Rouen
Emploi/loisirs : Dirigeant société informatique déclaré/Informaticien au CNED
Humeur : En forme !
Date d'inscription : 19/03/2013

Re: [ASTUCES] Dessiner en 2D

Message par Blackorion35 le Ven 15 Nov 2013 - 18:36

Oui dsl c'est l'inverse mdr
Et ok Polien je regarderai ça même si je c'est pas si je pourrais être très utile :$



Le site officiel de notre société : http://algostep-company.fr
Notre WebOS "Rynna" en développement : http://rynnawebos.fr/login
Le WebOS "Zator" conçu pour le forum et ses membres dispo en test ici :
http://algostep-company.fr/WebOS-Zator-Test1/
---------------------------------------------------------
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: [ASTUCES] Dessiner en 2D

Message par lereparateurdepc le Ven 15 Nov 2013 - 19:17

re,

Erreur 130, 156 à 162 : Il y a un argument en trop ou l'inverse dans l'appel à la fonction...
Erreur 121, 168 et 168 : SZ ne connait pas. As-tu ajouté les références ?
Erreur 142 : Jamais eu mais la description est totalement explicite Smile

Cordialement,
Le réparateur de PC




Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
polien


Masculin Nombre de messages : 2869
Age : 21
Localisation : Bouches du Rhones
Emploi/loisirs : velo, informatique, électronique, robotique, modélisme feroviaire
Humeur : Je commence tout mais ne finit rien :P
Date d'inscription : 19/05/2011

Re: [ASTUCES] Dessiner en 2D

Message par polien le Ven 15 Nov 2013 - 20:54

lereparateurdepc a écrit:re,

Erreur 130, 156 à 162 : Il y a un argument en trop ou l'inverse dans l'appel à la fonction...
Erreur 121, 168 et 168 : SZ ne connait pas. As-tu ajouté les références ?
Erreur 142 : Jamais eu mais la description est totalement explicite Smile

Cordialement,
Le réparateur de PC

re,

Pour les arguments, j'ai bien recompté, le nombre est correct. Après, est ce que cette fonction marche avec le même nombre d'argument sur SZ et sur VS...
Pour les références, je l'ai aient rajoutées mais rien n'y fait...
Pour l'erreur 142, j'ai remarqué que le module qui s'occupe des autres formats grise la propriété brush (on ne peut pas la modifier)...

Merci quand même pour le dépannage amusé



Cordialement,
Polien.

You want to have an english help for Software Zator ? Let's try to read the first tutorial in english Wink : CLIC HERE
BESOINS D'UN TUTO? CONSULTER LE SOMMAIRE !

Débutez avec SZ avec les tutos en pdf !

Contenu sponsorisé

Re: [ASTUCES] Dessiner en 2D

Message par Contenu sponsorisé


    La date/heure actuelle est Sam 23 Sep 2017 - 0:14