Pembuatan Program
buka excel baru, pastikan toolbar developer sudah terpasang, klik design mode, lalu masukkan command button 2 buah, 1 buah untuk simson, 1 buah untuk trapezodial
nilai f(x) karena sudah ditentukan tulis mulai dari B2 sampai B11, sedangkan nilai x karena mempunyai nilai yang berurutan dengan interval tertentu dapat ditulis dengan program.
double klik command button 1, lalu tulis programnya sebagai berikut
Private Sub CommandButton1_Click()Metode Trapezodial
Dim n, S, jum As Double
Dim h, xi As Single
n = Cells(2, 5)
x1 = Cells(3, 5)
h = Cells(4, 5)
For i = 1 To n + 1
Cells(i + 1, 1) = x1
x1 = x1 + h
Next i
S = (h / 3) * (Cells(2, 2) + 4 * Cells(3, 2) + 2 * Cells(4, 2) + 4 * Cells(5, 2) + 2 * Cells(6, 2) + 4 * Cells(7, 2) + 2 * Cells(8, 2) + 4 * Cells(9, 2) + 2 * Cells(10, 2) + 4 * Cells(11, 2))
Cells(6, 5) = S
End Sub
untuk metode trapezodial, hanya nilai n dan h yang perlu dimasukkan, jumlah n dan h saja, untuk mempermudah perbandingan, nilai n dan h yang dimasukkan bernilai sama dengan simson, begitu juga dengan data yang akan dibaca, karena itu tidak perlu menuliskan f(x) dan x lagi.
nilai integral trapezodial dihitung dengan
3. a = a + baris kedua hingga baris n-1
4. Next i
5. Hitung S = h * ((Cells(2, 2) / 2) + a + (Cells(n + 2, 2) / 2))
6. Tulis S
Private Sub CommandButton2_Click()
Dim h, n, S, a As Single
n = Cells(2, 8)
h = Cells(3, 8)
For i = 1 To n - 1
a = a + Cells(2 + i, 2)
Next i
Cells(7, 7) = a '
S = h * ((Cells(2, 2) / 2) + a + (Cells(n + 2, 2) / 2))
Cells(6, 8) = S
End Sub
dapat dilihat nilainya berbeda, dibuku nilai akhirnya adalah 3,1 untuk simson, perbedaan dengan di buku karena di buku 2 nilai f(x) awal dihitung dengan trapezodial terlebih dahulu. sedangkan nilai perhitungan trapezodial sudah sama persis dibuku yaitu 3.1






