tugas Pemograman API 1,2 DAN 3

Buatlah program perhitungan luas, keliling, dan volume bangun sebanyak 28 dengan menggunakan class dan buat file dll dari perhitungan tersebut

Sourcode :

Keliling belah ketupat

Dim kel_blh As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_blh.keliling_belah_ketupat(Val(s))

End Sub

Keliling busur

Dim kel_bsr As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_bsr.keliling_busur(Val(bd), Val(r))

End Sub

Keliling elips

Dim kel_elp As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_elp.keliling_elips(Val(d1), Val(d2))

End Sub

Keliling jajar genjang

Dim kel_jjr As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_jjr.keliling_jajar_genjang(Val(sisi1), Val(sisi2))

End Sub

Keliling layang layang

Dim kel_lyg As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_lyg.keliling_layang_layang(Val(sisi1), Val(sisi2))

End Sub

Keliling lingkaran

Dim kel_ling As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_ling.keliling_lingkaran(Val(d))

End Sub

Keliling persegi

Dim kel_persegi As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_persegi.keliling_persegi(Val(s))

End Sub

Keliling persegi panjang

Dim kel_persegi_p As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_persegi_p.keliling_persegi_p(Val(p), Val(l))

End Sub

Keliling segitiga

Dim kel_segitiga As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_segitiga.keliling_segitiga(Val(sisi1), Val(sisi2), Val(sisi3))

End Sub

Keliling trapesium

Dim kel_trp As New Class_keliling

Private Sub hitung_Click()

kel.Text = kel_trp.keliling_trapesium(Val(sisi1), Val(sisi2), Val(sisi3), Val(sisi4))

End Sub

Luas belah ketupat

Dim luas_ktpt As New Class_luas

Private Sub hitung_Click()

luas.Text = luas_ktpt.luas_belah_ketupat(Val(d))

End Sub

Luas busur

Dim luas_bsr As New Class_luas

Private Sub hitung_Click()

luas.Text = luas_bsr.luas_busur(Val(r))

End Sub

Luas elips

Dim luas_elp As New Class_luas

Private Sub hitung_Click()

luas.Text = luas_elp.luas_elips(Val(d1), Val(d2))

End Sub

Luas jajar genjang

Dim luas_jjr As New Class_luas

Private Sub hitung_Click()

luas.Text = luas_jjr.luas_jajar_genjang(Val(a), Val(t))

End Sub

Luas layang layang

Dim luas_lyg As New Class_luas

Private Sub hitung_Click()

luas.Text = luas_lyg.luas_layang_layang(Val(d1), Val(d2))

End Sub

Luas lingkaran

Dim luas_lgkrn As New Class_luas

Private Sub hitung_Click()

luas.Text = luas_lgkrn.luas_lingkaran(Val(r))

End Sub

Luas persegi

Dim luas_persegi_p As New Class_luas

Private Sub hitung_Click()

luas.Text = luas_persegi_p.luas_persegi_p(Val(p), Val(l))

End Sub

Luas segitiga

Dim luas_sgt As New Class_luas

Private Sub hitung_Click()

luas.Text = luas_sgt.luas_segitiga(Val(a), Val(t))

End Sub

Luas trapesium

Dim luas_trpsm As New Class_luas

Private Sub hitung_Click()

luas.Text = luas_trpsm.luas_trapesium(Val(sisi1), Val(sisi2), Val(t))

End Sub

Volume balok

Dim volume_blk As New Class_volume

Private Sub hitung_Click()

vol.Text = volume_blk.volume_balok(Val(p), Val(l), Val(t))

End Sub

Volume bola

Dim volume_bl As New Class_volume

Private Sub hitung_Click()

vol.Text = volume_bl.volume_bola(Val(r))

End Sub

Volume kerucut

Dim volume_krc As New Class_volume

Private Sub hitung_Click()

vol.Text = volume_krc.volume_kerucut(Val(r), Val(t))

End Sub

Volume kubus

Dim volume_kbs As New Class_volume

Private Sub hitung_Click()

vol.Text = volume_kbs.volume_kubus(Val(s))

End Sub

Volume limas segi empat

Dim volume_lms4 As New Class_volume

Private Sub hitung_Click()

vol.Text = volume_lms4.volume_limas_segiempat(Val(p), Val(l), Val(t))

End Sub

Volume limas segitiga

Dim volume_lms3 As New Class_volume

Private Sub hitung_Click()

vol.Text = volume_lms3.volume_limas_segitiga(Val(a), Val(t))

End Sub

Volume prisma segitiga

Dim volume_prs As New Class_volume

Private Sub hitung_Click()

vol.Text = volume_prs.volume_prisma_segitiga(Val(a), Val(t))

End Sub

Volume tabung

Dim volume_tbg As New Class_volume

Private Sub hitung_Click()

vol.Text = volume_tbg.volume_tabung(Val(r), Val(t))

End Sub

Volume tabung tutup terbuka

