MEMBUAT SENDIRI APLIKASI KASIR MENGGUNAKAN VISUAL BASIC 6

Kali ini saya akan berbagi bagaimana cara membuat sendiri aplikasi kasir dengan menggunakan visual basic 6.
Di bawah ini adalah cara membuat aplikasi kasir untuk rumah makan
Langkah 1.
Buatlah desain tampilan aplikasi kasir seperti gambar di bawah :

Langkah 2.
Atur propertinya sebagai berikut :

 

1	Name : lblTanggal	Caption : -
2	Name : lblJam	Caption : -
3	Name : txtId	Text : -
4	Name : txtMenu	Text : -
5	Name : txtSatuan	Text : -
6	Name : txtHarga	Text : -
7	Name : txtPesanan	Text : -
8	Name : txtTotal	Text : -
9	Name : txtBayar	Text : -
10	Name : txtKembali	Text : -
11	Name : cmdBaru	Caption : Menu Baru
12	Name : cmdTutup	Caption : Tutup
13	Name : Timer1	Interval : 1

Langkah 3.
Menuliskan source code sesuai dengan fungsinya masing-masing.
Klik 2x Timer1 dan copas kode di bawah :

   1:  Private Sub Timer1_Timer()

   2:  lblTanggal.Caption = Format(Date, "dd mmmm yyyy")

   3:  lblJam.Caption = Format(Time, "hh:mm:ss")

   4:  End Sub

Klik 2x txtId.text dan isi kode berikut :

   1:  Private Sub txtId_KeyPress(KeyAscii As Integer)

   2:  If KeyAscii = 13 Then

   3:  If txtId.Text = 101 Then

   4:  txtMenu.Text = "Sate Kambing"

   5:  txtSatuan.Text = "Porsi"

   6:  txtHarga.Text = 15000

   7:   

   8:  ElseIf txtId.Text = 102 Then

   9:  txtMenu.Text = "Gulai"

  10:  txtSatuan.Text = "Porsi"

  11:  txtHarga.Text = 10000

  12:   

  13:  ElseIf txtId.Text = 103 Then

  14:  txtMenu.Text = "Soto Ayam"

  15:  txtSatuan.Text = "Porsi"

  16:  txtHarga.Text = 17000

  17:   

  18:  ElseIf txtId.Text = 104 Then

  19:  txtMenu.Text = "Coto Makasar"

  20:  txtSatuan.Text = "Porsi"

  21:  txtHarga.Text = 20000

  22:   

  23:  Else

  24:  MsgBox ("Menu yang dipesan belum ada...!")

  25:  End If

  26:  txtPesanan.SetFocus

  27:   

  28:  End If

  29:  End Sub

Klik 2x txtPesanan.text dan isi kode seperti di bawah : 

  1:  Private Sub txtPesanan_Change()
  2:  txtTotal.Text = Val(txtHarga.Text) * Val(txtPesanan.Text)
  3:  End Sub

Klik 2x txtBayar.text dan copas source code berikut : 

  1:  Private Sub txtBayar_Change()

  2:  txtKembali.Text = Val(txtBayar.Text) - Val(txtTotal.Text)

  3:  End Sub

Klik 2x cmdBaru, isi dengan kode berikut : 

    1:  Private Sub cmdBaru_Click()
    2:  txtId.Text = ""
    3:  txtMenu.Text = ""
    4:  txtSatuan.Text = ""
    5:  txtHarga.Text = ""
    6:  txtPesanan.Text = ""
    7:  txtTotal.Text = ""
    8:  txtBayar.Text = ""
    9:  txtKembali.Text = ""
   10:   
   11:  txtId.SetFocus
   12:  End Sub

Klik 2x cmdTutup, isi dengan kode berikut :

   1:  Private Sub cmdTutup_Click()

   2:  Unload Me

   3:  End Sub

hasilnya seperti ini : 

