Yoo!! belajar program dan cari informasi di Mesran.net

Yoo!! belajar program dan cari informasi di Mesran.Net-hai... semua sobat samlyot hutasoit gimana kabarnya? semoga sehat semua ya!!!!!!
sekarang saya akan memberitahu situs web untuk belajar program dan cari informasi yaitu Mesran.net

contoh program yang di bahas di Mesran.net yaitu vb.net,pascal,java,dan database dan masih banyak lagi bahasa pemograman yang lain.
Bagi sobat-sobat yang suka dengan program,mesran.net bisa membantu anda untuk belajar dan mengenal
lebih dalam lagi apa itu bahasa pemograman.

Dan sudah terbukti sama saya, dulu saya agak ga nerti apa itu bahasa program dan setelah saya sering belajar program dan nengok informasi dari Mesran.net  sekarang saya sudah lebih mengerti apa itu bahasa pemograman.

okayy kawan sekarang samlyot hutasoit sekian dulu bagi info tentang mesran.net semoga info ini bermanfaat bagi kalian semua..
AMENN!!!!

.

Tugas Program VB

Listing Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "FROM GAJI"
        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")
        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("TIDAK MENIKAH")

        For I = 1 To 4
            JUMLAH_ANAK.Items.Add(I)
        Next I
        For I = 1 To 10
            JAM_LEMBUR.Items.Add(I)
        Next I
        BUATTABEL()
    End Sub

    Sub BUATTABEL()
        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        LV.Columns.Add("JABATAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("GAJI", 180, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("TUNJ ISTRI", 180, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("TUNJ ANAK", 180, HorizontalAlignment.Left)
        LV.Columns.Add("JAM LEMBUR", 80, HorizontalAlignment.Center)
        LV.Columns.Add("HONOR LEMBUR", 180, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL", 180, HorizontalAlignment.Left)
        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(Tistri.Text)
        LST.SubItems.Add(JUMLAH_ANAK.Text)
        LST.SubItems.Add(TUNJ_ANAK.Text)
        LST.SubItems.Add(JAM_LEMBUR.Text)
        LST.SubItems.Add(Ulembur.Text)
        LST.SubItems.Add(PAJAK.Text)
        LST.SubItems.Add(TOTAL.Text)
        LV.Items.Add(LST)
    End Sub

    Sub bunga(ByVal t As Form)
        NIK.Text = ""
        Nama.Text = ""
        JABATAN.Text = ""
        Gaji.Text = ""
        STATUS.Text = ""
        Tistri.Text = ""
        JUMLAH_ANAK.Text = ""
        TUNJ_ANAK.Text = ""
        JAM_LEMBUR.Text = ""
        Ulembur.Text = ""
        PAJAK.Text = ""
        TOTAL.Text = ""
    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 * 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" : Tistri.Text = 0.09 * Gaji.Text
            Case "TIDAK MENIKAH" : Tistri.Text = 0
        End Select
    End Sub

    Private Sub JUMLAH_ANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAH_ANAK.SelectedIndexChanged
        If JUMLAH_ANAK.Text >= 2 And STATUS.Text = "MENIKAH" Then
            TUNJ_ANAK.Text = 0.07 * Gaji.Text
        ElseIf JUMLAH_ANAK.Text = 1 And STATUS.Text = "MENIKAH" Then
            TUNJ_ANAK.Text = 0.03 * Gaji.Text
        Else
            TUNJ_ANAK.Text = 0
        End If
    End Sub

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click
        If JABATAN.Text = "MANDOR" Then
            Ulembur.Text = 7500
        ElseIf JABATAN.Text = "KEPALA BAGIAN" Then
            Ulembur.Text = 10000
        ElseIf JABATAN.Text = "STAFF" Then
            Ulembur.Text = 5000
        Else
            Ulembur.Text = 0
        End If
        TOTAL.Text = Val(Ulembur.Text * JAM_LEMBUR.Text) + Val(Gaji.Text) + Val(Tistri.Text) + Val(TUNJ_ANAK.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 = "SAMLYOT HUTASOIT"
            Case "002" : Nama.Text = "ANDI"
            Case "003" : Nama.Text = "DIAN"
        End Select
    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        MsgBox("APAKAH ANDA YAKIN INGIN MENYIMPAN?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        ISITABEL()
        bunga(Me)
    End Sub

    Private Sub HAPUS_ITEMS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_ITEMS.Click
        MsgBox("APAKAH ANDA YAKIN INGIN MENGHAPUS?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub HAPUS_SEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_SEMUA.Click
        MsgBox("APAKAH ANDA YAKIN INGIN MENGHAPUS?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        LV.Items.Clear()
    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click
        MsgBox("APAKAH ANDA YAKIN INGIN KELUAR?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        Me.Close()
    End Sub
End Class

Gambar Hasil Program

Tugas Bahasa Pemrograman

NVIDIA Tegra 3: Prosesor Quad Core untuk Tablet dan Smartphone Android

Tablet dan smartphone Android produk Acer, LG, Motorola, dan Samsung, banyak yang memakai NVIDIA Tegra 2. NVIDIA kini umumkan peluncuran Tegra 3 (project Kal-El), prosesor quad-core untuk tablet dan smartphone pertama di dunia. Prosesor unik ini sebenarnya bahkan menggunakan 5 core: 4 core berperforma tinggi dan 1 core hemat daya. Di peluncuran perdananya, NVIDIA baru mengumumkan Tegra 3 versi tablet. Versi smartphone rencananya akan menyusul  di tahun 2012.

Sebagai penerus Tegra 2, tentunya Tegra 3 harus memiliki performa yang lebih baik, bukan? Akan tetapi, jika yang dikatakan NVIDIA ini benar, kami harus mengatakan bahwa peningkatan performa ini cukup “keterlaluan”. Berikut adalah janji NVIDIA mengenai performa Tegra 3:

• 5x lipat lebih kencang dari Tegra2
• Konsumsi daya lebih rendah
• GPU (VGA) lebih kencang 3x lipat dari Tegra2
• Mampu menjalankan Stereo 3D
• Sepantar dengan CPU kelas PC (Core2 Duo)

NVIDIA bahkan menyiapkan beberapa game untuk menyambut Tegra 3, seperti yang bisa dibaca dalam artikel Game Android Khusus untuk NVIDIA Tegra 3.

Prosesor quad core ini berukuran sangat kecil.

Mengapa Quad Core?

Saat ini, sudah banyak jenis prosesor dual core yang digunakan di smartphone dan tablet Android. NVIDIA adalah salah satu produsen yang mengawalinya. Akan tetapi, seiring dengan meningkatnya aplikasi moderen dan bahkan game 3D berdefinisi tinggi, kemampuan multitasking menjadi sangat penting dan penambahan jumlah core untuk mengatasi masalah ini menjadi semakin relevan. Bayangkan menjalankan Facebook, Twitter, YM, MSN Messenger, dan beberapa aplikasi lainnya di background sementara memainkan game 3D. Ya, pengguna smartphone dan tablet Android memang sudah memperlakukan perangkat mereka sebagaimana layaknya sebuah PC atau notebook.

Masalah Penghematan Daya

Saat prosesor 1 GHz untuk smartphone dan tablet mulai digunakan,  terlebih setelah prosesor dual core mulai dipakai, penghematan daya mulai menjadi masalah yang unik. Produsen terpaku kepada dua pilihan:

1. prosesor yang dirancang untuk menghemat daya,
2. prosesor yang dirancang untuk performa tinggi.

Prosesor yang dirancang untuk menghemat daya mampu bekerja dengan tegangan rendah (otomatis daya rendah) di kecepatan rendah. Masalahnya, saat prosesor jenis ini ditingkatkan kecepatannya, tegangan prosesor harus dinaikkan cukup tinggi. Memaksa prosesor jenis ini bekerja di kecepatan di atas 1 GHz akan membuatnya sangat boros dan performanya pun tidak terlalu baik.
Prosesor yang dirancang untuk performa tinggi akan memiliki efisiensi baik sekali di kecepatan tinggi. Prosesor ini tidak membutuhkan tegangan listrik tinggi untuk bekerja di kecepatan yang tinggi (di atas 1 GHz). Masalahnya, menurunkan kecepatan prosesor jenis ini tidak membuatnya menjadi lebih irit daya.
Susah untuk menemukan jalan tengah di antara kedua jenis prosesor di atas, setidaknya untuk saat ini. Jadi, produsen terkadang harus memilih untuk mengorbankan salah satu sisi: performa atau pengiritan daya. Pilihan lain adalah mengorbankan sedikit dari kedua sisi. Akan tetapi, itu berarti kita tidak bisa memperoleh perangkat dengan performa tinggi yang hemat daya, bukan?

Solusi NVIDIA: Gunakan Keduanya

NVIDIA mengatasi masalah dengan 4 core dan 1 companion core.

Di dalam Tegra3 terdapat 4 core yang dirancang untuk performa tinggi dan 1 core yang dirancang untuk menghemat daya. Teknologi ini disebut vSMP (Variable Symmetric Multiprocessing). Core ke-5 yang disebut sebagai “companion core” ini adalah core yang bekerja dengan kecepatan rendah. Sementara core 1-4 adalah core dengan kecepatan tinggi. Kelima core yang digunakan ini berbasiskan ARM Cortex A9 yang terkenal berpeforma tinggi.

Uniknya, Tegra3 tidak “memberi tahu” OS mengenai adanya core ke-5. Jadi, OS Android akan melihat prosesor ini sebagai quad-core CPU. Sistem internal Tegra3 sendiri yang akan mengatur peralihan dari penggunaan hanya 1 core berkecepatan tinggi ke companion core, pada saat performa tinggi sudah tidak dibutuhkan untuk menyelesaikan pekerjaan. Hal ini membuat efektivitas companion core menjadi lebih.

Saat menggunakan 1 core dengan pekerjaan ringan, hanya companion core yang bekerja (s/d 500 MHz), sementara core lainnya dimatikan.
Untuk pekerjaan yang lebih berat, core akan beralih ke performance core pertama. Apabila hanya membutuhkan 1 core, kecepatan bisa mencapai 1,4 GHz tanpa harus menghidupkan ketiga core lainnya. Saat lebih dari 1 core performance bekerja, kecepatan akan dibatasi hingga 1,3 GHz.

Hasil dari kombinasi unik ini adalah performa yang tinggi dengan konsumsi daya rendah, seperti yang terlihat dari hasil pengujian Coremark Performance berbanding konsumsi daya di atas.

Sementara itu, jika dibandingkan dengan NVIDIA Tegra 2, ternyata konsumsi daya Tegra 3 bisa mencapai 60% lebih rendah! Sesuatu yang tidak terbayangkan jika kita melihat bahwa Tegra 3 adalah CPU 4 core dan Tegra 2 adalah CPU 2 core.

Artikel Teknologi Informasi Terbaru

Artikel Teknologi Informasi Terbaru

Saat ini hampir semua sisi kehidupan kita memerlukan teknologi informasi. Hampir semua bidang industri, baik industri pertahanan, industri pertambangan, industri pendidikan, industri produk konsumen dan lainnya menggunakan teknologi informasi dalam melakukan proses bisnis, proses pabrikasi, manajemen dan lainnya. Dengan memanfaatkan teknologi informasi, membuat semua pekerjaan kita menjadi lebih gampang, menjadi lebih efektif dan efisien. Sehingga dengan adanya teknologi informasi dapat meningkatkan kinerja dan produktivitas kita.

Buat kamu-kamu para pelajar, mahasiswa atau praktisi teknologi informasi yang lagi cari artikel tentang teknologi informasi, nih ada beberapa artikel dari kompas.com

Kumpulan Artikel Teknologi Informasi Terbaru

Teknologi Informasi Penting bagi TNI AU Jakarta, Kompas - Teknologi informasi dan komunikasi sangat penting bagi Tentara Nasional Indonesia Angkatan Udara dalam konteks perang modern. Selain terkait dengan jalur komando, teknologi informasi juga yang membentuk sistem pertahanan udara yang mumpuni.
Hal ini mengemuka dalam seminar ”Roles, Command, and Control of the Air Force in Modern and Irregular War” yang diadakan TNI AU, Air Power Center of Indonesia (APCI), dan Persatuan Purnawirawan TNI AU, Selasa (10/4).

Outlook Teknologi Informasi Indonesia 2012

Sekalipun fisikawan Denmark ternama, Niels Bohr (1885-1962), pernah berucap bahwa “prediction is very difficult, especially about the future”, namun atensi akan apa yang terjadi di esok hari takkan pernah surut. Setidak-tidaknya, pertanyaan tentang apa yang akan terjadi dalam sektor teknologi informasi Indonesia pada 2012, kerap menghampiri penulis. Dari yang bersifat konseptual hingga sisi pragmatis bisnis-nya.

Tantangan Teknologi Informasi dalam Pendidikan Indonesia

Semakin banyaknya penyusunan dokumen dan distribusi data yang mengacu pada penggunaan Teknologi Informasi dan Komunikasi (TIK), mendesak Kementerian Pendidikan Nasional (Kemdiknas) untuk menerapkan TIK ke dalam sistem pendidikan. Tujuannya adalah untuk meningkatkan efisiensi pengelolaan dan administrasi, meningkatkan komunikasi, dan mendukung peningkatan penyampaian kurikulum dan pembelajaran di kelas. Staf Ahli Menteri Pendidikan Nasional (Mendiknas) bidang Rencana Biro dan Organisasi, Abdullah Alkaf mengatakan, dengan banyaknya dukungan terhadap pemanfaatan TIK untuk pendidikan, maka tantangan besar yang dihadapi adalah memastikan koordinasi dan integrasi dari inisiatif yang beragam ke dalam kerangka kerja strategis tingkat nasional agar memberikan dampak yang lebih besar ke dalam dunia pendidikan.

Teknologi Informasi Tekan Biaya Operasional Perbankan

Biaya operasional perusahaan perbankan pada bagian back-office, seperti administrasi, bisa ditekan dengan cara memperbaiki sisi teknologi informasi (TI). "IT bisa menjadi salah satu channel buat perbankan untuk menekan ongkos operasional ke level yang tadi disebutkan yakni dari 20 persen menjadi 12-14 persen," sebut Account Director Ambit-SunGard Indonesia, Emil Sumirat, di Jakarta, Kamis (3/5/2012)

                  Meja Masa Depan

Teknologi Terbaru 2012 : Meja Masa Depan | Update Informasi Teknologi Terbaru, Gadget Terbaru, Berita Teknologi Terbaru - Sobat mungkin sudah sering melihat video maupun film yang menampilkan kecanggihan teknologi terbaru untuk masa depan. Tapi apa jadinya jika hal tersebut menjadi nyata dan bisa sobat miliki? Saat ini mungkin fungsi meja bagi sobat hanya sebagai peralatan rumah tangga untuk meletakkan peralatan tulis menulis atau sekedar pengisi interior ruangan. Pada awal tahun 2011, beredar kabar munculnya teknologi tv hologram. Tapi baru-baru ini, dipenghujung tahun 2011, Microsoft membuat sebuah terobosan dengan teknologi yang diberi nama Microsoft Surface, dimana sebuah kombinasi antara meja,
 komputer, kamera, serta touch sensivity berukuran sebesar yang memungkinkan pengguna untuk berinteraksi untuk berbagai aktivitas.

Pada meja besar yang menggunakan LCD touch screen 40 inci, Microsoft menempatkan sebuah smartphone pada layar, seketika Microsoft Surface akan mengenali perangkat tersebut dan menampilkan informasi mengenai perangkat serta memungkinkan untuk memilih model yang berbeda. Kabarnya, Microsoft telah mengkonfirmasi harga terbaru untuk meja masa depan yang akan mereka rilis pada tahun 2012 nanti di pasar Amerika sebesar $8.900.

Seperti halnya Microsoft Surface, teknologi terbaru untuk masa depan lainnya, sebuah meja interaktif, EXOdesk, memungkinkan sobat untuk melakukan semua aktivitas pada virtual space. EXOdesk sebenarnya merupakan sebuah tabletop computer yang menawarkan layar high definition 40 inci, di mana kita bisa memanipulasi virtual object dengan menyentuh dan dragging. EXOdesk akan dirilis pada tahun 2012 mendatang dengan harga $1,299.