Calcul du code couleur d'une resistance

Soyez le premier à donner votre avis sur cette source.

Snippet vu 32 076 fois - Téléchargée 31 fois

Contenu du snippet

CALCULER ET AFFICHE LE CODE COULEUR D'UNE RESISTANCE

Source / Exemple :


Public Class Form5
    Inherits System.Windows.Forms.Form

#Region " Code généré par le Concepteur Windows Form "

    Public Sub New()
        MyBase.New()

        'Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()

        'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

    End Sub

    'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Requis par le Concepteur Windows Form
    Private components As System.ComponentModel.IContainer

    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
    'Elle peut être modifiée en utilisant le Concepteur Windows Form.  
    'Ne la modifiez pas en utilisant l'éditeur de code.
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
    Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
    Friend WithEvents ListBox4 As System.Windows.Forms.ListBox
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.Label9 = New System.Windows.Forms.Label
        Me.TextBox5 = New System.Windows.Forms.TextBox
        Me.Button5 = New System.Windows.Forms.Button
        Me.TextBox4 = New System.Windows.Forms.TextBox
        Me.TextBox3 = New System.Windows.Forms.TextBox
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.Button3 = New System.Windows.Forms.Button
        Me.Button4 = New System.Windows.Forms.Button
        Me.ListBox1 = New System.Windows.Forms.ListBox
        Me.ListBox2 = New System.Windows.Forms.ListBox
        Me.ListBox3 = New System.Windows.Forms.ListBox
        Me.ListBox4 = New System.Windows.Forms.ListBox
        Me.Button2 = New System.Windows.Forms.Button
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "quitter"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "retour "
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "nouveau calcul"
        '
        'Label9
        '
        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label9.Location = New System.Drawing.Point(220, 406)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(136, 72)
        Me.Label9.TabIndex = 12
        Me.Label9.Text = "LA VALEUR DE LA RESISTANCE EST DE"
        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'TextBox5
        '
        Me.TextBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TextBox5.Location = New System.Drawing.Point(364, 430)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(120, 22)
        Me.TextBox5.TabIndex = 25
        Me.TextBox5.Text = ""
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(492, 430)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(48, 24)
        Me.Button5.TabIndex = 32
        Me.Button5.Text = "ok"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(508, 270)
        Me.TextBox4.Multiline = True
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(32, 104)
        Me.TextBox4.TabIndex = 46
        Me.TextBox4.Text = ""
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(404, 270)
        Me.TextBox3.Multiline = True
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(32, 104)
        Me.TextBox3.TabIndex = 45
        Me.TextBox3.Text = ""
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(308, 270)
        Me.TextBox2.Multiline = True
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(32, 104)
        Me.TextBox2.TabIndex = 44
        Me.TextBox2.Text = ""
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(220, 270)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(32, 104)
        Me.TextBox1.TabIndex = 43
        Me.TextBox1.Text = ""
        '
        'Label4
        '
        Me.Label4.BackColor = System.Drawing.SystemColors.ControlText
        Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label4.Location = New System.Drawing.Point(100, 318)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(80, 8)
        Me.Label4.TabIndex = 40
        '
        'Label3
        '
        Me.Label3.BackColor = System.Drawing.SystemColors.ControlText
        Me.Label3.Location = New System.Drawing.Point(612, 318)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(96, 8)
        Me.Label3.TabIndex = 39
        Me.Label3.Text = "Label3"
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.SystemColors.ControlDark
        Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label2.Location = New System.Drawing.Point(180, 270)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(432, 104)
        Me.Label2.TabIndex = 38
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label1.Location = New System.Drawing.Point(84, 66)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(624, 56)
        Me.Label1.TabIndex = 37
        Me.Label1.Text = "VALEUR D'UNE RESISTANCE EN FONTION DE SONT CODE COULEUR "
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Button3
        '
        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button3.Location = New System.Drawing.Point(388, 230)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(88, 32)
        Me.Button3.TabIndex = 48
        Me.Button3.Text = "ANNEAU 3"
        '
        'Button4
        '
        Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button4.Location = New System.Drawing.Point(492, 230)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(80, 32)
        Me.Button4.TabIndex = 49
        Me.Button4.Text = "ANNEAU 4"
        '
        'ListBox1
        '
        Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ListBox1.ItemHeight = 15
        Me.ListBox1.Items.AddRange(New Object() {"or ", "argent", "noir", "marron", "rouge", "orange", "jaune", "vert", "bleu", "gris", "blanc"})
        Me.ListBox1.Location = New System.Drawing.Point(204, 170)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(72, 49)
        Me.ListBox1.TabIndex = 50
        '
        'ListBox2
        '
        Me.ListBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ListBox2.ItemHeight = 15
        Me.ListBox2.Items.AddRange(New Object() {"or ", "argent", "noir", "marron", "rouge", "orange", "jaune", "vert", "bleu", "gris", "blanc"})
        Me.ListBox2.Location = New System.Drawing.Point(300, 170)
        Me.ListBox2.Name = "ListBox2"
        Me.ListBox2.Size = New System.Drawing.Size(72, 49)
        Me.ListBox2.TabIndex = 51
        '
        'ListBox3
        '
        Me.ListBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ListBox3.ItemHeight = 15
        Me.ListBox3.Items.AddRange(New Object() {"or ", "argent", "noir", "marron", "rouge", "orange", "jaune", "vert", "bleu", "gris", "blanc"})
        Me.ListBox3.Location = New System.Drawing.Point(396, 170)
        Me.ListBox3.Name = "ListBox3"
        Me.ListBox3.Size = New System.Drawing.Size(72, 49)
        Me.ListBox3.TabIndex = 52
        '
        'ListBox4
        '
        Me.ListBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ListBox4.ItemHeight = 15
        Me.ListBox4.Items.AddRange(New Object() {"or ", "argent", "noir", "marron", "rouge", "orange", "jaune", "vert", "bleu", "gris", "blanc"})
        Me.ListBox4.Location = New System.Drawing.Point(492, 170)
        Me.ListBox4.Name = "ListBox4"
        Me.ListBox4.Size = New System.Drawing.Size(72, 49)
        Me.ListBox4.TabIndex = 53
        '
        'Button2
        '
        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button2.Location = New System.Drawing.Point(196, 230)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(80, 32)
        Me.Button2.TabIndex = 42
        Me.Button2.Text = "ANNEAU 1"
        '
        'Button1
        '
        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button1.Location = New System.Drawing.Point(292, 230)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(80, 32)
        Me.Button1.TabIndex = 47
        Me.Button1.Text = "ANNEAU 2"
        '
        'Form5
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(11, 24)
        Me.ClientSize = New System.Drawing.Size(792, 545)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.ListBox4)
        Me.Controls.Add(Me.ListBox3)
        Me.Controls.Add(Me.ListBox2)
        Me.Controls.Add(Me.ListBox1)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Menu = Me.MainMenu1
        Me.Name = "Form5"
        Me.Text = "CODE COULEUR"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim couleur1(11), couleur2(11), couleur3(11), couleur4(11) As String, i, j, k, l, m, precis, couleur As Integer, anneau As Integer, multi As Double
    
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        For i = 0 To 11
            couleur1(i) = Val(ListBox1.SelectedIndex.ToString)

            Select Case couleur1(i)
                Case 0
                    TextBox1.BackColor = Color.Gold()
                Case 1
                    TextBox1.BackColor = Color.Silver()
                Case 2
                    TextBox1.BackColor = Color.Black()
                Case 3
                    TextBox1.BackColor = Color.Brown()
                Case 4
                    TextBox1.BackColor = Color.Red()
                Case 5
                    TextBox1.BackColor = Color.Orange()
                Case 6
                    TextBox1.BackColor = Color.Yellow()
                Case 7
                    TextBox1.BackColor = Color.Green()
                Case 8
                    TextBox1.BackColor = Color.Blue()
                Case 9
                    TextBox1.BackColor = Color.Violet()
                Case 10
                    TextBox1.BackColor = Color.Gray()
                Case 11
                    TextBox1.BackColor = Color.White()
            End Select

        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For j = 0 To 10
            couleur2(j) = Val(ListBox2.SelectedIndex.ToString)

            Select Case couleur2(j)
                Case 0
                    TextBox2.BackColor = Color.Gold()
                Case 1
                    TextBox2.BackColor = Color.Silver()
                Case 2
                    TextBox2.BackColor = Color.Black()
                Case 3
                    TextBox2.BackColor = Color.Brown()
                Case 4
                    TextBox2.BackColor = Color.Red()
                Case 5
                    TextBox2.BackColor = Color.Orange()
                Case 6
                    TextBox2.BackColor = Color.Yellow()
                Case 7
                    TextBox2.BackColor = Color.Green()
                Case 8
                    TextBox2.BackColor = Color.Blue()
                Case 9
                    TextBox2.BackColor = Color.Violet()
                Case 10
                    TextBox2.BackColor = Color.Gray()
                Case 11
                    TextBox2.BackColor = Color.White()
            End Select
        Next

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        For k = 0 To 11

            couleur3(k) = Val(ListBox3.SelectedIndex.ToString)

            Select Case couleur3(k)
                Case 0
                    TextBox3.BackColor = Color.Gold()
                Case 1
                    TextBox3.BackColor = Color.Silver()
                Case 2
                    TextBox3.BackColor = Color.Black()
                Case 3
                    TextBox3.BackColor = Color.Brown()
                Case 4
                    TextBox3.BackColor = Color.Red()
                Case 5
                    TextBox3.BackColor = Color.Orange()
                Case 6
                    TextBox3.BackColor = Color.Yellow()
                Case 7
                    TextBox3.BackColor = Color.Green()
                Case 8
                    TextBox3.BackColor = Color.Blue()
                Case 9
                    TextBox3.BackColor = Color.Violet()
                Case 10
                    TextBox3.BackColor = Color.Gray()
                Case 11
                    TextBox3.BackColor = Color.White()
            End Select
        Next

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        For l = 0 To 11
            couleur4(l) = Val(ListBox4.SelectedIndex.ToString)

            Select Case couleur4(l)
                Case 0
                    TextBox4.BackColor = Color.Gold()
                Case 1
                    TextBox4.BackColor = Color.Silver()
                Case 2
                    TextBox4.BackColor = Color.Black()
                Case 3
                    TextBox4.BackColor = Color.Brown()
                Case 4
                    TextBox4.BackColor = Color.Red()
                Case 5
                    TextBox4.BackColor = Color.Orange()
                Case 6
                    TextBox4.BackColor = Color.Yellow()
                Case 7
                    TextBox4.BackColor = Color.Green()
                Case 8
                    TextBox4.BackColor = Color.Blue()
                Case 9
                    TextBox4.BackColor = Color.Violet()
                Case 10
                    TextBox4.BackColor = Color.Gray()
                Case 11
                    TextBox4.BackColor = Color.White()
            End Select
        Next

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        For i = 0 To 11
            couleur1(i) = Val(ListBox1.SelectedIndex.ToString)
            couleur2(i) = Val(ListBox2.SelectedIndex.ToString)
            couleur3(i) = Val(ListBox3.SelectedIndex.ToString)
            couleur4(i) = Val(ListBox4.SelectedIndex.ToString)
            couleur = couleur1(i) & couleur2(i)
            Select Case couleur3(m)
                Case 0
                    multi = 0.1
                Case 1
                    multi = 0.01
                Case 2
                    multi = 1
                Case 3
                    multi = 10
                Case 4
                    multi = 100
                Case 5
                    multi = 1000
                Case 6
                    multi = 10000
                Case 7
                    multi = 100000
                Case 8
                    multi = 1000000

            End Select
            Select Case couleur4(m)
                Case 0
                    precis = 10
                Case 1
                    precis = 5
                Case 2
                    precis = 0
                Case 3
                    precis = 1
                Case 4
                    precis = 2
                Case 5
                    precis = 0
                Case 6
                    precis = 0
                Case 7
                    precis = 0.5
                Case 8
                    precis = 0.25
                Case 9
                    precis = 0.1

            End Select
            Button5.Visible = True

            TextBox5.Text = couleur * multi & " A " & precis & " %"
        Next
    End Sub

   
