Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


erreur bizarre [RESOLUT]

Partagez
avatar
gipse
Habitué
Habitué

Masculin Nombre de messages : 575
Localisation : en face de mon voisin
Emploi/loisirs : informatique, SZ
Humeur : je suis heureux grace a SZ !
Date d'inscription : 19/01/2011

erreur bizarre [RESOLUT]

Message par gipse le Lun 7 Mar 2011 - 19:07

Comme le dit le titre j'ai une erreur bizarre:
Je faisait mon logiciel (normal^^) et tout aller bien et puis j'ai rajouter des conditions et paf! erreur de génération sur le obtenir une valeur alors que ca marcher avant et des conditions qui sont les même que les autre avant ! No je pige rien Crying or Very sad Crying or Very sad Crying or Very sad Crying or Very sad Crying or Very sad
Merci de répondre voici le code d'erreur :
Code:

Building failed : errors number: 6
File code : F:\programmes\Veler Software\Veler Software\SoftwareZator 2011\Temp\Code.vb

Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : KryptonForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
    3 - Line 0, Column 0, Error BC2007 : unrecognized option 'win32manifest:"D:\Documents and Settings\maxou\Mes documents\Mes Projets SoftwareZator\Mathématiquat\Bin\Mathématiquat.manifest"'; ignored
    4 - Line 605, Column 0, Error BC30451 : Name 'Fraction' is not declared.
    5 - Line 614, Column 0, Error BC30451 : Name 'Soustraction' is not declared.
    6 - Line 620, Column 0, Error BC30451 : Name 'Division' is not declared.
    7 - Line 626, Column 0, Error BC30451 : Name 'Multiplication' is not declared.
    8 - Line 632, Column 0, Error BC30451 : Name 'Addition' is not declared.
----------------------------------------------------------------

' NOTE :
' TOUTES MODIFICATIONS APPORTEES A CE FICHIER CODE NE SERONT PAS PRISES EN COMPTE LORS DE LA REGENERATION DU PROJET.

'------------------------------------------------------------------------------
' <auto-generated>
'    This code was generated by a tool.
'    Runtime Version:2.0.50727.3615
'
'    Changes to this file may cause incorrect behavior and will be lost if
'    the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Imports System.ComponentModel

Imports System.Windows.Forms

