from gaji menggunakan listview

 

FROM GAJI MENGGUNAKAN LISTVIEW

 ini tampilan awal form gaji dengan listview
masukkan syntax

Public Class Form1
    Sub BuatTable()
        Lv.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("nama", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("jabatan", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("gaji", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("status", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("tunj istri", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("jumlah anak", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("tunj anak", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("jam lembur", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("honor lembur", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("pajak", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("total", 80, 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(jabatan.Text)
        Lst.SubItems.Add(gaji.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(tunjistri.Text)
        Lst.SubItems.Add(jumlahanak.Text)
        Lst.SubItems.Add(tunjanak.Text)
        Lst.SubItems.Add(jamlembur.Text)
        Lst.SubItems.Add(honorlembur.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(total.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")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staff")
        For i = 1 To 4
            jumlahanak.Items.Add(i)
        Next i
        For i = 1 To 10
            jamlembur.Items.Add(i)
        Next i
        status.Items.Add("menikah")
        status.Items.Add("tidak menikah")

        BuatTable()
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Mandor" : gaji.Text = 1750000
            Case "Kepala Bagian" : gaji.Text = 2500000
            Case "Staff" : gaji.Text = 1250000
        End Select
        pajak.Text = 0.015 * Val(gaji.Text)
    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "menikah" : tunjistri.Text = 0.09 * gaji.Text
            Case "tidak menikah" : tunjistri.Text = 0
        End Select
    End Sub

    Private Sub jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahanak.SelectedIndexChanged
        If jumlahanak.Text >= 2 And status.Text = "menikah" Then
            tunjanak.Text = 0.07 * gaji.Text
        ElseIf jumlahanak.Text = 1 And status.Text = "menikah" Then
            tunjanak.Text = 0.03 * gaji.Text
        Else
            tunjanak.Text = 0

        End If
    End Sub
    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        If jabatan.Text = "Mandor" Then
            honorlembur.Text = 7500
        ElseIf jabatan.Text = "Kepala Bagian" Then
            honorlembur.Text = 10000
        ElseIf jabatan.Text = "Staff" Then
            honorlembur.Text = 5000
        Else
            honorlembur.Text = 0
        End If
        total.Text = Val(honorlembur.Text * jamlembur.Text) + Val(gaji.Text) + Val(tunjistri.Text) + Val(tunjanak.Text) - Val(pajak.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 = "ujang"
        End Select
    End Sub

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

    Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click
        isitabel()
        NIK.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjistri.Text = ""
        jumlahanak.Text = ""
        tunjanak.Text = ""
        jamlembur.Text = ""
        honorlembur.Text = ""
        pajak.Text = ""
        total.Text = ""
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Lv.Items.Clear()
    End Sub

    Private Sub nhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nhapus.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class

Tampilan setelah dijalankan.

 Menjalankan Programnya



Setelah disimpan kedalam listview

 sekian tugas lisview dari saya

hormat saya:
Eka sahputra
http://ekasyahputra89.blogspot.com/2013/06/from-gaji-menggunakan-listview.html

readmore...

Magnetic Energy Generator

listrik tenaga magneti
 
assalamualiakum wr.wb

disini saya akan menjelaskan tentang listrik tenaga magnetik

Magnet memang menjadi bagian penting dalam sebuah sistem pembangkitan listrik, apapun itu sumber energi pembangkitnya baik pembangkit listrik tenaga air (PLTA), pembangkit listrik tenaga uap (PLTU), pembangkit listrik tenaga gas uap (PLTGU), pembangkit listrik tenaga angin, dan beberapa jenis pembangkit listrik lainnya. Mungkin hanya pembangkit listrik tenaga surya (solar cell) serta pembangkit listrik dari fuel cell yang sama sekali tidak menggunakan komponen magnet dalam sistem pembangkitan listriknya, karena listrik langsung dihasilkan melalui proses fisis dan kimiawi pada material yang digunakannya.
Magnet dalam sebuah sistem pembangkitan terdapat pada bagian generator, di mana generator ini dapat menghasilkan listrik oleh putaran yang bersamaan dengan putaran turbin dengan adanya bantuan sumber-sumber energi seperti energi potensial air, angin, uap, dan lain sebagainya. Namun ternyata magnet juga dapat menjadi sumber energi penggerak bagi generator itu sendiri.contoh gambar:

Pembangkit listrik tenaga magnet, inilah ide yang diciptakan cukup banyak peneliti di Amerika dan Eropa di mana mereka menyebutnya sebagai free energy generator karena tidak memerlukan energi/biaya yang cukup banyak untuk menghasilkan listrik serta dapat berlangsung secara terus-menerus pada waktu yang lama. Prinsip kerjanya cukup sederhana, yaitu memanfaatkan gaya dari arah flux magnetik yang berlawanan sebagai sumber energi yang dapat membuat magnet lainnya bergerak. Jika flux magnet yang berlawanan tersebut disusun dari beberapa buah magnet sedemikian rupa sehingga magnet-magnet yang berfungsi sebagai stator memicu pergerakan dari magnet-magnet lainnya yang berfungsi sebagai rotor. Kemudian dari bagian rotor ini dapat disambungkan dengan bagian dari magnet lainnya yang berfungsi sebagai generator walaupun sebenarnya magnet rotor tersebut juga bisa sekaligus sebagai generator.

Salah satu penelitian yang cukup berhasil adalah oleh tim Jean-Louis Naudin yang membuat sistem Mini Romag Generator. Mereka mengklaim bahwa ciptaannya dapat menghasilkan listrik hingga 24 Watt. Alat yang mereka buat menggunakan konsep yang sama dengan konsep dasar pembangkit listrik tenaga magnet sederhana, namun perbedaannya adalah pada magnet bagian stator yang digantikan oleh coil/lilitan tembaga yang dialiri arus listrik sehingga dapat juga menimbulkan flux medan magnet. Pada awalnya rotor harus diputar secara manual atau dengan bantuan motor, sehingga listrik dapat dihasilkan dan pada coil stator timbul flux medan magnet. Selanjutnya gerakan pemicu putaran dari motor maupun secara manual dapat dihilangkan karena flux medan magnet dari coil stator sudah dapat memutar rotor dengan sendirinya. Proses ini menghasilkan listrik secara terus-menerus selama tidak ada gangguan luar dan magnet masih dalam kondisi baik. Sistem ini bisa juga berfungsi sebagai motor tanpa sumber tenaga listrik.

ada pun kendala dan manfaat dari pembangkit listrik tenaga magnetik tersebut;

Kendala
Terdapat beberapa kendala dalam penelitian mengenai free energy generator ini, di antaranya adalah:
1. Masih sulitnya magnet yang berukuran relatif kecil dan ringan, tetapi memiliki kekuatan flux magnet yang sangat kuat. Kalaupun ada, harganya sangat mahal.
2. Tidak adanya magnet monopole, untuk mendapatkan putaran yang optimal maka berdasarkan teori, magnet yang digunakan haruslah monopole. Beberapa penelitian sudah dilakukan untuk membuat magnet monopole, namun hasilnya masih belum efektif.
3. Daya yang dihasilkan masih kecil sehingga tidak efektif untuk pembangkit listrik dalam skala besar.

Manfaat
Walaupun memiliki cukup banyak kendala, pemangkit listrik tenaga magnet ini jika berhasil, maka nantinya akan sangat efektif sebagai pembangkit listrik yang sifatnya portable. Oleh karena itu generator ini sangat cocok untuk dibawa bepergian seperti camping ke daerah yang sulit mendapatkan aliran listrik, walaupun cocok juga untuk digunakan sebagai sumber listrik pencahayaan di rumah. Ide ini juga bisa dijadikan sebagai kipas angin tanpa energi listrik.

maka kesimpulanya;
  pemangkit listrik tenaga magnet ini jika berhasil, maka nantinya akan sangat efektif sebagai pembangkit listrik yang sifatnya portable.
kendalanya memang karena sulitnya menemukan magnet permanen yang kekuatannya sangat kuat dan ukurannya tidak terlalu besar. Jikapun ada harganya sangat mahal.

salam hormat:
Eka sahputra

readmore...

Merubah laptop menjadi pemancar wifi

Merubah laptop menjadi pemancar wifi

assalammualikum wr.wb
disini saya akan menerangkan tentang merubah laptop menjadi pemancar wifi

 memiliki beberapa gadget dengan berbagai macam fungsi bukan hal yang aneh sekarang ini, gadget-gadget terbaru sudah dibekali dengan koneksi internet baik melalui paket data dari operator seluler maupun dengan kemampuan wifi. tidak hanya laptop dan smartphone saja yang bisa terkoneksi dengan internet, beberapa merk kamera bahkan sudah dibekali dengan wifi dan gps untuk memudahkan memposting / upload hasil jepretan ke jejaring sosial ataupun situs yang lain, yang mau tidak mau pasti membutuhkan koneksi internet utamanya dengan pemancar wifi/hotspot area.

smartphone dengan sistem operasi terbaru saat ini sudah dibekali kemampuan sebagai pemancar wifi atau biasa disebut wifi tethering pada android 2.2 ke atas, fungsi tethering ini untuk membagi koneksi internet dengan device lain yang memiliki kemampuan untuk terkoneksi via wifi. berbagi internet melalui smartphone mungkin sudah hal biasa, tetapi bagaimana jika kita mempunyai koneksi di laptop entah dari kabel telkom ataupun dari modem dan kita ingin membaginya dengan perangkat lain ?

cara melakukannya sebagai berikut;
ada dua cara yang bisa kita lakukan, yaitu cara manual dengan pengaturan pada setingan network di control panel dengan syarat sistem operasi yang kita gunakan maupun device yang akan dishare support Ad-hoc server/client (secara teknis silahkan browsing, banyak sobat blogger yang membagi cara ini, saya coba berhasil di laptop saya tapi di hengpon samsung ace 2 tidak tedeteksi karena masih perlu di root dan rubah kernel, daripada ribet ane cancel aja, sementara di nokia 5630 terdetek dan bisa konek tapi malah hang, hehe ..) dan satu lagi cara yang lebih mudah yaitu dengan software Connectify.

cara setingnya cukup mudah, hanya dengan tiga langkah dan laptop sudah bisa jadi pemancar hotspot, smarphone atau gadget lain bisa mengakses via wifi. cara setingnya adalah (langkah ini tentunya jika software ini sudah terinstal pada laptop ya .. kalo belum jangan coba-coba .. bisa ane lempar bata ntar .. hehe .. bcanda sob ..)

     beri nama hotspot yang akan dishare .. untuk pengguna versi gratis wajib menggunakan nama awalan "Connectify- " sementara untuk sobat yang beli versi PRO bisa menggunakan nama sesukanya .. enak ya orang berduit, bebas ngapain aja .. asem nan og
    pilih jaringan yang akan dishare, dari kabel atau modem DSL, modem 3G atau 4G, bahkan dari jaringan wifi  lain.
    klik "Start Hotspot" dan wifi hotpsot sudah tersedia

nah kan, kalo software belum terinstal pasti bingung deh, tapi coba ini saya kasih screenshootnya agar punya sedikit gambaran tentang software ini :

 sistem operasi yang support adalah windows XP,Vista dan 7. mungkin beberapa saat lagi akan support juga windows 8. untuk pengguna windows XP ada catatan khusus, terutama masalah pembatasan jaringan, solusinya bisa dibaca di web resminya di www.connetify.me di bagian support.

maka marilah kita sama - sama belajar memahami semua tentang yang kita dapat kan;
dan janganlah kita sombong untuk berbagi pada teman" kita...

salam hormat;
eka sahputra

readmore...