PROGRAM PERSAMAAN KUADRAT

TUTORIAL MEMBUAT PROGRAM PERSAMAAN KUADRAT

MODUL 2 KELOMPOK 42

NAMA KELOMPOK          : PRISKA RETNOSARI SETIOWATI               21070112110044

                                                  M. SIDIQ SAIFUDDIN                                    21070112130086

                                                  RIZAL LUTHFI NARTADHI                             21070112140135

1.       Membuat interface seperti dibawah ini

2.       Untuk membuat perhitungan mencari akar-akar persamaan kuadrat digunakan rumus = -d±√b²-4ac/2a dengan listing sebagai berikut dan dimasukkan pada tombol Hitung :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim R, X1, X2 As Double
        R = TextBox3.Text ^ 2 - (4 * TextBox1.Text * TextBox2.Text)
        If R >= 0 Then
            X1 = (-TextBox3.Text + (Math.Sqrt(R))) / 2 * TextBox1.Text
            X2 = (-TextBox3.Text - (Math.Sqrt(R))) / 2 * TextBox1.Text

            TextBox4.Text = X1
            TextBox5.Text = X2
        ElseIf R = 0 Then
            X1 = -TextBox3.Text / (2 * TextBox1.Text)
            X2 = -TextBox3.Text / (2 * TextBox1.Text)

            TextBox4.Text = X1
            TextBox5.Text = X2
        Else
            MsgBox("X1 dan X2 tidak bisa ditentukan")
        End If

    End Sub

3.       Untuk Tombol refresh masukkan listing berikut untuk menghapus data yang ada :

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""

4.       Masukkan Listing berikut untuk keluar dari aplikasi :

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End

kOMPONEN :

KOMPONEN	PROPERTIES	KETERANGAN
Form 1	Name Text	Form 1 Menghitung Akar Fungsi Kuadrat
TextBox 1	Name Text	TextBox1
TextBox 2	Name Text	TextBox2
TextBox3	Name Text	TextBox3
TextBox4	Name Text	TextBox4
TextBox5	Name Text	TextBox5
Button 1	Name Text	Button 1 HITUNG
Button 2	Name Text	Button 2 RESET
Button 3	Name Text	Button 3 SELESAI