Belajar Pemograman di mesran.net

Pak Mesran adalah seorang dosen pemograman di STMIK BUDI DARMA Medan,selain itu Pak Mesran juga menjabat sebagai Ketua STMIK BUDI DARMA Medan.
 Pak Mesran juga mendirikan club pemograman yg bernama BPC (Budi Darma Programing Club) yang terbentuk sejak beberapa tahun yang lalu, Pak Mesran juga mengelola sebuah situs internet dan juga sebuah blog yang aktif yaitu mesran.net dan http://mesran.blogspot.com/
  mesran.net adalah situs yang membahas seluruhnya tentang programing  mulai dari Visual Basic 6,Visual Basic NET ,DELPHI,C++,C,PASCAL,PHP dan banyak lagi informasi menarik lainnya. begitu juga dengan http://mesran.blogspot.com/ yang selalu update tiap harinya,
Kita juga bisa belajar pemograman di sana,sesuai dengan motto yang tercantum diMesran Punya Blog yaitu "Selalu berusaha untuk memberikan yang terbaik" dan juga dimesran.net yaitu "Hanya ingin berbagi kebaikan mendapatkan kebaikan yang lain"
Buat  yang ingin belajar bahasa programan silahkan kunjungi situs ini mesran.net dan Selalu berusaha untuk memberikan yang terbaik Terima kasih Pak mesran yg telah mengajari kami bahasa pemograman,buat pak mesran sukses selalu

Read More

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikanlah Kasus Berikut :

Modifikasi program berikut ini http://mesran.blogspot.com/2013/11/pemakaian-if-else-dalam-penyelesaian.html dengan menambahkan komponen LISTVIEW

