Tutorial Membuat Program Menghitung Nilai Akar dari Fungsi Kuadrat dengan Visual Basic 2010

Kadangkala kita entah bingung atau malas untuk menghitung  akar dari suatu persamaan kuadrat apalagi kalau konstanta dari varialbelnya besar. Oleh karena itu, kita bisa mengatasinya dengan membuat suatu program untuk mennghitungnya.

Berikut adalah tutorial untuk membuat suatu program aplikasi sederhana untuk menghitung akar dari suatu persamaan kuadrat  dengan menggunakan Visual Basic 2010.

1.       Buka Visual Basic 2010, Pilih “New Project”, lalu pilih “Windows Form Application” dan klik “Oke”

2.       Buat tampilan interface menggunakan toolbox dengan tampilan seperti berikut

3.       Lalu text tiap label, textbox dan combobox diganti, hingga menjadi seperti berikut

4.       Kamu bisa juga menambahkan gambar background agar lebih menarik, seperti

Caranya : pada properties Form1 di bagian “BackgroundImage”, untuk posisinya bisa kamu ubah-ubah pada properties Form1 di bagian “BackgroundImageLayout”

5.       Lalu masukkan listing berikut

Public Class Form1

    Private Sub Button1_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseHover

        If ComboBox1.Text = "+/-" Or ComboBox2.Text = "+/-" Or ComboBox3.Text = "+/-" Then

            MsgBox("Pilih tanda terlebih dahulu")

            Exit Sub

        ElseIf TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then

            MsgBox("Masukkan nilai terlebih dahulu")

            Exit Sub

        End If

    End Sub

Keterangan :

·         Listing ini dimaksudkan untuk jika pengguna belum mengisi nilai dan tanda plus minus dengan lengkap maka pada saat kursor pengguna berada di atas tomol “hitung” akan keluar message box yang bertuliskan “Pilih tanda terlebih dahulu”

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim A, B, C, D, X1, X2 As Integer

        A = Val(TextBox1.Text)

        B = Val(TextBox2.Text)

        C = Val(TextBox3.Text)

        If ComboBox1.Text = "-" Then

            A = -1 * Val(TextBox1.Text)

        ElseIf ComboBox2.Text = "-" Then

            B = -1 * Val(TextBox2.Text)

        ElseIf ComboBox3.Text = "-" Then

            C = -1 * Val(TextBox3.Text)

        End If

        D = B ^ 2 - (4 * A * C)

        If D > 0 Then

            X1 = (-B + Math.Sqrt(D)) / 2 * A

            X2 = (-B - Math.Sqrt(D)) / 2 * A

            Label6.Text = X1

            Label7.Text = X2

        ElseIf D = 0 Then

            X1 = -B / (2 * A)

            X2 = -B / (2 * A)

            Label6.Text = X1

            Label7.Text = X2

        Else

            MsgBox("Tidak memiliki akar kuadrat")

        End If

    End Sub

Keterangan :

·         Listing ini digunakan untuk menghitung nilai X1 dan X2 serta menampilkannya jika kita menekan tombol “hitung”

·         Nilai A merupakan nilai dari textbox1, B merupakan nilai dari textbox2 dan C merupakan nilai dari Textbox 3 yang diisikan dari pengguna

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

        Close()

    End Sub

Keterangan :

·         Listing ini digunakan untuk menutup program jika kita menekan tombol “keluar”

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

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If Not masukan Then e.Handled = True

    End Sub

Keterangan :

·         Listing ini digunakan agar textbox1 yang akan diisi oleh pengguna hanya bisa diisi dengan angka

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

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If Not masukan Then e.Handled = True

    End Sub

Keterangan

·         Listing ini digunakan agar textbox2 yang akan diisi oleh pengguna hanya bisa diisi dengan angka

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

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If Not masukan Then e.Handled = True

    End Sub

Keterangan

·         Listing ini digunakan agar textbox3 yang akan diisi oleh pengguna hanya bisa diisi dengan angka

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        Label6.Text = "......."

        Label7.Text = "......."

        ComboBox1.Text = "+/-"

        ComboBox2.Text = "+/-"

        ComboBox3.Text = "+/-"

    End Sub

Keterangan

·         Listing ini digunakan untuk mengosongkan kembali tiap nilai jika kita menekan tombol “reset”

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

        e.Handled = False

    End Sub

Keterangan

·         Listing ini digunakan agar pengguna tidak bisa menuliskan apapun pada combobox1, pengguna hanya bisa memilih item yang ada pada combobox1

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

        e.Handled = False

    End Sub

Keterangan

·         Listing ini digunakan agar pengguna tidak bisa menuliskan apapun pada combobox2, pengguna hanya bisa memilih item yang ada pada combobox2

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

        e.Handled = False

    End Sub

Keterangan

·         Listing ini digunakan agar pengguna tidak bisa menuliskan apapun pada combobox1, pengguna hanya bisa memilih item yang ada pada combobox1

