Download G nato store | Software Kasir Buatan Visual Basic 2010

  G-Nato Store adalah program hasil penerapan fungsi aritmatika dari Visual Basic 2010. Program ini merupakan program sederhana dari mesin kasir. Program ini dibuat untuk membantu pelayan kasir dalam menghitung transaksi yang dilakukan dalam pembelian produk. Dalam program ini disajikan nama produk, harga, gambar contoh produk, diskon yang hitung diskon dan diinginkan, dan pembayaran yang dikenakan pada konsumen. Program ini memudahkan pelayan kasir dalam menghitung total harga dengan atau tanpa diskon. G-Nato Store menjual bermacam-macam jenis sepatu merk ternama, seperti Adidas, Nike, Reebok, Lotto, Puma, Speed, Nevada, Piero, TomKins, dan Crocs.
bagi yang mau mendownload full source codenya, silahkan klik link dibawah ini:

DOWNLOAD

Read More

Download G nato Calculator | Calculator buatan Visual Basic 2010

G-Nato Calculator adalah program hasil penerapan fungsi aritmatika dari Visual Basic 2010. Program ini merupakan program penjabaran dari calculator scientific. Program ini dibuat untuk membantu operator dalam menghitung nilai bilangan yang dilakukan dalam operasi perhitungan. Dalam program ini disajikan mirip dengan calculator scientific sesuai dengan tugas yang diberikan pada modul 2 praktikum Teknologi Informasi. G-Nato calculator juga bisa digunakan dalam operasi perhitugan besarnya nilai sin cos tan.

bagi yang mau mendownload silahkan klik link dibawah ini:

full source code:

DOWNLOAD

Read More

Konsep G-nato Calculator Plus | Visual Basic 2010

KONSEP G-NATO CALCULATOR PLUS

     G-Nato Calculator adalah program hasil penerapan fungsi aritmatika dari Visual Basic 2010. Program ini merupakan program penjabaran dari calculator scientific. Program ini dibuat untuk membantu operator dalam menghitung nilai bilangan yang dilakukan dalam operasi perhitungan. Dalam program ini disajikan mirip dengan calculator scientific sesuai dengan tugas yang diberikan pada modul 2 praktikum Teknologi Informasi. G-Nato calculator juga bisa digunakan dalam operasi perhitugan besarnya nilai sin cos tan.

·         TUJUAN PROGRAM G-NATO STORE

1.      Memudahkan operator dalam menghitung nilai operasi perhitungan.

2.      Membantu operasi dalam menghitung transaksi yang dilakukan operator.

3.      Membantu perhitungan transaksi jadi lebih cepat.

·         FUNGSI

Untuk perhitungan sederhana dalam perhitungan operasi matematika, lebih cepat dan efisien penggunaanya.

·         SASARAN

Untuk pengguna kalkulator baik mahasiswa atau yang lain yang akan mengaplikasikan program vb yang sederhana ini  untuk membantu dan memudahkan dalam perhitungan operasi matematika. Dan agar dapat dioperasikan oleh semua kalangan termasuk orang awam seperti siswa ataupun mahasiswa.

Read More

Cara Membuat G nato Store | Aplikasi Kasir dengan VB 2010

TUTORIAL MEMBUAT MESIN KASIR G-NETO STORE

1.      Langkah pertama yang kami lakukan buka program Visual Basic 2010, kemuadian pilih new Project buat form baru.

2.      Buat nama Program dengan Label “G-NATO STORE”, kemudian buat label sesuai yang tertera di dalam project seperti name, address, product, price, count, discount, %, total, cash, refund.

3.      Lalu buat textBox buat masing-masing label di di atas.

4.      Pada Label Product menggunakan ComboBox buat memilih tipe Product-nya disertai dengan gambar product, List Programnya sebagai berikut :

