Membuat Aplikasi Kasir GUI Sederhana Visual Basic Pakai Visual Studio 2017

Membuat Aplikasi Kasir Rumah Makan Sederhana

 

[caption id="attachment_14898" align="aligncenter" width="640"] aplikasi kasir rumah makan sederhana gui[/caption]

Hai Sobat ind2906??? apa kabar ??? iya pada post kali ini saya akan membagi tutor membuat aplikasi kasir rumah makan sederhana visual basic yang dibuat pakai visual studio 2017. aplikasi sudah bisa export file ke microsoft office dan excel, tinggal kalian sempurnakan lagi ^_^ . yu langsung saja kita mulai.

Sebelum Kalian Membuatnya, terlebih dahulu sudah menginstall visual studio-nya.

Proses Pembuatan :

1. Buka Visual Studio 2017 -> File -> Baru -> Proyek -> Visual Basic -> Formulir Windows.

2. Membuat Desainnya Terlebih dahulu

Desain Form Aplikasi yang ingin dibuat

Dibawah ini desain untuk save ke ms excel nya

Dibawah ini desain untuk save ke ms office nya, jangan lupa buat bookmarknya.

3. Memasukan Coding ke Tombol Hitung

[caption id="attachment_14905" align="aligncenter" width="640"] Tombol Hitung[/caption]

[caption id="attachment_14906" align="aligncenter" width="640"] Tombol Hitung Coding[/caption]

Ini Untuk Coding Tombol Hitung nya

'Tombol Hitung.
Private Sub btnhitung_Click (pengirim Sebagai Obyek, e Sebagai EventArgs) menangani btnhitung.Click
ada Hrgns01 As Integer = 2000
Tidak ada Hrgag01 As Integer = 5000
Tidak ada Hrgss01 As Integer = 5500
Tidak ada Hrgtgr01 As Integer = 3500 Tidak ada Jlhss01 = jmlss01.Text ada Jlhtgr01 = jmltgr01 .text ada Jlhmgr01 = jmlmgr01.Text ada Jlhto01 = jmlto01.Text ada Jlhsg01 = jmlsg01.Text ada Jlhcc01 = jmlcc01.Text ada Jlhat01 = jmlat01.Text ada Jlhtmpd01 = jmltmpd01.Text ada THargatmpd01 As Integer ada THargapi01 As Integer ada THargajs01 As Integer tidak ada THargakp01 As Integer ada THargasu01 As Integer ada THarganut01 As Integer
Dim Hrgmgr01 As Integer = 4500
Dim Hrgto01 As Integer = 3000
Dim Hrgsg01 Sebagai Integer = 4000
Dim Hrgcc01 Sebagai Integer = 2500
Dim Hrgat01 Sebagai Integer = 1000
Dim Hrgtmpd01 Sebagai Integer = 2000
Dim Hrgpi01 Sebagai Integer = 5500
Dim Hrgjs01 Sebagai Integer = 3500
Dim Hrgkp01 Sebagai Integer = 4500
Dim Hrgsu01 Sebagai Integer = 3000
Dim Hrgnut01 Sebagai Integer = 2500
Dim Hrgssd01 As Integer = 4000
Dim Jlhns01 = jmlns01.Text
Tidak ada Jlhag01 = jmlag01.Text ada Jlhpi01 = jmlpi01.Text ada Jlhjs01 = jmljs01.Text ada Jlhkp01 = jmlkp01.Text ada Jlhsu01 = jmlsu01.Text ada Jlhnut01 = jmlnut01.Text ada Jlhssd01 = jmlssd01.Text ada THargans01 As Integer ada THargaag01 As Integer ada THargass01 seperti Integer ada THargatgr01 sebagai Integer ada THargamgr01 sebagai Integer ada THargato01 sebagai Integer

Tue THargasg01 As Integer
Dim THargacc01 As Integer
Dim THargaat01 As Integer Dim THargassd01 As Integer Dim THarga Kebanyakan Integer Jika ns01.Checked Kemudian THargans01 * = Hrgns01 Jlhns01 Lain THargans01 = 0 End If Jika ag01.Checked Kemudian THargaag01 Hrgag01 * = Jlhag01 Lain THargaag01 = 0 End If Jika ss01.Checked Kemudian THargass01 Hrgss01 * = Jlhss01 Lain THargass01 = 0 End If

