Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


Impossible de retrouver l'erreur !! [ RESOLU ]

lereparateurdepc
lereparateurdepc


Masculin Nombre de messages : 5606
Age : 27
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Impossible de retrouver l'erreur !! [ RESOLU ] Empty Impossible de retrouver l'erreur !!

Message par lereparateurdepc le Sam 17 Juil 2010 - 12:53

bonjour ,

J'ai une erreur mais je n'arrive PAS a la retrouver !
Rapport de génération :


Project : Controle_ecran_veille
Last build the samedi 17 juillet 2010 at 14:51
Building failed : errors number: 2
File code : C:\Program Files\Veler Software\SoftwareZator 2011 Bêta\Temp\Code.vb
Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
2 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"D:\Mes documents\Programmation\Mes Projets SoftwareZator_2011\Desactiver_ecran_veille\Bin\Controle_ecran_veille.manifest"'; non reconnue ignorée
3 - Line 299, Column 0, Error BC30205 : Fin d'instruction attendue.
----------------------------------------------------------------
' NOTE :
' TOUTES MODIFICATIONS APPORTEES A CE FICHIER CODE NE SERONT PAS PRISES EN COMPTE LORS DE LA REGENERATION DU PROJET.
'------------------------------------------------------------------------------
' <auto-generated>
' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.4927
'
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
<Assembly: Reflection.AssemblyTitle("Contrôle de l'écran de veille")>
<Assembly: Reflection.AssemblyDescription("Permet d'activer ou de désactiver l'écran de veille .")>
<Assembly: Reflection.AssemblyCompany("François Production")>
<Assembly: Reflection.AssemblyProduct("Controle_ecran_veille.exe")>
<Assembly: Reflection.AssemblyCopyright("Copyright © 2010 François Production")>
<Assembly: Reflection.AssemblyTrademark("FP")>
<Assembly: Reflection.AssemblyVersion("1.0.0.0")>
<Assembly: Reflection.AssemblyFileVersion("1.0.0.0")>
<Assembly: Runtime.InteropServices.ComVisible(True)>

'Ce Namespace a été généré par SoftwareZator 2011 Edition Professionnel Bêta (2.0.0.0)
Namespace Controle_ecran_veille

Public Class WindowsForm1_f
Inherits System.Windows.Forms.Form

Public WithEvents button1 As System.Windows.Forms.Button

Public WithEvents button2 As System.Windows.Forms.Button

Public WithEvents groupBox1 As System.Windows.Forms.GroupBox

Public WithEvents label1 As System.Windows.Forms.Label

Public WithEvents label2 As System.Windows.Forms.Label

Public WithEvents button3 As System.Windows.Forms.Button

Public WithEvents numericUpDown1 As System.Windows.Forms.NumericUpDown

Public WithEvents label3 As System.Windows.Forms.Label

Public WithEvents button4 As System.Windows.Forms.Button