Public Class Form1

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

        Me.ForeColor = Color.Black

        Me.BackColor = Color.Black

        Me.Text = "G-Nato Product"

        With ComboBox1

            .Items.Add("Adidas")

            .Items.Add("Nike")

            .Items.Add("Reebok")

            .Items.Add("Lotto")

            .Items.Add("Puma")

            .Items.Add("Speed")

            .Items.Add("Nevada")

            .Items.Add("Piero")

            .Items.Add("TomKins")

            .Items.Add("Crocs")

        End With

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If TextBox1.Text = "" Then

            MsgBox("You must entry your name!")

            ComboBox1.Text = ""

            TextBox3.Text = ""

        Else

            If TextBox2.Text = "" Then

                MsgBox("please entry your address")

                ComboBox1.Text = ""

                TextBox3.Text = ""

            End If

        End If

       

        If ComboBox1.Text = ("Adidas") Then

            TextBox3.Text = ("650000")

            PictureBox1.Visible = True

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

            PictureBox7.Visible = False

            PictureBox8.Visible = False

            PictureBox9.Visible = False

            PictureBox10.Visible = False

        End If

        If ComboBox1.Text = ("Nike") Then

            TextBox3.Text = ("600000")

            PictureBox1.Visible = False

            PictureBox2.Visible = True

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

            PictureBox7.Visible = False

            PictureBox8.Visible = False

            PictureBox9.Visible = False

            PictureBox10.Visible = False

        End If

        If ComboBox1.Text = ("Reebok") Then

            TextBox3.Text = ("350000")

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = True

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

            PictureBox7.Visible = False

            PictureBox8.Visible = False

            PictureBox9.Visible = False

            PictureBox10.Visible = False

        End If

        If ComboBox1.Text = ("Lotto") Then

            TextBox3.Text = ("275000")

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = True

            PictureBox5.Visible = False

            PictureBox6.Visible = False

            PictureBox7.Visible = False

            PictureBox8.Visible = False

            PictureBox9.Visible = False

            PictureBox10.Visible = False

        End If

        If ComboBox1.Text = ("Puma") Then

            TextBox3.Text = ("250000")

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = True

            PictureBox6.Visible = False

            PictureBox7.Visible = False

            PictureBox8.Visible = False

            PictureBox9.Visible = False

            PictureBox10.Visible = False

        End If

        If ComboBox1.Text = ("Speed") Then

            TextBox3.Text = ("200000")

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = True

            PictureBox7.Visible = False

            PictureBox8.Visible = False

            PictureBox9.Visible = False

            PictureBox10.Visible = False

        End If

        If ComboBox1.Text = ("Nevada") Then

            TextBox3.Text = ("175000")

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

            PictureBox7.Visible = True

            PictureBox8.Visible = False

            PictureBox9.Visible = False

            PictureBox10.Visible = False

        End If

        If ComboBox1.Text = ("Piero") Then

            TextBox3.Text = ("270000")

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

            PictureBox7.Visible = False

            PictureBox8.Visible = True

            PictureBox9.Visible = False

            PictureBox10.Visible = False

        End If

        If ComboBox1.Text = ("TomKins") Then

            TextBox3.Text = ("425000")

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

            PictureBox7.Visible = False

            PictureBox8.Visible = False

            PictureBox9.Visible = True

            PictureBox10.Visible = False

        End If

        If ComboBox1.Text = ("Crocs") Then

            TextBox3.Text = ("275000")

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

            PictureBox7.Visible = False

            PictureBox8.Visible = False

            PictureBox9.Visible = False

            PictureBox10.Visible = True

        End If

    End Sub

5.      Pada Button Payment masukkan list programnya sebagai berikut

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

        If TextBox6.Text = "" Then

            MsgBox("please entry the money")

        Else

            TextBox7.Text = TextBox6.Text - TextBox8.Text

        End If

        If TextBox7.Text = "" Then

            MsgBox("the bill would be known if you entry the money")

        Else

            If TextBox7.Text < 0 Then

                TextBox7.Text = ""

                If TextBox7.Text = "" Then

                    MsgBox(" your money isn't enough! ")

                End If

            End If

        End If

        If TextBox7.Text = "" Then

            MsgBox("sorry, transection is failed")

            TextBox4.Text = ""

            TextBox5.Text = ""

            TextBox6.Text = ""

            TextBox7.Text = ""

            TextBox8.Text = ""

        End If

    End Sub