Dim volume_tbg2 As New Class_volume

Private Sub hitung_Click()

vol.Text = volume_tbg2.volume_tabung_tanpa_tutup(Val(r), Val(t))

End Sub

 Class keliling

Public Function keliling_persegi(ByVal s As Integer) As Double

keliling_persegi = 4 * s

End Function

Public Function keliling_persegi_p(ByVal p As Integer, ByVal l As Integer) As Double

keliling_persegi_p = 2 * (p + l)

End Function

Public Function keliling_segitiga(ByVal sisi1 As Integer, ByVal sisi2 As Integer, ByVal sisi3 As Integer) As Double

keliling_segitiga = sisi1 + sisi2 + sisi3

End Function

Public Function keliling_jajar_genjang(ByVal sisi1 As Integer, ByVal sisi2 As Integer) As Double

keliling_jajar_genjang = 2 * (sisi1 + sisi2)

End Function

Public Function keliling_layang_layang(ByVal sisi1 As Integer, ByVal sisi2 As Integer) As Double

keliling_layang_layang = 2 * (sisi1 + sisi2)

End Function

Public Function keliling_belah_ketupat(ByVal s As Integer) As Double

keliling_belah_ketupat = 4 * s

End Function

Public Function keliling_lingkaran(ByVal d As Integer) As Double

keliling_lingkaran = 2 * 3.14 * d

End Function

Public Function keliling_trapesium(ByVal sisi1 As Integer, ByVal sisi2 As Integer, ByVal sisi3 As Integer, ByVal sisi4 As Integer) As Double

keliling_trapesium = sisi1 + sisi2 + sisi3 + sisi4

End Function

Public Function keliling_elips(ByVal d1 As Integer, ByVal d2 As Integer) As Double

keliling_elips = 0.5 * 3.14 * (d1 + d2)

End Function

Public Function keliling_busur(ByVal bd As Integer, ByVal r As Integer) As Double

keliling_busur = bd + (3.14 * r)

End Function

Class luas

Public Function luas_persegi(ByVal s As Integer) As Double

luas_persegi = s * s

End Function

Public Function luas_persegi_p(ByVal p As Integer, ByVal l As Integer) As Double

luas_persegi_p = p * l

End Function

Public Function luas_segitiga(ByVal a As Integer, ByVal t As Integer) As Double

luas_segitiga = 0.5 * a * t

End Function

Public Function luas_jajar_genjang(ByVal a As Integer, ByVal t As Integer) As Double

luas_jajar_genjang = a * t

End Function

Public Function luas_layang_layang(ByVal d1 As Integer, ByVal d2 As Integer) As Double

luas_layang_layang = d1 * d2 * 0.5

End Function

Public Function luas_belah_ketupat(ByVal d As Integer) As Double

luas_belah_ketupat = d * d * 0.5

End Function

Public Function luas_lingkaran(ByVal r As Integer) As Double

luas_lingkaran = 3.14 * r * r

End Function

Public Function luas_trapesium(ByVal sisi1 As Integer, ByVal sisi2 As Integer, ByVal t As Integer) As Double

luas_trapesium = (sisi1 + sisi2) * t * 0.5

End Function

Public Function luas_elips(ByVal d1 As Integer, ByVal d2 As Integer) As Double

luas_elips = 0.5 * 3.14 * (d1 * d2)

End Function

Public Function luas_busur(ByVal r As Integer) As Double

luas_busur = 0.5 * 3.14 * r * r

End Function

Class volume

Public Function volume_kubus(ByVal s As Integer) As Double

volume_kubus = s * s * s

End Function

Public Function volume_balok(ByVal p As Integer, ByVal l As Integer, ByVal t As Integer) As Double

volume_balok = p * l * t

End Function

Public Function volume_prisma_segitiga(ByVal a As Integer, ByVal t As Integer) As Double

volume_prisma_segitiga = (0.5 * a * t) * t

End Function

Public Function volume_limas_segiempat(ByVal p As Integer, ByVal l As Integer, ByVal t As Integer) As Double

volume_limas_segiempat = 0.3 * p * l * t

End Function

Public Function volume_limas_segitiga(ByVal a As Integer, ByVal t As Integer) As Double

volume_limas_segitiga = 0.3 * (0.5 * a * t) * t

End Function

Public Function volume_bola(ByVal r As Integer) As Double

volume_bola = 1.3 * 3.14 * r * r * r

End Function

Public Function volume_tabung_tanpa_tutup(ByVal r As Integer, ByVal t As Integer) As Double

volume_tabung_tanpa_tutup = 2 * 3.14 * r * (r + t)

End Function

Public Function volume_kerucut(ByVal r As Integer, ByVal t As Integer) As Double

volume_kerucut = 0.3 * (3.14 * r * r) * t

End Function

Public Function volume_tabung(ByVal r As Integer, ByVal t As Integer) As Double

volume_tabung = (3.14 * r * r) * t

End Function