pemogramaan visual tentang listview

Senin, 20 Mei 2013 0 komentar


PROGRAM II

Public Class Form2

    Sub buattabble()
        lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub

    Sub ISITABLE()
        Dim LST As New ListViewItem
        LST.Text = NPM.Text
        LST.SubItems.Add(NAMA.Text)
        lv.Items.Add(LST)
    End Sub

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

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        ISITABLE()
        NPM.Text = ""
        NAMA.Text = ""
    End Sub
End Class

PROGRAM III
Public Class Form3


    Sub BUATTABLE()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABLE()
        Dim LST As New ListViewItem
        LST.Text = NPM.Text
        LST.SubItems.Add(NAMA.Text)
        LV.Items.Add(LST)
    End Sub

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

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        ISITABLE()
        NPM.Text = ""
        NAMA.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 HPS_YGDIPILH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPS_YGDIPILH.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class



PROGRAM III :
Public Class Form1

    Sub BUATTABLE()
        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
        LV.Columns.Add("JABATAN", 60, HorizontalAlignment.Left)
        LV.Columns.Add("GAJI", 60, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 60, HorizontalAlignment.Left)
        LV.Columns.Add("TJN KELUARGA", 60, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 60, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABLE()
        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(TUNJ.Text)
        LST.SubItems.Add(PAJAK.Text)
        LST.SubItems.Add(TTL_GAJI.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("STAF")
        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("LAJANG")
        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 "STAF" : GAJI.Text = 1250000
        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 = "KARO-KARO"
            Case "002" : NAMA.Text = "TARIGAN"
            Case "003" : NAMA.Text = "GINTING"
        End Select
    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" : TUNJ.Text = 0.15 * GAJI.Text
            Case "LAJANG" : TUNJ.Text = 0
        End Select
    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
        TTL_GAJI.Text = Val(GAJI.Text) + Val(TUNJ.Text) - Val(PAJAK.Text)
        ISITABLE()
        NIK.Text = ""
        NAMA.Text = ""
        JABATAN.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        TUNJ.Text = ""
        PAJAK.Text = ""
        TTL_GAJI.Text = ""
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        Close()
    End Sub
End Class



Cara Membuat Label Berputar Di Blog.~

Kamis, 02 Mei 2013 0 komentar

Label , tag atau bisa juga di sebut kategori pada blog sangat berguna  untuk memudahkan pengunjung untuk mencari sebuah artikel pada sebuah blog dan juga berguna untuk menempatkan link-link internal pada blog yang juga dapat meningkatkan Pagerank Blog   .
Jadi label termasuk sangat penting pada sebuah blog karena itu pada saat membuat blog sudah di sediakan gadget label yang cukup sederhana .


Bagi yang ingin mencoba cara ini silahkan ikuti cara nya di bawah ini .

1. Login ke acount blogger.
2. Rancangan  =>> elemen halaman =>> tambah gadged
3. Copy paste kode di bawah ini kehalaman HTML/Javascript

<center><h2 class="title">Labels</h2><div class="widget-content"><script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/swfobject/2.2/swfobject.js"></script><br /> <div id="wpcumuluscontent5733682">Flash tag cloud requires<br /> <script type="text/javascript"> var flashvars = { tcolor: "0x000000", tcolor2: "0x000000", hicolor: "0x000000", tspeed: "80", distr: "true", mode: "tags" }; var params = { allowScriptAccess: "always" }; params.wmode = "transparent"; x = document.getElementById("Label1").getElementsByTagName("a"); trans = document.getElementById("Label1").style.display="none"; var tagcloud; var url = "http://" + document.domain + "/search/label/"; for (var i = 0; i < x.length - 1; i++) { tagcloud = tagcloud + "<a href='"+encodeURIComponent(url + encodeURIComponent(x[i].innerHTML))+"' class='tag-link-24' title='15 topics' style='font-size: 20pt;'>"+x[i].innerHTML+"</a>"; } flashvars.tagcloud = "<tags>"+tagcloud+"</tags>"; swfobject.embedSWF("http://www.taiphanmem.org/wp-content/plugins/wp-cumulus/tagcloud.swf?r=2520752", "wpcumuluscontent5733682", "200", "125", "9", "expressInstall.swf", flashvars, params);</script></div></div></center><br /> <br />

4. Klik simpan untuk melihat hasil nya . 
 
Cara Membuat Kotak Link Exchange.


contoh kotak seperti ini :



Nha trus gimana cara buat
kotak tersebut?
Caranya mudah, ikutin aja langkah-langkah di bawah ini .

1.Pertama Login ke blogger trus pilih Layout --> Page Elements
2.Trus klik Add a Gadget lalup pilih HTML/Java Script
3.Trus kopi kode berikut ini di tempat yang disediakan.

<textarea name="textarea" cols="20"><a href="http://blogeko3.blogspot.com"><img src="http://http://kendhin.890m.com/banner-trik.gif" width="90" height="17" border="0" /></a></textarea>

4.Simpan

 Catatan :
text yang berwarna biru menunjukkan labar kotak 

8 Fakta Mengenai Air Di Dunia


Delapan fakta ini diungkapkan oleh The Earth Institute tentang air dunia. Salah satunya mengenai akumulasi penggunaan air di tiga negara terpadat di Bumi.
The Earth Institute Columbia University memberikan beberapa fakta mengenai air dan makanan yang ada di Bumi. Berikut ini adalah fakta-fakta yang dipaparkan oleh The Earth Insitute.

1. Jika diakumulasikan, penggunaan air di India, Cina, dan Amerika Serikat adalah satu pertiga dari jumlah seluruh air di dunia.

2. Lebih dari 90 persen penggunaan air adalah untuk pertanian dan perkebunan. Walaupun begitu, hanya 16 persen lahan yang telah teririgasi dari sekian banyak penggunaan air untuk pertanian.

3. 16 persen lahan yang teririgasi menghasilkan 36 persen bahan makanan.

4. Ekstraksi air tanah meningkat tiga kali lipat hanya dalam waktu lima tahun. Konsumsi air tanah di Cina dan India meningkat sepuluh kali lipat sejak tahun 1950.

5. Penggunaan air tanah yang begitu besar berkontribusi terhadap kenaikan permukaan laut sebanyak 25 persen dalam beberapa tahun terakhir.

6. Menurut penelitian yang dipublikasikan dalam Climate Dynamics, penggunaan air tanah juga mengubah iklim lokal dan mempercepat pemanasan global.

7. Menurut Organisation for Economic Co-operation and Development (OECD), pada tahun 2030 hampir setengah populasi manusia yang ada akan kekurangan air.

8. Krisis air akan mengancam kelangsungan pembangkit listrik di dunia. Krisi air yang diakibatkan permintaan yang tinggi akan membuat pembangkit listrik tidak berfungsi
sumber

Cara Sharing File Pada Windows XP


Apabila Komputer sudah terkoneksi dengan jaringan atau sudah bisa berkomunikasi dengan komputer lain, maka salah satu fasilitas yang bisa digunakan adalah sharing file. Sharing file berfungsi untuk membagikan file kepada jaringan. Misalnya ada tiga buah komputer yang terhubung dengan jaringan. Komputer tersebut adalah komputer Pc1, Pc2, dan Pc3. Pc1 ingin membagikan sebuah file, maka dilakukanlah share file pada Pc1, maka Pc2 dan Pc3 bisa menggunakan file yang telah dishare oleh Pc1. Berikut adalah langkah-langkah sharing file:


1. Klik kanan folder yang akan dibagikan, pilih Sharing and Security




2. Klik link Sharing


3. Checklist Share this folder on the network, lalu klik OK




4. Jika diinginkan komputer lain boleh mengedit file yang di shared, maka checklist juga Allow network users to change my files


Untuk melakukan pengecekan terhadap file yang dishared, silahkan menuju ke komputer lain yang masih terhubung dengan jaringan, kemudian ikuti langkah-langkah berikut ini:


1. Buka jendela explorer dengan mengklik kanan menu start, pilih explore
2. Klik My Network Places

http://blogeko3.blogspot.com/2012/11/cara-sharing-file-pada-windows-xp.html
 

Cara Meningkatkan Pengunjung di Blog



  - Memiliki blog yang ramai pengunjung, adalah salah satu hal yang ingin dimiliki para Bloggers. Karena, dengan pengunjung yang ramai, traffik dan popularitas blog itu akan menjadi meningkat dan banyak dicari orang - orang sebagai tempat belajar / bacaan. Selain itu, blog yang ramai pengunjung, penghasilan uang pun meningkat.
Adapun cara - cara ampuh yang digunakan untuk meningkatkan pengunjung blog sebagai berikut:

1. Promosikan blog ke Situs jejaring sosial
Mempromosikan blog ke situs jejaring sosial adalah salah satu cara untuk meningkatkan pengunjung blog. Karena, saat ini. Situs jejaring sosial sering ramai dipakai oleh kalangan muda. Situs jejaring sosial itu seperti Facebook, Twitter, Google+ dll. Adapun cara mempromosikan itu adalah memberi link dan judul postingan blog kalian. Atau bisa juga, membuat blog kalian terhubung ke situs jejaring sosial tersebut. Lihat Disini untuk menghubungkan artikel blog dengan situs jejaring sosial faebook.

2. Blogwalking
Blogwalking maksudnya adalah mengunjungi setiap blog - blog orang. Di blog orang, biasanya ada Guest Book, nah disanalah sobat bisa mempromosikan blog sobat. Yaitu dengan menyapa blogwalker lainnya dan menyertakan alamat link blog sobat. Atau, sobat juga bisa berkomentar di salah satu postingan milik blog orang tersebut. Tetapi, sobat jangan langsung berkomentar menyertakan alamat blog sobat. Mengapa demikian? karena komentar yang tidak mengarah ke postingan / promosi akan di anggap komentar Spam. Agar tidak dianggap komentar spam, berkomentarlah yang mengarah kepada postingan dan memakai profil Name / Url

3. Artikel yang Berkualitas dan berkala
apa maksudnya? sobat Update Artikel tidak asal membuat artikel. Seperti copas (copy paste) / mencuri artikel milik orang. Agar blog sobat ramai dikunjungi pengunjung, buatlah artikel original, berkualitas dan menarik / yang sering dicari kalangan orang secara berkala. Jika artikel sobat menarik / sering dicari orang, blog sobat pun ramai dikunjungi orang.

4. Submit artikel ke Situs Social Bookmarking
mensubmit artikel ke situs social bookmarking juga dapat membuat blog kalian ramai dikunjungi. Setiap kali ada orang searching sebuah topik yang sesuai dengan artikel yang sobat submit ke situs social bookmarking tersebut, sobat akan mendapatkan traffik secara gratis dari situs social bookmarking tersebut. Berikut, saya share beberapa situs social bookmarking: technorati.com, lintas.me, infogue dll.

5. Bertukar link
bertukar link dengan bloggers lainnya juga dapat meningkatkan pengunjung blog sobat. Kunjungi bloggers lainnya yang menyediakan fasilitas bertukar link. Atau sobat juga dapat membuat halaman statis yang berisi cara bertukar link dan list - list link sahabat

6. Memasang Iklan
mempromosikan blog sobat dengan memasang iklan juga dapat meningkatkan visitor blog sobat. Hanya saja cara ini membutuhkan pengeluaran uang $. Memasang iklan itu dapat dilakukan di situs penyedia pemasangan iklan, seperti blog ini yang menyediakan pemasangan iklan.
 

Pengertian Linux.~

Pengguna komputer di indonesia saat ini kebanyakan menggunakan sistem operasi buatan dari microsoft, yaitu microsoft windows. hal itu wajar saja terjadi, karena sistem operasi windows lebih dulu hadir di Indonesia ketimbang sistem operasi linux. mungkin anda semua yang telah mengerti tentang komputer, sudah memahami bahwa sistem operasi windows bukanlah software yang bebas disebarluaskan, anda harus mengeluarkan biaya lisensi untuk bisa menginstal secara legal di komputer anda, tapi jika anda tidak mengeluarkan biaya lisensi, berarti bisa dikatakan windows yang anda gunakan adalah bajakan.

Linux adalah sistem operasi open source. Ini berarti kode sumber untuk Linux tersedia untuk umum untuk inspeksi dan bahkan perbaikan. Keuntungan dari produk open source berkisar dari manfaat masukan kreatif dari programmer seluruh dunia, untuk keamanan. Dengan source code tersedia dalam domain publik, produk open source diuji oleh programmer di seluruh dunia. Ini jauh lebih sulit dengan sistem tertutup seperti Microsoft Windows karena kode sumber tidak tersedia untuk umum.

Perbedaan besar lainnya antara Linux dan Microsoft Windows adalah bahwa Linux adalah didasarkan pada sistem operasi Unix, sementara Windows adalah sistem operasi proprietary atau berdiri sendiri.

Banyak orang yang mempertimbangkan beralih ke Linux bertanya-tanya apakah mereka saat ini perangkat lunak Windows akan berjalan di Linux. Jawaban singkatnya adalah tidak. Para sistem operasi Linux tidak dirancang untuk itu, atau dimaksudkan untuk menjalankan perangkat lunak Windows. Yang mengatakan, interface seperti WINE, yang bebas dan dilengkapi dengan kebanyakan distribusi Linux, atau alternatif membayar seperti Win4Lin dan VMW menyediakan berbagai macam solusi untuk menjalankan perangkat lunak Windows pada mesin Linux dengan hasil yang bervariasi. Namun, harapan penggemar Linux yang orang akan beralih ke Linux-alternatif perangkat lunak, sebagai aplikasi lebih banyak ditulis untuk lingkungan Linux.

Tidak diketahui berapa banyak pengguna Linux ada karena pendaftaran tidak diperlukan, tetapi jumlah ini diperkirakan dalam jutaan. Linus Torvalds mulai membangun Linux pada tahun 1991 ketika ia seorang mahasiswa sarjana di University of Helsinki di Finlandia. Dia terus mengembangkan Linux dengan bantuan programmer relawan dan hacker . lisensi Linux memungkinkan pengguna untuk secara bebas menyalin dan mendistribusikan perangkat lunak dengan kode sumbernya.

Kelebian Linux:
1. Tidak memerlukan perangkat keras yang mahal. Linux dapat berjalan pada komputer PC dengan konfigurasi minimal sbb :
* Mikroprosesor 386 DX (intel, AMD, Cyrix, TI, Chips&Tech.)
* RAM 4 MB (tanpa GUI) dan 8 MB (dengan GUI)
* Space harddisk 85 MB
2. Linux merupakan sistem operasi bebas dan terbuka. Sehingga dapat dikatakan, tidak terdapat biaya lisensi untuk membeli atau menggunakan Linux.
 3. Preemptive multitasking, yaitu menangani banyak proses secara bersamaan, semua proses tersebut tidak saling menghalangi/ menghambat walaupun berjalan pada saat yang sama.
4. Multiuser, yaitu lebih dari satu orang dapat menggunakan program yang sama/ berbeda-beda dari satu mesin yang sama pada saat bersamaan di terminal yang sama/berbeda.
5. Dukungan akses 33 macam sistem file yang berbeda. Linux mampu mengakses sistem file FAT16, FAT32 (kepunyaan DOS), VFAT (Win), HPFS (OS/2), Minix, UFS (Solaris), Xenix, SCO, Novell, dsb.


Kekurangan Linux :
1. Banyak pengguna yang belum terbiasa dengan Linux dan masih ‘Windows minded’. Hal ini dapat diatasi dengan pelatihan-pelatihan atau edukasi kepada pengguna agar mulai terbiasa dengan Linux.
2. Dukungan perangkat keras dari vendor-vendor tertentu yang tidak terlalu baik pada Linux. Untuk mencari daftar perangkat keras yang didukung pada Linux, kita dapat melihatnya di Linux-Drivers.

Diberdayakan oleh Blogger.
 
;