× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Autres langages
 EN vb.net dite moi ou est l'erreurSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
malinots
  Posté le 29/05/2007 @ 16:43 
Aller en bas de la page 
Petit astucien

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

Publicité
AlexPrince
 Posté le 29/05/2007 à 17:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Et tu espères que nous allons deviner l'erreur et ensuite la trouver pour toi ? Apprend à poster. Détaille l'erreur, donne le message d'erreur s'il y en a un, dis ce que tu t'attends que le code fasse et ce qu'il fait au lieu. Finalement, dit s'il-vous-plaît et merci. Bordel, tes parents ne t'ont jamais appris à vivre ? Bûcheron.
malinots
 Posté le 26/06/2007 à 16:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

alex le prince tu sert a rien a part ca c faut car je me trimbale dans form différent pas possible comme je lèai écrit car maintenant g un peu plus d'experience dsl du dérangement

un prince ca sert a rien

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
GratuitJeu PC The Escapists 2 gratuit
Valable jusqu'au 16 Juillet

Epic Game Store offre actuellement le jeu PC The Escapists 2. Risquez tout en vous échappant des pires prisons du monde. Explorez les plus grandes prisons jamais conçues ! Vous devrez respecter les règles de la prison, vous présenter à l'appel, travailler et suivre des routines strictes, tout en planifiant votre fuite en secret ! PEGI 7. Le jeu est en français.


> Voir l'offre
25 € de réduction à partir de 249 € chez Cdiscount avec le code MOINS25E
Valable jusqu'au 17 Juillet

Cdiscount propose actuellement 25 € de réduction à partir de 249 € d'achats. Pour profiter de l'offre, utilisez le code promo MOINS25E.


> Voir l'offre
13,79 €Adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 à 13,79 €
Valable jusqu'au 17 Juillet

Amazon fait une promotion sur l'adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 qui passe à 13,79 € au lieu de 20 €. Cet adaptateur vous permettra de rajouter une prise Ethernet Gigabit à votre ordinateur portable (ou votre tablette via un adaptateur OTG) qui en est dépourvu.


> Voir l'offre

Sujets relatifs
Erreur de script de internet explorer !
Code erreur Windows Live Mail
Erreur sur C++
erreur '3265'
Erreur à la compilation à cause des headers
Erreur java script
vb6 getobject erreur ouverture fichier excel
Problem d'erreur aide moi j debute en C
Erreur nouveau projet code::blocks
Je ne comprend pas l'erreur
Plus de sujets relatifs à EN vb.net dite moi ou est l''erreur
 > Tous les forums > Forum Autres langages