trace courbe en visual basic

**vincent3360** · 28/05/2010, 12h55

Bonjour à tous ,
Je reviens cette fois ci vous demandez de l'aide
J'ai essayé d'avancer tout seul mais la je bloque
Je dois créer une application qui permet de tracer une courbe en fonction du temps.

J'ai un code en c sharp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
 
 
private: System::Void  traceCourbe (array <float> ^temperatures) 
{			
		 float a, pasX ;
		 //
		 //
		 a = ((float) pGraphe->Height / (float)(min-max))  ;
		 pasX = (float)(pGraphe->Width) / (float)(nbPts-1) ;
		 drawBrush->Color = colCourbe ;
 
		 //
		 //
		 array <Point> ^tempsPt = gcnew array <Point> (temperatures->Length) ;
		 array <Point> ^tempsPtLb = gcnew array <Point> (temperatures->Length) ;
 
		 //
		 //
		 for (int i = 0 ; i < temperatures->Length ; i++)
		 {
			 //
			 //
			 tempsPt[i].Y = (int) (a * (temperatures[i] - max)) ;
			 tempsPt[i].X = (int) (i*pasX) ;
			 //
			 //
			 tempsPtLb[i].Y = tempsPt[i].Y - 10;
			 tempsPtLb[i].X = tempsPt[i].X + 10;
			 //
			 //
			 g->DrawString (temps[i].ToString(), drawFont, drawBrush, tempsPtLb[i] ) ;
			 //
			 //
			 g->DrawArc (penPt,tempsPt[i].X, tempsPt[i].Y, 5, 5, 0, 359) ; 
		 }
		 //
		 //
		 g->DrawCurve(penCourbe, tempsPt, 0.2) ;
 
}

et j'aimerais le mettre en visual basic:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
 
  Private Sub p_box_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_box.Click
        Dim a As Double
        Dim pasX As Double
        Dim nbPts As Integer
        Dim gradY As Integer
        Dim max As Integer
        Dim min As Integer
        Dim colCourbe As New System.Drawing.Color
        Dim colGrille As New System.Drawing.Color
        Dim g As System.Drawing.Graphics ' méthode
 
 
        Dim tempsPt(temperature->Lenght) as Point
       Dim tempsPtLb(temperature->Lenght) as Point
        Dim drawBrush As New SolidBrush(colCourbe)
 
 
 
	      a = ((Double )) p_box->Height /( (Double)(min-max))  
		 pasX =( (Double))(p_box->Width) / (Double)(nbPts-1)
 
 
        Dim  tempsPt(temperatures->Length) As point
 
 
        Dim i As Integer = 0
 
		 For
 
 
 
			 tempsPt[i].Y = (int) (a * (temperatures[i]) - max)) 
            tempsPt([i].X = (Int())(i * pasX))
 
			 tempsPtLb[i].Y = tempsPt[i].Y - 10
			 tempsPtLb[i].X = tempsPt[i].X + 10
 
 
 
			 g->DrawString (temps[i].ToString(), drawFont, drawBrush, tempsPtLb[i] ) 
 
 
			 g->DrawArc (penPt,tempsPt[i].X, tempsPt[i].Y, 5, 5, 0, 359) 
 
        Next i
 
 
 
		 g->DrawCurve(penCourbe, tempsPt, 0.2) 
 
 
 
 
 
    End Sub

Le problème c'est que j'ai pleins de faute :

Je continue à chercher dans mon coin
Merci à vous

**hunteshiva** · 28/05/2010, 14h28

XD

tu m'étonne que tu ais de fautes ...
oublie de C sharp

tu voudrais une fonction qui prenne par exemple la température et qui te la dessine dans un pictureBox ?

le problème comme je t'ais dit,
j'ais des taka qui sont très limites en ce moment ... (mm impossible)
donc je vais pas avoir 1-2h a me pencher sur ton problème ....

mai je me souvenais avoir vue un sujet interessant
http://www.developpez.net/forums/d92...box-graphique/

essaye avec sa déja

(dsl de pas pouvoir faire + ...)

**vincent3360** · 28/05/2010, 14h40

Ok meci d'avoir essayer , on verra ensemble un de ces quatre, fait ce que tuas de prioritaire avant