6.      Pada Button5, button Process masukkan list program untuk menghitung biaya setelah dikenai diskon.

Private Sub Button5_Click_1(sender As System.Object, e As System.EventArgs) Handles Button5.Click

        If TextBox4.Text = "" Then

            MsgBox("please entry the product")

        End If

        If TextBox5.Text = "" Then

            MsgBox("please entry the price")

        Else

            TextBox8.Text = (TextBox4.Text * TextBox3.Text) - (TextBox4.Text * TextBox3.Text * (TextBox5.Text / 100))

        End If

    End Sub

7.      Pada Button3 “Refresh” masukkkan list program sebagai berikut

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        ComboBox1.Text = ""

        PictureBox1.Hide()

        PictureBox2.Hide()

        PictureBox3.Hide()

        PictureBox4.Hide()

        PictureBox5.Hide()

        PictureBox6.Hide()

        PictureBox7.Hide()

        PictureBox8.Hide()

        PictureBox9.Hide()

        PictureBox10.Hide()

        DataGridView1.Hide()

    End Sub

8.      Kemudian buat data Grid View untuk memasukkan data product yang akan dibeli oleh customer. Buat Button4 “Input” dan masukkan listnya.

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

        With Me.DataGridView1.Rows.Add(Me.TextBox1.Text, TextBox2.Text, ComboBox1.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, TextBox6.Text, TextBox7.Text)

        End With

        DataGridView1.Show()

    End Sub

Dan hasilnya seperti dibawah ini:

Read More

Konsep G nato Store | Aplikasi Kasir

KONSEP G-NATO STORE

  G-Nato Store adalah program hasil penerapan fungsi aritmatika dari Visual Basic 2010. Program ini merupakan program sederhana dari mesin kasir. Program ini dibuat untuk membantu pelayan kasir dalam menghitung transaksi yang dilakukan dalam pembelian produk. Dalam program ini disajikan nama produk, harga, gambar contoh produk, diskon yang hitung diskon dan diinginkan, dan pembayaran yang dikenakan pada konsumen. Program ini memudahkan pelayan kasir dalam menghitung total harga dengan atau tanpa diskon. G-Nato Store menjual bermacam-macam jenis sepatu merk ternama, seperti Adidas, Nike, Reebok, Lotto, Puma, Speed, Nevada, Piero, TomKins, dan Crocs.

            Kami membuat G-Nato Store ini menggunakan 1 form, 9 label, 1 Combobox, 6 Textbox, dan 2 button. Dari 9 label tersebut, masing-masing kami rename menjadi G-Nato Store, Name, Address, Product, Price, Count, Discount, Total, dan %. Combobox yang kami pakai menampilan kesepuluh merk sepatu ternama yang kami sediakan. Sedangkan untuk 2 button kita pergunakan untuk eksekusi payment dan exit.

·         TUJUAN PROGRAM G-NATO STORE

1.      Memudahkan pelayan kasir dalam menghitung total harga dengan atau tanpa diskon.

2.      Membantu pelayan kasir dalam menghitung transaksi yang dilakukan dalam pembelian produk.

3.      Membantu perhitungan transaksi jadi lebih cepat.

·         FUNGSI

Untuk perhitungan sederhana dalam transaksi pembelian produk yaitu untuk mengetahui total harga dan besarnya kembalian dari nominal yang dibayarkan.

·         SASARAN

Untuk toko penjualan sepatu yang akan mengaplikasikan program vb yang sederhana ini  untuk membantu dan memudahkan dalam perhitungan transaksi pembelian. Dan agar dapat dioperasikan oleh semua kalangan termasuk orang awam seperti pelayan kasir.

Read More