Interface Menu Transaksi Makanan Kantin Menggunakan Vb.net

Bagi teman2 yg ingin belajar men-design interface Menu Transaksi Makanan Kantin datpat menggunakan aplikasi Vb.net.......Saya di sini akan membantu teman2 dalam membikin Interface nya..
Pertama teman2 hrus membuka aplikasi vb.net menggunakan Visual Studio 2010, setelah itu kita mulai men-design nya dgn memilih Label yang terdapat di Menu Toollbox, Label ini berfungsi untuk membikin Tulisan yang kita ingin kan,misalnya di gambar: Makanan.
Setelah itu kita men-design Check Box, saya memilih check box karena dalam Menu makanan terdapat banyak jenis makan, sihingga apa bila kita menginginkan lebih dari satu makanan maka, kita hanya mencheck box nya ajaa...berbeda dengan ComboBox, tool ini tidak dapat memilih makan, lebih dari satu,,,,,
Selanjutnya men-design menu transaksi nya dengan memasukkan toll Text Box, ini berfungsi untuk menampilkan harga makanan, sub total,ppn, jumlah bayar, dan uang kembali....
Kemudian yg terakhir kita men-design Button Hitung, Clear, dan Close..toll Hitung ini untuk mengitung transaksi yang telah kita pilih tadi....
CUKUP mudah bukannnn...hehhehehheheh.....

Note: jangan lupa me nganti name properties nya ya sesuai di script......

Untuk Finishing nya kita masukkan source code nya...
Public Class kantin
Dim a, b, c, d, en, f, g, h, i As Integer

Private Sub bebek_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bebek.CheckedChanged
Dim z As Boolean

z = Val(bebek.Checked)

If z = True Then
a = "11000"

Else
a = "0"
End If
End Sub

Private Sub pecel_lele_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pecel_lele.CheckedChanged
Dim z As Boolean

z = Val(pecel_lele.Checked)

If z = True Then
b = "4300"

Else
b = "0"
End If
End Sub

Private Sub ayam_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ayam.CheckedChanged
Dim z As Boolean

z = Val(ayam.Checked)

If z = True Then
c = "9500"

Else
c = "0"
End If
End Sub

Private Sub kopi_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kopi.CheckedChanged
Dim z As Boolean

z = Val(kopi.Checked)

If z = True Then
d = "2000"

Else
d = "0"
End If
End Sub

Private Sub es_teh_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles es_teh.CheckedChanged
Dim z As Boolean

z = Val(es_teh.Checked)

If z = True Then
en = "3500"

Else
en = "0"
End If

End Sub

Private Sub es_campur_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles es_campur.CheckedChanged
Dim z As Boolean

z = Val(es_campur.Checked)

If z = True Then
f = "8500"

Else
f = "0"
End If
End Sub

Private Sub pisang_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pisang.CheckedChanged
Dim z As Boolean

z = Val(pisang.Checked)

If z = True Then
g = "800"

Else
g = "0"
End If
End Sub

Private Sub pepaya_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pepaya.CheckedChanged
Dim z As Boolean

z = Val(pepaya.Checked)

If z = True Then
h = "1300"

Else
h = "0"
End If

End Sub

Private Sub melon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles melon.CheckedChanged
Dim z As Boolean

z = Val(melon.Checked)

If z = True Then
i = "4000"

Else
i = "0"
End If
End Sub

Private Sub btHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHitung.Click
Dim j_kem, j_byr, tot_b, paj, sub_tot, m, k, l, n, o, p, q, r, s, aa, bb, ddd As New Long

m = Val(tbBebek.Text)
k = Val(tbPecel.Text)
l = Val(tbAyam.Text)
n = Val(tbKopi.Text)
o = Val(tbTeh.Text)
p = Val(tbEs.Text)
q = Val(tbPisang.Text)
r = Val(tbPepaya.Text)
s = Val(tbMelon.Text)

aa = Val(b_makan.Text)
bb = Val(b_minum.Text)
ddd = Val(b_buah.Text)

sub_tot = Val(sub_total.Text)
paj = Val(pajak.Text)
tot_b = Val(total_bayar.Text)
j_byr = Val(jmlh_byr.Text)
j_kem = Val(jmlh_kembali.Text)
aa = (m * a) + (k * b) + (l * c)
bb = (n * d) + (o * en) + (p * f)
ddd = (q * g) + (r * h) + (s * i)
sub_tot = aa + bb + ddd
paj = sub_tot * 0.1
tot_b = sub_tot + paj
j_kem = j_byr - tot_b
sub_total.Text = Format(sub_tot, "Rp ###,###.#0")
pajak.Text = Format(paj, "Rp ###,###.#0")
total_bayar.Text = Format(tot_b, "Rp ###,###.#0")
jmlh_kembali.Text = Format(j_kem, "Rp ###,###.#0")


