mencari akar akar akar pada persamaan kuadrat dengan Visual basic

taman teman, mari kita belajar tentang visual basic editor...

Berikut adalah langkah langkah untuk menghitung akar akar pada persamaan kuadrat menggunakan visual editor
1. buat userform menggunakan m.excel dengan langkah sebperti sebelumnya.
2. tambahkan nilai a b dan c seperti pada gambar dibawah ini

 

3.tulis program pada commandbutton. programnya sebagai berikut :

Private Sub CommandButton1_Click()

Dim a, b, c, D, r1, r2 As Double
' baca input

a = Texta.Text
b = Textb.Text
c = Textc.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)

Label3.Caption = r1
Label4.Caption = r2



End If

End Sub

4. tekan f5 untuk runing program. hasil programnya sebagai berikut :

selamt mencoba