Minggu, 29 November 2015

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

Latihan Praktikum Listview Pembayaran Tagihan PDAM (Tak ada Link)

Berikut Jawaban Program :
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LV.Columns.Add("kode", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jml Pemakaian", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pembayaran", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True


        Kode_pelanggan.Items.Add("001")
        Kode_pelanggan.Items.Add("002")
        Kode_pelanggan.Items.Add("003")

        Tipe.Items.Add("Toko")
        Tipe.Items.Add("Rumah")
        Tipe.Items.Add("Swalayan")
        Tipe.Items.Add("Pabrik")
    End Sub

    Private Sub Kode_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_pelanggan.SelectedIndexChanged
        Select Case Kode_pelanggan.Text
            Case "001"
                Nama.Text = "Jhon"
            Case "002"
                Nama.Text = "Eko"
            Case " 003"
                Nama.Text = "Dian"

        End Select
    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged
        Select Case Tipe.Text
            Case "Toko"
                Biaya_beban.Text = " 25000"
                Harga.Text = "300"
            Case "Rumah"
                Biaya_beban.Text = " 15000"
                Harga.Text = "100"
            Case "Swalayan"
                Biaya_beban.Text = " 10000"
                Harga.Text = "200"
            Case "Pabrik"
                Biaya_beban.Text = " 25000"
                Harga.Text = "500"
            Case ""
                Biaya_beban.Text = ""
                Harga.Text = ""
        End Select
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Total_tagihan.Text = Val(Biaya_beban.Text) + Val(Harga.Text * Jumlah_pemakaian.Text)
        pajak.Text = 0.01 * Total_tagihan.Text
        Pembayaran.Text = Val(Total_tagihan.Text) + Val(pajak.Text)

        Dim lst As New ListViewItem
        lst.Text = Kode_pelanggan.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(Biaya_beban.Text)
        lst.SubItems.Add(Jumlah_pemakaian.Text)
        lst.SubItems.Add(Total_tagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(Pembayaran.Text)
        lst.SubItems.Add(Harga.Text)
        LV.Items.Add(lst)


     
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()

    End Sub

    Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
        LV.Items.Clear()

    End Sub

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

    End Sub
End Class
======================================================================

Tampilan Hasil:

==================================================================

Demikilahlah postingan saya

Nama : Etty Diana Manurung
NPM : 14110306


Selamat Belajar Pemrograman VB NET

Kamis, 26 November 2015

Jawaban Quis Online Pak Mesran Dalam Bahasa C++

#include ("iostream") #include "conio.h" void main(){ int i,nik[15], gol[15], jumdata=4; char * nama ; float gaji,pajak,bersih ; cout("Informasi Penggajian Pegawai") ; for(i=0 ; i<jumdata ; i++ ){ cout("\nnik anda : ") ; cin("%d", &nik[i]) ; cout ("gol anda : ") ; cin("%d", &gol[i]) ; } clrscr() ; cout ("\n Informasi Penggajian Pegawai") ; cout ("\n---------------------------------------------------------------------") ; cout("\n No NIK Nama Golongan gaji pajak gaji bersih ") ; cout("\n---------------------------------------------------------------------") ; for(i=0 ; i<jumdata ; i++ ){ if(nik[i]==1){ nama = "Hendro" ; }else if(nik[i]==2){ nama = "Dian" ; }else if(nik[i]==3){ nama = "Jhoni" ; } if(gol[i]==1){ gaji =1500000 ; }else if(gol[i]==2){ gaji =2500000 ; }else if(gol[i]==3){ gaji =3500000 ; } pajak = 0.05 * gaji ; bersih = gaji-pajak; gotoxy(1,6+i) ; cout(" %i %d %s", i+1, nik[i], nama) ; gotoxy(30,6+i) ; cout("%i %10.0f %10.0f" "%10.0f", gol[i], gaji,pajak,bersih) ; } cout("\n--------------------------------------------------------------------") ; }

Kata-kata bijak motivasi dari "Tokoh dunia"



“jika ragu dalam melakukan sesuatu, sebaiknya tanya kepada diri sendiri, apa yang kita inginkan esok hari dari apa yang telah kita lakukan sebelumnya”
oleh Jonh Lubbock- pakar boilogi Inggris.

“kita hidup untuk saat ini, kita bermimpi untuk masa depan, dan kita belajar untuk kebenaran abadi”
oleh Chiang Kai Shek-pemimpin nasionalis Tiongkok.



“pengetahuan diperoleh dengan belajar, kepercayaan dengan keraguan, keahlian dengan berlatih, dan cinta dengan mencintai” 
oleh Thomas Szasz-psikiater asal Hungaria.

Kata-kata Bijak Versi Batak


Horasss, Sae adong do hata-hata namuttk rohatta sian versi batak on.

Dijolo raja sieahan, dipudi raja sipaimaon
(Hormatan do natua-tua dohot angka raja).

Sada silompa gadong dua silompa ubi,
Sada pe namanghatahon Sudema dapotan Uli.

Pitu batu martindi sada do sitaon nadokdok
(Unang maharaphu tu dongan).

Jujur do mula ni bada, bolus do mula ni dame
(Unang sai jujur-jujuri salani dongan, alai bolushon ma).

Siboru buas siboru Bakkara, molo dung puas sae soada mara
(Dame ma).

Sungkunon poda natua-tua, sungkunon gogo naumposo
(Bertanggung-jawab).

Selasa, 17 November 2015

Contoh Program Penggajian Pegawai Visual Basic.net 2008

1. Disainlah Lembar Kerja / Form Anda Seperti Gambar Dibawah :
Contoh Program Penggajian Pegawai  Visual Basic.net 2008
Gambar Di Atas Terdiri Dari Label,Textbox,Combobox Dan Button
                             

         2.     Keterangan
·         Name Pada Textbox,ComboBox  Di Kotak Properties Diganti Berdasarkan Label
Contoh :
Label
Name
NIk
Nik
Nama
Nama
Bagian
Bagian
Jabatan
Jabatan
·         Teks pada button  menjadi :
Hapus dan Proses
     Baiklah ..Setelah Selesai Kita Mengubah Name Pada Textbox,Combobox Dan Teks Pada Button , selanjutnya kita akan membuat printahnya atau pun codingnya
Okee :

          3.  Klik Double Bebas Pada Form Dan Isi Kan Printah 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("PM0011")
        jabatan.Items.Add("KEPALA DIVISI")
        jabatan.Items.Add("STAFF")
        jabatan.Items.Add("WAKIL KEPALA")
        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")
        jumlah_anak.Items.Add("0")
        jumlah_anak.Items.Add("1")
        jumlah_anak.Items.Add("2")
    End Sub
     4.  Klik Double Pada Combobox Nik Dan Isikan Printah Ini :
     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 = "Awal"
            Case "PS111"
                nama.Text = "Satria"
            Case "KU101"
                nama.Text = "Ria Hartati"
            Case "GD100"
                nama.Text = "fitri ariska"
            Case Else
                nama.Text = "Selamat Bangun"
        End Select
        Dim j As String
        j = Microsoft.VisualBasic.Left(nik.Text, 2)
        If j = "PM" Then
            bagian.Text = "Pemasaran"
        ElseIf j = "PS" Then
            bagian.Text = "Personalia"
        ElseIf j = "KU" Then
            bagian.Text = "Keuangan"
        ElseIf j = "GD" Then
            bagian.Text = "Gudang"
        End If
    End Sub

  5.Klik Double Pada ComboBox Jabatan Dan Isikan Printah Ini :

  Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "KEPALA DIVISI"
                gaji.Text = "5000000"
            Case "STAFF"
                gaji.Text = "2000000"
            Case Else
                gaji.Text = "3500000"
        End Select
        pajak.Text = gaji.Text * 0.1
    End Sub
   6. Klik double pada combobox status dan isikan printah ini:

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah"
                tunjangan_keluarga.Text = gaji.Text * 0.15
            Case "Tidak Menikah"
                jumlah_anak.Text = ""
                tunjangan_keluarga.Text = 0
        End Select
    End Sub
     7.   Klik Double Pada Combobox Jumlah Anak :

           Namun.. Sebelumnya Saya Disini Menggunakan Keypress / Dengan Menekan Tombol Enter Untuk Mendapatkan Tunjangan Anak Dan Total Gaji…
Okeyy J
Setelah Di Ubah Di Kotak “Selectedchanged” Menjadi “Keypress”
Isikan printah ini : 
  Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress
        If e.KeyChar = Chr(13) Then
            Select Case jumlah_anak.Text
                Case "0"
                    tunjangan_anak.Text = 0
                Case "1"
                    tunjangan_anak.Text = gaji.Text * 0.05
                Case "2"
                    tunjangan_anak.Text = gaji.Text * 0.1
                Case Else
                    tunjangan_anak.Text = gaji.Text * 0.5
            End Select
        End If
 total.Text = (gaji.Text) + Val(tunjangan_anak.Text) + Val(tunjangan_keluarga.Text) - pajak.Text
        total.Enabled = False
    End Sub
      8.  Kemudian Klik Doble Pada Button Hapus Dan Isikan Printah :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        nama.Text = ""
        nik.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        tunjangan_anak.Text = ""
        tunjangan_keluarga.Text = ""
        pajak.Text = ""
        status.Text = ""
        gaji.Text = ""
        total.Text = ""
        jumlah_anak.Text = ""
    End Sub
9   9.  Kemudian Klik Doble Pada Button keluar Dan Isikan Printah :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda ingin Keluar?", MsgBoxStyle.YesNo)
        If tanya = vbCancel Then
            Me.Close()
        ElseIf tanya = vbNo Then
            Me.Focus()
        ElseIf tanya = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

Hasilnya :