Afficher dans une colonne précise

Version imprimable

bonjour,
c'est ma première fois dans ce forum, merci de vouloir m'aider.
en fait je suis entrain de faire plusieurs calculs et je veux que chaque résultat soit affiché dans une colonne de datagridview et pour ça j'ai pensé à faire appel à l'index représentant la colonne mais je n'arrive pas.
voici un exemple de ce que je suis en train de faire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For temps = 6 To 50 Step pas / 3600
            If temps <= 18 Then
                ray = (0.06 + (0.89 - 0.06) * (Math.Sin(((temps - 6) / (18 - 6)) * Math.PI) ^ 2)) * x
            Else : ray = 0
            End If
            If temps <= 18 Then
                tamb = 20 + (30 - 20) * (Math.Sin(((temps - 6) / (18 - 6)) * Math.PI) ^ 2)
            Else : tamb = 20
            End If
            t1 = (tamb + ((ro * sc * ray * 1000) / (st * pertes))) + ((ti_fluide - tamb - ((ro * sc * ray * 1000) / (st * pertes))) * Math.Exp(-(st * pertes * pas) / (mtot * chamass)))
            t2 = ti_fluide + ((pas / (mtot * chamass)) * ((ray * ro * sc * 1000) - (st * pertes * (ti_fluide - tamb))))
            dtheo = (+ray * pas * 1000 * sc) / (mtot * chamass)
            dift = t1 - t2
        Next

je veux que le ray soit affiché dans la 2ème colonne, tamb dans la suivante,t1, t2 et ainsi de suite
veuillez bien m'aider
merci

23/06/2014, 22h08
olive7140

Citation:

Bonsoir
Juste avant ton Next insetrre

Code:

DataGridView.Rows.Add(ray, tamb, t1, t2, dtheo, dift)
25/06/2014, 16h03
heidi92

merci oilve7140, votre réponse m'a vraiment aidé à résoudre le problème mais ne reste si je veux faire appel à l'index de la colonne, comment faire?
en fait dans une autre partie du code je travaille avec une boucle de colonne for colonne 1 to 3 mais je ne sais pas comment faire, veuillez bien m'aider .
merci une autre fois

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 'Avec nom de la colonne ("Col3")
DataGridView(DataGridView.Columns("Col3").Index, 0).Value = "Ta valeur"
 
'avec item  colonne  et ligne
'DataGridView.Item(Colonne, Row)
 
DataGridView.Item(1, 0).Value = "Ta valeur"
 
        Dim _row As Integer = 0
        For _col = 0 To 2
            DataGridView.Rows.Add()
            DataGridView.Item(_col, _row).Value = "Colonne" & _col & " Ligne " & _row
            _row += 1
        Next

bonsoir,
voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
For colonne = 1 To 3
            For heure = 6 To 18
                For N_jour = 1 To 31
                    d = 23.45 * Math.Sin((3.14 / 180) * (360 * ((284 + N_jour) / 365)))
                    w = 15 * (12 - heure)
                    Isc = I0 * (1 + 0.033 * Math.Cos((360 / 365) * (N_jour - 3) * (3.14 / 180)))
                    P = Math.Cos((d) * (3.14 / 180)) * Math.Cos((Fi) * (3.14 / 180)) * Math.Cos((w) * (3.14 / 180)) _
                    + Math.Sin((d) * (3.14 / 180)) * Math.Sin((Fi) * (3.14 / 180))
                    h = Math.Asin(P) * 180 / 3.14
                    Dz = 90 - h
.
..
...
               Next
                ray1 = somme / 30
                DataGridView1.Rows.Add(ray1)
            Next
        Next

c'est au niveau de la première ligne que j'ai problème, je ne sais pas comment intégrer ce que vous m'avez proposer.
merci enormément

25/06/2014, 21h30
olive7140

Bonsoir

Que veux-tu faire exactement?
inserrer quoi?
et ou?
25/06/2014, 22h37
heidi92

le but est de calculer le rayonnement pour chaque mois selon les heures et donc j'ai les mois dans les colonnes. je veux que les calculs se font pour chaque mois de 6h à 18h c'est pourquoi j'ai fait appel à la boucle des colonnes en 1er lier puis celle des heures, mais le problème qu'il me reste est comment dire au programme de passer d'une colonne à une autre.
merci

Re bonsoir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
        Dim itemcol As DataGridViewColumn
        Dim itemRow As DataGridViewRow
 
 'boucle sur chaque colonne
        For Each itemcol In Me.DataGridView.Columns
 
          'lit toutes les lignes de la premiere colonne
            For Each itemRow In Me.DataGridView.Rows 
 
           'si la ligne n'est pas vide
                If Not DataGridView.Item(itemcol.Index, itemRow.Index).Value Is Nothing Then         
                    MessageBox.Show(" " & CStr(DataGridView.Item(itemcol.Index, itemRow.Index).Value))
                end if
            Next
 
            'passe à la colonne suivante
        Next

26/06/2014, 12h51
heidi92

