Modul 2 - Konsep, Flowchart, Tutorial dan Analisis Listing Program Persamaan Kuadrat

Konsep

Definisi Singkat

Program yang kami buat adalah program pengolah persamaan kuadrat. Dengan menginput persamaan kuadrat yang diketahui, secara otomatis program akan mencari besar X1 dan X2.

Tujuan dan Manfaat

Program ini dibuat untuk mempermudah mahasiswa atau siswa dalam operasi persamaan kuadrat.

Dengan adanya program ini, pengolahan persamaan kuadrat jadi lebih mudah dan cepat.

Sasaran

Sasaran dari pembuatan program ini adalah para siswa dan mahasiswa yang masih menggunakan persamaan kuadrat dalam pelajaran matematika di sekolah atau kuliahnya.

 Flowchart

Tutorial

Pertama-tama bukalah program Visual Basic 2010 dengan cara:
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"   

 4. Setelah muncul halaman New Project pilih “Windows Forms Application”

5. Klik “OK”
6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form

   7. Form diisi dengan berbagai komponen yang didapat melalui "Toolbox"

8. Bentuk Form

 
Komponen Toolbox yang digunakan

Komponen	Properties	Keterangan
Button 1	Name Text	Button 1 Hitung
Button2	Name Text	Button 2 Ulangi
Button 3	Name Text	Button 3 Keluar
Textbox1	Name Text	Textbox1
Label 1	Name Text	Label 1 x² +
Label 2	Name Text	Label 2 x +
Label 3	Name Text	Label 3 = 0
Label 4	Name Text	Label 4 x1 =
Label 5	Name Text	Label 5 x2 =
Textbox4	Name Textl             ReadOnly	Textbox4 True
Textbox5	Name Text ReadOnly	Textbox5 True

Analisis listing

Public Class Form1

    Dim a As Single
    Dim b As Single
    Dim c As Single
    Dim D As Single
    Dim x1 As Single
    Dim x2 As Single

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

Penjelasan :

• Dim merupakan statement.

•  Listing diatas merupakan penjelasan dari masing-masing tipe data.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        D = b ^ 2 - 4 * a * c
        If D < 0 Then
            MsgBox("Akar-akar imajiner")
        Else
            x1 = (-b - D ^ (1 / 2)) / 2 * a
            x2 = (-b + D ^ (1 / 2)) / 2 * a
        End If
        TextBox4.Text = x1
        TextBox5.Text = x2
    End Sub

Penjelasan :

Berfungsi untuk mencari nilai akar-akar persamaan kuadrat. Variable a merupakan nilai dari TextBox1, begitu pula variable b dan variable c. kemudian dihitung nilai D atau determinan. Jika D kurang dari nol maka akan muncul Message Box bertuliskan “Akar-akar imajiner”. Jika D tidak kurang dari nol maka program menghitung nilai x₁ dan x₂ menggunakan rumus di atas. Nilai dari x₁ akan ditampilkan pada TextBox4 dan nilai dari x₂ akan ditampilkan pada TextBox5.

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = Nothing

        TextBox2.Text = Nothing

        TextBox3.Text = Nothing

        TextBox4.Text = Nothing

        TextBox5.Text = Nothing

    End Sub

Penjelasan :

Listing ini berfungsi menghapus data pada TextBox.

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

        Dim Msg = MsgBox("Are you sure want to quit?", vbYesNo, "KONFIRMASI")

   

            Exit Sub

    End Sub

Penjelasan :

Apabila kita menekan tombol Button3 maka akan muncul Message Box dengan pilihan Yes atau No.

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim key As Integer = Char.ConvertToUtf32(e.KeyChar.ToString(), 0)

        If Not (((key >= 48) And (key <= 57)) Or (key = 8) Or (key = 46) Or (key = 45)) Then

            e.Handled = True

        End If

    End Sub

Penjelasan :

• Merupakan fungsi untuk mengisi Textbox1
• Rumus Dim yang tertera merupakan formula agar data yang dapat diinputkan hanya data yang berupa angka.

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim key As Integer = Char.ConvertToUtf32(e.KeyChar.ToString(), 0)

        If Not (((key >= 48) And (key <= 57)) Or (key = 8) Or (key = 46) Or (key = 45)) Then

            e.Handled = True

        End If

    End Sub

Penjelasan :

• Merupakan fungsi untuk mengisi Textbox1
• Rumus Dim yang tertera merupakan formula agar data yang dapat diinputkan hanya data yang berupa angka.

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim key As Integer = Char.ConvertToUtf32(e.KeyChar.ToString(), 0)

        If Not (((key >= 48) And (key <= 57)) Or (key = 8) Or (key = 46) Or (key = 45)) Then

            e.Handled = True

        End If

    End Sub

End Class

Penjelasan :

• Merupakan fungsi untuk mengisi Textbox3
• Rumus Dim yang tertera merupakan formula agar data yang dapat diinputkan hanya data yang berupa angka.