End Class

 Nah, mudah bukan? Kamu juga bisa untuk mendownload programnya disini

FLOWCHART BANGUN

Keterangan :

·         A = Combobox1

·         B = Combobox2

·         C = Ovalshape1.visible

·         D = Ovalshape2.visible

·         E = Backcolor

Tutorial Membuat Program Pendaftaran dalam Visual Basic 2010

Salah satu contoh program pendaftaran yang  kelompok kami  telah buat adalah proram formulir pendaftaran Industry Cooking Festival. Dalam pembuatan program ini, dibutuhkan 2 form, form yang pertama merupakan form dimana pengguna akan mengisikan data dan form yang kedua memperlihatkan rekap dari data yang telah diisikan pengguna. Berikut cara pembuatannya.

Form 1

1.      

Dalam pembuatan form ini komponen toolbox yang digunakan yaitu :

No	Komponen	Properties	Keterangan
1	Form1	Name	Form Pendaftaran
		BackgroundImage	Pilih gambar dari file
2	Label1	Name	Label1
		Text	Formulir Pendaftaran Industry Cooking Festival
		Font	Lucida Calligraphy
3	Label2	Name	Label2
		Text	NAMA
4	Label3	Name	Label3
		Text	TEMPAT DAN TANGGAL LAHIR
5	Label4	Name	Label4
		Text	JENIS KELAMIN
6	Label5	Name	Label5
		Text	ALAMAT DI SEMARANG
7	Label6	Name	Label6
		Text	ANGKATAN TAHUN
8	Label7	Name	Label7
		Text	NO. Hp
9	TextBox1	Name	TextBox1
10	TextBox2	Name	TextBox2
11	TextBox3	Name	TextBox3
12	TextBox4	Name	TextBox4
13	ComboBox1	Name	ComboBox1
		Items	1
			2
			3
			4
			5
			6
			7
			8
			9
			10
			11
			12
			13
			14
			15
			16
			17
			18
			19
			20
			21
			22
			23
			24
			25
			26
			27
			28
			29
			30
			31
14	ComboBox2	Name	ComboBox2
		Items	Januari
			Februari
			Maret
			April
			Mei
			Juni
			Juli
			Agustus
			September
			Oktober
			November
			Desember
15	ComboBox3	Name	ComboBox3
		Items	1980
			1981
			1982
			1983
			1984
			1985
			1986
			1987
			1988
			1989
			1990
			1991
			1992
			1993
			1994
			1995
			1996
			1997
			1998
			1999
			2000
16	ComboBox4	Name	ComboBox4
		Items	Laki - laki
			Perempuan
17	ComboBox5	Name	ComboBox5
		Items	2000
			2001
			2002
			2003
			2004
			2005
			2006
			2007
			2008
			2009
			2010
			2011
			2012
18	Button1	Name	Button1
		Text	Daftar
19	Buttom2	Name	Button2
		Text	Bersihkan
20	Button3	Name	Button3
		Text	Keluar

Setelah tampilan dari form jadi, kemudian masukkan listing code berikut :

Public Class Form1

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

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (masukan) Then e.Handled = True

            End Sub

            Keterangan :

·         Baris pertama menentukan jika variabel “masukan” adalah boolean yang nilai benarnya adalah variabel char

·         Baris kedua menginstruksikan apabila sesuatu yang menjadi “masukan” bukan berupa data char, maka keypress (tombol keyboard) menjadi tidak berfungsi

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

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (masukan) Then e.Handled = True

            End Sub

            Keterangan :

·         Baris pertama menentukan jika variabel “masukan” adalah boolean yang nilai benarnya adalah variabel char

·         Baris kedua menginstruksikan apabila sesuatu yang menjadi “masukan” bukan berupa data char, maka keypress (tombol keyboard) menjadi tidak berfungsi

·         Hal ini dimaksudkan agar pengguna tidak bisa memasukkan angka dalam textbox untuk pengisian nama

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

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

            End Sub

Keterangan :

·         Baris pertama menentukan jika variabel “masukan” adalah boolean yang nilai benarnya adalah variabel char

·         Baris kedua menginstruksikan apabila sesuatu yang menjadi “masukan” berupa data char, maka keypress (tombol keyboard) menjadi tidak berfungsi

·         Hal ini dimaksudkan agar pengguna tidak bisa memasukkan alfabet dalam textbox untuk pengisian nomor handphone

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

        e.Handled = True

            End Sub

            Keterangan :

·         ComboBox1 tidak akan bisa diiskan masukan yang berasal dari keyboard

·         Hal ini dimaksudkan agar pengguna hanya dapat memilih dari pilihan yang terdapat pada ComboBox1 untuk pengisian tanggal lahir

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

        e.Handled = True

            End Sub

            Keterangan :

·         ComboBox2 tidak akan bisa diiskan masukan yang berasal dari keyboard