b_makan.Text = Format(aa, "Rp ###,###")
b_minum.Text = Format(bb, "Rp ###,###")
b_buah.Text = Format(ddd, "Rp ###,###")

End Sub

Private Sub btClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click
Me.Close()
End Sub

Private Sub btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click

Me.tbBebek.Clear()
Me.tbPecel.Clear()
Me.tbAyam.Clear()
Me.tbKopi.Clear()
Me.tbTeh.Clear()
Me.tbEs.Clear()
Me.tbPisang.Clear()
Me.tbPepaya.Clear()
Me.tbMelon.Clear()


Me.sub_total.Clear()
Me.pajak.Clear()
Me.total_bayar.Clear()
Me.jmlh_kembali.Clear()
Me.jmlh_byr.Clear()
Me.tbBebek.Focus()
End Sub
End Class


sampai di sini dulu ya..kepada teman2 yg membaca artikel ini semoga bermanfaat...

Tips Sukses Belajar Pemrograman

Dalam artikel kali ini saya akan memaparkan beberapa tips bagaimana cara sukses belajar pemrograman.

Tidak tahu mengapa, bahwa ilmu tentang pemrograman ini gampang-gampang susah. Gampang ketika dijelasin cara bikin program oleh sang dosen. OO…. ternyata cuman gitu aja to… Tapi kalau ada tugas atau disuruh bikin program dari suatu studi kasus tertentu, banyak yang mengeluh… wah kok sulit ya… trus ujung-ujungnya copas miliknya teman

Memang modal dasar pemrograman hanyalah penguasaan pada logika dan algoritma. Pelajaran logika, telah kita terima di pelajaran matematika SMU. So.. saya yakin para programmer pemula pasti sudah menguasai hal ini. Nah… yang terpenting adalah algoritma.

Perlu menjadi catatan di sini adalah, algoritma bukanlah teori maupun rumus yang perlu dihapalkan. Untuk belajar algoritma, perlu banyak waktu dan latihan. Tips untuk belajar algoritma hanyalah dengan memperbanyak latihan bagaimana mencari langkah-langkah solusi secara logis. Kalau perlu buat masalah sendiri dan cari langkah solusinya. Selain itu jangan hanya puas dengan mengerjakan tugas dari dosen. Karena tugas dari dosen itu scope nya kecil… masih banyak hal lain di luar tugas dosen yang perlu dieksplorasi.

Nah… terkadang, programmer pemula kesulitan dalam mengekspresikan algoritma yang ada di benaknya ke dalam bentuk algoritma pemrograman. Misalnya “saya sebenarnya tahu cara mencari nilai n faktorial, tapi kok rasanya sulit mengekspresikan ke dalam algoritma pemrogramannya?”. Hal ini juga perlu banyak latihan dan juga dengan melihat banyak contoh-contoh algoritma yang ada. Pelajari bagaimana teknik pengekspresian algoritma.

Terkadang… untuk menentukan algoritma penyelesaian suatu kasus itu muncul karena insting sang programmer. Nah… insting ini muncul kalo penguasaan atau jam terbang sang programmer sudah banyak.

Setelah konsep algoritma ini dikuasai, silakan Anda memilih salah satu jenis bahasa pemrograman yang disukai. Pada prinsipnya, jika konsep algoritma sudah dipegang, mau pindah ke bahasa pemrograman apapun bisa, karena bila sudah masuk ke bahasa pemrograman, fokusnya ke penguasaan sintaks atau aturan penulisan perintah. Nah.. sintaks ini bisa dihapalkan.

Saran saya, sebaiknya kita menguasai lebih dari satu bahasa pemrograman. Mengapa demikian? Ya… karena lapangan kerja tidak hanya membutuhkan satu jenis bahasa pemrograman saja. Misalnya perusahaan X butuh programmer Java, sedangkan perusahaan Y butuh programmer C++ dsb. Semakin banyak bahasa pemrograman yang kita kuasai, maka semakin baik dan bisa lebih berpotensi bagi karir kita.

Ok mudah-mudahan berguna bagi Anda para new comer di bidang programmer.

Satu lagi saran saya… “JANGAN MUDAH MENYERAH”.