Etienne BAUDOUX

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX

-10%
Le deal à ne pas rater :
PC Portable Gamer ASUS TUF Gaming F15 | 15,6″ FHD IPS 144 Hz – ...
599.99 € 669.99 €
Voir le deal

2 participants

    erreur bizarre [RESOLUT]

    gipse
    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] Empty erreur bizarre [RESOLUT]

    Message par gipse 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
    Admin
    Admin
    Administrateur
    Administrateur


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

    erreur bizarre [RESOLUT] Empty Re: erreur bizarre [RESOLUT]

    Message par Admin 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
    gipse
    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] Empty Re: erreur bizarre [RESOLUT]

    Message par gipse Lun 7 Mar 2011 - 20:04

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


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

    erreur bizarre [RESOLUT] Empty Re: erreur bizarre [RESOLUT]

    Message par Admin 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.
    gipse
    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] Empty Re: erreur bizarre [RESOLUT]

    Message par gipse Lun 7 Mar 2011 - 22:18

    Ah d'accord merci Very Happy Very Happy
    Gipse
    gipse
    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] Empty Re: erreur bizarre [RESOLUT]

    Message par gipse 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! )
    Admin
    Admin
    Administrateur
    Administrateur


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

    erreur bizarre [RESOLUT] Empty Re: erreur bizarre [RESOLUT]

    Message par Admin 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
    gipse
    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] Empty Re: erreur bizarre [RESOLUT]

    Message par gipse 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

    Contenu sponsorisé


    erreur bizarre [RESOLUT] Empty Re: erreur bizarre [RESOLUT]

    Message par Contenu sponsorisé


      La date/heure actuelle est Mar 19 Mar 2024 - 9:35