**methylene** · 31/05/2010, 09h41

Le lien qu'il t'a donné explique en effet comment "dessiner" une courbe. Le mieux c'est de coller le code histoire de voir comment cela fonctionne et de l'adapter à ta situation.

Si tu as des questions je suis là.

**vincent3360** · 31/05/2010, 10h48

le truc c'est que j'ai dejà le principe pour tracer une courbe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
private: System::Void traceCourbe (array <float> ^temperatures)
{
float a, pasX ;
//
//
a = ((float) pGraphe->Height / (float)(min-max)) ;
pasX = (float)(pGraphe->Width) / (float)(nbPts-1) ;
drawBrush->Color = colCourbe ;
 
//
//
array <Point> ^tempsPt = gcnew array <Point> (temperatures->Length) ;
array <Point> ^tempsPtLb = gcnew array <Point> (temperatures->Length) ;
 
//
//
for (int i = 0 ; i < temperatures->Length ; i++)
{
//
//
tempsPt[i].Y = (int) (a * (temperatures[i] - max)) ;
tempsPt[i].X = (int) (i*pasX) ;
//
//
tempsPtLb[i].Y = tempsPt[i].Y - 10;
tempsPtLb[i].X = tempsPt[i].X + 10;
//
//
g->DrawString (temps[i].ToString(), drawFont, drawBrush, tempsPtLb[i] ) ;
//
//
g->DrawArc (penPt,tempsPt[i].X, tempsPt[i].Y, 5, 5, 0, 359) ;
}
//
//
g->DrawCurve(penCourbe, tempsPt, 0.2) ;
 
}

Et un ami m' passé ce qu'il avait fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Public Class clsCourbeTemperature
    Inherits PictureBox
    Private m_Temperature, m_EcartEntrePoints, m_NombrePointsMax As Integer
    Private m_NombreHautEchelle, m_NombreBasEchelle As String
    Private m_CouleurFond, m_CouleurTrait As Color
    Private m_col As Collection = New Collection
    Private b As Bitmap
    Private g As Graphics
 
    Public Sub New(ByVal ParentForm As Form, _
                   ByVal CouleurTrait As Color, _
                   ByVal CouleurFond As Color, _
                   ByVal TempsRafraichissement As Double, _
                   ByVal EcartEntrePoints As Integer, _
                   ByVal NombrePointsMax As Integer, _
                   ByVal NombreBasEchelle As String, _
                   ByVal NombreHautEchelle As String)
        Me.Width = ParentForm.ClientRectangle.Width
        Me.Height = ParentForm.ClientRectangle.Height
        Me.Parent = ParentForm
        m_EcartEntrePoints = EcartEntrePoints
        m_NombrePointsMax = NombrePointsMax
        m_CouleurFond = CouleurFond
        m_CouleurTrait = CouleurTrait
        m_NombreHautEchelle = NombreHautEchelle
        m_NombreBasEchelle = NombreBasEchelle
        b = New Bitmap(Me.Width, Me.Height)
        g = Graphics.FromImage(b)
    End Sub
 
    Public WriteOnly Property Temperature() As Double
        Set(ByVal value As Double)
            m_Temperature = value
            If m_col.Count >= m_NombrePointsMax Then
                m_col.Remove(1)
            End If
            m_col.Add(((100 - m_Temperature) / 100) * Me.Height)
            Dim ft As New Font("Arial", 13, FontStyle.Regular, GraphicsUnit.Pixel)
            g.FillRectangle(New SolidBrush(m_CouleurFond), New Rectangle(0, 0, b.Width, b.Height))
            g.DrawString(m_NombreBasEchelle, ft, New SolidBrush(Color.White), 5, Me.Height - 20)
            g.DrawString(m_NombreHautEchelle, ft, New SolidBrush(Color.White), 5, 5)
            For x = 2 To m_col.Count
                g.DrawLine(New Pen(m_CouleurTrait, 2), _
                           New Point(x * m_EcartEntrePoints, m_col.Item(x - 1)), _
                           New Point((x * m_EcartEntrePoints) + m_EcartEntrePoints, m_col.Item(x)))
                If x = m_col.Count Then
                    g.DrawString(m_Temperature.ToString, _
                                 ft, _
                                 New SolidBrush(Color.Orange), _
                                 (x * m_EcartEntrePoints) + m_EcartEntrePoints, _
                                 m_col.Item(x))
                End If
            Next
            Me.Image = b.Clone
        End Set
    End Property

Et voici le code du formulaire apres avoir placé un timer dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Public Class Form1
    Private p As clsCourbeTemperature
    Private rd As Random = New Random
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        p = New clsCourbeTemperature(Me, Color.Red, Color.Black, 1000, 20, 12, "0°C", "100°C")
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        p.Temperature = rd.next(0, 100)
    End Sub
End Class

Et voilà les erreurs que j'ai:

Merci de ton aide

**hunteshiva** · 31/05/2010, 12h48

Pourtant je programme en vb.net,
mais la avec ton code j'ais l'impression que tu écrits un autre langage...

on va commencer pas a pas tu veux bien ?

1/ ta PictureBox:

Tu veux la créer en dynamique ou tu l'a déjà créer sur ton form grâce a la boite a outils ?

2/ les valeurs :

Ou récupére tu les valeurs ? (base de données? textBox? etc...)

3/ La fonction :

quels paramètres tu veut lui donner ..?
PictureBox ou tu veut dessiner?
Valeurs X,Y,Z *juste un temprérature je crois pour toi*?
un temps en plus? ou c'est le timer qui s'en charge?

* après on va regarder pour comment faire tout sa, mais défini moi bien ton projet en répondant aux question

*

ce que tu a à faire n'est pas très long en soit mais si tu prend du code a droite a gauche
sans savoir comment il marche tu va jamais t'en sortir, fait le toi mm ce programme, mets y ta petite touche perso

**vincent3360** · 31/05/2010, 12h56

/ ta PictureBox:

Tu veux la créer en dynamique ou tu l'a déjà créer sur ton form grâce a la boite a outils ?: je l'ai rajouté sur ma windows form application

2/ les valeurs :

Ou récupére tu les valeurs ? (base de données? textBox? etc...) je recuperere mes valeurs dans un fichier texte

3/ La fonction :

quels paramètres tu veut lui donner ..? aucune idée
PictureBox ou tu veut dessiner? picture box
Valeurs X,Y,Z *juste un temprérature je crois pour toi*? juste une temperature
un temps en plus? ou c'est le timer qui s'en charge? ma courbe doit bouger toute les une secondes

toutes les 1secje dois rafraichir la courbe en ajoutant le dit point. Ce point

**hunteshiva** · 31/05/2010, 13h23

Okay

Bon bah c'est comme je pensé *c'est simple*

a la fin tu va pouvoir appeler ta fonction comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DessinerTemperature(10,PictureBox1)

sa te va ?

1/ Alors tu va d'abord déclarer ta fonction dans un module que tu doit créer au préalable

2/ t'inspirer de ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub CouleurAleatoire(ByVal picture As PictureBox)
 
        Dim opacite, rouge, vert, bleu As Integer
        ' choix d'une opacité faible ( 0-> clair / 255-> opaque)
        opacite = 50
        ' choix des couleurs en aléatoire
        rouge = Int(Rnd() * 255)
        vert = Int(Rnd() * 255)
        bleu = Int(Rnd() * 255)
 
        picture.BackColor = Color.FromArgb(opacite, rouge, vert, bleu)
End Sub

fonction que je me sert comme ceci aprés *dans mes formulaires*

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CouleurAleatoire(pictBoite(0))

*le meilleur moyen d'apprendre est de chercher*

3/ Je t'aiguille

ta fonction doit rester très simple,
tu a juste deux arguments a mettre (au lieux d'un pour moi)

mais a prés c'est la même chose, il faut que tu saisisse la chose

4/

Dessiner dans la PictureBox

désolé je fini par le début,
il faut avant de créer la fonction

que tu sache comment faire, tu fait du point a point ou autre chose?
tu sais faire avec le line que je t'ais donnée?
(c'est la seul chose ou je sais pas pur le moment ... ^^)

trace courbe en visual basic

VB.NET

Discussions similaires

Partager

Partager