·         Hal ini dimaksudkan agar pengguna hanya dapat memilih dari pilihan yang terdapat pada ComboBox2 untuk pengisian bulan lahir

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

        e.Handled = True

            End Sub

            Keterangan :

·         ComboBox3 tidak akan bisa diiskan masukan yang berasal dari keyboard

·         Hal ini dimaksudkan agar pengguna hanya dapat memilih dari pilihan yang terdapat pada ComboBox1 untuk pengisian tahun lahir

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

        e.Handled = True

            End Sub

            Keterangan :

·         ComboBox4 tidak akan bisa diiskan masukan yang berasal dari keyboard

·         Hal ini dimaksudkan agar pengguna hanya dapat memilih dari pilihan yang terdapat pada ComboBox1 untuk pengisian jenis kelamin

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

        e.Handled = True

            End Sub

            Keterangan :

·         ComboBox5 tidak akan bisa diiskan masukan yang berasal dari keyboard

·         Hal ini dimaksudkan agar pengguna hanya dapat memilih dari pilihan yang terdapat pada ComboBox1 untuk pengisian tahun angkatan

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Then

            MsgBox("Maaf data anda belum lengkap")

        Else

            Form2.Label2.Text = Me.TextBox2.Text

Form2.Label3.Text = Me.TextBox3.Text & ", " & Me.ComboBox1.Text & " " & Me.ComboBox2.Text & " " & Me.ComboBox3.Text

            Form2.Label4.Text = Me.ComboBox4.Text

            Form2.Label5.Text = Me.TextBox3.Text

            Form2.Label6.Text = Me.ComboBox5.Text

            Form2.Label7.Text = Me.TextBox4.Text

            Form2.Show()

            Me.Hide()

        End If

            Keterangan :

·         Baris 1 hingga baris 3 merupakan pengecekan kondisi jika ada salah satu dari textbox atau combobox kosong, maka akan keluar kotak peringatan yang bertuliskan “maaf data anda belum lengkap”

·         Baris 4 hingga baris 13 merupakan instruksi yang akan berjalan apabila kondisi awal tadi tidak terpenuhi

·         Baris 4 hingga 11 merupakan instruksi jika label yang berada di form2 akan sesuai dengan textbox atau combobox yang ada dalam form1

·         Baris 12 merupakan instruksi untuk menampilkan form2

·         Baris 13 merupakan instruksi untuk menyembunyikan form1

·         “Me” merupakan nama untuk form yang dituliskan pada code yang ada dalam form itu

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

        Dim Ctl As Control

        For Each Ctl In Me.Controls

            If TypeOf Ctl Is TextBox Then Ctl.Text = ""

        Next

        For Each Ctl In Me.Controls

            If TypeOf Ctl Is ComboBox Then Ctl.Text = ""

        Next

            End Sub

            Keterangan :

·         Baris 1 menentukan jika “Ctl” dalam form1 adalah control

·         Baris 2 hingga 3 merupakan instruksi untuk tiap Ctl yang merupakan textbox dalam form1, isinya akan dihapus

·         Baris 5 hingga 6 merupakan instruksi untuk tiap Ctl yang merupakan combobox dalam form1, isinya akan dihapus

·         “Next” merupakan lanjutan atau akhir dari instruksi “For”

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

        Me.Close()

            End Sub

            Keterangan :

·         Baris 1 merupakan instruksi untuk menutup form1

Form2

Dalam pembuatan form ini komponen toolbox yang digunakan yaitu :

           

No	Komponen	Properties	Keterangan
1	Form2	Name	Form2
		BackgroundImage	Pilih gambar dari file
2	Label1	Name	Label1
		Text	Rekap Data Pendaftaran
		Font	Lucida Calligraphy
3	Label2	Name	Label2
		Text	Nama
4	Label3	Name	Label3
		Text	TEMPAT DAN TANGGAL LAHIR
5	Label4	Name	Label4
		Text	JENIS KELAMIN
6	Label5	Name	Label5
		Text	ALAMAT DI SEMARANG
7	Label6	Name	Label6
		Text	ANGKATAN TAHUN
8	Label7	Name	Label7
		Text	NO. Hp
9	Label8	Name	Label8
10	Label9	Name	Label9
11	Label10	Name	Label10
12	Label11	Name	Label11
13	Label12	Name	Label12
14	Label13	Name	Label13
15	Label14	Name	Label14
		Text	Pendaftaran Berhasil Selamat Berlomba
		Font	Lucida Calligraphy
16	Button1	Name	Button1
		Text	Keluar
17	Button2	Name	Button2
17		Text	kembali

Setelah tampilan dari form jadi, kemudian masukkan listing code berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Close()

            End Sub

            Keterangan :

·         Baris 1 merupakan instruksi untuk menutup program

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

        Me.Hide()

        Form1.Show()

            End Sub

End Class

Keterangan :

·         Baris 1 merupakan perintah untuk menyembunyikan form ini (form2)

·         Baris 2 merupakan perintah untuk kembali menampilkan form1