bonjour,
je n'ai pas précisé que j'utilise deux modèles pour mes calculs, le 1er de janvier à mars puis de septembre à décembre, et le 2ème d'avril à aout.
et donc je ne peux pas appliquer la boucle pour toutes les colonnes.
merci de vouloir m'aider

Bonsoir
et comme ça

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
 
    Dim itemcol As DataGridViewColumn
 
        For Each itemcol In Me.DataGridView.Columns
         'par le nom des colonnes
            Select Case itemcol.Name
                Case "Janvier", "Février", "Mars", "Septembre", "Octobre", "Novembre", "Décembre"
                    'ton code
                Case "Avril", "MAi", "Juin", "Juillet", "Aout"
                    'ton 2eme code
                Case Else
 
            End Select
 
        Next
 
'ou par les index
 Select Case itemcol.Index
                Case 0,1, 2, 8, 9, 10, 11
                   'ton code
                Case 3, 4, 5, 6, 7
                   'ton 2eme code
                Case Else
 
           End Select

29/06/2014, 14h48
heidi92

bonjour,
désolé j'avais un problème de connexion. j'ai essayé ce que vous m'avez proposer mais toujours rien, lors de l’exécution pas à pas détaillé j'ai constaté que le programme passe de la ligne où Case "Janvier", "Février", "Mars" à l'autre Case "Avril", "Mai", "Juin", "Juillet", "Aout" sans lire les instructions entre les deux.
01/07/2014, 18h37
olive7140

Bonjour

J'ai mis "Janvier"Février" ...

Est-ce bien le noms de tes colonnes?
Sinon essaies avec l'index des colonnes

bonsoir,
en utilisant les index les résultats ne s'affichent qu'au niveau de la première colonne
code:

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
For Each itemcol In Me.DataGridView1.Columns
            Select Case itemcol.Index
                Case 0, 1, 2
                    For heure = 6 To 18
                        For N_jour = 1 To 31
                            d = 23.45 * Math.Sin((3.14 / 180) * (360 * ((284 + N_jour) / 365)))
                            w = 15 * (12 - heure)
                            Isc = I0 * (1 + 0.033 * Math.Cos((360 / 365) * (N_jour - 3) * (3.14 / 180)))
                            P = Math.Cos((d) * (3.14 / 180)) * Math.Cos((Fi) * (3.14 / 180)) * Math.Cos((w) * (3.14 / 180)) _
                            + Math.Sin((d) * (3.14 / 180)) * Math.Sin((Fi) * (3.14 / 180))
                            h = Math.Asin(P) * 180 / 3.14
                            Dz = 90 - h
                            mr = (Math.Sin((Dz) * (3.14 / 180)) + 0.15 * (Dz - 3.885) ^ -1.253) ^ (-1)
                            l = ((235 + (150 + 40 * Math.Sin(0.9856 * (N_jour - 30)) + 20 * Math.Sin((3 * Longi) * (3.14 / 180))) _
                            * (Math.Sin((1.28 * Fi) * (3.14 / 180))) ^ 2) / 1000) / 100
                            U0 = l * mr
                            C = (0.02118 * U0 / (1 + 0.042 * U0 + 0.000323 * U0 ^ 2)) + (1.082 * U0 / (1 + 138.6 * U0) ^ 0.805) _
                            + (0.0658 * U0 / (1 + (103.6 * U0) ^ 3))
                            ma = Math.Exp(-0.0001184 * Z) * mr
                            Rr1 = 0.972 - 0.08262 * ma + 0.00933 * ma ^ 2 - 0.00095 * ma ^ 3 + 0.000437 * ma ^ 4
                            Uw = ((0.493 / T) * HR * Math.Exp(26.23 - (5416 / T))) / 100
                            Xw = ma * Uw
                            Cw = (2.9 * Xw) / (((1 + 141.5 * Xw) ^ 0.635) + (5.925 * Xw))
                            Ta = (0.12445 * 4 - 0.0162) + (1.003 - 0.125 * 4) * Math.Exp(-f * ma * (1.089 * 4 + 0.5123))
                            IM1 = Isc * ((1 - C) * Rr1 - Cw) * Ta * Math.Cos((Dz) * (3.14 / 180))
                            R01 = 1 - C
                            Dr1 = Isc * R01 * Ta * (1 - Rr1) * 0.5 * Math.Cos((Dz) * (3.14 / 180))
                            Da1 = Isc * (R01 * Rr1 - Cw) * (Fc * W1 * (1 - Ta)) * Math.Cos((Dz) * (3.14 / 180))
                            Ta1 = 1.655
                            Ka1 = 0.0685 + (1 - Fc) * W1 * (1 - Ta1)
                            Dm1 = ((IM1 + Da1 + Dr1) * K * Ka1) / (1 - K * Ka1)
                            Idiffus1 = Dr1 + Da1 + Dm1
                            I1 = ((IM1 + Idiffus1) / 1000)
                            If I1 < 0 Then
                                I1 = 0
                            End If
                            somme = somme + I1
                        Next
                        ray1 = somme / 30
                        DataGridView1.Rows.Add(ray1)
                    Next
      end select
     next

voici une partie du code, je ne sais pas si c'est au niveau de la dernière ligne en demandant l'affichage
merci bien une autre fois