Artikel Pemrograman JAVA

                             Artikel Pemrograman JAVA

Java adalah sebuah teknologi yang diperkenalkan oleh Sun Microsystems pada pertengahan tahun 1990. Menurut definisi dari Sun, Java adalah nama untuk sekumpulan teknologi untuk membuat dan menjalankan perangkat lunak pada komputer standalone ataupun pada lingkungan jaringan. Kita lebih menyukai menyebut Java sebagai sebuah teknologi dibanding hanya sebuah bahasa pemrograman, karena Java lebih lengkap dibanding sebuah bahasa pemrograman konvensional. Teknologi Java memiliki tiga komponen penting, yaitu:

·         Programming-language specification

·         Application-programming interface

·         Virtual-machine specification

Java API terdiri dari tiga bagian utama:

·         Java Standard Edition (SE), sebuah standar API untuk merancang aplikasi desktop dan applets dengan bahasa dasar yang mendukung grafis, M/K, keamanan, konektivitas basis data dan jaringan.

·         Java Enterprose Edition (EE), sebuah inisiatif API untuk merancang aplikasi server dengan mendukung untuk basis data.

·         Java Macro Edition (ME), sebuah API untuk merancang aplikasi yang jalan pada alat kecil seperti telepon genggam, komputer genggam dan pager.

 

Java Virtual Machine (JVM) adalah sebuah spesifikasi untuk sebuah komputer abstrak. JVM terdiri dari sebuah kelas pemanggil dan sebuah interpreter Java yang mengeksekusi kode arsitektur netral. Kelas pemanggil memanggil file .class dari kedua program Java dan Java API untuk dieksekusi oleh interpreter Java. Interpreter Java mungkin sebuah perangkat lunak interpreter yang menterjemahkan satu kode byte pada satu waktu, atau mungkin sebuah just-intime (JIT) kompiler yang menurunkan bytecode arsitektur netral kedalam bahasa mesin untuk host computer.

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

Kasus Pemrograman Pemakaian Listrik

 

desain awal:

 

 

SYNTAX

