Tugas 3 Prokom Bagian A

Ini adalah Source kode yang saya buat, silahkan di coba
dan ini masih dalam pengembangan

Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
a = Text1.Text
b = Text2.Text
c = Text3.Text

Text7 = a & "x ^ 2" & "+" & b & "x" & "+" & c & "=" & "0"

d = (b ^ 2) - 4 * a * c
Text4.Text = d
If d > 0 Then
Text5.Text = ((-1 * b) + (((b ^ 2) - d) ^ 0.5)) / (2 * a)
Text6.Text = ((-1 * b) - (((b ^ 2) - d) ^ 0.5)) / (2 * a)
Else
If d = 0 Then
Text5.Text = (-1 * b) / (2 * a)
Text6.Text = Text5.Text
Else
Text5.Text = "Imaginer"
Text6.Text = "Imaginer"
End If
End If
End Sub


Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "

End Sub

Private Sub Command3_Click()
End
End Sub