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.

Intel memperkenalkan Chip prosesor Haswell yang tidak memerlukan kipas pendingin (fanless)

Hari ini Intel memperkenalkan chip prosesor Haswell terbaru secara terbatas kepada OEM yang didesain untuk dapat digunakan di device tipis seperti tablet.

Chip prosesor Haswell terbaru tersebut berjalan dengan daya listrik hanya 4.5 watt (SDP / scenario design point), ini artinya panas yang dihasilkan hanya sedikit dan tidak memerlukan kipas pendingan namun cuma memerlukan sistem ventilasi udara dari chasing saja untuk mendinginkannya.

Prosesor terbaru Intel Ivy Bridge sendiri sampai saat ini masih berjalan di daya 10 watt dan 7 watt (limited) yang masih memerlukan sistem kipas pendingin.

Tanpa kipas, tablet seperti Surface Pro ataupun tablet x86 lain sangat mungkin bisa dibuat lebih tipis dan memiliki daya tahan baterai lebih hemat.

Namun karena prosesor ini hanya tersedia secara eksklusif & limited ke beberapa OEM saja maka perjalanan Intel untuk bisa menggejar ketertinggalannya dari prosesor ARM di dunia tablet dan smartphone kemungkinan masih sangat panjang.

CEO Microsoft Steve Ballmer akan segera pensiun

Steve Ballmer akan pensiun dalam kurun waktu 12 bulan kedepan.

Microsoft baru saja mengumumkan bahwa Steve Ballmer akan segera meletakkan jabatannya dan pensiun sebagai CEO Microsoft dalam 12 bulan kedepan. Ballmer akan tetap menjabat sebagai CEO sampai Microsoft mendapatkan penggantinya.

Perjalanan karir Ballmer selama menjabat sebagai CEO (menggantikan Bill Gates di tahun 2000) terbilang naik turun. Beberapa produk yg diluncurkan mengalami kegagalan saat ia menjabat; contohnya adalah Vista, Kin, Zune, dan Windows Phone. Namun ada juga produk yang terbilang sukses seperti Windows XP, Win 7, Xbox dan Office.

Selama Steve Ballmer memimpin, posisi Microsoft sebagai raksasa teknologi mengalami penurunan dimana saham Microsoft  terus menurun selama 10 tahun terakhir sedangkan para pesaingnya seperti Google, Apple, dan Amazon meningkat.

Uniknya, meskipun belum diketahui siapa yang akan menggantikannya, namun berita pensiunnya Steve Ballmer dari CEO Microsoft ternyata sangat disambut positif oleh bursa saham Amerika yg ditandai dengan kenaikan saham Microsoft lebih dari 8%.

Android menjadi target utama serangan malware dengan total 79%

Pemerintah Amerika menyebutkan bahwa Android menjadi mobile OS dengan serangan Malware terbanyak.

Institusi pemerintah Amerika Serikat yaitu Departemen keamanan dalam negeri dan Departemen Kehakiman diketahui telah merilis sebuah memo bersama yang isinya mengingatkan para institusi pemerintah Amerika mengenai ancaman bahaya Malware di ranah mobile.

Memo tersebut menyebutkan bahwa ancaman malware paling besar selama tahun 2012 ditargetkan untuk device ber-OS Android yaitu sebesar 79% dan Symbian OS sebesar 19%, sementara platform mobile lain seperti BlackBerry, iOS, Windows Phone hanya kurang dari 1%.

Disebutkan 3 resiko serangan malware paling umum ke Android yaitu trojan SMS yang mengirimkan pesan teks ke nomor premium, rootkits, dan pemalsuan domain Google Play. Memo tersebut juga menyarankan agar lembaga pemerintah yang menggunakan Android untuk menginstall applikasi software pengamanan, menginstall applikasi Carrier IQ test dan melakukan update OS.

Sebenarnya banyaknya jumlah serangan Malware ke Android adalah hal yang wajar dikarenakan OS Android memang paling banyak dipakai didunia. Selain itu, sifatnya yang opensource memudahkan setiap orang menganalisa kelemahan yang ada. Dimana hal ini makin diperparah dengan banyaknya device Android yang masih menggunakan OS versi lama.

Microsoft membeli Nokia $7,17 Milyar (Rp 78,705 Triliun)

Microsoft membeli Nokia seharga US$7,17 Milyar (Rp 78,705 Triliun).

Microsoft baru saja mengumumkan telah membeli Nokia, dimana pembelian ini hanya akan mengambil divisi hardware dan divisi services beserta paten-nya yang notabene merupakan core product dari Nokia. Hal ini membuat Nokia hanya menyisakan 3 divisi yaitu NSN (infrastruktur network), HERE (pemetaan), dan Advanced Technologies.

Sebagai bagian dari transaksi, CEO Nokia saat ini Stephen Elop akan mengundurkan diri dan bergabung dengan Microsoft, dimana ada kemungkinan Stephen Elop sedang dipersiapkan untuk menggantikan Steve Balmer yang akan mundur dari CEO Microsoft. Selain perpindahan CEO, sebanyak 32.000 ribu pegawai juga akan pindah dari Nokia ke Microsoft termasuk 18.300 pegawai manufaktur.

Harga Nokia yang harus dibayarkan Microsoft senilai US$7 Milyar kedengarannya sangat besar, tapi sebenarnya harga tersebut sangatlah murah mengingat 5 tahun yang lalu (bulan september 2008) market cap Nokia lebih dari US$75 Milyar. Apalagi Nokia dibeli jauh lebih murah ketimbang saat Microsoft membeli Skype yang mencapai US$8,5 Milyar.

Pembelian Nokia kemungkinan besar dimaksudkan Microsoft untuk dapat memperkuat amunisi Windows Phone 8 sehingga dapat menantang raksasa mobile seperti Apple (iOS), Google + Motorola (Android) dan juga Samsung.

sumber :http://www.infoteknologi.com/berita/microsoft-membeli-nokia-78-triliun/