Daftar Gaji Pegawai Pada Vb.net 2008

Posted by Sabtu, 29 Juni 2013







 Listing Programnya :


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Nik.Items.Add("K1001")
        Nik.Items.Add("K2003")
        Nik.Items.Add("S1001")
        Nik.Items.Add("S2002")
        Nik.Items.Add("S3003")
        Nik.Items.Add("A1001")
        Nik.Items.Add("A2002")
        Nik.Items.Add("A3003")
        Golongan.Items.Add("IIIA")
        Golongan.Items.Add("IIIB")
        Golongan.Items.Add("IIIC")
    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Nik.Text, 1)
        Select Case X
            Case "K"
                Bagian.Text = "Keuangan"
                Nama.Text = "Muhammad Syahril"

            Case "A"
                Bagian.Text = "Administrasi"
                Nama.Text = "Rina Miranda"

            Case "S"
                Bagian.Text = "Pengamanan"
                Nama.Text = "Soni sugiarto"
        End Select
        X = Microsoft.VisualBasic.Mid(Nik.Text, 2, 1)
        Select Case X
            Case "1"
                Jabatan.Text = "bedahara"
            Case "2"
                Jabatan.Text = "Serkertaris"
            Case "3"
                Jabatan.Text = "Security"
        End Select
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Golongan.Text, 4)
        Select Case X
            Case "IIIA"
                Gaji.Text = "2500000"
            Case "IIIB"
                Gaji.Text = "3000000"
            Case "IIIC"
                Gaji.Text = "3500000"
        End Select
    End Sub
End Class


Berikut Hasilnya :


 

Daftar Pembelian Barang Menggunakan Vb.net 2008

Posted by









Listing Programnya :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("TS001")
        Kode.Items.Add("TS002")
        Kode.Items.Add("VG001")
        Kode.Items.Add("VG002")

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Kode.Text, 2)
        Select Case X
            Case "TS" : Merk.Text = "Toshiba"
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG": Merk.Text = " V-GEN"
            Case "VG" : Merk.Text = "V-GEN"

        End Select
        X = Microsoft.VisualBasic.Right(Kode.Text, 3)
        Select X
            Case "001" : NamaBarang.Text = "Flashdisk 4GB"
            Case "002" : NamaBarang.Text = "Flashdisk 2GB"
            Case "001" : NamaBarang.Text = "Flashdisk 4GB"
            Case "002" : NamaBarang.Text = "Flashdisk 2GB"
        End Select

    End Sub
End Class



Berikut Hasilnya :



Penggunaan Listview pada Vb.net 2008

Posted by






Listing Program :

  
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        Lv.Items.Add(lst)
    End Sub
   
    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        isitabel()
        NPM.Text = ""
        Nama.Text = ""
    End Sub
End Class




Berikut Hasilnya : 


 

Masa Depan BlackBerry Bakal Suram

Posted by Jumat, 07 Juni 2013


JAKARTA - Informasi yang santer diberitakan baru-baru ini ialah BlackBerry akan meletakkan fitur BlackBerry Messenger (BBM) yang bisa dicicipi di platform Android dan iOS. Kabarnya, fitur BBM bisa dijajal di sistem operasi "robot hijau" pada musim panas tahun ini.

Teguh Prasetya, pengamat gadget sekaligus pendiri Indonesian Cloud Forum melalui percakapan via telefon kepada Okezone, Jumat (24/5/2013) mengatakan, dengan munculnya fitur BBM di Android maupun iOS ini maka Blackberry sudah tidak ekslusif lagi. "BB jadi enggak ekslusif. Ada kemungkinan penurunan volume penjualan," ungkap Teguh.

Dikatakannya bahwa perangkat BB mengunggulkan fitur BBM-nya, sehingga BB digandrungi oleh seluruh penggunanya, terutama pengguna di Indonesia. Beberapa fitur lain seperti kamera, memori serta desain menurutnya juga dimiliki oleh perangkat lain. Sehingga, ekslusivitas BB akan menurun apabila fitur BBM "mampir" di platform pesaingnya.

Akan tetapi, seperti apa bisnis model yang akan diusung BB belum diketahui pasti. Kemungkinan ini bisa menjadi strategi "rahasia" yang pengguna belum mengetahui.

Seperti diketahui, Head of BlackBerry Software Portofolio Viviek Bhardwaj beberapa hari lalu mengungkapkan bahwa BBM akan tersedia di platform Android dan iOS. Bhardwaj memaparkan, BBM untuk piranti Apple akan lebih dahulu disediakan untuk iPhone dan iPod Touch, bukan iPad.

Dengan meluncurnya fitur BBM di perangkat OS mobile populer tersebut, menurut Teguh, BlackBerry telah kehilangan identitasnya sebagai "raja" smartphone yang pernah booming, khususnya di Tanah Air. "BBM tidak beda dengan aplikasi chat yang lain. BB kehilangan identitas dan kehilangan arah," tuturnya.

Buah Simalakama
Lebih lanjut ia menjelaskan, prosentase revenue BB sebesar 85 persen berasal dari device, service 10 persen, serta konten 5 persen. Apabila menurunnya penjualan BB, maka ini akan berdampak pada "mimpi buruk" yang bisa dialami perusahaan asal Kanada tersebut.
"Masa depan BlackBerry bakal suram. Ini akan menjadi buah simalakama. BBM akan berhadap dengan (aplikasi) messaging yang lain," terangnya.

Tampaknya ini justru akan menguntungkan bagi platform Android, di mana pengguna bisa mendapatkan fitur BBM dengan banderol harga lebih terjangkau, mengingat smartphone Android sudah bisa didapat di kisaran harga terendah di bawah Rp1 jutaan hingga harga di atasnya. "Yang akan tumbuh subur Android. Android varian banyak dan pertumbuhan (growth) tiap tahun 100 persen," tambahnya.

Ia mengatakan, Android tetap superior, yang berarti sistem operasi mobile tersebut memiliki keunggulan lebih ketimbang kompetitor. Keunggulan tersebut seperti banyak aplikasinya yang gratis, komunitas developer aplikasi yang kuat, serta ragam device.

Menurutnya ke depan, pengguna di Indonesia biasanya mengikuti mode atau tren. Sehingga, sebagian dari mereka memilih smartphone berdasarkan seberapa banyak perangkat tersebut dipakai orang. Perusahaan juga seharusnya mempelajari karakteristik pengguna di Indonesia, seperti misalnya keterjangkauan harga, sehingga produk itu bisa laku dipasaran. "Masyarakat melihat value for money, murah menurut mereka (mungkin) 100 dollar AS ke atas, kalau dikita mungkin beda," pungkasnya.