Mencari Akar Persamaan Kuadrat

Berikut merupakan persamaan yang nantinya akan dicari akar-akar persamaannya dengan cara visual basic: ax^2+bx+c=0 Adapun algoritma yang penulis buat adalah sebagai beikut: Mengambil nilai koefisien a, b, dan c berdasarkan input yang diberikan; Menghitung nilai determinan persamaan kuadrat dengan rumus D = b^2 - 4ac; Melakukan pengujian nilai D dan menghitung nilai akar x1 dan x2 berdasarkan nilai D yang di dapat, dengan ketentuan: Jika D > 0, maka: x1 = (-b + sqrt( d )) / 2*a x2 = (-b - sqrt( d )) / 2*a Jika D = 0, maka: x1 = -b / 2a x2 = -b / 2a Jika D < 0, maka: x1 = akar imajiner x2 = akar imajiner Menampilkan hasil x1 dan x2 sebagai hasil dari perhitungan. Adapun langkah-langkah pembuatan program sebagai berikut: 1. membuat label,textbox serta command bottom di toolbox ke userform yang telah disediakan. Mengganti nama label,textbox dan commandbottom sesuai dengan kebutuhan misalnya"Hitung" 2. memasukkan listing program yang telah dibuat. 3.setelah itu tekan f5/run maka hasil ya sebagai berikut : kalau hasil akar Real maka hasil x1 dan x2 akan keluar : Kalau hasil akar tidak real atau imajiner maka akan keluar seperti ini: