Nur Hayati

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 MENU

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

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 = "pegawai" And Jam.Text = 1 Then
            Lembur.Text = 5000
        ElseIf Jabatan.Text = "pegawai" And Jam.Text = 2 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "pegawai" And Jam.Text = 3 Then
            Lembur.Text = 15000

        ElseIf Jabatan.Text = "mandor" And Jam.Text = 1 Then
            Lembur.Text = 7500
        ElseIf Jabatan.Text = "mandor" And Jam.Text = 2 Then
            Lembur.Text = 15000
        ElseIf Jabatan.Text = "mandor" And Jam.Text = 3 Then
            Lembur.Text = 22500

        ElseIf Jabatan.Text = "menejer" And Jam.Text = 1 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "menejer" And Jam.Text = 2 Then
            Lembur.Text = 20000
        ElseIf Jabatan.Text = "menejer" And Jam.Text = 3 Then
            Lembur.Text = 30000
        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

LINK SOAL QUIZ

SOAL QUIZ N0 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

Selasa, 01 November 2011

MY ACTIVITY

Assalamualaikum,hai semua teman-temen yang baik hati yang sudah mengunjungi blog saya,kali ini saya akan

menulis tentang aktifitas saya sehari-hari sebagai mahasiswa,baiklah sebelumnya saya ingin memperkenalkan

diri saya agar teman-temen bisa lebih mengenal saya.

Nama : Nurhayati

Tempat/tlg Lahir : Batu-Bara, 31 Desember 1990

Pendidikan : Sistem Informasi , STMIK Budidarma

Hobby : Dengerin musik, Membaca

Buku : ketika cinta bertasbih,ayat-ayat cinta

Kutipan : Jika kamu pernah melakukan kesalahan belajarlah dari kesalahan itu,kemudian tinggalkan lah kesalahan itu setelah kamu mengambil pelajaran darinya.

Itulah sedikitnya tentang prifil saya dan sekarang saya akan menceritakan sedikit aktivitas saya sehari-hari

senin,

Pukul 05:30shalat shubuh

Pukul 07:00 melakukan pekerjaan rumah dan sarapan

Pukul 10:15 saya memebaca buku, hanya sekedar ngilangin suntuk

Pukul 12:30 shala dzuhur

Pukul 13:15 makan siang dan 14:20 saya tidur siang

Pukul 15:40 mandi dan shalat ashar

Pukul 17:00 nonton Tv atau ngumpul bareng teman2

Pukul 18:45 shalat maghrib dan 19:00

Pukul 20.00 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 kost saja selain itu

tidak ada akrifitas yang lain di luar rumah

*)migggu,saya beristirahat & kadang pergi ngumpul ma temen-temen

yAchhh…begitulah aktifitas saya sehari2 selama seminggu,tidak ada aktifitas yang lain yang saya lakukan sehari2

selain ke kampus dan di kost

Senin, 10 Oktober 2011

Membuat kalkulator sederhana VB.net

Pada pertemuan kali ini kita akan membuat sebuah program sederhana untuk perhitungan, yang biasa orang sebut yaitu kalkulator. Sederhana dan sangat mudah untuk yang masih awam dalam mempelajari bahasa pemrograman, kita langsung saja.

1. Pertama kita buka visual studio

2. Setelah kita buka visual studio kita buat lembar baru dengan klik new project dimana kita akan membuatnya dengan bahasa pemrograman Vb.net, windows form aplication dengan nama aplikasi kalkulator sederhana.

3. Setelah terdapat form kosong maka kita akan mulai pengambilankomponen yang akan di gunakan dalam membuat aplikasi kalkulato sederhana, yang kita butuhkan yaitu

Tools	text	name
Button	Tambah	Button1
Button	Kali	Button2
Button	Kurang	Button3
Button	Bagi	Button4
Text Box		Textbox1
Text box		Textbox2
Text box		Textbox3

Ini adalah listing program dari aplikasi kalkulator sederhana:
Public ClassForm1 Private SubButton1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)HandlesButton1.Click
        Dima, b As Decimal
       a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        TextBox3.Text = a + b
End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
        Dim a, b As Decimal
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        TextBox3.Text = a * b
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
        Dim a, b As Decimal
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        TextBox3.Text = a – b
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click
        Dim a, b As Decimal
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        TextBox3.Text = a / b
    End Sub
End Class

Dasar-Dasar Vb Net

sebelum kita mengenal lebih jauh tentang VB.NET alangkah baiknya kita terlebih dahulu mengerti area kerja pada VB.NET, sebenarnya VB 6 dan VB.NET tidak jauh beda baik pada area kerja atau pada command codenya. yah..bisa dibilang seperti ms.office 2003 sama ms.office 2007 deh...hanya tampilan dan fungsi-fungsinya lebih lengkap dibandingkan versi sebelumnya. ( itu menurut saya sendiri sich..hehehehe )

berikut tampilan pada area kerja VB.NET

Minggu, 09 Oktober 2011

Kunci Untuk Sukses

Betapa seringnya kita mendengar pepatah yang mengatakan ‘Waktu Adalah Uang. Tapi sebenarnya berapa banyak diantara kita yang benar-benar dapat memanfaatkan waktu yang kita miliki dengan sebaik-baiknya? Sebenarnya, jika Anda ingin mengatur kehidupan Anda dan membuatnya menyenangkan, sebagai permulaan yang Anda butuhkan adalah mengatur waktu Anda.

Motivasi Kehidupan

jangan jadikan suatu kegagalan sebagai alasan untuk takut mengalami kembali sehinga anda tak mau mencoba lagi,tapi lihatlah kegagalan sebgai kesuksesan.

apabila kamu melihat suatu keindahan,bersykurlah karena kamu masih bisa menikmati keindahan yang belum tentu akan kamubisa lihat lagi

hargai dan hormati orang lain jika kita ingin dihormati dan dihargai orang lain,serta hormati dan hargai diri sendiri terlebih dahulu baru kita bisa menghargai dan menghormati orang lain

jangan lelah untuk mencari ilmu karena segala sesuatu didunia ini perli ilmu,jika tak ada ilmumaka kita sama saja dengan orang mati,tak akan bisa berbuat apa apa.