Jika tgr01.Checked Kemudian
THargatgr01 = Hrgtgr01 * Jlhtgr01
Else
THargatgr01 = 0
End Jika
Jika mgr01.Checked Kemudian
THargamgr01 = Hrgmgr01 * Jlhmgr01
Else
THargamgr01 = 0
End If
Jika to01.Checked Kemudian
THargato01 = Hrgto01 * Jlhto01
Else
THargato01 = 0
End If
Jika sg01 .Checked Kemudian
THargasg01 = Hrgsg01 * Jlhsg01
Else
THargasg01 = 0
Akhir Jika
Jika cc01.Checked Kemudian
THargacc01 = Hrgcc01 * Jlhcc01
Else
THargacc01 = 0
End If
Jika at01.Checked Kemudian
THargaat01 = Hrgat01 * Jlhat01
Else
THargaat01 = 0
End If
Jika tmpd01.Checked Kemudian
THargatmpd01 = Hrgtmpd01 * Jlhtmpd01
Else
THargatmpd01 = 0
End Jika
Jika pi01.Checked Kemudian
THargapi01 = Hrgpi01 * Jlhpi01
Else
THargapi01 = 0
End If
Jika js01.Checked Kemudian
THargajs01 = Hrgjs01 * Jlhjs01
Else
THargajs01 = 0
End If
Jika kp01 .Checked Kemudian
THargakp01 = Hrgkp01 * Jlhkp01
Else
THargakp01 = 0
End If
Jika su01.Checked Kemudian
THargasu01 = Hrgsu01 * Jlhsu01
Else
THargasu01 = 0
End If
Jika nut01.Checked Kemudian
THarganut01 = Hrgnut01 * Jlhnut01
Lain
THarganut01 = 0
End If
Jika ssd01.Checked Kemudian
THargassd01 Hrgssd01 * = Jlhssd01
Lain
THargassd01 = 0
End If
THarga = THargans01 THargaag01 + + + THargass01 THargatgr01 THargamgr01 + + + THargato01 THargasg01 THargacc01 + + + THargaat01 THargatmpd01 THargapi01 + + + THargajs01 THargakp01 THargasu01 + + + THarganut01 THargassd01
ttlharga .Text =
Sub Akhir Ekstrem

4. Memasukan Coding Ketombol Bayar

untuk masukan pengkodean dengan cara yang sama seperti no 3.

Ini Untuk Coding Tombol Bayar nya

'Tombol Bayar.
Private Sub btnbayar_Click(sender As Object, e As EventArgs) Handles btnbayar.Click
Dim bayar As Single
Dim harga As Single
Dim hasil As Single
bayar = dbayar.Text
harga = ttlharga.Text
hasil = bayar - harga
kembalian.Text = hasil
End Sub

5. Memasukan Coding Ketombol Reset

untuk cara input nya masih sama seperti no 3 dan 4

Ini Untuk Coding Tombol Reset nya

'Tombol Reset.
Private Sub btnreset_Click (pengirim As Object, e As EventArgs) Menangani btnreset.Klik
jmlns01.Text = 0
jmlag01.Text = 0
jmlss01.Text = 0
jmltgr01.Text = 0
jmlmgr01.Text = 0
jmlto01.Text = 0
jmlsg01.Text = 0
jmlcc01.Text = 0
jmlat01.Text = 0
jmltmpd01.Text = 0
jmlpi01.Text = 0
jmljs01.Text = 0
jmlkp01.Text = 0
jmlsu01.Text = 0
jmlnut01.Text = 0
jmlssd01.Text = 0
ttlharga.Text = 0
dbayar.Text = 0
kembalian.Text = 0
Sub Akhir

6. Memasukan Coding Ketombol Keluar

cara nya masih sama seperti no 3, 4, dan 5

Ini Untuk Coding Tombol Keluar nya

'Tombol Keluar.
Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click
Dim pesan As String
pesan = MsgBox("Anda yakin akan keluar?", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "Peringatan")
If pesan = MsgBoxResult.Ok Then
End
End If
End Sub

7. Memasukan Coding Ketombol Cetak Word dan Cetak Excel

cara nya masih sama seperti sebelum nya.

Dan ini adalah kodingnya

