Jumat, 27 Januari 2012

SOAL QUIZ NO.3

LISTING PROGRAM LOGIN

Public Class Form1

    Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masuk.Click
        If Nama.Text = "juli" And Password.Text = "123" Then
            formmenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf! Password salah!")
            Nama.Text = ""
            Password.Text = ""
        End If
    End Sub

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

    Private Sub Password_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Masuk_Click(sender, e)
        End If
    End Sub
End Class


HASIL PROGRAM
 



LISTING PROGRAM FORMMENU
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 ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class


 HASIL PROGRAM




 LISTING PROGRAM PENGGAJIAN KARYAWAN

 Public Class penggajian
        Sub clearisian()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        Janak.Text = ""
        Tanak.Text = ""
        Jam.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
        No.Focus()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Pegawai", 180, 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 = No.Text
        Lst.SubItems.Add(Kode.Text)
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(Tistri.Text)
        Lst.SubItems.Add(Janak.Text)
        Lst.SubItems.Add(Tanak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        Lv.Items.Add(Lst)
    End Sub
    Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load





        buattabel()
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("B001")
        Kode.Items.Add("B002")
        Jabatan.Items.Add("mandor")
        Jabatan.Items.Add("menejer")
        Jabatan.Items.Add("pegawai")
        Status.Items.Add("menikah")
        Status.Items.Add("tidak menikah")
        Jam.Items.Add("1")
        Jam.Items.Add("2")
        Jam.Items.Add("3")
    End Sub
    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub

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

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

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama.Text = "juli ana"
        ElseIf Kode.Text = "A002" Then
            Nama.Text = "nella"
        ElseIf Kode.Text = "B001" Then
            Nama.Text = "nur anjaz"
        ElseIf Kode.Text = "B002" Then
            Nama.Text = "Nurhayati"
        End If
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "menejer" Then
            Gaji.Text = 1750000
        ElseIf Jabatan.Text = "mandor" Then
            Gaji.Text = 2500000
        ElseIf Jabatan.Text = "pengawai" 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
            Tistri.Text = (0.09 * Gaji.Text)
        ElseIf Status.Text = "tidak menikah" Then
            Tistri.Text = 0
        End If
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Janak.Text = 1 Then
            Tanak.Text = (0.03 * Gaji.Text)
        ElseIf Janak.Text >= 2 Then
            Tanak.Text = (0.07 * Gaji.Text)
        End If



        If Jabatan.Text = "STAF" Then
            Lembur.Text = (Jam.Text * 5000)
        ElseIf Jabatan.Text = "MANDOR" Then
            Lembur.Text = (Jam.Text * 7500)
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Lembur.Text = (Jam.Text * 10000)
        End If


        Pajak.Text = (0.015 * Gaji.Text)

        Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)

    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 Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub
End Class


Hasil Program
 


Diposting oleh di Tidak ada komentar:

SOAL QUIS NO. 2



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()
        Lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 100, 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)
        Lv.Items.Add(lst)
    End Sub

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

    End Sub

    Private Sub btndatadipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndatadipilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))

    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
End Class


Hasil Program

LINK SOAL QUIZ
Diposting oleh di Tidak ada komentar:

Minggu, 09 Oktober 2011

MY ACTIVITY

MY  ACTIVITY


Assalamualaikum,hai semua teman2 yang baik hati yang sudah mengunjungi blog saya,kali ini saya akan menulis tentang aktifitas saya sehari2 sebagai mahasiswa,baiklah sebelumnya saya ingin memperkenalkan diri saya agar teman2 bisa lebih mengenal saya.Ok check it out…


Nama Lengkap     :JULI ANA
Temtala                 : Batu bara,8 Mei 1990
Pendidikan             : S1 sistem informasi,STMIK Budidharma,medan.
Hoby                     : Bernyanyi,Volly,Bandminton
Buku                      : Cerdas mengobati hati sendiri(Tombo Ati)
Novel                     : Ayat_Ayat Cinta
Motto                    : Maju terus pantang mundur.


