Aplikasi Penghitung Akar Kuadrat Setelah Evaluasi

Dim A, B, C, D, X1, X2 As Single

Private Sub CmdHitung_Click()
A = Val(TextA.Text)
B = Val(TextB.Text)
C = Val(TextC.Text)
If A = 0 Then
    TextX1.Text = ""
    TextX2.Text = ""
    TextKet.Text = "Harga A tidak boleh = 0, X1 dan X 2 tidak dihitung"
Else
 D = B * B - 4 * A * C
 If D < 0 Then
    TextX1.Text = ""
    TextX2.Text = ""
    TextKet.Text = "Harga D < 0, X1 dan X2 imaginer"
 Else
    X1 = (-B + D ^ 0.5) / (2 * A)
    X2 = (-B - D ^ 0.5) / (2 * A)
    TextX1.Text = X1
    TextX2.Text = X2
    TextKet.Text = "Harga akar-akar dapat dihitung"
 End If
End If
End Sub

Private Sub CmdSelesai_Click()
Unload Me
End Sub

Private Sub mnuhitung_Click()
A = Val(TextA.Text)
B = Val(TextB.Text)
C = Val(TextC.Text)
If A = 0 Then
    TextX1.Text = ""
    TextX2.Text = ""
    TextKet.Text = "Harga A tidak boleh = 0, X1 dan X 2 tidak dihitung"
Else
 D = B * B - 4 * A * C
 If D < 0 Then
    TextX1.Text = ""
    TextX2.Text = ""
    TextKet.Text = "Harga D < 0, X1 dan X2 imaginer"
 Else
    X1 = (-B + D ^ 0.5) / (2 * A)
    X2 = (-B - D ^ 0.5) / (2 * A)
    TextX1.Text = X1
    TextX2.Text = X2
    TextKet.Text = "Harga akar-akar dapat dihitung"
 End If
End If
End Sub

Private Sub mnuselesai_Click()
Unload Me
End Sub