'tombol save word.
Private Sub cw_Click(sender As Object, e As EventArgs) Handles cw.Click
Dim aplikasi As New word.Application
Dim filenya As word.Document
filenya = aplikasi.Documents.Open("Documents\rumah-makan.docx")
filenya.Bookmarks("mnmakanan").Select()
aplikasi.Selection.TypeText(ns01.Text)
aplikasi.Selection.TypeText(ag01.Text)
aplikasi.Selection.TypeText(ss01.Text)
aplikasi.Selection.TypeText(tgr01.Text)
aplikasi.Selection.TypeText(mgr01.Text)
aplikasi.Selection.TypeText(to01.Text)
aplikasi.Selection.TypeText(sg01.Text)
aplikasi.Selection.TypeText(cc01.Text)
filenya.Bookmarks("hrgmakanan").Select()
aplikasi.Selection.TypeText(hgns01.Text)
aplikasi.Selection.TypeText(hgag01.Text)
aplikasi.Selection.TypeText(hgss01.Text)
aplikasi.Selection.TypeText(hgtgr01.Text)
aplikasi.Selection.TypeText(hgmgr01.Text)
aplikasi.Selection.TypeText(hgto01.Text)
aplikasi.Selection.TypeText(hgsg01.Text)
aplikasi.Selection.TypeText(hgcc01.Text)
filenya.Bookmarks("jmlmakanan").Select()
aplikasi.Selection.TypeText(jmlns01.Text)
aplikasi.Selection.TypeText(jmlag01.Text)
aplikasi.Selection.TypeText(jmlss01.Text)
aplikasi.Selection.TypeText(jmltgr01.Text)
aplikasi.Selection.TypeText(jmlmgr01.Text)
aplikasi.Selection.TypeText(jmlto01.Text)
aplikasi.Selection.TypeText(jmlsg01.Text)
aplikasi.Selection.TypeText(jmlcc01.Text)
filenya.Bookmarks("mnminuman").Select()
aplikasi.Selection.TypeText(at01.Text)
aplikasi.Selection.TypeText(tmpd01.Text)
aplikasi.Selection.TypeText(pi01.Text)
aplikasi.Selection.TypeText(js01.Text)
aplikasi.Selection.TypeText(kp01.Text)
aplikasi.Selection.TypeText(su01.Text)
aplikasi.Selection.TypeText(nut01.Text)
aplikasi.Selection.TypeText(ssd01.Text)
filenya.Bookmarks("hrgminuman").Select()
aplikasi.Selection.TypeText(hgat01.Text)
aplikasi.Selection.TypeText(hgtmpd01.Text)
aplikasi.Selection.TypeText(hgpi01.Text)
aplikasi.Selection.TypeText(hgjs01.Text)
aplikasi.Selection.TypeText(hgkp01.Text)
aplikasi.Selection.TypeText(hgsu01.Text)
aplikasi.Selection.TypeText(hgnut01.Text)
aplikasi.Selection.TypeText(hgssd01.Text)
filenya.Bookmarks("jmlminuman").Select()
aplikasi.Selection.TypeText(jmlat01.Text)
aplikasi.Selection.TypeText(jmltmpd01.Text)
aplikasi.Selection.TypeText(jmlpi01.Text)
aplikasi.Selection.TypeText(jmljs01.Text)
aplikasi.Selection.TypeText(jmlkp01.Text)
aplikasi.Selection.TypeText(jmlsu01.Text)
aplikasi.Selection.TypeText(jmlnut01.Text)
aplikasi.Selection.TypeText(jmlssd01.Text)
filenya.Bookmarks("ttlharga").Select()
aplikasi.Selection.TypeText(ttlharga.Text)
filenya.Bookmarks("dbayar").Select()
aplikasi.Selection.TypeText(dbayar.Text)
filenya.Bookmarks("kembalian").Memilih()
aplikasi.Selection.TypeText (kembalian.Text)
MsgBox ("sukses")
aplikasi.Visible = True
End Sub
'tombol save excel.
Sub Pribadi Subjek_Klik (pengirim Sebagai Objek, e Sebagai EventArgs) Menangani ce.Klik
Dim AppExcelnya Sebagai Baru excel.Application

Dim ExcelWB Sebagai excel.Workbook

ExcelWB = AppExcelnya.Workbooks.Open ("Dokumen \ rumah-makan.xlsx")

AppExcelnya.Range ("A2"). Value = ns01.Text
AppExcelnya.Range ("A3"). Value = ag01.Text
AppExcelnya.Range ("A4"). Value = ss01.Text
AppExcelnya.Range ("A5") .Value = tgr01.Text
AppExcelnya.Range ("A6"). Value = mgr01.Text
AppExcelnya.Range ("A7"). Value = to01.Text
AppExcelnya.Range ("A8"). Value = sg01.Text
AppExcelnya. Rentang ("A9"). Nilai = cc01.Teks

