Quis Sistem Pendukung keputusan

Quis Sistem Pendukung Keputusan

Read More

Artikel Tentang Mesran [dot] Net

Assalamu alikum wr  wb

Kali ini kami akan mengajak teman-teman semua untuk belajar tentang bahasa program, dan kami juga akan memperkenalkan kepada semuanya sebuah website yang bisa membantu dan mempermudah kita untuk belajar banyak tentang bahasa pemrograman yaitu di website mesran.net, mesran.blogspot.co.id

Mesran.blogspot.co.id blog ini sobat bisa dapat menemukan berbagai manfaat terutama apabila anda yang tertarik dengan pemrograman, di blog ini terdiri dari menu home, pemrograman, download, kampus, berita, dan sistem informasi.

Di menu HOME anda akan dapat melihat beberapa postingan atau artikel yang cukup bermanfaat dimulai dari informasi tentang tugas-tugas, Quiz Online, dan informasi yg bermanfaat lainnya.

Lalu di menu PEMROGRAMAN, apabila anda arahkan kursor di menu itu maka anda akan melihat beberapa jenis bahasa pemrograman seperti visual basic 6, visual basic net, visual c sharp, pascal, delphi,C++,PHP, dan Java, pilihlah sesuai keinginan anda dan dapatkan informasi didalamnya.

Pemilik blog ini adalah dosen di Kampus STMIKBudidarma. Didalam blog ini, kita juga menemukan beberapa bahasa pemograman yang tentunya bermanfaat juga. Blog dan situs website ini sangatlah membantu kita untuk lebih memahami tentang bahasa pemograman khususnya untuk anak Komputer seperti saya.

Mesran.net adalah salah satu website tempat belajar bahasa pemrograman. Di mesran.net agan semuanya dapat menemukan berbagai macam artikel tentang bahasa pemrograman mulai dari Vb.net, vcsharp, Visual Basic, Program Pascal. Di mesran.net teman-teman juga dapat langsung bertanya dengan berkomentar, pasti setiap pertanyaan sobat akan di jawab. Mesran.net merupakan salah satu dari sekian banyak website tempat belajar bahasa pemrograman yang menurut kami cukup lengkap.

Di mesran.net teman-teman juga dapat menemukan berbagai macam informasi yang tentunya berguna buat sobat, dan mesran.net merupakan tempat mahasiswa/I Budidarma belajar bahasa pemrograman. Apalagi di Akhir semester mesran.net akan menjadi tempat yang ramai di kunjungi mahasiswa/I STMIK Budidarma, untuk melihat Nilai atau IP.

Artikel ini kami buat tentang pentingnya manfaat website Mesran.net di kalangan masyarakat dan khususnya untuk mahasiswa STMIK Budidarma Medan. Semoga dengan artikel ini dapat bermanfaat bagi pengunjung blog abusanitanjungpunyablog.blogspot.co.id. 

Demikian lah Artikel dari mesran.net semoga informasi yang saya berikan bermanfaat bagi kita semua.<a href='http://mesran.blogspot.com/' target='_blank' rel='dofollow'><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiK1PH5kHRqBZu8Nbol9GHk6WMSsJBDq9n4k2Cq4jMi7YGvlsDSCJyV0hW5OZYVDLbsYQr5aMSuO12zPEphILdC3zqwrhb5WiweYi_wpFGtE69WyXJCs23jYgFbBOpQ4jXbrty9ycLiLCQ/s1600/mesran+punya.jpg" width='100%' /></a><br /><a href='http://stmik-budidarma.ac.id/' target='_blank' rel='dofollow'><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqr1zFw39PwpmLoAA137W3bmdMbWY9SQgmzKsrUT0DE3KZE7eFtBpNokgeNLi61yvdmrvP7gfHT2tGPxCvMR9QohMAbposqjrmbNVfVBToQXDzKZn1XhVBia0okDD1NZu_LMHhAjmTCfk/s1600/budidarma+punya.jpg" width='100%'/></a><br /><a href='http://mesran.net/' target='_blank' rel='dofollow'><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRK9DzecRG705HS47LJ_INCVIfw18T2_GwXlt8Cf_eFh7c-w6TC2vQ5hVBYrhjeI_dpLik66NLJI9uqFLIgcQ4CGLUOEWHWdvAG2NHYDDWtrzYhduaFU-qXtslZ6URli4PtSFCkL2xDsE/s1600/mesrannet.jpg" width='100%' /></a><br />

Read More

Tabel Penjualan Menggunakan Visual Basic

Tabel Penjualan Menggunakan Visual Basic

assalamualaikum wr,wb

Baiklah kali ini saya akan membagikan tutorial dalam perhitungan pada visual basic

1. ini adala model tampilan gambar nya 

2. Coding nya:

Public Class Form2

    Sub BuatTabel()

        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = pembeli.Text

        lst.SubItems.Add(kdbrg.Text)

        lst.SubItems.Add(nmbrg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(jmlbeli.Text)

        lst.SubItems.Add(harga.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub kdbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged

        Dim X As String

        Dim y As String

        X = Microsoft.VisualBasic.Left(kdbrg.Text, 2)

        y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)

        Select Case X

            Case "TS" : merk.Text = "Toshiba"

            Case "VG" : merk.Text = "V-GEN"

        End Select

        Select Case y

            Case "001" : nmbrg.Text = "Flashdisk 4GB"

            Case "002" : nmbrg.Text = "Flashdisk 2GB"

        End Select

        If X = "TS" And y = "001" Then

            harga.Text = 105000

        ElseIf X = "TS" And y = "002" Then

            harga.Text = 75000

        ElseIf X = "VG" And y = "001" Then

            harga.Text = 50000

        ElseIf X = "VG" And y = "002" Then

            harga.Text = 80000

        End If

    End Sub

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

        BuatTabel()

        kdbrg.Items.Add("TS001")

        kdbrg.Items.Add("TS002")

        kdbrg.Items.Add("VG001")

        kdbrg.Items.Add("VG002")

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

    End Sub

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

        End

    End Sub

    Private Sub pembeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembeli.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click

        lv.Items.Clear()

    End Sub

    Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click

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

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

    End Sub

    Private Sub merk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merk.TextChanged

    End Sub

End Class

Sekian Semoga bermanfaat

Read More