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 41 42 43 44 45 46 47 48 49 50
| Option Explicit
Private Sub trapeze_cmd_Click()
' Déclaration des données'
Dim a As Integer
Dim b As Integer
Dim n As Single
Dim h As Integer
Dim i As Integer
Dim s As Integer
' lecture et initialisation des données'
If IsNumeric(txt_a.Text) = False Then
MsgBox txt_a.Text & " entrée non numérrique", vbCritical, "Erreur"
Exit Sub
End If
If IsNumeric(txt_b.Text) = False Then
MsgBox txt_b.Text & " entrée non numérrique", vbCritical, "Erreur"
Exit Sub
End If
If IsNumeric(txt_n.Text) = False Then
MsgBox txt_n.Text & " entrée non numérrique", vbCritical, "Erreur"
Exit Sub
End If
a = Val(txt_a.Text)
b = Val(txt_b.Text)
n = Val(txt_n.Text)
' traitements des données'
If (n <> 0) Then
h = (b - a) / n
s = g(a) + g(b)
For i = 1 To n - 1
s = s + 2 * g(a + i * h)
Next
s = (s + h) / 2
txt_tra.Text = CStr(s)
Else
lbl_message.Caption = "n doit être différent de 0"
End If
End
End Sub
Public Function g(data As Integer) As Long
End Function |
Partager