Cara membuat coding makanan dan minuman menggunakan visual basic 2010

Berikut ini saya akan “MEMBUAT TABEL MENU MAKANAN DAN MINUMAN”. melalui coding
Baiklah langsung saja kita memulai, akan lebih barokahnya apabila kita memulai dengan membaca basmalah. Bismillahirrohmaanirrohiimm.

Langkah pertama membuka aplikasi Visual Studio 2010. Klik shortcut VB 2010 pada menu desktop.

Contoh:

Atau bisa melalui start  All Program  Microsoft Visual Studio 2010

Contoh:

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  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 “coding” agar lebih pasih dalam menggunakan rumus pada VB 2010.

CARANYA :

 dengan mengklik dua kali pada “form1” yang kosong tersebut kemudian ketik rumus nya

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.

Apabila anda memasukkan koding/rumus kemudian ada garis bawah pada koding tersebut maka anda memasukkan koding dengan cara yang salah.

Contoh koding yang benar dan setelah di “RUN” seperti gambar dibawah ini:

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 = "bakso"

        RadioButton2.Text = "mie ayam"

        RadioButton3.Text = "Ayam Bakar"

        RadioButton4.Text = "nasi padang"

        CheckBox1.Text = "Es Teh manis"

        CheckBox2.Text = "Es kelapa muda"

        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 = "bakso"

            TextBox2.Text = "Rp.15.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 = "mie ayam"

            TextBox2.Text = "Rp.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 = "Rp.17.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 = "nasi padang"

            TextBox2.Text = "Rp.12.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 = "Rp.6.000"

            TextBox4.Text = "Es teh manis"

        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 = "Rp.6.000"

            TextBox4.Text = "Es kelapa muda"

        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 = "Rp.2.500"

            TextBox4.Text = "Kopi"

        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 = " Rp.3.000"

            TextBox4.Text = "Teh Manis"

        Else

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

End Class

Setelah anda “RUN” maka hasilnya seperti ini.

Sekian tutorial dari saya, dan terimakasih...  kalau ada salah kata mohon di maklumi. dan kalau ada salah ketikan tinggalkan pesan

“SELAMAT MENCOBA”

GOOD LUCK