<Assembly: Reflection.AssemblyTitle("Mathématiquat")>
<Assembly: Reflection.AssemblyDescription("")>
<Assembly: Reflection.AssemblyCompany("")>
<Assembly: Reflection.AssemblyProduct("")>
<Assembly: Reflection.AssemblyCopyright("Copyright © 2011")>
<Assembly: Reflection.AssemblyTrademark("")>
<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 Standard (2.0.0.0)
Namespace Mathématiquat
   
    Public Class KryptonForm1_f
        Inherits ComponentFactory.Krypton.Toolkit.KryptonForm
       
        Public WithEvents label1 As System.Windows.Forms.Label
       
        Public WithEvents comboBox1 As System.Windows.Forms.ComboBox
       
        Public WithEvents button1 As System.Windows.Forms.Button
       
        Public WithEvents groupBox1 As System.Windows.Forms.GroupBox
       
        Public WithEvents groupBox2 As System.Windows.Forms.GroupBox
       
        Public WithEvents comboBox2 As System.Windows.Forms.ComboBox
       
        Public WithEvents textBox2 As System.Windows.Forms.TextBox
       
        Public WithEvents textBox1 As System.Windows.Forms.TextBox
       
        Public WithEvents button2 As System.Windows.Forms.Button
       
        Public WithEvents label2 As System.Windows.Forms.Label
       
        Public WithEvents label4 As System.Windows.Forms.Label
       
        Public WithEvents textBox3 As System.Windows.Forms.TextBox
       
        Public WithEvents textBox4 As System.Windows.Forms.TextBox
       
        Public WithEvents label5 As System.Windows.Forms.Label
       
        Public WithEvents groupBox3 As System.Windows.Forms.GroupBox
       
        Public WithEvents label3 As System.Windows.Forms.Label
       
        Public WithEvents listBox1 As System.Windows.Forms.ListBox
       
        Public WithEvents label6 As System.Windows.Forms.Label
       
        Public WithEvents button3 As System.Windows.Forms.Button
       
        Public WithEvents menuStrip1 As System.Windows.Forms.MenuStrip
       
        Public WithEvents enCourToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents nouveauToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents fermerLeLogcielToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents toolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
       
        Public WithEvents maxProduction2011ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents editionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents revenirEnArrièreToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents supprimeLaListeDeSauvegardeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents toolStripTextBox1 As System.Windows.Forms.ToolStripTextBox
       
        Public WithEvents toolStripTextBox2 As System.Windows.Forms.ToolStripTextBox
       
        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(KryptonForm1_f))
            Me.label1 = New System.Windows.Forms.Label
            Me.comboBox1 = New System.Windows.Forms.ComboBox
            Me.button1 = New System.Windows.Forms.Button
            Me.groupBox1 = New System.Windows.Forms.GroupBox
            Me.groupBox2 = New System.Windows.Forms.GroupBox
            Me.comboBox2 = New System.Windows.Forms.ComboBox
            Me.textBox2 = New System.Windows.Forms.TextBox
            Me.textBox1 = New System.Windows.Forms.TextBox
            Me.button2 = New System.Windows.Forms.Button
            Me.label2 = New System.Windows.Forms.Label
            Me.label4 = New System.Windows.Forms.Label
            Me.textBox3 = New System.Windows.Forms.TextBox
            Me.textBox4 = New System.Windows.Forms.TextBox
            Me.label5 = New System.Windows.Forms.Label
            Me.groupBox3 = New System.Windows.Forms.GroupBox
            Me.label3 = New System.Windows.Forms.Label
            Me.listBox1 = New System.Windows.Forms.ListBox
            Me.label6 = New System.Windows.Forms.Label
            Me.button3 = New System.Windows.Forms.Button
            Me.menuStrip1 = New System.Windows.Forms.MenuStrip
            Me.enCourToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.nouveauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.fermerLeLogcielToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.toolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
            Me.maxProduction2011ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.editionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.revenirEnArrièreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.supprimeLaListeDeSauvegardeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.toolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox
            Me.toolStripTextBox2 = New System.Windows.Forms.ToolStripTextBox
            Me.groupBox1.SuspendLayout
            Me.groupBox2.SuspendLayout
            Me.groupBox3.SuspendLayout
            Me.menuStrip1.SuspendLayout
            Me.SuspendLayout
            '
            'label1
            '
            Me.label1.Location = New System.Drawing.Point(11, 22)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(166, 30)
            Me.label1.TabIndex = 0
            Me.label1.Text = "Choisi le mode de calcul:"
            '
            'comboBox1
            '
            Me.comboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.comboBox1.ForeColor = System.Drawing.Color.Black
            Me.comboBox1.FormattingEnabled = true
            Me.comboBox1.Items.AddRange(New Object() {"Addition", "Soustraction", "Division", "Multiplication", "Fraction"})
            Me.comboBox1.Location = New System.Drawing.Point(183, 19)
            Me.comboBox1.Name = "comboBox1"
            Me.comboBox1.Size = New System.Drawing.Size(205, 26)
            Me.comboBox1.TabIndex = 1
            '
            'button1
            '
            Me.button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(255,Byte),Integer))
            Me.button1.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(255,Byte),Integer))
            Me.button1.FlatAppearance.BorderSize = 0
            Me.button1.FlatAppearance.MouseDownBackColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(255,Byte),Integer))
            Me.button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(255,Byte),Integer))
            Me.button1.FlatStyle = System.Windows.Forms.FlatStyle.System
            Me.button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
            Me.button1.Location = New System.Drawing.Point(394, 20)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(64, 23)
            Me.button1.TabIndex = 2
            Me.button1.Text = "Suite"
            Me.button1.UseVisualStyleBackColor = false
            '
            'groupBox1
            '
            Me.groupBox1.Controls.Add(Me.button1)
            Me.groupBox1.Controls.Add(Me.label1)
            Me.groupBox1.Controls.Add(Me.comboBox1)
            Me.groupBox1.Location = New System.Drawing.Point(0, 27)
            Me.groupBox1.Name = "groupBox1"
            Me.groupBox1.Size = New System.Drawing.Size(458, 78)
            Me.groupBox1.TabIndex = 3
            Me.groupBox1.TabStop = false
            Me.groupBox1.Text = "Etape 1"
            '
            'groupBox2
            '
            Me.groupBox2.Controls.Add(Me.comboBox2)
            Me.groupBox2.Controls.Add(Me.textBox2)
            Me.groupBox2.Controls.Add(Me.textBox1)
            Me.groupBox2.Controls.Add(Me.button2)
            Me.groupBox2.Controls.Add(Me.label2)
            Me.groupBox2.Controls.Add(Me.label4)
            Me.groupBox2.Controls.Add(Me.textBox3)
            Me.groupBox2.Controls.Add(Me.textBox4)
            Me.groupBox2.Controls.Add(Me.label5)
            Me.groupBox2.Location = New System.Drawing.Point(0, 111)
            Me.groupBox2.Name = "groupBox2"
            Me.groupBox2.Size = New System.Drawing.Size(458, 120)
            Me.groupBox2.TabIndex = 4
            Me.groupBox2.TabStop = false
            Me.groupBox2.Text = "Etape 2"
            Me.groupBox2.Visible = false
            '
            'comboBox2
            '
            Me.comboBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.comboBox2.ForeColor = System.Drawing.Color.Black
            Me.comboBox2.FormattingEnabled = true
            Me.comboBox2.Items.AddRange(New Object() {"+", "-", "x"})
            Me.comboBox2.Location = New System.Drawing.Point(159, 60)
            Me.comboBox2.Name = "comboBox2"
            Me.comboBox2.Size = New System.Drawing.Size(47, 26)
            Me.comboBox2.TabIndex = 10
            '
            'textBox2
            '
            Me.textBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.textBox2.ForeColor = System.Drawing.Color.Black
            Me.textBox2.Location = New System.Drawing.Point(212, 43)
            Me.textBox2.Name = "textBox2"
            Me.textBox2.Size = New System.Drawing.Size(142, 26)
            Me.textBox2.TabIndex = 4
            '
            'textBox1
            '
            Me.textBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.textBox1.ForeColor = System.Drawing.Color.Black
            Me.textBox1.Location = New System.Drawing.Point(11, 43)
            Me.textBox1.Name = "textBox1"
            Me.textBox1.Size = New System.Drawing.Size(142, 26)
            Me.textBox1.TabIndex = 3
            '
            'button2
            '
            Me.button2.Location = New System.Drawing.Point(394, 71)
            Me.button2.Name = "button2"
            Me.button2.Size = New System.Drawing.Size(64, 23)
            Me.button2.TabIndex = 2
            Me.button2.Text = "Suite"
            Me.button2.UseVisualStyleBackColor = true
            '
            'label2
            '
            Me.label2.Location = New System.Drawing.Point(11, 22)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(179, 30)
            Me.label2.TabIndex = 0
            Me.label2.Text = "Choisi les nombre du calcul:"
            '
            'label4
            '
            Me.label4.Location = New System.Drawing.Point(11, 60)
            Me.label4.Name = "label4"
            Me.label4.Size = New System.Drawing.Size(142, 22)
            Me.label4.TabIndex = 6
            Me.label4.Text = "______________________"
            '
            'textBox3
            '
            Me.textBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.textBox3.ForeColor = System.Drawing.Color.Black
            Me.textBox3.Location = New System.Drawing.Point(11, 85)
            Me.textBox3.Name = "textBox3"
            Me.textBox3.Size = New System.Drawing.Size(142, 26)
            Me.textBox3.TabIndex = 7
            '
            'textBox4
            '
            Me.textBox4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(224,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.textBox4.ForeColor = System.Drawing.Color.Black
            Me.textBox4.Location = New System.Drawing.Point(212, 85)
            Me.textBox4.Name = "textBox4"
            Me.textBox4.Size = New System.Drawing.Size(142, 26)
            Me.textBox4.TabIndex = 8
            '
            'label5
            '
            Me.label5.Location = New System.Drawing.Point(212, 60)
            Me.label5.Name = "label5"
            Me.label5.Size = New System.Drawing.Size(142, 22)
            Me.label5.TabIndex = 9
            Me.label5.Text = "______________________"
            '
            'groupBox3
            '
            Me.groupBox3.Controls.Add(Me.label3)
            Me.groupBox3.Location = New System.Drawing.Point(0, 237)
            Me.groupBox3.Name = "groupBox3"
            Me.groupBox3.Size = New System.Drawing.Size(458, 172)
            Me.groupBox3.TabIndex = 5
            Me.groupBox3.TabStop = false
            Me.groupBox3.Text = "Etape 3"
            Me.groupBox3.Visible = false
            '
            'label3
            '
            Me.label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer))
            Me.label3.Location = New System.Drawing.Point(6, 22)
            Me.label3.Name = "label3"
            Me.label3.Size = New System.Drawing.Size(446, 147)
            Me.label3.TabIndex = 0
            Me.label3.Text = "label3"
            '
            'listBox1
            '
            Me.listBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(128,Byte),Integer))
            Me.listBox1.ForeColor = System.Drawing.Color.Black
            Me.listBox1.FormattingEnabled = true
            Me.listBox1.ItemHeight = 18
            Me.listBox1.Items.AddRange(New Object() {"  "})
            Me.listBox1.Location = New System.Drawing.Point(469, 51)
            Me.listBox1.Name = "listBox1"
            Me.listBox1.Size = New System.Drawing.Size(222, 328)
            Me.listBox1.TabIndex = 6
            '
            'label6
            '
            Me.label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(128,Byte),Integer))
            Me.label6.Location = New System.Drawing.Point(469, 33)
            Me.label6.Name = "label6"
            Me.label6.Size = New System.Drawing.Size(222, 22)
            Me.label6.TabIndex = 7
            Me.label6.Text = "Sauvegarde des calculs: "
            '
            'button3
            '
            Me.button3.Location = New System.Drawing.Point(469, 379)
            Me.button3.Name = "button3"
            Me.button3.Size = New System.Drawing.Size(221, 29)
            Me.button3.TabIndex = 8
            Me.button3.Text = "Supprimer la liste de sauvegarde"
            Me.button3.UseVisualStyleBackColor = true
            '
            'menuStrip1
            '
            Me.menuStrip1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.menuStrip1.Font = New System.Drawing.Font("Segoe UI", 9.75!)
            Me.menuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.enCourToolStripMenuItem, Me.editionToolStripMenuItem, Me.toolStripTextBox1, Me.toolStripTextBox2})
            Me.menuStrip1.Location = New System.Drawing.Point(0, 0)
            Me.menuStrip1.Name = "menuStrip1"
            Me.menuStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
            Me.menuStrip1.Size = New System.Drawing.Size(695, 25)
            Me.menuStrip1.TabIndex = 9
            Me.menuStrip1.Text = "LeChanceux"
            '
            'enCourToolStripMenuItem
            '
            Me.enCourToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.nouveauToolStripMenuItem, Me.fermerLeLogcielToolStripMenuItem, Me.toolStripSeparator1, Me.maxProduction2011ToolStripMenuItem})
            Me.enCourToolStripMenuItem.Name = "enCourToolStripMenuItem"
            Me.enCourToolStripMenuItem.Size = New System.Drawing.Size(64, 21)
            Me.enCourToolStripMenuItem.Text = "En cour"
            '
            'nouveauToolStripMenuItem
            '
            Me.nouveauToolStripMenuItem.Name = "nouveauToolStripMenuItem"
            Me.nouveauToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
            Me.nouveauToolStripMenuItem.Text = "Nouveau calcul"
            '
            'fermerLeLogcielToolStripMenuItem
            '
            Me.fermerLeLogcielToolStripMenuItem.Name = "fermerLeLogcielToolStripMenuItem"
            Me.fermerLeLogcielToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
            Me.fermerLeLogcielToolStripMenuItem.Text = "Fermer le logciel"
            '
            'toolStripSeparator1
            '
            Me.toolStripSeparator1.Name = "toolStripSeparator1"
            Me.toolStripSeparator1.Size = New System.Drawing.Size(212, 6)
            '
            'maxProduction2011ToolStripMenuItem
            '
            Me.maxProduction2011ToolStripMenuItem.Enabled = false
            Me.maxProduction2011ToolStripMenuItem.Name = "maxProduction2011ToolStripMenuItem"
            Me.maxProduction2011ToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
            Me.maxProduction2011ToolStripMenuItem.Text = "©MaxProduction,2011"
            '
            'editionToolStripMenuItem
            '
            Me.editionToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.revenirEnArrièreToolStripMenuItem, Me.supprimeLaListeDeSauvegardeToolStripMenuItem})
            Me.editionToolStripMenuItem.Name = "editionToolStripMenuItem"
            Me.editionToolStripMenuItem.Size = New System.Drawing.Size(60, 21)
            Me.editionToolStripMenuItem.Text = "Edition"
            '
            'revenirEnArrièreToolStripMenuItem
            '
            Me.revenirEnArrièreToolStripMenuItem.Name = "revenirEnArrièreToolStripMenuItem"
            Me.revenirEnArrièreToolStripMenuItem.Size = New System.Drawing.Size(272, 22)
            Me.revenirEnArrièreToolStripMenuItem.Text = "Revenir en arrière"
            '
            'supprimeLaListeDeSauvegardeToolStripMenuItem
            '
            Me.supprimeLaListeDeSauvegardeToolStripMenuItem.Name = "supprimeLaListeDeSauvegardeToolStripMenuItem"
            Me.supprimeLaListeDeSauvegardeToolStripMenuItem.Size = New System.Drawing.Size(272, 22)
            Me.supprimeLaListeDeSauvegardeToolStripMenuItem.Text = "Supprime la liste de sauvegarde"
            '
            'toolStripTextBox1
            '
            Me.toolStripTextBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.toolStripTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
            Me.toolStripTextBox1.Enabled = false
            Me.toolStripTextBox1.Name = "toolStripTextBox1"
            Me.toolStripTextBox1.Size = New System.Drawing.Size(100, 21)
            '
            'toolStripTextBox2
            '
            Me.toolStripTextBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(192,Byte),Integer))
            Me.toolStripTextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
            Me.toolStripTextBox2.Enabled = false
            Me.toolStripTextBox2.Name = "toolStripTextBox2"
            Me.toolStripTextBox2.Size = New System.Drawing.Size(100, 21)
            '
            'KryptonForm1
            '
            Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(128,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(128,Byte),Integer))
            Me.ClientSize = New System.Drawing.Size(695, 418)
            Me.Controls.Add(Me.button3)
            Me.Controls.Add(Me.label6)
            Me.Controls.Add(Me.listBox1)
            Me.Controls.Add(Me.groupBox3)
            Me.Controls.Add(Me.groupBox1)
            Me.Controls.Add(Me.groupBox2)
            Me.Controls.Add(Me.menuStrip1)
            Me.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
            Me.ForeColor = System.Drawing.Color.Black
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.MainMenuStrip = Me.menuStrip1
            Me.Name = "KryptonForm1"
            Me.Text = "Mathématiquat"
            Me.groupBox1.ResumeLayout(false)
            Me.groupBox2.ResumeLayout(false)
            Me.groupBox2.PerformLayout
            Me.groupBox3.ResumeLayout(false)
            Me.menuStrip1.ResumeLayout(false)
            Me.menuStrip1.PerformLayout
            Me.ResumeLayout(false)
            Me.PerformLayout
        End Sub
       
        <System.STAThreadAttribute()>  _
        Public Shared Sub Main()
            System.Windows.Forms.Application.EnableVisualStyles()
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. Mathématiquat can't start without it. Please install the .Net Framework 3.5 and try again.", "Mathématiquat", 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 KryptonForm1_f)
        End Sub
    End Class
   
    Public Class WindowsForm1_f
        Inherits System.Windows.Forms.Form
       
        Public WithEvents components As System.ComponentModel.IContainer
       
        Public Sub New()
            MyBase.New
            Me.InitializeComponent
        End Sub
       
        Private Sub InitializeComponent()
            Me.SuspendLayout
            '
            'WindowsForm1
            '
            Me.ClientSize = New System.Drawing.Size(284, 262)
            Me.Name = "WindowsForm1"
            Me.Text = "WindowsForm1"
            Me.ResumeLayout(false)
        End Sub
    End Class

    Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
        Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
        Public choixcalculfraction As Object '
        Public fractionbas1 As Object '
        Public fractionbas2 As Object '
        Public nombre1 As Object '
        Public nombre2 As Object '
        Public Typedecalcul 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 NUMBER_OF_PROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBER_OF_PROCESSORS"))
        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 _KryptonForm1 As KryptonForm1_f = New KryptonForm1_f