(http://mesran.net/quiz.html)

Berikut ini adalah jawabannya

buat terlebih dahulu desain formnya 

 

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        kp.Items.Add("PAB-MED-100")
        kp.Items.Add("TOK-BEL-101")
        kp.Items.Add("SWA-MED-102")
        kp.Items.Add("SAL-BEL-103")
        kp.Items.Add("GRO-DEL-104")
    End Sub

    Private Sub jp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then
            ttagihan.Text = Val(bbeban.Text) + (harga.Text * jp.Text)
            pajak.Text = 0.01 * ttagihan.Text
            pembayaran.Text = Val(ttagihan.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kp.Text, 3)
        Select Case x
            Case "100" : nama.Text = "Suhairy Tri Yadhi"
            Case "101" : nama.Text = "Paul Walker"
            Case "102" : nama.Text = "Dominic Toretto"
            Case "103" : nama.Text = "Brian Haner"
            Case "104" : nama.Text = "Lukman Wijaya"
        End Select
        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        Select Case x
            Case "TOK"
                harga.Text = 250
                bbeban.Text = 15000
                tipe.Text = "TOKO"
            Case "RUM"
                harga.Text = 150
                bbeban.Text = 10000
                tipe.Text = "RUMAH"
            Case "PAB"
                harga.Text = 25000
                bbeban.Text = 250000
                tipe.Text = "PABRIK"
            Case "SWA"
                harga.Text = 20000
                bbeban.Text = 60000
                tipe.Text = "SWALAYAN"
            Case "SAL"
                harga.Text = 900
                bbeban.Text = 20000
                tipe.Text = "SALON"
            Case "GRO"
                harga.Text = 100
                bbeban.Text = 1100
                tipe.Text = "GROSIR"
        End Select
        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        Select Case x
            Case "MED"
                : daerah.Text = "MEDAN"
            Case "BEL"
                : daerah.Text = "BELAWAN"
            Case Else
                : daerah.Text = "DELI SERDANG"
        End Select
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tanya As String
        tanya = MsgBox("Anda Yakin Ingin Keluar ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub
    Sub BuatTabel()
        LV.Columns.Add("Kode Pelanggan", 20, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga M3", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 160, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Pemakaian", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 120, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = nama.Text
        Lst.SubItems.Add(kp.Text)
        Lst.SubItems.Add(tipe.Text)
        Lst.SubItems.Add(daerah.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(bbeban.Text)
        Lst.SubItems.Add(jp.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(nama.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub btnproses_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        IsiTabel()
        nama.Text = ""
        kp.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        harga.Text = ""
        bbeban.Text = ""
        jp.Text = ""
        pajak.Text = ""
        ttagihan.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub btnhapus_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub

    Private Sub btnberhis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnberhis.Click
        kp.Text = ""
        nama.Text = ""
        tipe.Text = ""
        harga.Text = ""
        jp.Text = ""
        ttagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        bbeban.Text = ""
        pajak.Text = ""
    End Sub
End Class

Tekan F5 untuk menjalankan tugas 

jika tehah selesai maka tampilannya akan seperti ini

Demikilahlah postingan saya  Nama : lukman wijaya  NPM : 12110631
 selamat belajar bahasa pemograman dan jangan lupa kunjungi  blog pak mesran

 

Read More

Mencari Gaji Karyawan Menggunakan Visual Basic 2008 (VB.NET 2008)

disini saya akan menshare cara menentukan gaji karyawan menggunakan vb.net 2008
buat form baru untuk tempat desainnya seperti dibawah ini

selanjutnya letakkan dan desain satu persatu label,textcombobox,dan buttonnya seperti dibawah ini

lalu berilah nama pada label ,texbox,combobox,dan button
sesuai dengan keinginan kita masing masing

selajnutnya isi listingnya seperti dibawah ini


Public Class Form1

   

    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")
        status.Items.Add("Menikah")
        status.Items.Add("Belum Menikah")
        Dim L As Byte
        For L = 0 To 15
            jumnak.Items.Add(L)
        Next
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case ("pm010")
                nama.Text = "lukman"
            Case ("ps111")
                nama.Text = "suhairi"
            Case ("ku101")
                nama.Text = "robby"
            Case ("gd100")
                nama.Text = "dedi"
            Case ("pm011")
                nama.Text = "ruswin"

        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 = "personalia"
        ElseIf x = "ku" Then
            bagian.Text = "keuangan"
        ElseIf x = "gd" Then
            bagian.Text = "gudang"


        End If
    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")
                gapok.Text = "5000000"
                pajak.Text = 0.1 * gapok.Text
            Case ("wakil")
                gapok.Text = "3500000"
                pajak.Text = 0.1 * gapok.Text
            Case ("staff")
                gapok.Text = "2000000"
                pajak.Text = 0.1 * gapok.Text



        End Select
    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "Menikah" Then
            tunker.Text = 0.1 * gapok.Text
        Else
            tunker.Text = 0
        End If
    End Sub

    Private Sub jumnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumnak.SelectedIndexChanged
       
        Select Case jumnak.Text
            Case "1"
                tunjan.Text = 0.05 * gapok.Text
            Case "2"
                tunjan.Text = 0.1 * gapok.Text
            Case "3 to 15"
                tunjan.Text = 0 * gapok.Text
        End Select
    End Sub
     
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nik.Text = ""
        nama.Text = ""
        tunjan.Text = ""
        tunker.Text = ""
        gapok.Text = ""
        jumnak.Text = ""
        status.Text = ""
        toga.Text = ""
        jabatan.Text = ""
        pajak.Text = ""
        bagian.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        toga.Text = Val(gapok.Text) + Val(tunker.Text) + Val(tunjan.Text) - Val(pajak.Text)
    End Sub
End Class

coba jalankan program menggunakan "F5" tanpa tanda kutip , jika masih terdapat eror coba perbaiki eror tersebut
jika sudah berjalan maka tampilannya akan seperti dibawah ini

Demikianlah postingan saya kali ini,semoga bermanfaat buat kita semua
mohon kritik dan saran membangunyya ya........
lukmanwijaya4@gmail.com

Read More

penggunaan listview pada visual basic 2008

seperti yang kita ketahui, listview digunakan untuk menampilkan data dalam bentuk tabel yang mempunyai baris dan kolom,tidak seperti combobox yang hanya memiliki satu kolom saja,
disini sayak akan menshare kepada teman teman contoh penggunaan listview
1.buat dan desainlah terlebih dahulu form nya seperti contoh dibawah ini

2. gantilah name pada textbox dan combo box menjadi
nmp           = npm
nama          = nama
kelas          = kelas
mata kuliah = mk
dosen         = ds

3. masukkan listingnya seperti berikut ini
 Public Class Form1
    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        LV.Columns.Add("kelas", 80, HorizontalAlignment.Center)
        LV.Columns.Add("ds", 120, HorizontalAlignment.Center)
        LV.Columns.Add("mk", 120, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = npm.Text
        LST.SubItems.Add(nama.Text)
        LST.SubItems.Add(kelas.Text)
        LST.SubItems.Add(mk.Text)
        LST.SubItems.Add(ds.Text)
        LV.Items.Add(LST)

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        mk.Items.Add("pemograman visual")
        mk.Items.Add("struktur data")
        mk.Items.Add("sistem operasi")
        mk.Items.Add("komunikasi data")
        mk.Items.Add(" sistem basis data")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        ISITABEL()
        npm.Text = ""
        nama.Text = ""
        kelas.Text = ""
        mk.Text = ""
        ds.Text = ""
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub hs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hs.Click
        LV.Items.Clear()
    End Sub

   
    Private Sub mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mk.SelectedIndexChanged
        Select mk.Text
            Case "pemograman visual"
                ds.Text = "Mesran M.Kom"
            Case "struktur data"
                ds.Text = "Marzuki Sinambela,M.Kom"
            Case "sistem operasi"
                ds.Text = "Yasir Hasan,M.Kom"
            Case "komunikasi data"
                ds.Text = "Sony Bahagia,S.Kom"
            Case "sistem basis data"
                ds.Text = "Rivalri Hondro,S.Kom"
        End Select

    End Sub
End Class
4.jika telah selesai memasukkan listingnya maka cobalah menjalankannya dengan menekan tombol "F5" pada keyboard atau meng "KLIK" lambang "PLAY" jika masih terdapat yang eror  cobalah memperbaikinya hingga tidak ada yang eror lagi
jika telah berjalan maka tampilannya akan seperti ini

cobalah isi setiap tabnya dan simpan dengan cara meng "KLIK" simpan kelistview
seperti inilah tampilannya jika kita sudah mengisi data

 

ini lah contoh penggunaak listview semoga bermanfaat buat kita semua 

Read More

mencari nilai mahasiswa menggunakan vb.net 2008

Disini saya akan mencuba menshare cara mencari nilai mahasiswa dengan menggunakan vb.net 2008 kepada temen temen semua semoga bermanfaat buat kita semua
berikut langkah kangkahnya
1. buatlah  formya seperti dibawah ini :

2. setelah itu buatlah desain awal formnya seperti dibawah ini:

3. setelah desain sudah dibuat , selanjutnya gantilah text dan name yang ada pada gambar diatas menjadi

 untuk namenya sesuaikan dengan text yg ada pada label
 text = name
npm = npm
nama = nama
jenjang = jenjang
jurusan = juru
kode dosen = kodos
nama dosen = nados
kode mata kuliah = komaku
mata kuliah = maku
kehadiran = keha
nilai tugas = nitu
nilai uts = niut
nilai uas = niua
nilai akhir = niak
nilai huruf = nihu
keterangan = ket
untuk buttonnya
name = text
btnhapus = hapus
btnproses = proses
btnkeluar = keluar

4. setelah langkah ke 3 selesai maka selanjutnya kita mengisi syntaksnya seperti dibawah ini :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110631")
        npm.Items.Add("12110636")
        npm.Items.Add("12110641")
        npm.Items.Add("12110643")
        npm.Items.Add("12110666")
        npm.Items.Add("12110917")
        kodos.Items.Add("MS004303")
        kodos.Items.Add("YS004306")
        kodos.Items.Add("TL004307")
        kodos.Items.Add("MN004305")
        kodos.Items.Add("MP004304")
        kodos.Items.Add("PS004309")
        komaku.Items.Add("SD03")
        komaku.Items.Add("SO03")
        komaku.Items.Add("SBD03")
        komaku.Items.Add("PV03")
        komaku.Items.Add("MTL02")
        komaku.Items.Add("KD02")
        Dim x As Integer
        For x = 100 To 1 Step -1
            keha.Items.Add(x)
            nitu.Items.Add(x)
            niut.Items.Add(x)
            niua.Items.Add(x)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110631"
                nama.Text = "lukman wijaya"
                juru.Text = "Teknik Informatika"
                jenjang.Text = "S1"
            Case "12110636"
                nama.Text = "Dini Audina"
                juru.Text = "Sistem Informasi"
                jenjang.Text = "S1"
            Case "12110641"
                nama.Text = "Hidayat"
                juru.Text = "Manajemen"
                jenjang.Text = "PASKA SARJANA"
            Case "12110643"
                nama.Text = "Suhendrik"
                juru.Text = "Akutansi"
                jenjang.Text = "DI"
            Case "12110666"
                nama.Text = "Bagus Darwanto"
                juru.Text = "Teknk Industri"
                jenjang.Text = "DIII"
            Case "12110917"
                nama.Text = "Suhairi Triyadhi"
                juru.Text = "Teknik Informatika"
                jenjang.Text = "S1"

        End Select
    End Sub

    Private Sub kodos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodos.SelectedIndexChanged
        Select Case kodos.Text
            Case "MS004303"
                nados.Text = "marzuki sinambela s.kom, m.kom  "
            Case "YS004306"
                nados.Text = "yasir hasan s.kom, m.kom "

            Case "TL004307"
                nados.Text = "tonni limbong s.kom, m.kom "
            Case "MP004304"
                nados.Text = "megaria purba s.si, m.kom "
            Case "MN004305"
                nados.Text = "mesran s.kom, m.kom "
            Case "PS004309"
                nados.Text = "priswanto s.kom, m.kom "

        End Select
    End Sub

    Private Sub komaku_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles komaku.SelectedIndexChanged
       
        Select Case komaku.Text
            Case "SD03"
                maku.Text = "Struktur Data"
            Case "SO03"
                maku.Text = "Sistem Operasi"
            Case "SBD03"
                maku.Text = "Sistem Basis Data"
            Case "PV03"
                maku.Text = "Pemograman Visual"
            Case "MTL02"
                maku.Text = "Matriks dan Transformasi Linier"
            Case "KD02"
                maku.Text = "Komunikasi Data"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        niak.Text = 0.1 * keha.Text + 0.15 * nitu.Text + 0.35 * niut.Text + 0.4 * niua.Text
        If niak.Text >= 50 Then
            ket.Text = "Lulus"
        Else
            ket.Text = "Gagal"
        End If
        If niak.Text >= 80 Then
            nihu.Text = "A"
        ElseIf niak.Text >= 70 Then
            nihu.Text = "B"
        ElseIf niak.Text >= 60 Then
            nihu.Text = "C"
        ElseIf niak.Text >= 50 Then
            nihu.Text = "D"
        Else
            nihu.Text = "E"

        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        kodos.Text = ""
        nados.Text = ""
        komaku.Text = ""
        maku.Text = ""
        keha.Text = ""
        nitu.Text = ""
        niut.Text = ""
        niua.Text = ""
        niak.Text = ""
        nihu.Text = ""
        juru.Text = ""
        ket.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
5. jika semua telah selesai maka maka coba jalankan aplikasinya dengan cara menekan tombol "F5"  jika masih ada yang eror maka perbaiki terlrbih dahulu jika sudah selesai dan tidak ada yang eror maka aplikasinya akan seperti dibawah ini :

cobalah isi comboboxnya seperti dibawah ini

mudah bukan? asalkan kita mau berusaha dan balajar maka kita pasti bisa
mohon kritik pedasnya ya buat semuanya

Read More

mencari nilai mahasiswa

Perhitungan nilai mahasiswa 

berikut unu adalah langkah langkah membuat perhitungan nilai mahasiswa 

1. buatlah form nya terlebih dahuhlu ,lalu desain dan ganti nama dan textnya pada propertis di setiap label,teksbos,combobox,dan button singkat saja agar tidak membingungkan kita nantinya saat menuliskan syntaksnya

 

2. selanjutnya isikan syntaksnya sesuai tempanya masing masing seperti dibawah ini

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110631")
        npm.Items.Add("12110636")
        npm.Items.Add("12110641")
        npm.Items.Add("12110643")
        npm.Items.Add("12110666")
        npm.Items.Add("12110917")
        kodos.Items.Add("MS004303")
        kodos.Items.Add("YS004306")
        kodos.Items.Add("TL004307")
        kodos.Items.Add("MN004305")
        kodos.Items.Add("MP004304")
        kodos.Items.Add("PS004309")
        komaku.Items.Add("SD03")
        komaku.Items.Add("SO03")
        komaku.Items.Add("SBD03")
        komaku.Items.Add("PV03")
        komaku.Items.Add("MTL02")
        komaku.Items.Add("KD02")
        Dim x As Integer
        For x = 100 To 1 Step -1
            keha.Items.Add(x)
            nitu.Items.Add(x)
            niut.Items.Add(x)
            niua.Items.Add(x)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110631"
                nama.Text = "lukman wijaya"
                juru.Text = "Teknik Informatika"
                jenjang.Text = "S1"
            Case "12110636"
                nama.Text = "Dini Audina"
                juru.Text = "Sistem Informasi"
                jenjang.Text = "S1"
            Case "12110641"
                nama.Text = "Hidayat"
                juru.Text = "Manajemen"
                jenjang.Text = "PASKA SARJANA"
            Case "12110643"
                nama.Text = "Suhendrik"
                juru.Text = "Akutansi"
                jenjang.Text = "DI"
            Case "12110666"
                nama.Text = "Bagus Darwanto"
                juru.Text = "Teknk Industri"
                jenjang.Text = "DIII"
            Case "12110917"
                nama.Text = "Suhairi Triyadhi"
                juru.Text = "Teknik Informatika"
                jenjang.Text = "S1"

        End Select
    End Sub

    Private Sub kodos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodos.SelectedIndexChanged
        Select Case kodos.Text
            Case "MS004303"
                nados.Text = "marzuki sinambela s.kom, m.kom  "
            Case "YS004306"
                nados.Text = "yasir hasan s.kom, m.kom "

            Case "TL004307"
                nados.Text = "tonni limbong s.kom, m.kom "
            Case "MP004304"
                nados.Text = "megaria purba s.si, m.kom "
            Case "MN004305"
                nados.Text = "mesran s.kom, m.kom "
            Case "PS004309"
                nados.Text = "priswanto s.kom, m.kom "

        End Select
    End Sub

    Private Sub komaku_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles komaku.SelectedIndexChanged
       
        Select Case komaku.Text
            Case "SD03"
                maku.Text = "Struktur Data"
            Case "SO03"
                maku.Text = "Sistem Operasi"
            Case "SBD03"
                maku.Text = "Sistem Basis Data"
            Case "PV03"
                maku.Text = "Pemograman Visual"
            Case "MTL02"
                maku.Text = "Matriks dan Transformasi Linier"
            Case "KD02"
                maku.Text = "Komunikasi Data"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        niak.Text = 0.1 * keha.Text + 0.15 * nitu.Text + 0.35 * niut.Text + 0.4 * niua.Text
        If niak.Text >= 50 Then
            ket.Text = "Lulus"
        Else
            ket.Text = "Gagal"
        End If
        If niak.Text >= 80 Then
            nihu.Text = "A"
        ElseIf niak.Text >= 70 Then
            nihu.Text = "B"
        ElseIf niak.Text >= 60 Then
            nihu.Text = "C"
        ElseIf niak.Text >= 50 Then
            nihu.Text = "D"
        Else
            nihu.Text = "E"

        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        kodos.Text = ""
        nados.Text = ""
        komaku.Text = ""
        maku.Text = ""
        keha.Text = ""
        nitu.Text = ""
        niut.Text = ""
        niua.Text = ""
        niak.Text = ""
        nihu.Text = ""
        juru.Text = ""
        ket.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

3. jika telah selesai,selanjutnya jalankan aplikasinya dengan cara menekan"F5" atau menekan ikon play pada menubar ,jika masih terdapat eror perbaiki terlebih dahulu karna aplikasi tidak akan mau berjalan jika masih terdapan syntaks yang masih eror,

 maka hasilnya akan seperti ini :

Read More

cara mencari nilai akhir menggunakan vbner 2008

untuk desainnya seperti ini





untuk listting nya adalah seperti ini



Public Class Form1
    Private Sub buttonhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonhapus.Click
        mk.Text = ""
        Dosen.Text = ""
        nm.Text = ""
        ns.Text = ""
        na.Text = ""

    End Sub

    Private Sub buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonproses.Click
        na.Text = 0.4 * nm.Text + 0.6 * ns.Text
    End Sub

    Private Sub buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonkeluar.Click
        End

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mk.items.add("pemograman visual")
        mk.Items.Add("PTI")
        Dosen.Items.Add("Toni Limbong,S.Kom M.Kom")
        Dosen.Items.Add("Sinar Sinurat S.T M.Kom")
    End Sub

    Private Sub nm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nm.TextChanged

    End Sub
End Class


Maka hasilnya akan seperti ini


 

Read More