Bonsoir,
Je dois rendre un dossier pour mon examen de janvier, mon code fonctionne mais j'aimerais rajouter de l'automatisation. J'aimerais que lorsque j'appuie sur enter mon code s'active mais rien ne se passe ...
Pouvez-vous m'aider ?
Merci et bonne fin de soirée
Public Class Form1
Dim A, B, C, D, J, F, G, H, I, K, L, M, X, Y, Z
Dim matrice(1) As Double
Dim déterminant As Double
Dim det1 As Double
Dim det2 As Double
Dim det3 As Double
Dim det4 As Double
Dim det5 As Double
Dim det6 As Double
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles calculer.Click
A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text
D = TextBox4.Text
J = TextBox5.Text
F = TextBox6.Text
G = TextBox7.Text
H = TextBox8.Text
I = TextBox9.Text
K = TextBox10.Text
L = TextBox11.Text
M = TextBox12.Text
det1 = A * (((J) * (I)) - ((H) * (F)))
det2 = B * (((D) * (I)) - ((G) * (F)))
det3 = C * (((D) * (H)) - ((G) * (J)))
déterminant = det1 - det2 + det3
If déterminant = 0 Then
TextBox13.Text = "les équations sont indéterminée"
ElseIf déterminant <> 0 Then
det4 = (K * (((J) * (I)) - ((H) * (F)))) - (B * (((L) * (I)) - ((M) * (F)))) + (C * (((L) * (H)) - ((M) * (J))))
X = det4 / déterminant
det5 = (A * (((L) * (I)) - ((M) * (F)))) - (K * (((D) * (I)) - ((G) * (F)))) + (C * (((D) * (M)) - ((G) * (L))))
Y = det5 / déterminant
det6 = ((((J) * (M)) - ((H) * (L)))) - (B * (((D) * (M)) - ((G) * (L)))) + (K * (((D) * (H)) - ((G) * (J))))
Z = det6 / déterminant
TextBox13.Text = "x =" & X & " " & "y=" & Y & " " & "z=" & Z
End If
End Sub
Private Sub calculer_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles calculer.KeyPress
If Asc(e.KeyChar) = 13 Then
det1 = A * (((J) * (I)) - ((H) * (F)))
det2 = B * (((D) * (I)) - ((G) * (F)))
det3 = C * (((D) * (H)) - ((G) * (J)))
déterminant = det1 - det2 + det3
If déterminant = 0 Then
TextBox13.Text = "les équations sont indéterminée"
ElseIf déterminant <> 0 Then
det4 = (K * (((J) * (I)) - ((H) * (F)))) - (B * (((L) * (I)) - ((M) * (F)))) + (C * (((L) * (H)) - ((M) * (J))))
X = det4 / déterminant
det5 = (A * (((L) * (I)) - ((M) * (F)))) - (K * (((D) * (I)) - ((G) * (F)))) + (C * (((D) * (M)) - ((G) * (L))))
Y = det5 / déterminant
det6 = ((((J) * (M)) - ((H) * (L)))) - (B * (((D) * (M)) - ((G) * (L)))) + (K * (((D) * (H)) - ((G) * (J))))
Z = det6 / déterminant
TextBox13.Text = "x =" & X & " " & "y=" & Y & " " & "z=" & Z
End If
End If
End Sub
End Class