JAWABAN QUIS VISUAL BASIC

NOMOR 2

NAMA  : YENI AGUSTI

KELAS  :SI-P0905
NPM    : 0911653

kasus

Public Class btnhapus

    Sub buattabel()

        LV.Columns().Add("NPM", 90, HorizontalAlignment.Center)

        LV.Columns().Add("Nama", 95, HorizontalAlignment.Left)

        LV.Columns().Add("Tahun", 95, HorizontalAlignment.Right)

        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(tahun.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()

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        isitabel()

        npm.Text = ""

        nama.Text = ""

        tahun.Text = ""

    End Sub

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

    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 Btnhapuss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapuss.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

End Class

JAWABAN NOMOR  : 3

Public Class FormMenu

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

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

        fromKaryawan.Show()

    End Sub

End Class

Public Class FormMenu

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

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

        fromKaryawan.Show()

    End Sub

End Class

Public Class fromKaryawan

    Private Sub Nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nip.SelectedIndexChanged

        If NIP.Text = "11115" Then

            Nama.Text = "RASID"

        ElseIf NIP.Text = "11116" Then

            Nama.Text = "JUAINI"

        ElseIf NIP.Text = "11117" Then

            Nama.Text = "BEFRINA"

        ElseIf NIP.Text = "11118" Then

            Nama.Text = "RAFA"

        End If

    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged

        If Golongan.Text = "IIIA" Then

            Gaji.Text = "3000000"

        ElseIf Golongan.Text = "IIIB" Then

            Gaji.Text = "2500000"

        ElseIf Golongan.Text = "IIIC" Then

            Gaji.Text = "2000000"

        ElseIf Golongan.Text = "IIID" Then

            Gaji.Text = "1500000"

        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

            tunjangankeluarga.Text = 16% * Gaji.Text

        ElseIf Status.Text = " TIDAK MENIKAH" Then

            tunjangankeluarga.Text = 0

        End If

    End Sub

    Private Sub jumlahAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahAnak.SelectedIndexChanged

        If jumlahAnak.Text = "1" Then

            Tunjangananak.Text = 10% * Gaji.Text

        ElseIf jumlahAnak.Text = "2" Then

            Tunjangananak.Text = 19% * Gaji.Text

        End If

    End Sub

    Sub Buattabel1()

        LV.Columns.Add("NIP", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Golongan", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Gaji", 80, HorizontalAlignment.Center)

        LV.Columns.Add("status", 80, HorizontalAlignment.Center)

        LV.Columns.Add("tunjangan keluarga", 150, HorizontalAlignment.Center)

        LV.Columns.Add("jumlah anak", 120, HorizontalAlignment.Center)

        LV.Columns.Add("tunjangan anank", 120, HorizontalAlignment.Center)

        LV.Columns.Add("total", 80, HorizontalAlignment.Center)

        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(Golongan.Text)

        Lst.SubItems.Add(Gaji.Text)

        Lst.SubItems.Add(Status.Text)

        Lst.SubItems.Add(tunjangankeluarga.Text)

        Lst.SubItems.Add(jumlahAnak.Text)

        Lst.SubItems.Add(Tunjangananak.Text)

        Lst.SubItems.Add(Total.Text)

        LV.Items.Add(Lst)

    End Sub

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

        Buattabel1()

        NIP.Items.Add("11115")

        NIP.Items.Add("11116")

        NIP.Items.Add("11117")

        NIP.Items.Add("11118")

        Golongan.Items.Add("IIIA")

        Golongan.Items.Add("IIIB")

        Golongan.Items.Add("IIIC")

        Golongan.Items.Add("IIID")

        Status.Items.Add("Menikah")

        Status.Items.Add("Belum Menikah")

        jumlahAnak.Items.Add("1")

        jumlahAnak.Items.Add("2")

    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

        IsiTabel()

        Total.Text = Val(Gaji.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text)

    End Sub

    Private Sub Tunjangananak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tunjangananak.TextChanged

        Total.Text = Val(Gaji.Text) + Val(TunjanganAnak.Text)

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        IsiTabel()

        NIP.Text = ""

        Nama.Text = ""

        Golongan.Text = ""

        Gaji.Text = ""

        Status.Text = ""

        TunjanganKeluarga.Text = ""

        TunjanganAnak.Text = ""

        Total.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

listview

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Tabel()
End Sub
Sub Tabel()
ListView1.Columns.Add(“NPM”, 60, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nama”, 110, HorizontalAlignment.Left)
ListView1.Columns.Add(“Jurusan”, 130, HorizontalAlignment.Center)
ListView1.Columns.Add(“Jenjang”, 70, HorizontalAlignment.Center)
ListView1.Columns.Add(“Tahun Masuk”, 90, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nilai Angka”, 75, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nilai Huruf”, 75, HorizontalAlignment.Center)
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.View = View.Details
End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = NPM.Text()
Lst.SubItems.Add(Nama.Text)
Lst.SubItems.Add(Jurusan.Text)
Lst.SubItems.Add(Jenjang.Text)
Lst.SubItems.Add(TahunMasuk.Text)
Lst.SubItems.Add(Angka.Text)
Lst.SubItems.Add(Huruf.Text)
ListView1.Items.Add(Lst)
End Sub
Private Sub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.TextChanged
Dim Lst As String
TahunMasuk.Text = “20″ & Microsoft.VisualBasic.Left(NPM.Text, 2)
Lst = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
If Lst = “01″ Then
Jenjang.Text = “Diploma I”
ElseIf Lst = “02″ Then
Jenjang.Text = “Diploma III”
ElseIf Lst = “03″ Then
Jenjang.Text = “Strata I”
End If
Lst = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
If Lst = “01″ Then
Jurusan.Text = “Manajemen Informatika”
ElseIf Lst = “02″ Then
Jurusan.Text = “Sistem Informasi”
ElseIf Lst = “03″ Then
Jurusan.Text = “Teknik Komputer”
ElseIf Lst = “04″ Then
Jurusan.Text = “Akutansi”
End If
End Sub
Private Sub Angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Angka.TextChanged
If Angka.Text >= “80″ Then
Huruf.Text = “A”
ElseIf Angka.Text >= “70″ Then
Huruf.Text = “B”
ElseIf Angka.Text >= “60″ Then
Huruf.Text = “C”
ElseIf Angka.Text >= “50″ Then
Huruf.Text = “D”
Else
Huruf.Text = “E”
End If
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
IsiTabel()
NPM.Text = “”
Nama.Text = “”
Jurusan.Text = “”
Jenjang.Text = “”
TahunMasuk.Text = “”
Angka.Text = “”
Huruf.Text = “”
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Tabel()
End Sub
Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
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 BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class

Puisiii....

 

 Air mata tak lagi tertahan
Keramaian tak lagi bisa menjadi hiburan
Tak juga tenang karena kesunyian
Hanya Engkaulah yang bisa menangkan

Saat hati ini tertindih
Menangis dan merintih
Hanya Engkaulah yang mampu menghibur
Menghibur hati yang hancur

Saat jiwa ini bimbang
Mengingat masa yang mengenang
Hanya Engkaulah tempatku bersandar
Bersandar dengan rasa sabar

Ya Allah!!!
Kepada-Mu ku mengharap ketenangan
Kepada-Mu ku mengharap kebahagiaan
Kepada-Mu ku sandarkan semua harapan

Renungan

                 Boleh jadi tanggal 14 Pebruari setiap tahunnya merupakan hari yang ditunggu-tunggu oleh banyak remaja, baik di negeri ini maupun di berbagai belahan bumi. Sebab hari itu banyak dipercaya orang sebagai hari untuk mengungkapkan rasa kasih sayang. Itulah hari valentine, sebuah hari di mana orang-orang di barat sana menjadikannya sebagai fokus untuk mengungkapkan rasa kasih sayang.
Dan seiring dengan masuknya beragam gaya hidup barat ke dunia Islam, perayaan hari valentine pun ikut mendapatkan sambutan hangat, terutama dari kalangan remaja ABG. Bertukar bingkisan valentine, semarak warna pink, ucapan rasa kasih sayang, ungkapan cinta dengan berbagai ekspresinya, menyemarakkan suasan valentine setiap tahunnya, bahkan di kalangan remaja muslim sekali pun.

Perayaan Valentine’s Say adalah Bagian dari Syiar Agama Nasrani 

Valentine’s Day menurut literatur ilmiyah yang kita dapat menunjukkan bahwa perayaan itu bagian dari simbol agama Nasrani.
Bahkan kalau mau dirunut ke belakang, sejarahnya berasal ari upacara ritual agama Romawi kuno. Adalah Paus Gelasius I pada tahun 496 yang memasukkan upacara ritual Romawi kuno ke dalam agama Nasrani, sehingga sejak itu secara resmi agama Nasrani memiliki hari raya baru yang bernama Valentine’s Day.
The Encyclopedia Britania, vol. 12, sub judul: Chistianity, menuliskan penjelasan sebagai berikut: “Agar lebih mendekatkan lagi kepada ajaran Kristen, pada 496 M Paus Gelasius I menjadikan upacara Romawi Kuno ini menjadi hari perayaan gereja dengan nama Saint Valentine’s Day untuk menghormati St. Valentine yang kebetulan mati pada 14 Februari (The World Encylopedia 1998).
Keterangan seperti ini bukan keterangan yang mengada-ada, sebab rujukannya bersumber dari kalangan barat sendiri. Dan keterangan ini menjelaskan kepada kita, bahwa perayaan hari valentine itu berasal dari ritual agama Nasrani secara resmi. Dan sumber utamanya berasal dari ritual Romawi kuno. Sementara di dalam tatanan aqidah Islam, seorang muslim diharamkan ikut merayakan hari besar pemeluk agama lain, baik agama Nasrani ataupun agama paganis (penyembah berhala) dari Romawi kuno.

Katakanlah: “Hai orang-orang kafir. Aku tidak akan menyembah apa yang kamu sembah. Dan kamu bukan penyembah Tuhan yang Aku sembah. Dan Aku tidak pernah menjadi penyembah apa yang kamu sembah. Dan kamu tidak pernah (pula) menjadi penyembah Tuhan yang Aku sembah. Untukmu agamamu, dan untukkulah, agamaku.” (QS. Al-Kafirun: 1-6)

Kalau dibanding dengan perayaan natal, sebenarnya nyaris tidak ada bedanya. Natal dan Valentine sama-sama sebuah ritual agama milik umat Kristiani. Sehingga seharusnya pihak MUI pun mengharamkan perayaan Valentine ini sebagaimana haramnya pelaksanaan Natal bersama. Fatwa Majelis Ulama Indonesia tentang haramnya umat Islam ikut menghadiri perayaan Natal masih jelas dan tetap berlaku hingga kini. Maka seharusnya juga ada fatwa yang mengharamkan perayaan valentine khusus buat umat Islam.
Mengingat bahwa masalah ini bukan semata-mata budaya, melainkan terkait dengan masalah aqidah, di mana umat Islam diharamkan merayakan ritual agama dan hari besar agama lain.

Valentine Berasal dari Budaya Syirik. 

Ken Swiger dalam artikelnya “Should Biblical Christians Observe It?” mengatakan, “Kata “Valentine” berasal dari bahasa Latin yang berarti, “Yang Maha Perkasa, Yang Maha Kuat dan Maha Kuasa”. Kata ini ditunjukan kepada Nimroe dan Lupercus, tuhan orang Romawi”.
Disadari atau tidak ketika kita meminta orang menjadi “to be my Valentine”, berarti sama dengan kita meminta orang menjadi “Sang Maha Kuasa”. Jelas perbuatan ini merupakan kesyirikan yang besar, menyamakan makhluk dengan Sang Khalik, menghidupkan budaya pemujaan kepada berhala. Icon si “Cupid (bayi bersayap dengan panah)” itu adalah putra Nimrod “the hunter” dewa matahari.
Disebut tuhan cinta, karena ia rupawan sehingga diburu wanita bahkan ia pun berzina dengan ibunya sendiri. Islam mengharamkan segala hal yang berbau syirik, seperti kepercayaan adanya dewa dan dewi. Dewa cinta yang sering disebut-sebut sebagai dewa Amor, adalah cerminan aqidah syirik yang di dalam Islam harus ditinggalkan jauh-jauh. Padahal atribut dan aksesoris hari valentine sulit dilepaskan dari urusan dewa cinta ini.
Walhasil, semangat Valentine ini tidak lain adalah semangat yang bertabur dengan simbol-simbol syirik yang hanya akan membawa pelakunya masuk neraka, naudzu billahi min zalik.

menikmati Kebahgiaan Bersama Keluarga

       Kegiatan yang sangat Istimewa adalah menikmati Kebahagiann Serta senyuman CAnda TAwa bErsama Keluarga Besarr..Apalgi dapat berliburan bersama keluarga setiap saat. Keistimewaan tersebut karena seluruh anggota  keluarga setiap harinya memiliki kegiatan sendiri yang selalu tidak sama. Jadi kesempatan bersama keluaga untuk bisa berlibur bersama harus dapat dinikmatii.

        Kebersamaan libur lebih sempurna dan pas jika lokasi yang dipilih adalah pantai. Di pantai yang luas seluruh keluarga dapat bermain-mainbola bersama dan juga berlomba membangun benteng. Membuat menu makanan Keluarga dihamparan pasir bersama,, Membakar ikan,Membaca Buku, sampai Berenang.

    

Pembuatan Form Login Pada Visual Basic.Net 2008

hummpp* tanpa jebla-jebla lagi mari kita mulai tutorial pembuatan form login yang dimaksud. Tutorial ini merupakan lanjutan dari tutorial sebelumnya mengenai splash screen, sebuah aplikasi yang keren dan canggih tidak terlepas dari loading dan form login, maka disini saya akan memberikan solusi bagi para pembaca.

Langkah 1.

Buka project splash screen yang telah kita buat, kemudian pilih tools project >> add new item >> pilih login form, kemudian OK. Maka akan tampil sebagai berikut.

Pada form ini semuanya sudah tersedia dan tersusun dengan rapi tanpa harus bersusah payah untuk membuatnya.

Langkah 2.

Pada langkah ini kita membuat tampilan sebagus dan sebisa kalian, di sini saya hanya merubah background setiap logo yang ada, dengan cara pilih logo mana yang ingin diganti kemudian lihat pada propertiesnya kemudian cari background image >> project resource file >> kemudian import file gambar yang ingin kalian masukkan kemudian OK, untuk lebih jelasnya lihat gambar berikut.

Tampilan sebelum diberikan gambar.

Tampilan pada saat ingin memilih gambar.

Langkah 3.

Pada tahap ini kita membuat logopicturebox lagi untuk menambahkan penampilan yang menarik,  yaitu dengan cara cop-pas pada logopicturebox1 sebelumnya, setelah itu pindahkan sehingga berada sama persis pada logopicturebox1, kemudian klik kanan, pilih send to back, maka logopicturebox2 berada persis dibelakang logopicturebox1. Lihat gambar berikut.

Langkah 4.

Kita buat form1, yang merupakan link dari form login, jika username dan password berhasil dimasukkan maka akan tampil form1 ini, Pembuatan nya sebagai berikut. pilih tools project >> add new item >> pilih windows form, kemudian add. Tampilan sebagai berikut.

Langkah 5.

Ok kita mulai bermain dengan codinganya sekarang, minum susu biar ngga ngantuk.

Double click pada button Ok yang telah kita buat, maka akan muncul tampilan untuk memasukkan coding, ketikkan sebagai berikut.

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = “cupapaw” And PasswordTextBox.Text = “ucup ganteng” Then
Form1.Show() ‘memberikan kondisi dimana nama dan password yang harus dimasukkan pada textbox masing-masing sebagai berikut,
Me.Dispose() ‘jika kondisi benar maka akan muncul form berikutnya, sekaligus form ini tertutup.
Else
LogoPictureBox2.Show() ‘jika username dan password yang dimasukkan salah
LogoPictureBox.Hide() ‘maka akan muncul picturebox2 dan messagebox yang terdiri dari 1 button yaitu OkOnly.
MsgBox(“Data yang Anda Masukkan Salah.<<solution>>Coba masukkan username=’cupapaw’ dan password=’ucup_ganteng’ “, MsgBoxStyle.OkOnly, “Peringatan !!!”)
UsernameTextBox.Clear() ‘dan juga menhapus ketikkan terakhir kita pada texbox username dan password.
PasswordTextBox.Clear()
End If
End Sub

Terakhir hal yang harus dilakukan adalah save project dan lihat hasilnya,.

SHOPPING

    Pada dasarnya saya dan teman- teman saya dapat dikatakan sebagai sekelompok manusia yang menyukai kegiatan jalan- jalan atau berwisata ke berbagai objek dan tempat yang menarik di waktu luang yang tersedia atau liburan seperti menonton bioskop,shopping,dll.

selain itu kamipn dapat menyalurkan hobi kami yang  serupa yaitu berbelanja atau shopping apa saja entah itu pakaian, aksesoris, handicracft ataupun kebutuhan sehari- hari yang sekiranya mungkin diperlukan.

Mulanya kegiatan pertama kami diawali dengan melihat- lihat beragam macam sepatu cantik yang berjejer di sekitar MALL ,Seperti biasa kami mencoba beragam macam sepatu yang menurut kami pas dihati,  nyaman di kaki dan tidak lupa matching di ongkos. Dan akhirnya setelah berkeliling- keliling mengintari berbagai macam toko sepatu di mall kami pun mendapatkan sepatu yang kami ingingkan dan tentunya diiringi dengan mekanisme tawar- menawar kepada si penjual  untuk mendapatkan sepatu yang kami inginkan dengan harga yang sesuai alias murah pastinya.

Setelah lelah berkeliling mengintari berbagai macam tempat kami pun menyempatkan diri beristirahat sejenak menghilangkan lelah kami dengan mencicipi beragam kuliner yang unik dan lezat Seperti biasa kami pun memesan menu favorit kami yaitu Nasi goreng dan lain sebagainya.

Waktu yang kian berjalan tak menyurutkan kami untuk kembali lagi menyusuri setiap tempat atau  beragam macam wahana yang ada di mall tersebut. Setelah mendapatkan tenaga dari beristirahat dan makan tadi kami pun kembali berkeliling mengintari setiap objek yang ada di mall tersebut.lalu Tanpa disangka kami pun berencana untuk menonton film apa saja yg disajikn di mall tersebut.

Tanpa kami sadari waktu sudah hampir menunjukan malam hari lalu kami bergegas pulang kerumah masing-masing.