> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
70,39 €Alimentation Seasonic B12 BC 850W Plus Bronze à 70,39 €
Valable jusqu'au 03 Août

RueDuCommerce propose actuellement l'alimentation Seasonic B12 BC-850 850W Plus Bronze à 70,39 €. On la trouve habituellement autour de 95 €. L'alimentation est garantie 5 ans. En plus d’être très efficaces, les unités B12 BC utilisent la conception à résonance LLC et le contrôle des ventilateurs intelligent et silencieux (S2FC).


> Voir l'offre
184,99 €Imprimante 3D Creality Ender 3 v2 à 184,99 € (stock Europe) avec le code TPCROS
Valable jusqu'au 03 Août

TomTop fait une belle promotion sur la toute dernière imprimante 3D Creality Ender 3 v2 à 184,99 € avec le code TPCROS On la trouve ailleurs autour de 180 €. L'imprimante est expédiée depuis un stock Europe (en Allemagne). Elle sera donc rapide et vous êtes sûr de ne pas avoir de douane. 

La Creality Ender 3 v2 est l'une des machines les plus populaires actuellement sur le marché. Et pour cause. Elle dispose d'un volume d’impression de 220 x 220 x 250 mm, est équipée d'un plateau chauffant inspiré du BuildTak, d'un nouvel écran LCD 4.3 pouces et offre des fonctionnalités pratiques comme la reprise de l'impression après une coupure de courant ou le conduit pour le filament étroit. L'imprimante 3D est facile à assembler et le calibrage est aisé grâce aux gros boutons. 


> Voir l'offre
231,04 €Processeur AMD Ryzen 7 3700X (8 coeurs/16 threads) à 231,04 € livré
Valable jusqu'au 03 Août

Amazon Allemagne propose le processeur AMD Ryzen 7 3700X à 225,37 €. Comptez 5,67 € pour la livraison en France soit un total de 231,04 € livré. On le trouve ailleurs à partir de 320 €. Ce processeur à 8 coeurs à 3.6 GHz (4.4 GHz en turbo) est accompagné du ventilateur Wraith Spire LED (silencieux et efficace).

Vous pouvez utiliser votre compte Amazon FR sur Amazon DE et il n'y a pas de douane.


> 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