Public WithEvents components As System.ComponentModel.IContainer

Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub

Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm1_f))
Me.button1 = New System.Windows.Forms.Button
Me.button2 = New System.Windows.Forms.Button
Me.groupBox1 = New System.Windows.Forms.GroupBox
Me.label1 = New System.Windows.Forms.Label
Me.label2 = New System.Windows.Forms.Label
Me.button3 = New System.Windows.Forms.Button
Me.numericUpDown1 = New System.Windows.Forms.NumericUpDown
Me.label3 = New System.Windows.Forms.Label
Me.button4 = New System.Windows.Forms.Button
Me.groupBox1.SuspendLayout
CType(Me.numericUpDown1,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'button1
'
Me.button1.Font = New System.Drawing.Font("Tahoma", 12!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.button1.ForeColor = System.Drawing.Color.Red
Me.button1.Location = New System.Drawing.Point(12, 53)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(111, 65)
Me.button1.TabIndex = 0
Me.button1.Text = "Désactiver"
Me.button1.UseVisualStyleBackColor = true
'
'button2
'
Me.button2.Font = New System.Drawing.Font("Tahoma", 12!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.button2.ForeColor = System.Drawing.Color.Green
Me.button2.Location = New System.Drawing.Point(396, 53)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(111, 65)
Me.button2.TabIndex = 1
Me.button2.Text = "Activer"
Me.button2.UseVisualStyleBackColor = true
'
'groupBox1
'
Me.groupBox1.Controls.Add(Me.label1)
Me.groupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.groupBox1.Location = New System.Drawing.Point(129, 53)
Me.groupBox1.Name = "groupBox1"
Me.groupBox1.Size = New System.Drawing.Size(261, 65)
Me.groupBox1.TabIndex = 2
Me.groupBox1.TabStop = false
Me.groupBox1.Text = "Etat actuel de l'écran de veille :"
'
'label1
'
Me.label1.Font = New System.Drawing.Font("Tahoma", 12!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.label1.ForeColor = System.Drawing.Color.Blue
Me.label1.Location = New System.Drawing.Point(41, 19)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(186, 43)
Me.label1.TabIndex = 0
Me.label1.Text = "Attente ..."
Me.label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'label2
'
Me.label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.label2.Location = New System.Drawing.Point(129, 121)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(261, 56)
Me.label2.TabIndex = 3
Me.label2.Text = "Attente"
Me.label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'button3
'
Me.button3.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.button3.ForeColor = System.Drawing.Color.Chocolate
Me.button3.Location = New System.Drawing.Point(12, 124)
Me.button3.Name = "button3"
Me.button3.Size = New System.Drawing.Size(111, 26)
Me.button3.TabIndex = 4
Me.button3.Text = "Changer"
Me.button3.UseVisualStyleBackColor = true
'
'numericUpDown1
'
Me.numericUpDown1.Location = New System.Drawing.Point(396, 143)
Me.numericUpDown1.Maximum = New Decimal(New Integer() {9999, 0, 0, 0})
Me.numericUpDown1.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numericUpDown1.Name = "numericUpDown1"
Me.numericUpDown1.Size = New System.Drawing.Size(56, 22)
Me.numericUpDown1.TabIndex = 5
Me.numericUpDown1.Value = New Decimal(New Integer() {1, 0, 0, 0})
Me.numericUpDown1.Visible = false
'
'label3
'
Me.label3.Location = New System.Drawing.Point(459, 143)
Me.label3.Name = "label3"
Me.label3.Size = New System.Drawing.Size(28, 22)
Me.label3.TabIndex = 6
Me.label3.Text = "Min"
Me.label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.label3.Visible = false
'
'button4
'
Me.button4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0,Byte),Integer), CType(CType(192,Byte),Integer), CType(CType(0,Byte),Integer))
Me.button4.Location = New System.Drawing.Point(12, 151)
Me.button4.Name = "button4"
Me.button4.Size = New System.Drawing.Size(111, 26)
Me.button4.TabIndex = 7
Me.button4.Text = "Valider"
Me.button4.UseVisualStyleBackColor = true
Me.button4.Visible = false
'
'WindowsForm1
'
Me.ClientSize = New System.Drawing.Size(519, 177)
Me.Controls.Add(Me.label3)
Me.Controls.Add(Me.numericUpDown1)
Me.Controls.Add(Me.button3)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.button1)
Me.Controls.Add(Me.button2)
Me.Controls.Add(Me.button4)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = false
Me.Name = "WindowsForm1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Contrôle de l'écran de veille"
Me.groupBox1.ResumeLayout(false)
CType(Me.numericUpDown1,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
End Sub

<System.STAThreadAttribute()> _
Public Shared Sub Main()
System.Windows.Forms.Application.EnableVisualStyles()
Dim OKOKOK As Boolean
For Each a As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses()
If a.ProcessName = "Controle_ecran_veille" Then
If OKOKOK Then
System.Diagnostics.Process.GetCurrentProcess.Kill
Else
OKOKOK = True
End If
End If
Next
If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5", "Version", Nothing) Is Nothing Then
System.Windows.Forms.MessageBox.Show("The .Net Framework 3.5 was not found. Controle_ecran_veille can't start without it. Please install the .Net Framework 3.5 and try again.", "Contrôle de l'écran de veille", MessageBoxButtons.OK, MessageBoxIcon.Error)
System.Diagnostics.Process.Start("http://www.microsoft.com/downloads/details.aspx?FamilyId=333325FD-AE52-4E35-B531-508D977D32A6&displaylang=fr ")
End
End If
My.Resources.Culture = Globalization.CultureInfo.InvariantCulture : My.Resources.Culture = My.Resources.Culture
System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(False)
For Each arg As String In System.Environment.GetCommandLineArgs
If Not arg = System.Windows.Forms.Application.ExecutablePath Then
Redim Preserve ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length) : ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length - 1) = arg
End If
Next
System.Windows.Forms.Application.Run(New WindowsForm1_f)
End Sub
End Class
Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
Public tmp_sec As Object '
Public info_veille_temps_min As Object '
Public info_veille_temps_hrs As Object '
Public info_veille_temps As Object '
Public info_veille As Object '
Public info_tmp As Object '
Public info_message As Object '
Public ALL_ARGUMENTS_APPLICATIONS() As Object = New Object(-1){}
Public ALLUSERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("ALLUSERPROFILE"))
Public APPDATA As Object = CStr(Environment.GetEnvironmentVariable("APPDATA"))
Public CLASSPATH As Object = CStr(Environment.GetEnvironmentVariable("CLASSPATH"))
Public CommonProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("CommonProgramFiles"))
Public COMPUTERNAME As Object = CStr(Environment.GetEnvironmentVariable("COMPUTERNAME"))
Public ComSpec As Object = CStr(Environment.GetEnvironmentVariable("ComSpec"))
Public FP_NO_HOST_CHECK As Object = CStr(Environment.GetEnvironmentVariable("FP_NO_HOST_CHECK"))
Public HOMEDRIVE As Object = CStr(Environment.GetEnvironmentVariable("HOMEDRIVE"))
Public HOMEPATH As Object = CStr(Environment.GetEnvironmentVariable("HOMEPATH"))
Public LOCALAPPDATA As Object = CStr(Environment.GetEnvironmentVariable("LOCALAPPDATA"))
Public LOGONSERVER As Object = CStr(Environment.GetEnvironmentVariable("LOGONSERVER"))
Public NUMBEROFPROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBEROFPROCESSORS"))
Public OS As Object = CStr(Environment.GetEnvironmentVariable("OS"))
Public PATH As Object = CStr(Environment.GetEnvironmentVariable("PATH"))
Public PATHEXT As Object = CStr(Environment.GetEnvironmentVariable("PATHEXT"))
Public PROCESSOR_ARCHITECTURE As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE"))
Public PROCESSOR_IDENTIFIER As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_IDENTIFIER"))
Public PROCESSOR_LEVEL As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_LEVEL"))
Public PROCESSOR_REVISION As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_REVISION"))
Public ProgramData As Object = CStr(Environment.GetEnvironmentVariable("ProgramData"))
Public ProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("ProgramFiles"))
Public [PUBLIC] As Object = CStr(Environment.GetEnvironmentVariable("PUBLIC"))
Public SESSIONNAME As Object = CStr(Environment.GetEnvironmentVariable("SESSIONNAME"))
Public SystemDrive As Object = CStr(Environment.GetEnvironmentVariable("SystemDrive"))
Public SystemRoot As Object = CStr(Environment.GetEnvironmentVariable("SystemRoot"))
Public TEMP As Object = CStr(Environment.GetEnvironmentVariable("TEMP"))
Public TMP As Object = CStr(Environment.GetEnvironmentVariable("TMP"))
Public USERDOMAIN As Object = CStr(Environment.GetEnvironmentVariable("USERDOMAIN"))
Public USERNAME As Object = CStr(Environment.GetEnvironmentVariable("USERNAME"))
Public USERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("USERPROFILES"))
Public windir As Object = CStr(Environment.GetEnvironmentVariable("windir"))
End Module
Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_FORMS_SOFTWAREZATOR_VARIABLES
Private _WindowsForm1 As WindowsForm1_f = New WindowsForm1_f
Public Property WindowsForm1 As WindowsForm1_f
Get
Return _WindowsForm1
End Get
Set(ByVal value As WindowsForm1_f)
_WindowsForm1 = value
End Set
End Property
End Module

