Kasus
JAWABAN QUIZ VISUAL BASIC ( VB.NET )

JAWABAN SOAL NO 3
NAMA : SRI RAHAYU
KELAS : SI-P0905

Public Class Form1

   

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

        If Username.Text = "AYU" And Password.Text = "231" Then

            FormMenu.Show()

            Me.Hide()

        Else

            MsgBox("MAAF!Password Salah !")

            Username.Text = ""

            Password.Text = ""

        End If

    End Sub

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

    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

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

    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 = "118346" Then

            Nama.Text = "ADE MUNANDAR"

        ElseIf NIP.Text = "113794" Then

            Nama.Text = "RHEINA JASMINE"

        ElseIf NIP.Text = "114820" Then

            Nama.Text = "TYO FIRMANSYAH"

        ElseIf NIP.Text = "113465" Then

            Nama.Text = "DHEA OLIVIA"

        End If

    End Sub

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

        If Golongan.Text = "238Z" Then

            Gaji.Text = "3000000"

        ElseIf Golongan.Text = "241R" Then

            Gaji.Text = "2500000"

        ElseIf Golongan.Text = "354G" Then

            Gaji.Text = "2000000"

        ElseIf Golongan.Text = "293F" 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", 80, HorizontalAlignment.Center)

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

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

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

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

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

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

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

        LV.Columns.Add("pajak", 80, 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(pajak.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("118346")

        NIP.Items.Add("113794")

        NIP.Items.Add("114820")

        NIP.Items.Add("113465")

        Golongan.Items.Add("238Z")

        Golongan.Items.Add("241R")

        Golongan.Items.Add("354G")

        Golongan.Items.Add("293F")

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

        Pajak.Text = 3% * Gaji.Text

        Total.Text = Val(Gaji.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) + Val(Pajak.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 = ""

        Pajak.Text = ""

        NIP.Focus()

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

        End

    End Sub

End Class

JAWABAN SOAL 2

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

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

Kekuatan Berpikir Positif

“Kekuatan Berpikir Positif”

Keberhasilan seseorang didasarkan dari bagaimana orang itu berpikir mengenai dirinya. Jika ia berpikir mampu untuk berhasil maka keberhasilan akan diraihnya. Namun jika ia berpikir bahwa ia tidak akan mungkin berhasil, maka keberhasilan akan menjauh darinya. Pikiran optimis akan menjadikan pribadi seseorang makin percaya diri dengan apa yang dilakukannya. Sedangkan pikiran pesimis akan berlaku sebaliknya. Jangankan untuk melakukan sesuatu, hanya sekedar memikirkan idenya saja ia akan merasa bahwa apapun yang dilakukan tidak akan berhasil.

Bagi seseorang yang selalu pesimis, ia akan selalu mencari alasan untuk menjelaskan mengapa ia selalu gagal. Bermacam dalih digunakan, misalnya dalih usia, dalih kesehatan, dalih pengetahuan dan kesempatan. Contoh dari dalih usia misalnya seseorang mengikuti sebuah lomba namun kalah. Maka orang tersebut pasti akan beralasan bahwa dirinya sudah terlalu tua untuk berlomba. Dalih kesehatan misalnya seorang akan selalu mengatakan bahwa kesehatannya sedang tidak baik di saat ia mengalami kegagalan. Orang-orang seperti ini selamanya akan termakan oleh dalih dan selamanya pula dia tidak akan mampu berbuat apa-apa.

Sementara itu orang-orang sukses adalah orang yang senantiasa berbuat. Mereka senantiasa mencari cara agar bisa hidup dengan lebih baik. Selanjutnya orang-orang itu akan merealisasikan dengan tindakan. Bagi orang-orang optimis, berbuat sekarang akan lebih baik daripada kehilangan kesempatan mereka sama sekali.

Orang-orang yang sukses akan selalu berpikir positif tentang orang lain. Bagi mereka, mereka tidak akan berhasil tanpa orang lain. Bagi seorang pengusaha sukses, kliennya adalah hal yang selalu membuat mereka senang. Si pengusaha akan berpikir positif tentang kliennya karena dialah sumber penghasilannya. Begitu pula dengan seorang wiraniaga sukses selalu berpikir positif tentang calon pembelinya. Hal ini juga akan menimbulkan pikiran positif pada si calon pembeli sehingga ia akan tertarik untuk membeli. Itulah alasan mengapa pikiran positif mendatangkan kesuksesan.

Buku ini akan membantu para pembaca memanajemen pikiran positif kita. David J. Schwartz telah berhasil memberikan contoh cara berpikir dan memiliki jiwa yang besar seperti orang-orang yang telah sukses.

KELEBIHAN

• Bahasa yang digunakan mudah dimengerti dan penuh motivasi.
• Tekhnik pemaparan dengan disertai contoh-contoh sangat menarik.
• Gaya bercerita yang khas dan cenderung tidak menggurui.

KEKURANGAN

• Tampilan kover yang kurang menarik.
• Tidak ada tambahan-tambahan gambar dan ilustrasi.

KEBERMANFAATAN

Begitu memotivasi pembaca untuk meneladani pola pikir orang-orang sukses.

Buku ini dapat membangkitkan semangat untuk terus berusaha daripada hanya sekedar mengeluh saja.

Contoh-contoh yang disajikan adalah orang sukses di dunia sehingga para pembaca bisa tahu bagaimana perjalanan hidup mereka.

Memberi inspirasi bagaimana cara menulis buku motivasi dan menjadi motivator yang baik.

Cara-cara Berpikir Hebat seperti Para Milyuner

Pernahkah anda memikirkan mengapa seseorang bisa menjadi milyuner sementara banyak orang lainnya tidak?
Apa sebenarnya yang membedakan antara para milyuner dengan orang-orang kebanyakan?
Dalam posting kali ini, saya akan ungkap perbedaannya dari sisi cara berpikir. Para milyuner memiliki cara berpikir yang lain dari orang kebanyakan.
Saya berikan sebuah contoh terlebih dahulu…
Waktu lebaran, ketupat yang ada di meja makan bagi orang kebanyakan tidak lebih sebagai makanan yang lezat disantap. Sementara di otak seorang milyuner, yang muncul adalah “maukah orang-orang menukarkan uangnya dengan ketupat ini?”
Tidak cukup di sana, rangkaian pertanyaan dari otak milyuner akan berlanjut:

• Bagaimana proses membuatnya?
• Apa saja investasi yang diperlukan?
• Berapa biayanya?
• Berapa lama produk anda itu bisa bertahan?
• Dimana bisa dijual?
• Bagaimana iklim kompetisinya?
• Bisakah dibuat produk tambahannya?
• Berapa biayanya?
• Bagaimana cara memulainya?
• dan seterusnya

Itulah beberapa pertanyaan yang muncul dari kepala para milyuner yang membedakan dengan kepala kebanyakan orang. Pertanyaan-pertanyaan yang langsung menuju sasaran, efektif, dan potensial mendatangkan uang.
Mungkin ada yang ragu apakah anda juga bisa berpikir seperti milyuner. “Saya kan orang biasa saja,” mungkin itu alasan anda.
Namun mari jangan rendahkan diri anda sendiri. Setiap orang dianugerahi pikiran yang luar biasa. Bedanya hanya tidak setiap orang melatih pikirannya seperti para milyuner.
Anda bisa mulai dari sekarang untuk melatih anugerah dari Tuhan ini. Sedikit demi sedikit usaha yang anda lakukan, pasti berdampak dramatis terhadap kehidupan anda selanjutnya.
Mulailah berjanji untuk berlatih cara berpikir para milyuner. Serta jangan lupa tingkatkan selalu kemampuan anda untuk meng-ACTION-kan ide-ide yang anda miliki. Uletlah berusaha seperti kisah seorang Sam dalam blog Pak Joko Santoso. Dalam beberapa waktu ke depan, anda akan tercengang atas perubahan yang terjadi pada anda.
Namun ketika anda mulai menapak jalur kesuksesan itu, anda harus memiliki mental yang kuat. Sebab “angin”-nya makin kencang. Biasanya ada saja orang yang tidak suka dengan keberhasilan seseorang. Karena mereka mungkin menganggap diri mereka lebih pintar dari pada anda, tapi mereka tidak bisa seberhasil anda.
Kritikan yang mereka lontarkan bukan untuk mendorong anda naik ke level lebih tinggi lagi, tapi untuk menjatuhkan anda. Anda tentu bisa membedakan mana kritikan yang positif dan sebaliknya yang memang bertujuan negatif. Saat itulah anda harus belajar menangani orang-orang semacam itu.
Tapi hal paling penting pertama adalah anda harus berhasil terlebih dahulu. Berikut ini saya sampaikan juga ciri-ciri pikiran para milyuner yang bisa anda tiru:

1. Begitu ada produk baru, orang kebanyakan berpikir ingin memilikinya. Sedang para pebisnis atau pengusaha bertanya,”Bagaimana saya bisa membuat produk yang mirip untuk bisnis saya?” Atau “bagaimana kelebihan produk itu bisa diterapkan dalam produk saya?”.
   Atau secara singkat, orang kebanyakan bersikap konsumtif, sedang pebisnis produktif.
2. Orang kebanyakan alergi terhadap perubahan. Sedang pikiran para milyuner mengakrabinya. Perubahan adalah kawan dekat.
3. Orang kebanyakan menerima sesuatu seperti apa adanya. Sebaliknya pikiran milyuner selalu mencari cara bagaimana membuat sesuatu lebih baik lagi.
4. Orang kebanyakan bersikap reaktif, sedang para milyuner bersikap proaktif.
5. Orang kebanyakan menyangka kalau kesuksesan yang diraih seseorang lebih dikarenakan keberuntungan. Sedang milyuner mencari tahu “mengapa mereka bisa sukses?” dan “bagaimana mereka juga bisa melakukannya?”.

Anda bisa mulai berlatih menjadi para milyuner dengan menerapkan cara berpikir di atas dalam kehidupan anda sehari-hari. Menjadikannya sebuah kebiasaan yang akan mengubah masa depan hidup anda jauh lebih baik.
Salam ACTION!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.................gagagagagagagag..................

Tutorial VB.Net 2008 Express Edition

Tutorial VB.Net 2008 Express Edition

Assalamualaikum Wr.Wb

Pengenalan sedikit mengenai Microsoft Visual Basic.Net 2008.

>>Antarmuka atau lingkungan dari Visual Basic.Net IDE 2008 tidak jauh dengan visual basic 6.0 IDE, kelebihannya memiliki IDE yang lebih lengkap dan  terorganisir, sehingga mudah bagi pengembang untuk mencari object-object yang terdapat pada toolbox yang kita inginkan untuk ditempatkan pada form.

Untuk pembuatan software yang canggih, belum bisa dibilang keren kalau belum pake loading pada tampilan awalnya. Ok kita mulai tutorial mengenai pembuatan loading menggunakan Visual Basic.Net 2008, sebelum berangkat perang kita harus nyiapin senjata yang pastinya, senjata yang harus disiapkan sebagai berikut :

• Komputer yang sedikit canggih dengan spesifikasi yang lumayan, ga usah terlalu canggih-canggih banget.
• Software Microsoft Visual Studio, karna di sini kita dapat menginstall Visual Basic.Net tersebut. (link download software)
• Kesiapan mental dan kemauan yang kuat.
• Terakhir segelas susu anget boleh juga.

Langkah 1

Install Microsoft Visual Basic.Net 2008 pada Visual Studio yang ada, untuk cara menginstall ga perlu dijelasin dahh, uda pada ngerti semua kan.

Langkah 2

Buka Microsoft Visual Basic.Net 2008 yang sudah terinstall, tampilannya sebagai berikut.

Langkah 3

Buka file, kemudian new project, kita beri nama project “coba-coba”, kemudian OK.

Tampilan sebagai berikut.

Langkah 4

Pada langkah ini kita sudah dapat membuat loading tersebut dengan menggunakan splash screen yang sudah tersedia pada Visual Basic.Net 2008, cara nya dengan pilih pada menu project >>add new Item >> pilih splash screen, kemudian add. Lihat gambar dibawah ini.

Langkah 5

Kita sudah membuat splash screen, sekarang desainlah splash screen yang telah kalian buat sesuka hati kalian, dapat  ditambahkan background untuk splash screen dengan cara mengganti background image pada properties. Lihat hasil dibawah ini.

Langkah 6

Sekarang kita buat tools loading yang kita inginkan sedari tadi,. Hehehee*

Cara nya yaitu dengan menggunakan tools progress bar dan timer yang ada pada toolsbox. Setelah itu tools progress bar drag ke splash screen yang telah kita buat tadi. Sehingga menjadi seperti berikut.

Kemudian ketikkan codingan berikut pada timer, dengan cara double click timer tersebut  untuk membuat progressbar berjalan.

ProgressBar1.Value += 5
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
Me.Visible = False
Form1.Show()
End If

Logikanya yaitu kita memberikan nilai dari 0-100 dengan nilai setiap kali proses bertambah 5, jika nilai sudah mencapai 100 maka spalshscreen tersebut akan di hilangkan dan membuka secara otomatis from selanjutnya.

Dan pada mainlayout kita ketikkan coding berikut.

Timer1.Enabled = True

Logikanya yaitu kita memberikan hak untuk timer tersebut berjalan pada mainlayout dari splash screen yang kita buat.

Langkah terakhir merubah startup form dengan cara klik kanan pada project yang kita punya kemudian pilih properties dan ganti startup form menjadi splashscreen.

Jika langkah-langkah yang dibuat sesuai dengan tutorial maka hasil akan seperti gambar dibawah ini.

Kalian dapat mengkreasikan loading tersebut sesuai imajinasi masing-masing, kalian dapat merubah bentuk progressbar dengan cara mengganti style pada properties dari progressbar tersebut.

Sekian tutorial dari aNe, tungguin tutorial-tutorial berikutnya, masih mengenai Visual Basic.Net 2008.

Wassalamualaikum Wr.Wb

BIODATA

NAMA                                  : SRI RAHAYU
TGL/TTL                               : ...........................
ALAMAT                              :............................
HOBI                                     :............................
STATUS                                :............................
RIWAYAT HIDUP                :............................