Demikian cara membuat Aplikasi Kasir sederhana semoga bermanfaat……

Reade more >>

Java: Membuat Program Aritmatika Sederhana

kali ini saya akan sharing tutorial membuat program aritmatika sederhana menggunakan java console. Disebut sederhana karena memang sederhana, yaitu program aritmatika 2 bilangan saja hehe. Sebelumnya buat yang belum tahu –mungkin udah tau semua-, aritmatika adalah cabang matematika yang mempelajari operasi dasar bilangan. Operasi dasar tersebut antara lain penjumlahan, pengurangan, perkalian, dan pembagian.
Oke langsung aja, buka notepad ataupun editor lainnya.

Ketikkan kode berikut:

import java.io.BufferedReader;

import java.io.IOException;

import java.io.InputStreamReader;

 

public class Aritmatika {

    

    private static BufferedReader br = null;

    

    public static void main(String[] args) {

        System.out.println("Program Aritmatika");

        System.out.println("==================");

        System.out.println("");

        boolean cek = true;

        while (cek) {

            br = new BufferedReader(new InputStreamReader(System.in));

            try {

                System.out.print("Masukkan bilangan pertama: ");

                int bil1 = Integer.parseInt(br.readLine());

 

                System.out.print("Masukkan bilangan kedua: ");

                int bil2 = Integer.parseInt(br.readLine());

 

                System.out.println("");

 

                int penjumlahan = bil1 + bil2;

                int pengurangan = bil1 - bil2;

                int perkalian = bil1 * bil2;

                double pembagian = (double)bil1 / (double)bil2;

 

                System.out.println("Hasil penjumlahan : " + bil1 + " + " + bil2 + " = "  + penjumlahan);

                System.out.println("Hasil pengurangan : " + bil1 + " - " + bil2 + " = "  + pengurangan);

                System.out.println("Hasil perkalian   : " + bil1 + " * " + bil2 + " = "  + perkalian);

                System.out.println("Hasil pembagian   : " + bil1 + " / " + bil2 + " = "  + pembagian);

                System.out.println("");

 

                System.out.print("Ingin coba lagi (Y/N) ? ");

 

                String coba = br.readLine();

                if (coba.equalsIgnoreCase("N"))

                    cek = false;

                else if (coba.equalsIgnoreCase("Y"))

                    cek = true;

                else

                    System.exit(0);

            }

            catch (IOException ioe) {

                System.out.println("Error IOException");

            }

        }

    }

}

Simpan dengan nama Aritmatika.java
Kemudian jalankan menggunakan Command Prompt.
Hasilnya sebagai berikut:

 Sekian tutorial kali ini, silahkan dikembangkan lebih lanjut. Terima kasih dan semoga bermanfaat.

Reade more >>

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("1")
        kode.Items.Add("2")
        kode.Items.Add("3")
        lv.Columns.Add("Kode", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Produk", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Total", 150, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Select Case kode.Text
            Case "1"
                produk.Text = "TV"
                harga.Text = 2000000
            Case "2"
                produk.Text = "DVD"
                harga.Text = 650000
            Case "3"
                produk.Text = "CD-ROOM"
                harga.Text = 450000
        End Select
    End Sub

    Private Sub total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles total.KeyPress
    End Sub
    Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Dim list As New ListViewItem
        list.Text = kode.Text
        list.SubItems.Add(produk.Text)
        list.SubItems.Add(harga.Text)
        list.SubItems.Add(jumlah.Text)
        list.SubItems.Add(total.Text)
        lv.Items.Add(list)
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged
        total.Text = Val(harga.Text) * Val(jumlah.Text)
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        kode.Text = ""
        produk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        lv.Items.Clear()
    End Sub
End Class


Demikilahlah postingan saya  Nama : (Michael Simangunsong)  NPM : (14110571)
Selamat Belajar Pemrograman VB NET (Mesran.Net)

Reade more >>