Public Class Form1

    Private Sub nd_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nd.TextChanged

        Select Case nd.Text

            Case "medan" : tp.Text = "toko"

            Case "tanjung" : tp.Text = "rumah"

            Case "kisaran" : tp.Text = "swalayan"

            Case "labura" : tp.Text = "pabrik"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Mid(tp.Text, 3, 1)

        Select Case tp.Text

            Case "toko" : kp.Text = "1265"

            Case "rumah" : kp.Text = "1167"

        End Select

    End Sub

    Private Sub bl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bl.TextChanged

    End Sub

    Private Sub pk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pk.TextChanged

        Select Case pk.Text

            Case "100 kwh" : bb.Text = "5000"

            Case "150 kwh" : bb.Text = "75000"

            Case "30 kwh" : bb.Text = "15000"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Mid(hp.Text, 3, 1)

        Select Case pk.Text

            Case "1 kwh" : hp.Text = "500"

        End Select

    End Sub

    Sub buattabel()

        lv.Columns.Add("nama daerah", 100, HorizontalAlignment.Center)

        lv.Columns.Add("type pelanggan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("kode pelanggan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("bulan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("pemakain", 100, HorizontalAlignment.Center)

        lv.Columns.Add("harga perkwh", 100, HorizontalAlignment.Center)

        lv.Columns.Add("beban biaya", 100, HorizontalAlignment.Center)

        lv.Columns.Add("pajak", 100, HorizontalAlignment.Center)

        lv.Columns.Add(" biaya tagihan", 100, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = nd.Text

        lst.SubItems.Add(tp.Text)

        lst.SubItems.Add(kp.Text)

        lst.SubItems.Add(bl.Text)

        lst.SubItems.Add(pk.Text)

        lst.SubItems.Add(hp.Text)

        lst.SubItems.Add(bb.Text)

        lst.SubItems.Add(pj.Text)

        lst.SubItems.Add(bt.Text)

        lv.Items.Add(lst)

    End Sub

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

        buattabel()

        lv.Columns.Add("nama daerah", 100, HorizontalAlignment.Center)

        lv.Columns.Add("type pelanggan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("kode pelanggan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("bulan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("pemakain", 100, HorizontalAlignment.Center)

        lv.Columns.Add("harga perkwh", 100, HorizontalAlignment.Center)

        lv.Columns.Add("beban biaya", 100, HorizontalAlignment.Center)

        lv.Columns.Add("pajak", 100, HorizontalAlignment.Center)

        lv.Columns.Add(" biaya tagihan", 100, HorizontalAlignment.Center)

    End Sub

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

        isitabel()

        nd.Text = ""

        tp.Text = ""

        kp.Text = ""

        bl.Text = ""

        pk.Text = ""

        hp.Text = ""

        bb.Text = ""

        pj.Text = ""

        bt.Text = ""

    End Sub

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

        bt.Text = Val(bb.Text) + Val(hp.Text) * Val(pk.Text)

    End Sub

    Private Sub bt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt.TextChanged

    End Sub

End Class


Desain tampilan hasil program :

Demikilahlah postingan saya
Nama :ahmad zuhri hasibuan
NPM : 1111243
Selamat Pemrograman VB NET

Artikel Terpopuler Bulan Ini 2013

Arti Nama Bayi

Busana Muslim Wanita

Cerita Lucu Banget

Cerita Lucu Singkat

Cheat GTA San Andreas

Contoh Surat Lamaran Kerja

Daftar Kode Bank

Daftar Kode POS

Daftar Kode Telepon

Game Terbaru 2013

Game Terbaru Facebook 2013

Jadwal F1 2013

Jadwal MotoGP 2013

Kalender Tahun 2013

Kata Kata Indah Islami

Kata Kata Mutiara Bijak Persahabatan

Lagu Terbaru NOAH 2013

Lagu Terbaru SNSD 2013

Pantun Lucu Banget

Resep Masakan Soto

Resep Masakan Ayam Bakar

SMS Ucapan Valentine

SMS Ucapan IMLEK

Sifat Lucu Hantu

Status Lucu Gokil Facebook

Status Unik Facebook

Status Cinta Facebook

Status Malam Minggu Facebook

Tebak Tebakan Lucu

Ucapan Selamat Pagi

Ucapan Selamat Malam

Ucapan Selamat Ulang Tahun

Ucapan Selamat Malam Minggu

Koleksi Puisi Terbaru 2013

Puisi Cinta

Puisi Hari Ibu

Puisi Hari Natal

Puisi Tahun Baru

Puisi Untuk Ibu

Puisi Cinta Romantis

Puisi Untuk Sahabat

TUGAS BAHASA PEMROGRAMAN

PROGRAM LISTVIEV PENGGAJIAN KARYAWAN

Desain awal program

Adapun dibawah ini merupkan listing program penggajian karyawan.

Public Class Form1

    Sub BuatTabel()

        lv.Columns.Add("NIK", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Gaji", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Status", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Tunj. Keluarga", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Pajak", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = Nik.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jab.Text)

        lst.SubItems.Add(gaji.Text)

        lst.SubItems.Add(stat.Text)

        lst.SubItems.Add(tunj.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(tot.Text)

        lv.Items.Add(lst)

    End Sub

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

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        jab.Items.Add("Mandor")

        jab.Items.Add("Kepala Bagian")

        jab.Items.Add("Staf")

        stat.Items.Add("Menikah")

        stat.Items.Add("Tidak Menikah")

        BuatTabel()

    End Sub

    Private Sub jab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jab.SelectedIndexChanged

        Select Case jab.Text

            Case "Mandor" : gaji.Text = 175000

            Case "Kepala Bagian" : gaji.Text = 250000

            Case "Staf" : gaji.Text = 125000

        End Select

        pajak.Text = 0.15 * gaji.Text

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "001" : nama.Text = "Oncom"

            Case "002" : nama.Text = "Udin"

            Case "003" : nama.Text = "Ujong"

        End Select

    End Sub

    Private Sub stat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stat.SelectedIndexChanged

        Select Case stat.Text

            Case "Menikah" : tunj.Text = 0.15 * gaji.Text

            Case "Tidak Menikah" : tunj.Text = 0

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        tot.Text = Val(gaji.Text) + Val(tunj.Text) - Val(pajak.Text)

        IsiTabel()

        nik.Text = ""

        nama.Text = ""

        jab.Text = ""

        stat.Text = ""

        pajak.Text = ""

        tunj.Text = ""

        gaji.Text = ""

        tot.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        lv.Items.Clear()

    End Sub

    Private Sub btnhapus2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

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

    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click

        nik.Text = ""

        nama.Text = ""

        jab.Text = ""

        stat.Text = ""

        pajak.Text = ""

        tunj.Text = ""

        gaji.Text = ""

        tot.Text = ""

    End Sub

End Class

                      Hasil dari program vb