|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
CALCUL DU CODE COULEUR D'UNE RESISTANCE
Information sur la source
Description
CALCULER ET AFFICHE LE CODE COULEUR D'UNE RESISTANCE
Source
- 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
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
Sources du même auteur
Sources de la même categorie
Sources en rapport avec celle ci
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Pi mais comment on calcul Pi ??? [ par koubihack ]
c'est que l'on demande souvent à ceux qui font de l'informatique (plus précisement de la programmation) de calculer Pi avec 10 000 000 de virgules, pe
couleur hexadecimal urgent!! [ par gianfare ]
hello, j'ai un ocx qui s'appelle codemax21 qui me permet detaper du code html.mon problème survient lorsque je veux mettreune couleure d'arrière plan
couleur urgent!!!! [ par gianfare ]
hello, j'ai un ocx qui s'appelle codemax21 qui me permet detaper du code html.mon problème survient lorsque je veux mettreune couleure d'arrière plan
recuperer code hexa entier d'une couleur [ par NaBuCO ]
voila mon pb c ke je ve recuperer le code hexa de la couleur que choisi l'utilisateur ds la palette tout va bien qd c a 6 caractere genre FFFFFF (pour
Calcul de distances... [ par DragonDo ]
Salut à tous,Quelqu'un sait-il comment calculer la distance entre deux points du globe en connaissant les coordonnées gps de ceux-ci. Dans la lancée,
Problème de filtre avec VB6 [ par ugob ]
Bonjour,J'ai fais un formulaire dynamique de recherche sous VB6 relié à une base de donnée ACCESS 2000.Je peux parcourir les enregistrements de la tab
Calcul de congés [ par majavon ]
Je suis à la recherche d'un code source pour le calcul des congés avec déduction des jours fériés, samedi et dimanche. Pouvez vous m'aider ? Il y en a
calcul sur nombre décomposé [ par pascalbeziers ]
bon jour,Je cherche le code source ou l'explication pour créer le code d'une fonction qui prendrai un nombre à 5 chiffres (invariable) et multiplierai
calcul de cpu [ par rerereda ]
Bonjour tout le monde,Je voudrais savoir s'il y a un programme qui permet de calculer et d'afficher en temps reel la charge CPU.Comment faire en CShar
Imprimer un code en couleur [ par GlanduSchmoldu ]
Euh voila ça va paraitre curieux comme question mais j'ai besoin d'imprimer ma source en couleur, telle qu'elle apparait dans VB, avec les commandes e
|
Téléchargements
Logiciels à télécharger sur le même thème :
|