jawaban soal 3

listing program

Public Class Form1

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        If nama.Text = "NIA" And password.Text = "123" Then
            formmenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf! Password salah!")
            nama.Text = ""
            password.Text = ""
        End If

    End Sub

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

    End Sub

End Class

                                     

hasil program

listing program

Public Class formmenu

    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
        penggajian.show()
    End Sub

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
        End
    End Sub
End Class

hasil gambar

listing program

Public Class penggajian

    Sub buattabel()
        lv.Columns.Add("Nip", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Pegawai", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = nip.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(jlh_anak.Text)
        Lst.SubItems.Add(tunj_istri.Text)
        Lst.SubItems.Add(tunj_anak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(total_gaji.Text)
        lv.Items.Add(Lst)
    End Sub
    Sub clearisian()
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunj_istri.Text = ""
        jlh_anak.Text = ""
        tunj_anak.Text = ""
        jam.Text = ""
        lembur.Text = ""
        pajak.Text = ""
        total_gaji.Text = ""
        nip.Focus()
    End Sub

    Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        nip.Items.Add("001")
        nip.Items.Add("002")
        nip.Items.Add("003")
        jabatan.Items.Add("MANAGER")
        jabatan.Items.Add("MANDOR")
        jabatan.Items.Add("STAF")
        status.Items.Add("MENIKAH")
        status.Items.Add("TIDAK MENIKAH")
       
    End Sub


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

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        Call clearisian()
    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "001" Then
            nama.Text = "NIA"
        ElseIf nip.Text = "002" Then
            nama.Text = "AYU"
        ElseIf nip.Text = "003" Then
            nama.Text = "NORA"

        End If
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "MANAGER" Then
            gaji.Text = 1750000
        ElseIf jabatan.Text = "MANDOR" Then
            gaji.Text = 2500000
        ElseIf jabatan.Text = "STAF" Then
            gaji.Text = 1250000
        End If
    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "MENIKAH" Then
            tunj_istri.Text = (0.09 * gaji.Text)
        ElseIf status.Text = "TIDAK MENIKAH" Then
            tunj_istri.Text = 0
        End If
    End Sub

    Private Sub btnoke_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnoke.Click
        If jlh_anak.Text = 1 Then
            tunj_anak.Text = (0.03 * gaji.Text)
        ElseIf jlh_anak.Text >= 2 Then
            tunj_anak.Text = (0.07 * gaji.Text)
        End If

        If jabatan.Text = "STAF" Then
            lembur.Text = jam.Text * 5000

        ElseIf jabatan.Text = "MANAGER" Then
            lembur.Text = jam.Text * 7500
        ElseIf jabatan.Text = "MANDOR" Then
            lembur.Text = jam.Text * 10000
        End If

        pajak.Text = (0.015 * gaji.Text)

        total_gaji.Text = Val(gaji.Text) + Val(tunj_istri.Text) + Val(tunj_anak.Text) + Val(label12.Text) - Val(pajak.Text)

    End Sub

    Private Sub btnhapusdtaygdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdtaygdipilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        lv.Items.Clear()
    End Sub
End Class

 hasil program

kembali ke soal quiz

jawaban soal no 2

kembali ke soal Quiz


LISTING PROGRAM

Public Class Form1

    Sub BUATTABEL()
        ListView1.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("NAMA", 180, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True

    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = NPM.Text
        LST.SubItems.Add(NAMA.Text)
        ListView1.Items.Add(LST)

    End Sub

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

    Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
        ISITABEL()
        NPM.Text = ""
        NAMA.Text = ""
    End Sub

    Private Sub BTNHAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSSEMUA.Click
        ListView1.Items.Clear()

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub
End Class

hasil program

kembali ke soal Quiz

MOTIVASI HIDUP bagian 3

   Kecewa atau tidak, semua tergantung Anda, tergantung bagaimana Anda menyikapi kegagalan. Berharap sedikit hanya akan menghambat Anda mengoptimalkan potensi Anda.

Lebih banyak Anda mencoba, akan mendekatkan Anda kepada sukses, meskipun Anda akan mengalami banyak kegagalan.

Namun cuma itulah yang kita diperlukan, karena kita sering tidak tahu mana yang akan berhasil.

Kebahagian yang didapatkan oleh orang yang menghindari kekecewaan adalah kebahagian yang semu, dia bukan bahagia tetapi hanya tidak kecewa saja.

Banyak perusahaan yang dimulai dengan modal besar bangkrut, sebaliknya bisnis dengan modal kecil banyak yang berhasil. Jadi bukan uang yang menentukan keberhasilan Anda!

Ubahlah sudut pandang Anda terhadap kegagalan, maka Anda tidak akan kecewa terhadap kegagalan yang Anda alami, setidaknya kekecewaan Anda akan sedikit atau sementara saja.

Allah SWT mungkin memberikan ujian berupa kegagalan dan kehilangan kepada kita untuk mengajarkan hikmah kepada kita.

Mungkin, kegagalan, masalah, dan lingkungan yang tidak menyenangkan adalah sebagian dari skenario Allah SWT dalam membina diri kita.

Jangan hiraukan opini negatif Anda, bentuklah kebiasaan beraksi agresif dan positif terhadap ancaman, masalah, dan kegagalan. Fokuskan diri Anda pada sasaran akhirnya, terlepas apapun yang terjadi saat ini.

Jika sikap kita benar, pengalaman mengecewakan akan memberikan hikmah yang membuat kita bahagia.

Mari kita sama-sama belajar kepada pengalaman. Bukan saja pengalaman diri kita saja, tetapi kita juga bisa belajar pada pengalaman orang lain. Pengalaman adalah guru yang bijak.

Ketekunan dan kesabaran jika digabungkan menjadi modal yang sangat besar untuk meraih sukses.

Keberhasilan Anda adalah ditentukan oleh Anda sendiri dan takdir Allah SWT. Bukan oleh orang lain.

Ketimbang tersinggung dengan ejekan dan kritikan, akan lebih baik jika kita malah mengambil manfaatnya. Kadang ejekan dari musuh lebih jujur dari pada pujian seorang teman.

Para pemenang mangambil tanggung jawab terhadap hidupnya. Mereka tidak pernah menyalahkan orang lain atau pun lingkungan. Mereka tidak suka mencari-cari alasan terhadap kegagalan mereka.

Dengan hidup di atas garis, kita tidak akan mandeg dengan alasan kondisi atau apa pun yang terjadi pada diri kita. Hidup kita akan lebih hidup. Kita akan bergairah dan memiliki determinasi yang tinggi dalam mencapai cita-cita kita.

Orang yang biasa berdalih tidak akan mengambil pelajaran dari kesalahan dan kegagalan, kerena dia sudah siap untuk berdalih lagi.

Tidak akan ada keberhasilan tanpa tindakan. Tidak akan tindakan tanpa keberanian. Jadi tidak akan keberhasilan tanpa keberanian. sukses sejalan dengan keberanian.

Jika wawasan Anda akan semakin luas, Anda akan menemukan jalan-jalan baru untuk meraih sukses. Insya Allah dalam waktu yang tidak lama ketakutan pada diri Anda akan hilang.

Jangan takut menambah saingan dengan membina orang lain, rezeki Allah begitu melimpah di bumi ini. Dan Allah telah menetapkan rezeki bagi setiap makhluk-Nya bahkan hewan melata sekalipun.

MOTIVASI HIDUP bagian 2

Apa yang membedakan Anda dengan orang lain yang sukses? Jawabannya karena Anda tidak mengerjakan apa yang orang sukses kerjakan.

Segala sesuatu yang kita kejar selalu menuntut bayaran. Hal yang paling umum yang diperlukan saat mengejar cita-cita ialah mengganggu zona nyaman.

Suatu saat mungkin Anda merasa dunia ini bau terasi, kemana pun Anda pergi bau terasi selalu tercium. Sebelum Anda memutuskan bahwa dunia ini penuh dengan terasi, periksalah diri Anda mungkin ada terasi pada kumis atau pakaian Anda.

Untuk mengubah sikap, ternyata tergantung pada diri Anda sendiri.

Menghilangkan sifat dengki pada diri kita akan membantu kita menuju kesuksesan baik dunia maupun akhirat.

Dengan disiplin bukan saja kita tidak mendapatkan sangsi, tetapi dengan disiplin kita akan meraih sukses, terhindar (insya Allah) dari kecelakaan, dan disiplin juga adalah ibadah.

Bermimpilah, buatlah tujuan dari mimpi Anda, buatlah rencana, lakukan rencana, dan capailah mimpi Anda.

Mungkin saja di tempat lain rezeki Anda sudah menunggu.

Jika Anda mempunyai misi mulia, jangan takut untuk gagal, bukan hasil yang akan dinilai, tetapi usaha Anda untuk mencapainya.

Jika kegagalan menghampiri Anda bukan berarti Anda harus menyerah, tetapi cari jalan lain, kemudian kerjakan lagi. Sekali lagi, jangan cepat menyerah.

Menyerah adalah salah satu cara untuk gagal.

Jangan lupakan kegagalan, tetapi ambilah hikmahnya.

Lupakan kekecewaan, karena harapan dimasa depan masih terbentang luas dan begitu cerah.

Jika sudah tidak ada harapan, cobalah jalan yang lain. Masih banyak jalan lain yang bisa membawa Anda menuju kesuksesan.

Anda telah mendapatkan sesuatu yang berharga pada kegagalan sebelumnya, sehingga kini Anda telah lebih bijaksana, lebih berpengalaman, dan lebih terampil.

Diantara ribuan peluang dan kesempatan, di sana ada kesuksesan, namun dikelilingi dengan kegagalan. Ambil kesempatan dan peluang tersebut, biarkan Anda gagal dalam proses menemukan kesuksesan tersebut.

Setiap kegagalan yang Anda buat adalah anak tangga Anda menuju puncak, yaitu sukses. Setiap kegagalan yang Anda temukan, memberikan arah yang jelas menuju sukses.

Kegagalan:

·         dapat memberikan kekuatan

·         ladang mendapatkan pahala

·         dapat menggali potensi Anda

·         mengembangkan kreatifitas Anda.

Apabila apa yang sudah Anda rencanakan dan Anda mimpikan tidak terwujud dengan sukses, maka langkah yang paling baik Anda ambil adalah bertawakal pada Allah SWT

Jadi, berharaplah banyak, tetapi jangan kecewa jika gagal.

MOTIVASI HIDUP bagian 1

Cinta terbesar dan cinta hakiki bagi orang yang beriman ialah cinta kepada Allah. Sehingga cinta kepada Allah-lah yang seharusnya menjadi motivator terbesar dan tidak terbatas.

sukses yang sudah Anda alami di masa lalu akan membantu untuk memotivasi Anda di masa yang akan datang.

Jika Allah yang menjadi tujuan, kenapa harus dikalahkan oleh rintangan-rintangan yang kecil di hadapan Allah? Jika mencari nafkah merupakan ibadah, semakin kerja keras kita, insya Allah semakin besar pahala yang akan diberikan oleh Allah. Jika nafkah yang didapat merupakan bekal untuk beribadah, maka semakin banyak nafkah yang didapat, semakin banyak ibadah yang bisa dilakukan.

Uang + Ahklaqul Karimah akan menjadi modal yang sangat berharga baik untuk Anda sendiri, maupun untuk kemajuan Umat Islam. Kejarlah keduanya.

Jika niat sudah terpancang karena Allah, tidak akan ada halangan yang bisa menghentikan seseorang melakukan sesuatu. Niat karena Allah ialah motivator yang utama dan seharusnya menjadi satu-satunya motivator kita.

Jangan sampai kita terlena untuk memenuhi kekayaan duniawi yang sifatnya hanya sementara saja, hingga kita lupa akan tugas kita yang sesungguhnya di dunia ini yaitu mengumpulkan perbekalan untuk menuju kampung akhirat yang kekal. Jadi perkayalah diri Anda baik dengan materi maupun dengan ruhani, dan bagikan kekayaan tersebut kepada orang-orang yang ada disekitar Anda, terutama yang lebih membutuhkan.

Ada peluang dan ancaman dibalik harta yang kita miliki.

Tindakan kita akan mengacu kepada apa yang ada dalam pikiran kita.

Jangan terpaku dengan asumsi dan persepsi sendiri, karena bisa salah. Cobalah mulai membuka pikiran Anda terhadap pikiran orang lain, tentu saja dengan filter nilai-nilai yang Anda anut.

Seperti perkelahian orang yang kecil dengan orang yang besar, jika mengadu tenaga atau kekuatan tentu saja si kecil akan kalah, tetapi dengan kecerdikan, si besar bisa dikalahkan.

Sudahkah Anda melihat dan meneliti apa yang sudah Anda lakukan dan membuat rencana ke depan agar lebih baik?

Proyek besar tidak bisa diselesaikan sekaligus, tetapi harus dibagi-bagi kebagian yang kecil dan dapat dikendalikan.

Anda hanya memerlukan rencana yang sederhana dan tetap sederhana, yang penting Anda konsisten menjalankannya.

Dua hal yang perlu Anda ketahui sebelum memulai bisnis, pertama ketahuilah bahwa bisnis itu tidak mudah, kedua bekali diri Anda dengan sikap dan keterampilan yang memadai. Tetapi yakinlah bahwa Anda bisa.

Rencana adalah jembatan menuju mimpimu, jika tidak membuat rencana berarti tidak memiliki pijakan langkahmu menuju apa yang kamu cita-citakan.

Putuskan apa yang Anda inginkan, kemudian tulislah sebuah rencana, maka Anda akan menemukan kehidupan yang lebih mudah dibanding dengan sebelumnya.

Rencana memberikan arah langkah Anda.

Kunci pengelolaan waktu yang efektif: mengeset prioritas dan konsentrasi pada satu pekerjaan pada satu waktu.

Untuk mencapai puncak, Anda harus melalui anak tangga dan terus menerus naik, maka Anda akan mencapai puncak yang Anda inginkan.

Jika sukses merupakan akibat, tentu saja ada sebabnya. Jadi langkah pertama jika Anda ingin sukses ialah dengan mengetahui terlebih dahulu sebab-sebab yang membuat orang lain sukses.

MOTIVASI HIDUP

Semakin Anda memahami lebih banyak tentang dunia di sekitar Anda, semakin bergairah dan penasaran terhadap kenyataan hidup dalam hidup Anda.

---

Gairah adalah salah satu elemen pokok yang meringankan upaya dan mengubah kegiatan-kegiatan yang biasa-biasa saja menjadi suatu pekerjaan yang dapat dinikmati.

Semakin besar “Mengapa” Anda akan semakin besar energi yang mendorong Anda untuk meraih sukses.

Mimpi tidak hanya membantu Anda berhadapan dengan kegagalan, tetapi mereka juga memotivasi Anda secara konstan.

Mimpi masa kini adalah kenyataan hari esok.

Anda bisa, jika Anda berpikir bisa, selama akal mengatakan bisa. Batasan apakah sesuatu masuk akal atau tidak, kita lihat saja orang lain, jika orang lain telah melakukannya atau telah mencapai impiannya, maka impian tersebut adalah masuk akal.

Menuliskan tujuan akan sangat membantu dalam menjaga alasan melakukan sesuatu.

Apakah kita bisa untuk mengemban misi kita? Insya Allah kita bisa, karena Allah Mahatahu, Allah tahu sampai dimana potensi dan kemampuan kita. Jika kita tidak merasa mampu berarti kita belum benar-benar mengoptimalkan potensi kita.

Jika target obsesi itu baik, maka memiliki obsesi bukan hanya baik, tetapi harus. Karena motivasi dari sebuah obsesi sangat kuat.

Untuk menjadi sukses, Anda harus memutuskan dengan tepat apa yang Anda inginkan, tuliskan dan kemudian buatlah sebuah rencana untuk mencapainya.

Bisakah kita meraih sukses yang lebih besar lagi?

Merumuskan Visi dan Misi adalah salah satu bentuk dalam mengambil keputusan, bahkan pengambilan keputusan yang cukup fundamental. Visi dan Misi Anda akan menjiwai segala
gerak dan tindakan di masa datang.

Jangan takut dengan gagalnya meraih visi, kegagalan meraih visi sebenarnya bukan suatu kegagalan, tetapi merupakan keberhasilan yang Anda tempuh meski tidak sepenuhnya.

Visi itulah yang akan menuntun perjalanan hidup Anda.

Menciptakan kebiasaan baru adalah salah satu dari kunci sukses. Jika anda ingin sukses Anda harus mulai menciptakan kebiasaan-kebiasaan yang akan membawa Anda kepada kesuksesan.

Jika Anda ingin menang— dalam bisnis, karir, pendidikan, olah raga, dsb— maka Anda harus memiliki kebiasaan-kebiasaan seorang pemenang pula.

Jika Anda ingin suatu kehidupan yang berbeda, buatlah keputusan yang berbeda juga.

Tengoklah kembali perjalanan Anda saat ini, akan menuju kemana? Apakah ke arah yang lebih baik, atau ke arah yang lebih buruk, atau tetap saja seperti saat ini? Tetapkanlah sebuah putusan dan jalanilah menuju konsekuensinya.

Potensial pilihan Anda begitu melimpah, keputusan Anda dapat saja merubah hidup Anda secara dramatis dalam waktu singkat.

Hanya satu motivasi yang ada, yaitu Allah. Adapun motivasi lainnya harus dalam rangka “karena dan/atau untuk” Allah

MY DAILY ACTIVITIES

 Assalammmualaikum wr.wb.


terima kasih untuk sebelumnya,karna telah mengunjungi blog saya.kegiatan saya sehari-hari tidak begitu padat.
selama saya kuliah d medan.
sebelum saya beraktifitas saya bagun pagi,mandi,menunaikan kewajiban yg di perintahkan oleh allah,
 1.   di mulai hari senin saya dirumah,membersihakan atau ge beres2 rumah kos yang selama ini saya tempatin.
  sebelum nya saya tinggal bersama nenek/saudara (semuslim). saya anggap nenek kos saya sebagai nenek              saya  sendiri.   
2  .hari selasa saya kuliah masuk siang,setelah pulang kuliah saya kumpul bareng bersama2 teman.
3.  hari rabu kuliah pagi jam 8.15-13.15 setelah pulang kuliah saya langsung pulang,tidak seperti biasaanya(kumpul d kos teman)
4. hari kamis masuk kuliah jam 13.15.
   jika ada waktu luang saya masuk kelas BDMC
5. hari jumat kuliah dosennya kagak jelas(jarang masuk),setelah itu masuk jam ke dua sampai selesai pelajaran jam 4 sore.karna mata kuliah (pratikum)jadi lama.nggk apa-apa deh namanya jg moe belajar.
6. hari sabtu kuliah pagi jam 10.
   setelah mata kuliah selesai jalan2 bersama "my best friend"  
7. hari yang aku suka,karna bisa istirahat,dan menyelesaikan tugas-tugas kuliah saya.
dari kesekian kegiatan saya jika malam hari saya fb_n,chat sama teman2 d gruop & tidak lupa saya selallu bermain game online,,,
 Demikianlah kegiatan saya selama saya kuliah.
mohon di malumi ya!!
:-)
wassalammualaikum wr .wb