Bonjour,
Je vous présente un logiciel de ma conception qui est très simple.
Il permet, via un marquage de sortir la valeur normalisé, valeur minimum, valeur maximum, la tolérance, la série.
Je suis bien sur ouvert à toute critique ou amélioration.
PS : j'ai un petit problème :/
Pour une résistance ayant une tolérance de 0.1%, de quelle série appartiendra t-elle ?
La tolérance de 20% appartient à la série E6 ou encore une tolérance de 1% appartient à la série E96 etc..
Source / Exemple :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Chiffre_sign1 As Integer
Dim Chiffre_sign2 As Integer
Dim Multiplicateur As Integer
Dim Tolérence As String
Select Case ComboBox1.SelectedIndex
Case 0
Chiffre_sign1 = 0
Case 1
Chiffre_sign1 = 1
Case 2
Chiffre_sign1 = 2
Case 3
Chiffre_sign1 = 3
Case 4
Chiffre_sign1 = 4
Case 5
Chiffre_sign1 = 5
Case 6
Chiffre_sign1 = 6
Case 7
Chiffre_sign1 = 7
Case 8
Chiffre_sign1 = 8
Case 9
Chiffre_sign1 = 9
End Select
Select Case ComboBox2.SelectedIndex
Case 0
Chiffre_sign2 = 0
Case 1
Chiffre_sign2 = 1
Case 2
Chiffre_sign2 = 2
Case 3
Chiffre_sign2 = 3
Case 4
Chiffre_sign2 = 4
Case 5
Chiffre_sign2 = 5
Case 6
Chiffre_sign2 = 6
Case 7
Chiffre_sign2 = 7
Case 8
Chiffre_sign2 = 8
Case 9
Chiffre_sign2 = 9
End Select
Select Case ComboBox3.SelectedIndex
Case 0
Multiplicateur = 0.01
Case 1
Multiplicateur = 0.1
Case 2
Multiplicateur = 1
Case 3
Multiplicateur = 10
Case 4
Multiplicateur = 100
Case 5
Multiplicateur = 1000
Case 6
Multiplicateur = 10000
Case 7
Multiplicateur = 100000
Case 8
Multiplicateur = 1000000
Case 9
Multiplicateur = 10000000
End Select
Select Case ComboBox4.SelectedIndex
Case 0
Tolérence = 10
Case 1
Tolérence = 5
Case 2
Tolérence = 20
Case 3
Tolérence = 1
Case 4
Tolérence = 2
Case 5
Tolérence = 5
Case 6
Tolérence = 0.5
Case 7
Tolérence = 0.25
Case 8
Tolérence = 0.1
Case 9
Tolérence = 0.05
Case 10
Tolérence = 20
End Select
Label3.Text = "" & Chiffre_sign1 & "" & Chiffre_sign2 * Multiplicateur & " Ω"
Label5.Text = "" & Tolérence & " %"
Label7.Text = (100 / 100 - Tolérence / 100) * (Chiffre_sign1 & "" & Chiffre_sign2 * Multiplicateur) & " Ω"
Label9.Text = (100 / 100 + Tolérence / 100) * (Chiffre_sign1 & "" & Chiffre_sign2 * Multiplicateur) & " Ω"
Select Case ComboBox4.SelectedIndex
Case 0
Label11.Text = "E12"
Case 1
Label11.Text = "E24"
Case 2
Label11.Text = "E6"
Case 3
Label11.Text = "E96"
Case 4
Label11.Text = "Série Inconnu"
Case 5
Label11.Text = "E24"
Case 6
Label11.Text = "Série Inconnu"
Case 7
Label11.Text = "Série Inconnu"
Case 8
Label11.Text = "Série Inconnu"
Case 9
Label11.Text = "Série Inconnu"
Case 10
Label11.Text = "E6"
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Conclusion :
Il permet, via un marquage de sortir la valeur normalisé, valeur minimum, valeur maximum, la tolérance, la série.
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.