AppExcelnya.Range ("B2"). Value = hgns01.Text
AppExcelnya.Range ("B3"). Value = hgag01.Text
AppExcelnya.Range ("B4"). Value = hgss01.Text
AppExcelnya.Range ("B5") .Value = hgtgr01.Text
AppExcelnya.Range ("B6"). Value = hgmgr01.Text
AppExcelnya.Range ("B7"). Value = hgto01.Text
AppExcelnya.Range ("B8"). Value = hgsg01.Text
AppExcelnya. Rentang ("B9"). Nilai = hgcc01.Text

AppExcelnya.Range ("C2"). Value = jmlns01.Text
AppExcelnya.Range ("C3"). Value = jmlag01.Text
AppExcelnya.Range ("C4"). Value = jmlss01.Text
AppExcelnya.Range ("C5") .Value = jmltgr01.Text
AppExcelnya.Range ("C6"). Value = jmlmgr01.Text
AppExcelnya.Range ("C7"). Value = jmlto01.Text
AppExcelnya.Range ("C8"). Value = jmlsg01.Text
AppExcelnya. Rentang ("C9"). Nilai = jmlcc01.Text

AppExcelnya.Range ("D2"). Value = at01.Text
AppExcelnya.Range ("D3"). Value = tmpd01.Text
AppExcelnya.Range ("D4"). Value = pi01.Text
AppExcelnya.Range ("D5") .Value = js01.Text
AppExcelnya.Range ("D6"). Value = kp01.Text
AppExcelnya.Range ("D7"). Value = su01.Text
AppExcelnya.Range ("D8"). Value = nut01.Text
AppExcelnya. Rentang ("D9"). Nilai = ssd01.Teks

AppExcelnya.Range ("E2"). Value = hgat01.Text
AppExcelnya.Range ("E3"). Value = hgtmpd01.Text
AppExcelnya.Range ("E4"). Value = hgpi01.Text
AppExcelnya.Range ("E5") .Value = hgjs01.Text
AppExcelnya.Range ("E6"). Value = hgkp01.Text
AppExcelnya.Range ("E7"). Value = hgsu01.Text
AppExcelnya.Range ("E8"). Value = hgnut01.Text
AppExcelnya. Rentang ("E9"). Nilai = hgssd01.Text

AppExcelnya.Range ("F2"). Value = jmlat01.Text
AppExcelnya.Range ("F3"). Value = jmltmpd01.Text
AppExcelnya.Range ("F4"). Value = jmlpi01.Text
AppExcelnya.Range ("F5") .Value = jmljs01.Text
AppExcelnya.Range ("F6"). Value = jmlkp01.Text
AppExcelnya.Range ("F7"). Value = jmlsu01.Text
AppExcelnya.Range ("F8"). Value = jmlnut01.Text
AppExcelnya. Rentang ("F9"). Nilai = jmlssd01.Text

AppExcelnya.Range ("G2"). Value = ttlharga.Text
AppExcelnya.Range ("H2"). Value = dbayar.Text
AppExcelnya.Range ("I2"). Value = kembalian.Text

ExcelWB.SaveAs ("Documents \ rumah-makan.xlsx")
MsgBox ("sukses")

AppExcelnya.Visible =
Sub Akhir Benar

dan jangan lupa tambahkan include ini ke paling atas

Impor kata = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel

jika semua nya sudah silakan dicoba run hasil coding nya.

[caption id="attachment_14908" align="aligncenter" width="640"] Aplikasi Kasir[/caption]

[caption id="attachment_14907" align="aligncenter" width="640"] Aplikasi Kasir[/caption]

[caption id="attachment_14909" align="aligncenter" width="640"] aplikasi kasir[/caption]

 

Sekian Proses Pembuatan Aplikasi Kasir Rumah Makan Sederhana ini, Nantikan Terus Update Artikel Seru Lain nya hanya di www.IND2906.me, Semoga bermanfaat... :)

Bila ada yang ingin ditanyakan silakan komentar dibawah ini, nanti akan saya jawab satu persatu.

Bila ingin mempublikasikan kembali artikel ini untuk kepentingan blog, website, tugas, dll. tolong sertakan sumber alamat link url website kami, Terima Kasih

-Kunjungin Juga Sosial Media Kami-

Facebook

Instagram

Fanspage

Share this post