ANALISIS LISTING & FLOWCHART AKAR KUADRAT

LISTING PROGRAM AKAR KUADRAT

Public Class Form1

    Dim a As Double

    Dim b As Double

    Dim c As Double

    Dim d As Double

    Dim x1 As Double      

    Dim x2 As Double

(Mendeklrasikan type data dari nilai a,b,c,d,x1,x2)

PADA FORM1 

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

        Me.Text = "AKAR KUADRAT OKE 24" 

    End Sub

(Listing ini digunakan di Form 1 yaitu mengganti text Form1 menjadi akar kuadrat oke 24)

UNTUK MENGHITUNG NILAI XI DAN X2

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))

        x1 = (((b) + Math.Sqrt(d)) / (2 * a))

        x2 = (((b) - Math.Sqrt(d)) / (2 * a))

Kita membuat perumpamaannya. Di program ini textbox1 merupakan nilai a. Nilai a adalah angka yang natinya akan kita input. Texbox 2 untuk nilai b dan textbox3 untuk nilai c. Sementara d adalah perhitungan aritmatika berupa rumus mencari akar-akar kuadrat. Rumus tersebut merupakan rumus ABC mencari akar-akar dari persamaan kuadrat.

        Me.TextBox4.Text = x1

        Me.TextBox5.Text = x2

        Label6.Text = "=0"

        If TextBox5.Text = "NaN" And TextBox4.Text = "NaN" Then

            MsgBox("ERROR")

             

Jika suatu input data yang dmasukkan tidak dapat dihitung dengan rumus abc maka texbox5 dan 4 akan muncul pernyataan NaN dan secara otomatis Msg box muncul dengan peringatan error

       

        If Int(TextBox5.Text) = Int(TextBox4.Text) Then

            TextBox6.Text = "Akar-akarnya KEMBAR"

        Else

            TextBox6.Text = "Akar-Akarnya tidak KEMBAR"

        End If

    End Sub

Kemudian di textbox 6 akan muncul pernyataan akar-akar kembar jika nilai x1 dan x2 nya kembar, tapi jika variabel yang di masukkan menghasilkan akar beda mak textbox 6 akan mucul pernyataan akar-akarnya tidak kembar.

UNTUK ME-RESET

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        Label6.Text = ""

    End Sub

Listing ini menjelaskan apabila kita klik button 2 maka textbox1 sampai textbox6 dan label 6 akan kosong .

UNTUK MENGELUARKAN (EXIT)

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

        Close()

    End Sub

Listing ini menjelaskan apabila kita menklik button 3 maka aplikasi akan berhenti .