Tentang Mesran.Net

Mesran [dot]Net Tempat Pemograman

Kamu mau pintar bahasa Pemograman ? Jangan bingung karna saya akan membawa anda ke website yang penuh dengan bahasa pemograman, baiklah marilah kita menuju ke sana.

Merupakan Website dimana Anda/Kamu/Kita bisa belajar bahasa pemograman dengan berbagai Bahasa Pemograman contohnya (Bahasa C, Bahasa C++, Bahasa C#/C Sharp, Bahasa Pascal, Bahasa Visual(VB 6.0, VB.Net), Bahasa Java, Bahasa Delphi,maupun bahasa pemogramman yang terbaru yaitu Android).

Bagaimana caranya ? caranya gampang kok kalau mau mengaksesnya tingal kamu klik nama ini Mesran.net 
atau tulis link ini http://mesran.net/. Anda akan langsung ditujukan ketepat yang website yang penuh dengan bahasa pemograman.

Website ini dibuat oleh seorang Dosen dikampus saya, Beliau selain menjadi Dosen, juga menduduki jabatan sebagai Ketua STMIK di kampus saya. Siapakah orangnya yaitu Bapak Mesran, S.KOM., M.KOM.

Beliau adalah Dosen yang membentuk dan juga membina suatu Organisasi dikampus saya yang bernama Budidarma Programming Club (BPC). Budidarma Programming Club (BPC) yaitu suatu organisasi yang mempelajari bahasa pemograman, juga merupakan organisasi yang cukup ternama dikampus saya, Kenapa? Karena BPCbanyak membantu mahasiswa dalam pengerjaan Tugas Akhir(TA) maupun Skripsi.

O ya dari tadi saya hanya membahas kampus saya tapi saya belum memberi tahu nama kampus saya, jadi saya berkuliah di STMIK BUDIDARMA MEDAN.

Sekian informasi yang bisa saya share kepada teman-teman semua, semoga bermanfaat dan Terima Kasih.Tentang Mesran.Net

menampilkan record file bertipe di pemrograman Pascal

Contoh program Visual Basic 2 Mengenal dan Mengetahui cara penggunaan ListView

Tutorial kali saya akan memberi contoh Visual Basic 2008 yang kedua

langkah-langkahnya :
1. Membuka Program VB (Visual Basic) 2008
2. klik create:project
3. Ubah Project dengan nama Anda
4. Maka setelah itu akan muncul sebuah Form1 pada Project kita
5. Desain Form tersebut dengan Label, TextBox, Button, ListView

Tampilan From :

6.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()

        With lv

            .Columns.Add("NPM", 80, HorizontalAlignment.Center)

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

            .View = View.Details

            .FullRowSelect = True

            .GridLines = True

        End With

    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 btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        isitabel()

        NPM.Text = ""

        NAMA.Text = ""

    End Sub

    Private Sub btnhs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhs.Click

        lv.Items.Clear()

    End Sub

    Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhps.Click

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

    End Sub

End Class

7. Tampilan From setelah dijalankan

NB :

• Ketikan NPM Anda pada TextBox NPM
• Ketikan Nama Anda pada TextBox Nama
• Klik => buttton (Simpan Ke ListView)
• Jika Anda ingin menghapusnya : Klik saja button (Hapus data yang Dipilih) atau jika ingin menghapus semua Datanya Klik saja button (Hapus Semua Data)

Silahkan di coba programnya ya :)

 

Contoh Pemograman Visual Basic Gaji Karyawan

Langkah-langkahnya :

1. Membuka Program VB (Visual Basic) 2008
2. klik create:project
3. Ubah Project dengan nama Anda
4. Maka setelah itu akan muncul sebuah Form1 pada Project kita
5. Desain Form tersebut dengan Label, TextBox, Combobox, Button
 Tampilan Form :

6. Listing Program

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text()

            Case "PM010"

                Nama.Text = "Bister"

            Case "PS111"

                Nama.Text = "Tri"

            Case "KU101"

                Nama.Text = "Sandora"

            Case "GD100"

                Nama.Text = "Novella"

            Case "PM011"

                Nama.Text = "Mindo"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Left(NIK.Text, 2)

        If x = "PM" Then

            Bagian.Text = "Pemasaran"

        ElseIf x = "PS" Then

            Bagian.Text = "Pemasaran"

        ElseIf x = "KU" Then

            Bagian.Text = "Keuangan"

        ElseIf x = "GD" Then

            Bagian.Text = "Gudang"

        End If

    End Sub

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

        NIK.Items.Add("PM010")

        NIK.Items.Add("PS111")

        NIK.Items.Add("KU101")

        NIK.Items.Add("GD100")

        NIK.Items.Add("PM011")

        Jabatan.Items.Add("Kepala Divisi")

        Jabatan.Items.Add("Staff")

        Jabatan.Items.Add("Wakil Kepala")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        JumlahAnak.Items.Add("1 Anak")

        JumlahAnak.Items.Add("2 Anak")

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        Select Case Jabatan.Text

            Case "Kepala Divisi"

                GajiPokok.Text = "5000000"

            Case "Staff"

                GajiPokok.Text = "2000000"

            Case "Wakil Kepala"

                GajiPokok.Text = "3500000"

        End Select

        Pajak.Text = GajiPokok.Text * 0.1

    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"

                TunjanganKeluarga.Text = 0.15 * GajiPokok.Text

            Case "Tidak Menikah"

                TunjanganKeluarga.Text = 0

                TunjanganAnak.Text = 0

                TotalGaji.Text = Val(GajiPokok.Text) - Val(Pajak.Text)

                JumlahAnak.Text = 0

        End Select

    End Sub

    Private Sub JumlahAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.SelectedIndexChanged

        Dim x As String

        x = JumlahAnak.Text

        If x = "1 Anak" Then

            TunjanganAnak.Text = 0.5 * GajiPokok.Text

            TotalGaji.Text = Val(GajiPokok.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) - Val(Pajak.Text)

        ElseIf x = "2 Anak" Then

            TunjanganAnak.Text = 0.1 * GajiPokok.Text

            TotalGaji.Text = Val(GajiPokok.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) - Val(Pajak.Text)

        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        NIK.Text = ""

        Nama.Text = ""

        Bagian.Text = ""

        Jabatan.Text = ""

        GajiPokok.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        JumlahAnak.Text = ""

        TunjanganAnak.Text = ""

        TunjanganKeluarga.Text = ""

        TotalGaji.Text = ""

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

End Class

7. Tampilan Form setelah dijalankan