Membuat Tabel Menu Makanan

BELAJAR PEMROGRAMAN DASAR VISUAL BASIC/studio 2010

                Berikut ini saya akan membuat sebuah aplikasi yang sangat dasar/sederhana menggunakan Visual basic/studio 2010 yaitu “MEMBUAT TABEL MENU MAKANAN DAN MINUMAN”.

Baiklah langsung saja kita memulai, akan lebih barokahnya apabila kita memulai dengan membaca basmalah. Bismillahirrohmaanirrohiimm.

Langkah kedua. Sebelum masuk kedalam VB 2010 maka akan tampil gambar seperti dibawah ini kemudian pilih pada menu “New Project...”

Setelah menekan New Project... maka akan tampil tampilan seperti gambar dibawah ini, kemudian klik/tekan OK

Setelah anda masuk kedalam VB 2010 maka tampilannya akan seperti ini, disana akan ada tampilan Form1 yang berfungsi untuk tempat memasukkan menu yang digunakan pada toolbox, jika toolbox pada layar tidak tampil dan hanya properties saja yang tampil maka ketik pada keyboard anda “Ctrl+Alt+ X

Jika ingin mengganti nama “form1” bisa anda melakukannya dengan mengganti dari properties dengan menggantinya dalam menu “text” dan anda bisa melakukannya dengan menggunakan “koding” agar lebih pasih dalam menggunakan rumus pada VB 2010.

CARANYA dengan mengklik dua kali pada “form1” yang kosong tersebut kemudian ketik rumus atau formulanya.

Dan anda bisa memperbesar lembar kerja/”form1” dengan mengarahkan kursor kearah pojok dari “form1” dan menariknya lebih besar.

Cara mengubah nama “form1” menggunakan nama lain seperti “Latihanku” adalah:

Masukkan rumus ditengah-tengah antara “private sub” dengan “End Sub” seperti dibawah ini:

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

Me.Text = "Latihanku"             Koding yang benar.

End Sub

Setelah anda mengisi koding/rumus maka “RUN” pada menu yaitu “start debugging(F5)” setelah hasilnya keluar maka akan tampil seperti ini.

Jangan lupa ketika anda ingin melanjutkan untuk memasukkan koding/rumus maka stop dulu “RUN”nya dengan menekan icon “X” berwarna merah pada form1/”Latihanku” pada gambar diatas. Atau bisa dilakukan dengan menekan “stop debugging(Ctrl+Alt+Break)”.

Ingat.

mengisi koding harus seperti pada teks diatas, tanpa harus perlu menggunakan “spasi” karena apabila koding/rumusnya memang benar maka secara otomatis koding tersebut mempunyai jarak atau spasi.

                 Baiklah setelah semuanya beres langsung saja kita praktikkan bagaimana cara membuat “tabel menu makanan dan minuman” pada VB 2010.

BAHAN-BAHAN:

-         Dua buah “Groupbox”

-         Empat buah “Label”

-         Empat buah “Textbox”

-         Empat buah “Radiobutton”

-         Dan empat buah “Checkbox”

Aturlah menu form1/”Latihanku” seperti gambar di bawah ini:

Setelah anda mengaturnya seperti ini silahkan anda masuk ke dalam koding pada menu form1/”Latihanku” dengan cara mengklik 2 kali.

Dan masukkanlah koding seperti ini:

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

        Me.Text = "LATIHANKU"

        GroupBox1.Text = "MENU MAKANAN"

        GroupBox2.Text = "MENU MINUMAN"

        Label1.Text = "MAKANAN"

        Label2.Text = "HARGA"

        Label3.Text = "MINUMAN"

        Label4.Text = "HARGA"

        RadioButton1.Text = "Nasi Goreng"

        RadioButton2.Text = "Pecel Lele"

        RadioButton3.Text = "Ayam Bakar"

        RadioButton4.Text = "Sate Pusut"

        CheckBox1.Text = "Es Teler"

        CheckBox2.Text = "Es Alpukat"

        CheckBox3.Text = "Kopi"

        CheckBox4.Text = "Teh Manis"

    End Sub

Setelah anda memasukkan semua koding di atas kemudian kliklah 2 kali pada radio button untuk memasukkan kodingnya agar bisa menampilkan makanan dan harga yang anda pilih.

Contoh:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked = True Then

            TextBox1.Text = "Nasi Goreng"

            TextBox2.Text = "7.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = True Then

            TextBox1.Text = "Pecel Lele"

            TextBox2.Text = "15.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

        If RadioButton3.Checked = True Then

            TextBox1.Text = "Ayam Bakar"

            TextBox2.Text = "20.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

        If RadioButton4.Checked = True Then

            TextBox1.Text = "Sate Pusut"

            TextBox2.Text = "10.000"

        Else

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

INGAT:

Masukkanlah koding diatas secara satu persatu pada setiap “Radiobutton” anda bisa copy paste untuk lebih mempertmudah anda, dan mengganti nomer dari setiap radiobutton tersebut beserta nama menu makanan dan harganya.

Setlah anda menjalankannya atau “RUN” maka hasilnnya seperti ini.

Setelah seperti ini sekarang adalah langkah terakhir anda yaitu memasukkan koding pada “Checkbox” secara satu persatu seperti peraturan pada “Radiobutton” diatas.

Contoh:

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            TextBox3.Text = "Es Teler"

            TextBox4.Text = "6.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then

            TextBox3.Text = "Es Alpukat"

            TextBox4.Text = "9.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked = True Then

            TextBox3.Text = "Kopi"

            TextBox4.Text = "2.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox4.Checked = True Then

            TextBox3.Text = "Teh Manis"

            TextBox4.Text = "2.000"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

End Class

Setelah anda “RUN” maka hasilnya seperti ini.

Sekian tutorial dari saya, dan terimakasih...