Partial Public Class WindowsForm1_f
Public Sub app_start(ByVal sender As Object, ByVal e As System.EventArgs)Handles MyBase.HandleCreated
Try
info_veille = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveActive", Nothing)
info_veille_temps = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveTimeOut", Nothing)
If info_veille = 1 Then
Me.button1.Enabled = "True"
Me.button2.Enabled = "False"
Me.label1.ForeColor = System.Drawing.Color.Green
Me.label1.Text = "Activé"
Me.button3.Enabled = "True"
info_veille_temps_min = info_veille_temps / 60
info_veille_temps_hrs = info_veille_temps / 3600)
Me.label2.Text = "L'écran de veille est activé et se lancera après une attente de " & info_veille_temps_hrs & " h " & info_veille_temps_min & " m ."
Else
If info_veille = 0 Then
Me.button1.Enabled = "False"
Me.label1.ForeColor = System.Drawing.Color.Red
Me.label1.Text = "Désactivé"
Me.label2.Text = "L'écran de veille est désactivé !"
Me.button3.Enabled = "False"
Me.numericUpDown1.Visible = "False"
Me.button4.Visible = "False"
Me.button2.Enabled = "True"
Me.label3.Visible = "False"
Else
System.Windows.Forms.MessageBox.Show("La valeur actuelle de la clé registre est : " & info_veille & " ;" & System.Environment.NewLine & "OR la valeur DOIT être 0 OU 1 !", "Défaillance fonctionnelle du système !", MessageBoxButtons.OK, MessageBoxIcon.Error).ToString
End If
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Controle_ecran_veille", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub but_desactiv(ByVal sender As Object, ByVal e As System.EventArgs)Handles button1.Click
Try
info_veille = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveActive", Nothing)
If info_veille = 0 Then
System.Windows.Forms.MessageBox.Show("L'écran de veille est déjà désactivé !", "Attention !", MessageBoxButtons.OK, MessageBoxIcon.Warning).ToString
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveActive", "0")
info_veille = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveActive", Nothing)
If info_veille = 0 Then
Me.button1.Enabled = "True"
Me.label1.ForeColor = System.Drawing.Color.Red
Me.label1.Text = "Désactivé"
Me.button2.Enabled = "True"
Me.button1.Enabled = "False"
Me.label2.Text = "L'écran de veille est désactivé !"
Me.button3.Enabled = "False"
Me.label3.Visible = "False"
Me.button4.Visible = "False"
Me.numericUpDown1.Visible = "False"
Else
System.Windows.Forms.MessageBox.Show("Impossible de désactiver l'écran de veille !", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error).ToString
End If
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Controle_ecran_veille", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub but_active(ByVal sender As Object, ByVal e As System.EventArgs)Handles button2.Click
Try
info_veille = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveActive", Nothing)
info_veille_temps = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveTimeOut", Nothing)
If info_veille = 1 Then
System.Windows.Forms.MessageBox.Show("L'écran de veille est déjà activé !", "Attention !", MessageBoxButtons.OK, MessageBoxIcon.Warning).ToString
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveActive", "1")
info_veille = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveActive", Nothing)
If info_veille = 1 Then
Me.button2.Enabled = "True"
Me.label1.ForeColor = System.Drawing.Color.Green
Me.label1.Text = "Activé"
Me.button2.Enabled = "False"
Me.button1.Enabled = "True"
Me.button3.Enabled = "True"
If info_veille_temps < 3600 Then
info_veille_temps_min = info_veille_temps / 60
Me.label2.Text = "L'écran de veille est activé et se lancera après une attente de " & info_veille_temps_min & " min ."
Else
info_veille_temps_hrs = info_veille_temps / 3600
Me.label2.Text = "L'écran de veille est activé et se lancera après une attente de " & info_veille_temps_hrs & " hrs ."
End If
Else
System.Windows.Forms.MessageBox.Show("Impossible d'activer l'écran de veille !", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error).ToString
End If
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Controle_ecran_veille", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub but_change(ByVal sender As Object, ByVal e As System.EventArgs)Handles button3.Click
Try
Me.button3.Enabled = "False"
Me.numericUpDown1.Visible = "True"
info_veille_temps_min = info_veille_temps / 60
Me.numericUpDown1.Value = "" & info_veille_temps_min & ""
Me.button4.Visible = "True"
Me.label3.Visible = "True"
info_tmp = Me.numericUpDown1.Value
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Controle_ecran_veille", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub but_valid(ByVal sender As Object, ByVal e As System.EventArgs)Handles button4.Click
Try
info_tmp = Me.numericUpDown1.Value
tmp_sec = info_tmp * 60
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveTimeOut", "" & tmp_sec & "")
Me.numericUpDown1.Visible = "False"
Me.button4.Visible = "False"
Me.label3.Visible = "False"
Me.button3.Enabled = "True"
info_veille_temps = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "ScreenSaveTimeOut", Nothing)
If info_veille_temps < 3600 Then
info_veille_temps_min = info_veille_temps / 60
Me.label2.Text = "L'écran de veille est activé et se lancera après une attente de " & info_veille_temps_min & " min ."
Else
info_veille_temps_hrs = info_veille_temps / 3600
Me.label2.Text = "L'écran de veille est activé et se lancera après une attente de " & info_veille_temps_hrs & " hrs ."
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Controle_ecran_veille", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
End Namespace
Namespace My.Resources
'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder.
'''<summary>
''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Public Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Public ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Controle_ecran_veille.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Remplace la propriété CurrentUICulture du thread actuel pour toutes
''' les recherches de ressources à l'aide de cette classe de ressource fortement typée.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Public Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property

