1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| Public Class QICalcul
Private valA As String
Private valB As String
Private valC As String
'lancement du formulaire
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
' A à le focus, son textbox est vide et son fond est pourpre. J'entre une valeur à la main comprise entre 42.00 et 50.00 (en tapant "," comme separateur)
Private Sub A_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles A.GotFocus
A.Text = ""
A.BackColor = Color.Purple
End Sub
' A perd le focus, son textbox contient la valeur entree precedemment et son fond passe en LightSlateGray.
Private Sub A_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles A.LostFocus
A.BackColor = Color.LightSlateGray
End Sub
' B à le focus, son textbox est vide et son fond est pourpre. J'entre une valeur à la main comprise entre 42.00 et 50.00 (en tapant "," comme separateur)
Private Sub B_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles B.GotFocus
B.Text = ""
B.BackColor = Color.Purple
End Sub
' B perd le focus, son textbox contient la valeur entree precedemment et son fond passe en LightSlateGray.
Private Sub B_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles B.LostFocus
B.BackColor = Color.LightSlateGray
End Sub
' Je clique sur le bouton calculer, j'obtiens la valeur C = -4 [1 - (b/a)^2]
Private Sub Calculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calculate.Click
valA = Convert.ToDouble(A.Text)
valB = Convert.ToDouble(B.Text)
valQICALCULE = Convert.ToDouble(QICALCULE.Text)
QICALCULE.Text = -4 * (1 - ((B.Text / A.Text)^2))
End Sub
End Class |
Partager