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
- Resistance code couleur
- Code couleur resistance - Meilleures réponses
- Code couleur resistance à imprimer - Forum - Visual Basic 6
- Visual Basic / VB.NET : Electronique: code couleur, calcul d'alim et polarisation transistor - CodeS - Guide
- Code couleur resistances - Guide
- Calculatrice java code source - Guide
- Calculatrice python code - Guide
Commentaires
- Messages postés
-
215
- Date d'inscription
- jeudi 24 octobre 2002
- Statut
- Membre
- Dernière intervention
- 7 septembre 2007
1c'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
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.
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.