Calcul en electricite continu

Télécharger le projet
Commenter

Description

permet de calculer les differentes valeur d'un circuit en courant continu

Source / Exemple : 


Dim u, i, p, r As Single

Private Sub Form_Load()
End
End Sub

Private Sub Option1_Click()

i = InputBox("entre l'intensite:")
If Not IsNumeric(i) Then MsgBox "la donnee doit etre numerique": i = InputBox("entre l'intensite:")
Text1 = i
u = InputBox("entre la tension:")
If Not IsNumeric(u) Then MsgBox "la donnee doit etre numerique": u = InputBox("entre la tension:")
Text2 = u
p = u * i
Text3 = p
r = p / (i * i)
Text5 = r
End Sub
Private Sub Option2_Click()
p = InputBox("entre la puissance:")
If Not IsNumeric(p) Then MsgBox "la donnee doit etre numerique": p = InputBox("entre la puissance:")
Text3 = p
u = InputBox("entre la tension:")
If Not IsNumeric(u) Then MsgBox "la donnee doit etre numerique": u = InputBox("entre la tension:")
Text2 = u
i = p / u
Text1 = i
r = p / (i * i)
Text5 = r
End Sub

Private Sub Option3_Click()
r = InputBox("entre la resistance:")
If Not IsNumeric(r) Then MsgBox "la donnee doit etre numerique": r = InputBox("entre la resitance:")
Text5 = r
u = InputBox("entre la tension:")
If Not IsNumeric(u) Then MsgBox "la donnee doit etre numerique": u = InputBox("entre la tension:")
Text2 = u
i = u / r
Text1 = i
p = r * (i * i)
Text3 = p
End Sub

Private Sub Option4_Click()
r = InputBox("entre la resistance:")
If Not IsNumeric(r) Then MsgBox "la donnee doit etre numerique": r = InputBox("entre la resitance:")
Text5 = r
i = InputBox("entre l'intensite:")
If Not IsNumeric(i) Then MsgBox "la donnee doit etre numerique": i = InputBox("entre l'intensite:")
Text1 = i
u = r * i
Text2 = u
p = r * (i * i)
Text3 = p
End Sub

Private Sub Option5_Click()
p = InputBox("entre la puissance:")
If Not IsNumeric(p) Then MsgBox "la donnee doit etre numerique": p = InputBox("entre la puissance:")
Text3 = p
i = InputBox("entre l'intensite:")
If Not IsNumeric(i) Then MsgBox "la donnee doit etre numerique": i = InputBox("entre l'intensite:")
Text1 = i
u = p / i
Text2 = u
r = u / i
Text5 = r
End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text2_Change()

End Sub

Private Sub Text3_Change()

End Sub

Private Sub Text5_Change()

End Sub
Télécharger le projet

Codes Sources

A voir également

Du même auteur (manureva10)