senin,aktifitas saya pada hari senin adalah:
    Pukul 05:15,shalat shubuh
    Pukul 07:00 melakukan pekerjaan rumah dan sarapan
    Pukul 10:15 saya mengikuti pengajian intensif
    Pukul 12:30 shala dzuhur
    Pukul 13:15 makan siang dan 14:20 saya tidur siang
    Pukul 15:35 mandi dan shalat ashar
    Pukul 17:00 nonton Tv atau ngumpul bareng teman2
    Pukul 18:45 shalat maghrib dan 19:00 membaca Al-Qur’an
    Pukul 19:30 shalat isya dan setelah shalat isya saya belajar,mengerjakan tugas dan membaca buku motivasi atau buku lanjutan
    Pukul 10:35 tidur…


*)Selasa,hari selasa aktifitas saya tidak berbeda jauh dengan hari senin,bedanya kalau hari senin saya  di kos dan tidak ada jadwal kuliah,sedang hari selasa saya ada jadwal kuliah…
*)rabu,kamis,jum’at dan saptu,aktifitas saya hari tersebut  juga hanya sebatas kampus dan rumah sj selain itu tidak ada akrifitas yang lain di luar rumah
*)migggu,saya beristirahat
yAchhh…begitulah aktifitas saya sehari2 selama seminggu,tidak ada aktifitas yang lain yang saya lakukan sehari2 selain ke kampus dan di kos
Diposting oleh di Tidak ada komentar:

10 Trik Jitu Mendapatkan & Mempertahankan Persahabatan

10 Trik Jitu Mendapatkan & Mempertahankan Persahabatan
Sahabat itu memang bukan sekadar menjadi teman curhat, teman gaul, tapi juga teman kita di segala suasana, suka maupun duka. Nggak heran, saking pentingnya, maka harga persahabatan itu tak bisa ditawar-tawar. Bahkan tidak pernah bisa tergantikan.


Ada beberapa cara untuk mendapatkan persahabatan yang solid :


1. Jadilah diri sendiri. Jika Anda percaya kalau diri Anda cukup worthy bagi sebuah persahabatan, maka sikap dan perilaku Anda akan terlihat dari segala hal yang Anda lakukan. Nah, banyak orang yang merasa nyaman dan berpikir positif bila berkawan dengan mereka yang memiliki rasa percaya diri yang cukup baik.


2. Loyal. Sifat loyal merupakan salah satu pilar utama dalam sebuah persahabatan yang solid. Bagaimana tidak. Anda tentunya ingin dipercaya dan bisa mempercayai sahabat Anda bukan? Pun Anda tentu ingin sahabat Anda tetap bersama Anda di saat Anda tengah dalam kesulitan, begitu juga sebaliknya. Untuk itulah dibutuhkan yang namanya rasa setia.


3. Tidak anti kritikan. Sahabat yang sebenarnya konon adalah mereka yang tidak cuma rajin memuji tapi gemar pula memberi kritikan positif. Untuk itu Anda tak perlu anti dengan kritikan mereka karena toh tujuannya demi kebaikan Anda juga bukan?


4. Ringan tangan. Sahabat Anda akan sangat menghargai segala kebaikan dan pertolongan yang Anda berikan. Terlebih jika Anda melakukannya dengan ketulusan hati tanpa embel-embel sesuatu dan tanpa harus diminta olehnya.


5. Fair-minded. Sebagai sahabat, tentunya akan lebih baik jika Anda menelaah sebuah persoalan bersama dari sudut pandang yang berbeda. Cara tersebut kemungkinan akan lebih cepat menyelesaikan permasalahan.


6. Mau mendengar. Dalam menjalin persahabatan, Anda sebaiknya bukan cuma asal mendengar curhat-nya, tapi cobalah untuk memberikan perhatian dan jangan memonopoli pembicaraan.