End Class

A voir également

Ajouter un commentaire

Commentaires

Messages postés
215
Date d'inscription
jeudi 24 octobre 2002
Statut
Membre
Dernière intervention
7 septembre 2007
1
au dela de l'interet d'une source, il y a le fait de la partager pour avoir l'avis des autres.

c'est un peu comme faire une calculatrice, on ws'en sert pas tous les jours une fois qu'elle est faite ;)

pour revenir au sujet, les case en cascade sont dégueux, il aurait suffit de faire un enum pour les couleurs et de l'affecter directement.
meme remarques que Kriss sinon:
pas de commentaires, des variables a déchiffrer.
aucun renommage des controles, pas d'intelligence dans le code.
3/10
Messages postés
88
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
2 janvier 2007

Pas tout à fait.
Car chacun peut écrire un source différent ce qui permet de voir plusieur façons d'arriver à un résultat.
Par contre, des codes sources qui sont les même, ça, ça serrais vraiment grâve.
Ici, je ne sais pas si c'est le cas.
L'auteur est content de son travail et le partage.
Par contre l'auteur à fait quelques erreurs :
->il s'est trompé de niveau
->il n'a pas commenté son code
->aucun nom de variable ne fait penser à son contenu

->val(ListBox1.SelectedIndex.ToString) : Convertion d'un INTEGER en STRING puis on extrait la valeure de la chaine ? (est-ce ça ?)

Cela fait donc 5/10.

Bonne continuation en VB.
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008

Des sources pour calculer le code couleur des résistances il y en a des 10aines c'est complètement inutile!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.