Discussion :

[invictus25]

Bonjour les amis,

Cela fait au moins deux heures que je recherche comment transformer ce morceau de programme ecrit en vb6 en c#.

Une petite idée? Merciiii

Code :

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

1
2
3
4
5
6
7
8
9
10
'open Excel connection
    Set wb = GetObject(ReportFileLocation & "\Report1.xls")
 
    ' fill excel sheet "Data" with measurement data
 
    For i = 2 To 52
        wb.Worksheets("Data").Range("a" & CStr(i)).Value = Distance(i - 1)
        wb.Worksheets("Data").Range("b" & CStr(i)).Value = 1000 * ReponseX(i - 1)
        wb.Worksheets("Data").Range("c" & CStr(i)).Value = 1000 * ReponseY(i - 1)
    Next i

Je ne comprend pas le Distance(i-1)... est ce un tableau?

[bibbi]

Salut,

Je pense que Distance, ReponseX et ReponseY sont des méthodes.

Le plus simple pour savoir de quoi il s'agit, j'imagine que tu dois pouvoir le faire en VB aussi sous visual => clic droit + atteindre la définition.

Du coup si ce sont des méthodes, tu devra les réécrire aussi en C# et les appeler.

[invictus25]

En effet, je trouve cela (deja codé en c#) dans une autre classe:

Code :

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

1
2
3
4
5
 
// dimension arrays
            Double[] ReponseX = new Double[4 * Convert.ToInt16(Math.Abs(n)) + 1];
            Double[] ReponseY = new Double[4 * Convert.ToInt16(Math.Abs(n)) + 1];
            Double[] Distance = new Double[4 * Convert.ToInt16(Math.Abs(n)) + 1];

Je suppose qu'en passant de vb a c#, il faut que j'ecrive :

Code :

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

1
2
3
4
5
6
7
8
    //fill excel sheet "Data" with measurement data
 
            for (i = 2; i <= 52; i++)
            {
                xlWorkSheetArrays.Cells[i, 1] = Distance[i - 1];
                xlWorkSheetArrays.Cells[i, 2] = 1000 * ReponseX[i - 1];
                xlWorkSheetArrays.Cells[i, 3] = 1000 * ReponseY[i - 1];
            }

[bibbi]

Code :

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

1
2
3
4
5
6
  for (i = 2; i <= 52; i++)
            {
                xlWorkSheetArrays.Cells[i, 1].Value = Distance[i - 1];
                xlWorkSheetArrays.Cells[i, 2].Value = 1000 * ReponseX[i - 1];
                xlWorkSheetArrays.Cells[i, 3].Value = 1000 * ReponseY[i - 1];
            }

Je pense qu'il te manque les .Value comme ci-dessus. Sinon je pense que pour le reste çà devrait être bon vu que ce sont des arrays c'est la bonne syntaxe

[invictus25]

Ok ca roule. Je vais tester cela. Merci à toi