Penjualan barang

Buat desain seperti dibawah ini :

Public Class Form1

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

        Call BuatTabel()

        kdbrg.Items.Add("TS-001")

        kdbrg.Items.Add("TS-002")

        kdbrg.Items.Add("VG-001")

        kdbrg.Items.Add("VG-002")

    End Sub

    Sub BuatTabel()

        lv.Columns.Add("No.pelanggan", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Merek Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Total", 80, HorizontalAlignment.Left)

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.View = View.Details

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = nopembelian.Text

        lst.SubItems.Add(kdbrg.Text)

        lst.SubItems.Add(nmbrg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlahbeli.Text)

        lst.SubItems.Add(totalharga.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged

        Dim x As String

        x = Mid(kdbrg.Text, 1, 2)

        Select Case x

            Case "TS"

                merk.Text = "Toshiba"

            Case "VG"

                merk.Text = "V-Gen"

        End Select

        x = Mid(kdbrg.Text, 4, 6)

        Select Case x

            Case "001"

                nmbrg.Text = "Flashdisk 4GB"

                harga.Text = 105000

            Case "002"

                nmbrg.Text = "Flashdisk 2GB"

                harga.Text = 75000

            Case "001"

                nmbrg.Text = "Flashdisk 4GB"

                harga.Text = 90000

            Case "001"

                nmbrg.Text = "Flashdisk 2GB"

                harga.Text = 60000

        End Select

        jumlahbeli.Focus()

    End Sub

    Private Sub jumlah_beli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged

        totalharga.Text = harga.Text * jumlahbeli.Text

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        Call IsiTabel()

        MsgBox("Data Telah Tersimpan")

        Call Hapus()

        nopembelian.Focus()

    End Sub

    Sub Hapus()

        nopembelian.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        Call bersih()

    End Sub

    Private Sub no_pembelian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nopembelian.KeyPress

    End Sub

    Private Sub no_pembelian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nopembelian.TextChanged

    End Sub

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

        If MsgBox("Yakin Mau Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then Me.Close()

    End Sub

    Private Sub btnhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        lv.Items.Clear()

    End Sub

    Private Sub btnhapus_pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub Btnsimpan_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        Call IsiTabel()

        MsgBox("Data Telah Tersimpan")

        Call Hapus()

        nopembelian.Focus()

    End Sub

    Sub bersih()

        nopembelian.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub totalharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totalharga.TextChanged

    End Sub

End Class

Maka hasilnya seperti ini :

Program Penjualan Barang

1.     

Ø  Menggunakan 7 Buah Label è Ganti propertis text seperti gambar diatas

Ø   6 Buah TextBox èganti propertis Name sesuai text pada label

Ø  1 Buah ComboBox è ganti propertis Name sesuai text pada label

Ø  1 Buah GroupBox è Ganti propertis text seperti gambar diatas (Tombol)

Ø  5 Buah Button è ganti propertis Name & text seperti gambar diatas

Ø  Dan 1 Buah ListView è ganti propertis Name menjadi “lv”

Langkah selanjutnya adalah:

Masukkan Kodding Berikut :

Ket: “Doble clik pada Form1”masukkan kodding sehingga jadi seperti di bawah

Public Class Form1

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

        Call BuatTabel()

        kode_barang.Items.Add("TS-001")

        kode_barang.Items.Add("TS-002")

        kode_barang.Items.Add("VG-001")

        kode_barang.Items.Add("VG-002")

    End Sub

Ket: “Sub BuatTabel ()” seperti di bawah berfungsi membuat tabel pada ListView

    Sub BuatTabel()

        lv.Columns.Add("No.pelanggan", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Merek Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Total", 80, HorizontalAlignment.Left)

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.View = View.Details

    End Sub

Ket: “Sub IsiTabel ()” seperti di bawah berfungsi memasukkan isi ke dalam tabel ListView

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = no_pembelian.Text

        lst.SubItems.Add(kode_barang.Text)

        lst.SubItems.Add(nama_barang.Text)

        lst.SubItems.Add(merek.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah_beli.Text)

        lst.SubItems.Add(total_harga.Text)

        lv.Items.Add(lst)

    End Sub

Ket: “Doble clik pada ComboBox” lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged

        Dim x As String

        x = Mid(kode_barang.Text, 1, 2)

        Select Case x

            Case "TS"

                merek.Text = "Toshiba"

            Case "VG"

                merek.Text = "V-Gen"

        End Select

        x = Mid(kode_barang.Text, 4, 6)

        Select Case x

            Case "001"

                nama_barang.Text = "Flashdisk 4GB"

                harga.Text = 105000

            Case "002"

                nama_barang.Text = "Flashdisk 2GB"

                harga.Text = 75000

            Case "001"

                nama_barang.Text = "Flashdisk 4GB"

                harga.Text = 90000

            Case "001"

                nama_barang.Text = "Flashdisk 2GB"

                harga.Text = 60000

        End Select

        jumlah_beli.Focus()

    End Sub

Ket: “Doble clik pada TextBox & Rubah Menjadi KeyPress” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress

        If Asc(e.KeyChar) = 13 Then

            total_harga.Text = harga.Text * jumlah_beli.Text

        End If

        btnsimpan.Focus()

    End Sub

    Private Sub jumlah_beli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_beli.TextChanged

    End Sub

Ket: “Doble clik pada Button Simpan” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Call IsiTabel()

        MsgBox("Data Telah Tersimpan")

        Call Bersih()

        no_pembelian.Focus()

    End Sub

    Sub Bersih()

        no_pembelian.Text = ""

        kode_barang.Text = ""

        nama_barang.Text = ""

        merek.Text = ""

        harga.Text = ""

        jumlah_beli.Text = ""

        total_harga.Text = ""

    End Sub

Ket: “Doble clik pada Button Bersih” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        Call Bersih()

    End Sub

    Private Sub no_pembelian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_pembelian.KeyPress

    End Sub

    Private Sub no_pembelian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles no_pembelian.TextChanged

    End Sub

Ket: “Doble clik pada Button Keluar” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        If MsgBox("Yakin Mau Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then Me.Close()

    End Sub

Ket: “Doble clik pada Button Hapus” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus_semua.Click

        lv.Items.Clear()

    End Sub

Ket: “Doble clik pada Button Hapus_Pilih” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnhapus_pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus_pilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

End Class

Maka Hasil Program Akan Menjadi Seperti :

Kurang Lebih Program yang akan jalan seperti di atas’,,,,,,,

Sekian Tugas Online yang saya Buat’,,,,,

WasalamMualaikum Wr.Wb.

Penggunaan Operator Logika Pada Program C

menggunakan operator logika pada program C++, maka berikut ini contoh penggunaan operator logika pada program C.


Program berikut merupakan penggunaan operator logika pada program C

#include "conio.h"
#include "stdio.h"
void main(){
     int nilai ;
     char  nhuruf ;

     printf ("Menghitung Nilai Akhir \n---------------------------\n") ;
     printf ("Input Nilai Semester  : " ) ; scanf ("%i",&nilai) ;

     if (nilai>=80 && nilai<=100)
        nhuruf = 'A' ;
     else if (nilai>=70 && nilai<=79)
        nhuruf = 'B' ;
     else if (nilai>=60 && nilai<=69)
        nhuruf = 'C' ;
     else if (nilai>=50 && nilai<=59)
        nhuruf = 'D' ;
     else if (nilai>=0 && nilai<=49)
        nhuruf = 'E' ;
     else
        nhuruf = '-' ;

     printf("Ouput Keterangan : %c ", nhuruf) ;
}


Demikianlah artikel penggunaan operator logika pada program C.

Tag : operator logika pada program C, program C, operator logika, logika program C

sumber : http://mesran.net/berita-653-penggunaan-operator-logika-pada-program-c.html

Microsoft merilis Windows 8.1 Preview (beta)

Microsoft merilis OS Windows 8.1 Preview.

Microsoft hari ini merilis OS Windows 8.1 yang dihadirkan untuk memperbaiki elemen yang sudah ada di Win8 serta menambahkan beberapa fitur minor yang semakin membuatnya layak menggantikan Windows 7.

Beberapa fitur memang sudah lama diantisipasi contohnya kehadiran kembali tombol Start Menu di Windows 8.1, pilihan untuk Boot to Desktop, multi monitor support, multitasking, Bing Search dan Internet Explorer 11.

Selain fitur yang sudah diketahui, ada beberapa fitur yang muncul perdana seperti kemampuan menonaktifkan hot corners, pilihan shutdown saat mengklik kanan start menu, Universal search yang terintegrasi dengan Bing, dan mengakses PC Setting langsung dari Metro Interface.

Microsoft juga mengupdate aplikasi internal (built in) seperti menambahakan fitur Photosynth di Camera App yang mampu mengambil gambar 360 derajat (sphere), integrasi lebih erat terhadap SkyDrive, desain baru dari applikasi Xbox Music, browser Internet Explorer 11 yang kini mendukung standart WebGL & protokol SPDY buatan Google.

Tidak lupa ada applikasi baru yang hadir di Windows 8.1 antara lain Bing Health & Fitness, Bing Food & Drink (applikasi resep), dan juga applikasi Alarm, Calculator serta Sound Recorder yang mengoptimalkan interface Metro.

Pembaca Info Teknologi bisa mencoba dengan langsung mengakses dari Windows Store yang ada di Windows 8 atau dowload ISO file Windows 8.1 dari sini. Tapi perlu diingat karena masih preview (beta) maka kemungkinan besar masih kurang stabil dan terdapat banyak bug.

Google akan menghapus situs dewasa yang memasang iklan di Blogger

Google melarang  pemilik blog berkonten dewasa di Blogger memasang iklan.

Ada berita buruk bagi pemilik blog yang menghosting / berkonten situs dewasa dan menghasilkan uang di Blogger yaitu mulai 30 Juni 2013, Google telah melarang mereka untuk memasang iklan dan me-monetize blognya. Bila tetap melanggar konsekuensinya sangat berat yaitu blog yang bermasalah akan langsung didelete.

Berita ini diketahui setelah banyak pemilik blog berkonten dewasa yang mendapatkan peringatan di dashboard dan lewat email mengenai perubahan kebijakan yg akan diterapkan 30 Juni.

Kebijakan konten (Content Policy) Blogger yg baru menyebutkan bahwa Google akan menghapus semua blog dewasa yang memasang iklan serta link ke situs dewasa lain. Hal ini berlaku juga bagi semua pemilik blog ‘normal’ yang saat ini masih memasang iklan berkonten dewasa ataupun link tautan menuju website dewasa lain.

Google dari dahulu tidak pernah melarang konten dewasa untuk ditampilkan dalam Blogger asalkan pembuatnya telah menspesifikkan terlebih dahulu isi konten. Tapi dengan adanya peraturan baru ini, para pemilik blog yg memang bertujuan memonatize blog dewasanya harus mencari hosting / platform lain.

Apple memberi Game dan Applikasi iOS gratis menyambut HUT app store ke-5

Apple menggratiskan beberapa game dan applikasi premium di App Store

Menyambut perayaan ulang tahun iOS App Store ke-5 yang jatuh pada tanggal 10 Juli sepertinya Apple telah memberikan hadiah lebih awal ke para pelanggannya.

Meski belum ada berita resmi mengenai promo ini namun beberapa game dan applikasi populer yang sebelumnya berbayar kini dapat didownload secara cuma-cuma (gratis) di App Store.

Game popular yang menjadi gratis adalah Infinity Blade II, Superbrothers: Sword & Sworcery EP, Tiny Wings (dan Tiny Wings HD for iPad), Badland, dan Where’s My Water. Sementara applikasi premium yang menjadi gratis adalah Traktor DJ for iPad & iPhone (biasanya seharga $20).

App store di usianya yang ke-5 menurut Apple telah mencapai milestone 1 milyar download di tahun 2009, 10 milyar di 2011 dan 50 Milyar download sampai akhir Mei 2013. Selain itu Apple juga menyebutkan lebih dari $10 Milyar keuntungan yang dihasilkan para developer.

Jelly Bean kini menjadi OS Android yang paling banyak dipaka

Jelly Bean menjadi versi Android OS yang paling banyak dipakai.

Android memasuki milestone baru di Juli 2013 dengan beralihnya jumlah OS terbanyak yang digunakan di device Android dari sebelumnya OS Gingerbread (2.3) beralih ke versi yg lebih modern OS Jelly Bean.

Jelly Bean (4.1.x dan 4.2.x) kini sudah lebih banyak dipakai di device Android dengan total 37,9 persen. Gingerbread sendiri kini berada di posisi 2 dengan angka berbeda tipis yaitu 34,7 persen, sementara posisi 3 diduduki oleh ICS dengan angka 23,3%.

Fragmentasi sudah lama menjadi masalah serius bagi Android, dan kini fakta bahwa Android Jelly Bean telah menjadi OS yang paling banyak dipakai menjadi berita baik bagi developer software dan juga Google untuk mengimplementasikan fitur-fitur modern yang hanya terdapat di versi OS baru.

Sebagai catatan, data yang disajikan Google diperoleh berdasarkan semua devices Android didunia baik handphone ataupun tablet yang mengakses Google Play dalam periode 14 hari (aktif user), jadi data diatas tidak mencakup device yang offline dan tidak terkoneksi dengan Google Play.