Langsung ke konten utama

Pembahasan

4.Pembahasan

Kegiatan yang dilakukan penulis di Sys SolusIndo adalah membuat aplikasi kasir atau transaksi sederhana. Di sini penulis membuat aplikasi desktop yang mudah dipelajari oleh calon petugas kasir pemula. Dalam hal ini penulis menggunakan aplikasi visual studio sehingga memudahkan pengguna untuk mempelajarinya.

Adapun langkah-langkah pembuatan aplikasi kasir sederhana itu sebagi berikut:

1.Download Visual Studio

2.Setelah membuka aplikasi visual studio, buatlah project new

Pilihlah Windows Forms Application, lalu tekan/klik OK.

Berikut tampilan yang akan muncul


3. akan muncul awalan lembar kosong seperti ini

 maka buatlah tampilan seperti ini

-Pada tulisan NamaBarang,jumlahbarang,cash,kembalian adalah Label.

-Button tersebut adalah fungsi pada aplikasi yang akan dibuat.

-Ini adalah toolbox yang akan kalian gunakan

Yang kita gunakan adalah button,combobox,label,text box.

-kalian menggantu nama pada label,dan button dalam properties saat kalian klik button di aplikasi tadi       
Kalian bias mengganti nya di Text tersebut ,terserah anda mau menamainya.

3.kita mulai script dibaggian fungsi” tadi.

Kalian bisa melakukan dengan klik 2x pada button tersebut.
klik lah 2kali pada form dan salin lah script dibawah.
Public Class Form2

    Public conn As MySqlConnection

    Public cmd As MySqlCommand

    Public rd As MySqlDataReader

    Public da As MySqlDataAdapter

    Public ds As DataSet

    Public str As String

    Dim Bajuoblong, jaket, celana, Jumlah_Barang, Jumlah_Pembayaran, Uang_Pembayaran, Sisa As Integer


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

        Uang_Pembayaran = Val(TextBox1.Text)

        Sisa = Uang_Pembayaran - Jumlah_Pembayaran

        TextBox4.Text = Sisa

    End Sub


    Private Sub EndSub()

        Throw New NotImplementedException

    End Sub


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

        Bajuoblong = 45000

        jaket = 100000

        celana = 50000

        Jumlah_Barang = Val(TextBox2.Text)

        If ComboBox1.Text = "Bajuoblong" Then

            Jumlah_Pembayaran = Bajuoblong * Jumlah_Barang

            TextBox3.Text = Jumlah_Pembayaran

        ElseIf ComboBox1.Text = "jaket" Then

            Jumlah_Pembayaran = jaket * Jumlah_Barang

            TextBox3.Text = Jumlah_Pembayaran

        ElseIf ComboBox1.Text = "celana" Then

            Jumlah_Pembayaran = celana * Jumlah_Barang

            TextBox3.Text = Jumlah_Pembayaran

        Else

            MsgBox("MASUKAN INPUT BARANG", MsgBoxStyle.Critical, "mesin kasir")


        End If

    End Sub


End Class


script pada fungsi - fungsi tadi.

Setela selesai lakukan Run  tombol play warna hijau kita klik.

5.Langkah terakhir adalah menjalakan aplikasi tersebut

Komentar

Postingan populer dari blog ini

Biodata Siswa

1.BIODATA SISWA NAMA                                : Sebastian Jody Elroy Tempat /Tanggal lahir       :Gianyar,02 Mei 2002 NISN                                  :0023093905 Kelas                                 :XI RPL A Kompetensi Keahlian         : Rekayasa Perankat Lunak

Profile Perusahaan

2.PROFILE PERUSAHAAN Sys Solusindo adalah sebuah kelompok usaha pemula di bidang software yang didirikan pada tahun 1996 oleh sekelompok profesional di bídang manajemen, ekonomi, akuntansi, hukum dan Teknologi Informasi. Untuk bidang Teknologi Informasi, tim ini telah mencíptakan framework dalam pembuatan Aplikasi Sistem Informasi Manajemen berbasis dokumen. Framework ini dínamakan Integrated Data and Document Management Engine yang disingkat ID2M Engine. Pada tahun 2004, kelompok usaha ini mendeklarasikan sebagai sebuah badan hukum dengan nama PT. TEGAR SAKTI BINA MUARA menggunakan nama Sysindo sebagai brand yang hingga kini terus berkarya bersama dengan kekuatan 25 orang tenaga IT dan 8 orang Periset Ahli.