Imports system.IO
Imports System
Imports System.Security
Imports System.Security.Permissions
Imports Microsoft.VisualBasic
Dim excel As New Excel.Application
Dim workbook As Excel.Workbook
Dim worksheet As Excel.Worksheet
Public Class Form2 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim form As New Form1 form.Show()
Me.Close() End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PictureBox1.Visible = True
PictureBox2.Visible = False
excel.Visible = True
'la fenêtre excel est visible
workbook = excel.Workbooks.Add(1)
'on ouvre un classeur dans excel
worksheet = workbook.Worksheets(1)
'on ouvre une feuille dans le classeur excel
WriteToExcel(worksheet, 1, 1, "acquisition temps réel") 'on écrit "acquisition temps réel" à l'intersection de la ligne 1 et la colonne 1
Dim rng As String(,) ReDim rng(5, 5)rng(0, 0) = "date et heure"
'on choisit l'intersection de la ligne 0 et de la colonne 0 pour écrire "date et heure"
rng(0, 3) = "puissance kW"
'on choisit l'intersection de la ligne 0 et de la colonne 3 pour écrire "puissance W"
rng(0, 4) = "tension V"
'on choisit l'intersection de la ligne 0 et de la colonne 4 pour écrire "tension V"
rng(0, 5) = "courant A"
'on choisit l'intersection de la ligne 0 et de la colonne 5 pour écrire "courant A"
WriteToExcel(worksheet, 3, 1, rng)
'on écrit dans la feuille les expressions vu au-dessus en initialisant le curseur à la ligne 3 et la colonne 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click PictureBox1.Visible = False
PictureBox2.Visible = True
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox1.Text = ("COM 1 connect")TextBox2.Text = (
"") End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox2.Text = ("COM 2 connect")TextBox1.Text = (
"") End Sub
End Class
EN vb.net dite moi ou est l'erreur
