menghitung akar-akar persamaan kuadrat dengan visual basic (VBA)

berikut saya upload code untuk menghitung akar-akar persamaan kuadrat
AX2+BX+C = 0
proses perhitungan dimulai dengan menghitung determinan, dalam kode berikut di set dalam variabel D, sedangkan untuk memasukkan nilai digunakan variable a,b,c
bila determinan < 0 maka nilai akarnya adalah imaginer, untuk itu diberikan pesan msg box " akar-akarnya adalah imaginer" sedangkan bila determinan sama dengan nol atau lebih besar dari nol, maka dapat dihitung dengan (-b + SQR D)/2a, hasilnya ditampilkan dalam label
untuk mempermudah dalam caption dari label ditambahi tulisan "akar 1="
Private Sub CommandButton1_Click()
Dim a, b, c, D, r1, r2 As Double
' baca input

a = txta.Text
b = txtb.Text
c = txtc.Text

' hitung determinant
D = (b * b) - (4 * a * c)

'untuk akar imaginer
If D < 0 Then
MsgBox " Akar - akarnya imaginer !"

Else
' kedua akar real
r1 = (-b + Sqr(D)) / (2 * a)
r2 = (-b - Sqr(D)) / (2 * a)

End If
'tulis hasil
lblr1.Caption = "Akar 1=" & r1
lblr2.Caption = "Akar 2=" & r2

End Sub

tampilan dari program ini di visual basic adalah

tampilan ketika akar-akarnya imaginer adalah

Posted in: akar persamaan, komputasi teknik