type Font dans vb.net

Version imprimable

Bonjour a tous,
Je suis en train de développer une application web. Je travaille avec vb.net.
Je suis amené à tracer des graphes à partir des données qui se trouvent dans des fichiers Excel.
J'ai commencé par tester un code mais le problème c'est que lorsque j'apel la fonction tracegraph et lorsque je passe les paramètres a cette fonction, j'ai toujours des erreurs au niveau des paramètres de type Font (System.Drawing).
Si quelqu'un peut m'aider : comment je passe les paramètrss à cette fonction (exp:tracegraph(, , , , , )) ?

Voila le code que je teste :

*******************************

Code:

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
Imports System.Drawing
Imports System.Drawing.Imaging
 
Public Class Graph
 
    Public Function tracegraph(ByVal TitreGraph As String, ByVal colfond As Color, ByVal colgraph As Color, ByVal Valeurs() As Integer, ByVal Descriptions() As String, ByVal nbvaleur As Integer, ByVal largeurGraph As Integer, ByVal hauteurGraph As Integer, ByVal legende As Font, ByVal titre As Font, ByVal ValHaut As Integer) As Bitmap
        Dim i As Integer
        Dim MaBitMap As New Bitmap(largeurGraph, hauteurGraph) 'on commence par créer une image à la bonne taille
        Dim MonObjGfx As Graphics
        Dim lepas As Integer
        Dim interligne As Integer
        Dim larg As Integer
        Dim CoefHauteur As Double
        Dim Haut As Integer
        lepas = (largeurGraph / (nbvaleur + 1)) ' on calcule le pas d'avancement
        larg = lepas / 2 'on calcule la largeur des colonnes
        MonObjGfx = Graphics.FromImage(MaBitMap)
        ' On met la couleur de fond
        MonObjGfx.Clear(colfond)
        ' On trace un rectangle tout autour de notre image de la bonne dimension
        MonObjGfx.DrawRectangle(Pens.Black, 0, 0, largeurGraph, hauteurGraph)
        ' On donne titre à notre graphique
        MonObjGfx.DrawString(TitreGraph, titre, Brushes.Black, New PointF(5, 5))
        ' on calcule le coeficient pour l'échelle
        CoefHauteur = (hauteurGraph - 50) / ValHaut
        Try
            For i = 0 To nbvaleur - 1
                Haut = (Valeurs(i) * CoefHauteur)
                ' On trace le rectangle de couleur Bleu
                MonObjGfx.FillRectangle(New SolidBrush(colgraph), ((i + 1) * lepas), ((hauteurGraph - 20) - Haut), larg, Haut)
                MonObjGfx.DrawRectangle(Pens.Black, ((i + 1) * lepas), ((hauteurGraph - 20) - Haut), larg, Haut)
                ' Histoire de rendre un peu plus beau notre histogramme, on met un contour pour chaque barre
                MonObjGfx.DrawRectangle(Pens.Black, ((i + 1) * lepas), ((hauteurGraph - 20) - Haut), larg, Haut)
                ' On affiche la légende en dessous de la barre tracée
                MonObjGfx.DrawString(Descriptions(i), legende, Brushes.Black(), ((i + 1) * lepas), hauteurGraph - 15)
            Next
            ' on ajoute les échelles de gauche
            MonObjGfx.DrawString("0", legende, Brushes.Black(), 5, hauteurGraph - 27) ' valeur 0
            MonObjGfx.DrawString((ValHaut / 2).ToString, legende, Brushes.Black(), 5, Int32.Parse((hauteurGraph / 2))) ' valeur moyenne
            MonObjGfx.DrawString(ValHaut.ToString, legende, Brushes.Black(), 5, (hauteurGraph - (hauteurGraph - 25))) ' valeur Haute
            ' on trace la ligne de moyenne
            MonObjGfx.DrawLine(Pens.Orange, lepas, Int32.Parse((hauteurGraph / 2) + 5), Int32.Parse((largeurGraph - (lepas / 2))), Int32.Parse((hauteurGraph / 2) + 5))
            ' on retourne le graphique ainsi généré en bitmat
            tracegraph = MaBitMap
        Catch
            MonObjGfx.DrawString("Appel de fonction incorrecte !!!", legende, Brushes.Red, 5, Int32.Parse((hauteurGraph / 2))) ' valeur moyenne
            tracegraph = MaBitMap
        End Try
    End Function
 
End Class

Merci d'avance.

23/03/2010, 08h34
Pol63

pour avoir une variable font tu fais un new, je vois pas ce qu'il y a de compliqué

Code:

dim f as new font("Arial",12)

fais gaffe aux fuites mémoires avec le graphics et le bitmap (surtout si cette fonction est appelée souvent)

merci Pol63 mais j'ai toujours des problèmes au niveau de l'appel de la fonction au niveau de l'événement clic du bouton voila le code que j'ai écrit :
************************
Code:

1 2 3 4 5 6 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim fle As New Font("Arial", 12) Dim fti As New Font("Arial", 12) Dim wf As WebForm1 wf.tracegraph("grphe", Color.Blue, Color.Black, Valeurs:= 1, Descriptions:="hjbhbhj" , nbvaleur:=3, largeurGraph:=3, hauteurGraph:=3, fle, fti, 2) End Sub
********************************
les erreur au niveau des variables de type font
je sais pas il se peut j'ai des erreurs au niveau des autres paramètres
je me suis bloque.:cry:
s'il vous plait aider moi en me donnant un exemple d'appel de la fonction avec un exemple de passage des paramètres.

23/03/2010, 13h42
Pol63

erreur de compilation ou d'exécution ?
message d'erreur ?
ligne de l'erreur ?

bonjour,
c'est une erreur de compilation
l'erreur est au niveau de l'appel de fonction exactement au niveau des paramètres de type font (les paramètres soulignées):
Code:

1 2 3 4 Dim fle As New Font("Arial", 12) Dim fti As New Font("Arial", 12) wf.tracegraph("grphe", Color.Blue, Color.Black, Valeurs:= 1, Descriptions:="hjbhbhj" , nbvaleur:=3, largeurGraph:=3, hauteurGraph:=3, fle, fti, 2)
merci pour votre aide.

23/03/2010, 17h14
Pol63

et le message d'erreur ?
23/03/2010, 17h34
wajdi67

bonjours,
le message d'erreur est :

Citation:

Named argument expected
23/03/2010, 17h52
Flamby38

un petit coup de google sur ton message d'erreur t'aurait appris que les :=, il faut en mettre partout ou nulle part.
23/03/2010, 18h46
Pol63

j'aurais tendance à dire nulle part, vu que ca sert à rien ...