End Module
End Namespace

Merci de votre aide

Bonne journée
Admin
Admin
Administrateur
Administrateur

Masculin Nombre de messages : 1882
Age : 27
Localisation : Boulogne Billancourt(92100)(France)
Emploi/loisirs : Software Development Engineer
Date d'inscription : 24/01/2008

Impossible de retrouver l'erreur !! [ RESOLU ] Empty Re: Impossible de retrouver l'erreur !! [ RESOLU ]

Message par Admin le Sam 17 Juil 2010 - 16:21

Bonjour,

Dans la fonction app_start de votre programme, il y a une action "Modifier une variable" ou "Calcul simple" qui rend égale la variable info_veille_temps_hrs à "info_veille_temps / 3600)"

Enlevez la parenthèse que vous avez mise à la fin Impossible de retrouver l'erreur !! [ RESOLU ] Icon_rolleyes Ou bien ajoutez-en une au début de votre calcul.



Les 4 règles d'or du forum : Bonjour, Merci, Pas de SMS, Et un petit "[RESOLU]" dans le titre du sujet quand le problème est réglé. Wink

Etienne

Site internet : http://www.velersoftware.com
Twitter : http://twitter.com/VelerSoftware
lereparateurdepc
lereparateurdepc


Masculin Nombre de messages : 5606
Age : 27
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Impossible de retrouver l'erreur !! [ RESOLU ] Empty Re: Impossible de retrouver l'erreur !! [ RESOLU ]

Message par lereparateurdepc le Sam 17 Juil 2010 - 16:45

re ,

Merci , juste une petite erreur de frappe .

Bonne journée

Contenu sponsorisé

Impossible de retrouver l'erreur !! [ RESOLU ] Empty Re: Impossible de retrouver l'erreur !! [ RESOLU ]

Message par Contenu sponsorisé


    La date/heure actuelle est Ven 22 Nov 2019 - 23:10