Public Property KryptonForm1 As KryptonForm1_f
Get
Return _KryptonForm1
End Get
Set(ByVal value As KryptonForm1_f)
_KryptonForm1 = value
End Set
End Property
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 KryptonForm1_f

 Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
Typedecalcul = Me.comboBox1.SelectedItem
If Typedecalcul = "Division" Then
Me.groupBox2.Visible = true
Me.textBox3.Visible = false
Me.textBox4.Visible = false
Me.comboBox2.Visible = false
Me.label4.Visible = false
Me.label5.Visible = false
Me.groupBox1.Enabled = false
End If
If Typedecalcul = "Multiplication" Then
Me.groupBox2.Visible = true
Me.textBox3.Visible = false
Me.textBox4.Visible = false
Me.comboBox2.Visible = false
Me.label4.Visible = false
Me.label5.Visible = false
Me.groupBox1.Enabled = false
End If
If Typedecalcul = "Addition" Then
Me.groupBox2.Visible = true
Me.textBox3.Visible = false
Me.textBox4.Visible = false
Me.comboBox2.Visible = false
Me.label4.Visible = false
Me.label5.Visible = false
Me.groupBox1.Enabled = false
End If
If Typedecalcul = "Soustraction" Then
Me.groupBox2.Visible = true
Me.textBox3.Visible = false
Me.textBox4.Visible = false
Me.comboBox2.Visible = false
Me.label4.Visible = false
Me.label5.Visible = false
Me.groupBox1.Enabled = false
End If
If Typedecalcul = "Fraction" Then
Me.groupBox2.Visible = true
Me.groupBox1.Enabled = false
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Mathématiquat", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button2.Click
Try
If Typedecalcul = Fraction Then
nombre1 = Me.textBox1.Text
nombre2 = Me.textBox2.Text
fractionbas1 = Me.textBox3.Text
fractionbas2 = Me.textBox4.Text
choixcalculfraction = Me.comboBox2.SelectedItem
Me.groupBox3.Visible = true
Me.groupBox2.Enabled = false
End If
If Typedecalcul = Soustraction Then
nombre1 = Me.textBox1.Text
nombre2 = Me.textBox2.Text
Me.groupBox3.Visible = true
Me.groupBox2.Enabled = false
End If
If Typedecalcul = Division Then
nombre1 = Me.textBox1.Text
nombre2 = Me.textBox2.Text
Me.groupBox3.Visible = true
Me.groupBox2.Enabled = false
End If
If Typedecalcul = Multiplication Then
nombre1 = Me.textBox1.Text
nombre2 = Me.textBox2.Text
Me.groupBox3.Visible = true
Me.groupBox2.Enabled = false
End If
If Typedecalcul = Addition Then
nombre1 = Me.textBox1.Text
nombre2 = Me.textBox2.Text
Me.groupBox3.Visible = true
Me.groupBox2.Enabled = false
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Mathématiquat", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class

    Partial Public Class WindowsForm1_f

    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("Mathématiquat.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,
Gipse


Dernière édition par gipse le Dim 13 Mar 2011 - 12:12, édité 1 fois



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.frblogs.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
Admin
Administrateur
Administrateur

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

Re: erreur bizarre [RESOLUT]

Message par Admin le Lun 7 Mar 2011 - 19:16

Bonsoir,

"Name 'Fraction' is not declared"
Apparemment, la variable, ou ressource, ou contrôle, ou étiquette, nommé "Fraction" n'existe pas Wink Il faut donc la créer.
Idem pour Soustraction, Addition, Multiplication, Division.

Voila Smile



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
avatar
gipse
Habitué
Habitué

Masculin Nombre de messages : 575
Localisation : en face de mon voisin
Emploi/loisirs : informatique, SZ
Humeur : je suis heureux grace a SZ !
Date d'inscription : 19/01/2011

Re: erreur bizarre [RESOLUT]

Message par gipse le Lun 7 Mar 2011 - 20:04

Ben oui mais en fait soustraction, division, tout ca c'est la valeur d'un combobox...



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.frblogs.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
Admin
Administrateur
Administrateur

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

Re: erreur bizarre [RESOLUT]

Message par Admin le Lun 7 Mar 2011 - 20:06

Aaaaah ! Cochez la case "cette valeur est du texte" dans les conditions Wink
Ici, SZ comprend que faites référence à un objet (variable, bouton...etc) et non à un texte.



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
avatar
gipse
Habitué
Habitué

Masculin Nombre de messages : 575
Localisation : en face de mon voisin
Emploi/loisirs : informatique, SZ
Humeur : je suis heureux grace a SZ !
Date d'inscription : 19/01/2011

Re: erreur bizarre [RESOLUT]

Message par gipse le Lun 7 Mar 2011 - 22:18

Ah d'accord merci Very Happy Very Happy
Gipse



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.frblogs.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
gipse
Habitué
Habitué

Masculin Nombre de messages : 575
Localisation : en face de mon voisin
Emploi/loisirs : informatique, SZ
Humeur : je suis heureux grace a SZ !
Date d'inscription : 19/01/2011

Re: erreur bizarre [RESOLUT]

Message par gipse le Mer 9 Mar 2011 - 13:50

Encore une erreur je sens que ce post vas devenir mon post préférer Laughing
Bon voila j'ai un utilisateur qui doit choisir un fichier avec un openfiledialog et ensuite en faire un copier/coller vers le dossier où est lancé le logiciel ( %(APPLICATION_PATH)% ). Problème: erreur de génération pour mon copier un fichier : Operator '&' is not defined for types 'String' and '1-dimensional array of Object'.
En français: L'opérateur 'et' n'est pas défini pour le 'String' de types et 'la matrice 1 dimensionnel d'Objet'. (traduis avec un programme)
Voila merci d'une réponse (même une réponse pour répondre lol! )



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.frblogs.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
Admin
Administrateur
Administrateur

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

Re: erreur bizarre [RESOLUT]

Message par Admin le Mer 9 Mar 2011 - 14:37

Bonjour,

Regardez la vidéo sur les tableaux de valeurs (dans l'onglet Pour Commencer, dans la page de démarrage). Wink



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
avatar
gipse
Habitué
Habitué

Masculin Nombre de messages : 575
Localisation : en face de mon voisin
Emploi/loisirs : informatique, SZ
Humeur : je suis heureux grace a SZ !
Date d'inscription : 19/01/2011

Re: erreur bizarre [RESOLUT]

Message par gipse le Mer 9 Mar 2011 - 15:17

Ah oui.... Embarassed Embarassed
Je l'avais regarder quand j'ai télécharger SZ mais maintenant.... j'avais oublier...
Merci,
Gipse Embarassed



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.frblogs.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr

Contenu sponsorisé

Re: erreur bizarre [RESOLUT]

Message par Contenu sponsorisé


    La date/heure actuelle est Mar 19 Juin 2018 - 21:51