7. Jangan gunakan teman Anda sebagai penasihat pribadi. Kenapa? Dikit-dikit, curhat, pasti bikin Anda jadi teman yang membosankan. Lain halnya bila Anda telah bertanya pada sahabat Anda apakah ia mau mendengarkan masalah Anda.


8. Berbagi kebahagiaan dengan sahabat. Jangan cuma waktu curhat saja Anda ingat teman, tapi waktu lagi bahagia juga perlu.


9. Jangan lupa ultah teman. Mengingat hari-hari khusus teman adalah keharusan. Kirim kartu atau bunga, untuk menunjukkan bahwa sahabat Anda bernilai besar.


10. Tunjukkan bahwa Anda memikirkan dia ketika Anda tidak bersamanya. Caranya macam-macam, bisa kirim kartu, e-mail, SMS, atau tinggalkan pesan di teleponnya, bila tidak sempat bertemu. Atau, bisa juga Anda kirim artikel dari majalah yang dia sukai
Diposting oleh di Tidak ada komentar:

Sabtu, 08 Oktober 2011

ARTI KEHIDUPAN

Arti Kehidupan

Apa yang kudengar...
Tak selamanya seperti yang kulihat...
Apa yang kuraba...
Tak selamanya seperti yang kurasa...
Apa yang kuingin...
Tak selamanya seperti yang terjadi...

Ku terus berjalan, di tepi harapan...
Tuk mencari arti...Arti Kehidupan yang fana ini...
Hanya semangat dan cintalah, yang membuatku bertahan...
Bertahan melawan sayatan angin kehidupan...

Mungkin hidup tak selamanya merah membara...
Terkadang harus merasakan kelamnya hitam..
Tapi...Masih ada cahaya putih dibalik awan kelam...
Masih ada harapan yang menanti...
Diposting oleh di Tidak ada komentar:

Jumat, 30 September 2011

KUTIPAN KATA2 INDAH

*Jangan mencari kawan yang membuat Anda merasa nyaman,tetapi carilah kawan yang memaksa Anda terus berkembang


*Bila Anda berpikir Anda bisa,maka Anda benar. Bila Anda berpikir Anda tidak bisa, Anda pun benar… karena itu ketika seseorang berpikir tidak bisa, maka sesungguhnya dia telah membuang kesempatan untuk menjadi bisa


*Jika Anda dapat memimpikannya, Anda dapat melakukannya


*Dalam setiap kisah sukses, Anda akan menemukan seseorang yang telah mengambil keputusan dengan berani


*Kesalahan terbesar adalah tidak pernah membuat keputusan. Setiap perawan tua sepakat dengan saya

Salah satu penemuan terbesar umat manusia adalah bahwa mereka bisa melakukan hal-hal yang sebelumnya mereka sangka tidak bisa dilakukan


*Biasakanlah untuk berpikir bahwa sukses hanya tinggal selangkah lagi dan pasti akan diraih, niscaya masa depan yang cerah akan ada di depan Anda


*Tidak ada jaminan kesuksesan, namun tidak mencobanya adalah jaminan kegagalan
Diposting oleh di Tidak ada komentar:

CINTA ILLAHI

 CINTA ILLAHI

 Udara pagi menghentakan diri... Saat jiwa terasingkan dari dunia nyata... Tersadar termenung dimanakah jiwa ini... Sudah kembalikah ke jasadnya atau masih di atas sana... Tiba tak kira merasakan udara hangat di hati ini... Saat cinta Nya merasuki jiwa... Bergegasnya ambil air untuk sucikan hati dan jasad... Dalam keheningan malam ditadahkan tangan ke langit... Sujud sembah seorang pencinta merindukan belaian kasih sayang Sang pemberi cinta... Dalam tadahan tangannya itu dibanjiri air suci... Diiringi bisikan rindu bergemuruh... Dialiri hati meringis betapa sangat cinta kepada Dia dan Yang telah dicinta... Semoga dipertemukan dalam tali kesucian... Benang keridhaan... Jiwa keikhlasan... Dalam kehidupan kelak... Bersama Nya.. .Amin ya robbal alamin. 
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)