Jawaban Visual Basic

No.2

 Nama    : Siti Kholijah Ritonga

NPM      : 0911442

 Kelas     : SI-P0905

kasus

SOAL  NO.2

Public Class btnhapus

    Sub buattabel()

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

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

        LV.Columns().Add("Tahun", 105, 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)

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

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

    End Sub

End Class

SOAL  NO.3

Public Class Form1

   

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

        If Username.Text = "SITI KHOLIJAH RIT" And Password.Text = "951" Then

            FormMenu.Show()

            Me.Hide()

        Else

            MsgBox("Maaf !Password Salah !")

            Username.Text = ""

            Password.Text = ""

        End If

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

            Nama.Text = "Ridwan"

        ElseIf Nip.Text = "111333" Then

            Nama.Text = "Yunus"

        ElseIf Nip.Text = "111444" Then

            Nama.Text = "Ridho"

        ElseIf Nip.Text = "111555" Then

            Nama.Text = "Radit"

        End If

    End Sub

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

        If Golongan.Text = "l01A" Then

            Gaji.Text = "3000000"

        ElseIf Golongan.Text = "l02B" Then

            Gaji.Text = "2500000"

        ElseIf Golongan.Text = "l03C" Then

            Gaji.Text = "2000000"

        ElseIf Golongan.Text = "l04D" 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", 60, 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", 150, HorizontalAlignment.Center)

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

        LV.Columns.Add("tunjangan anank", 150, 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("111222")

        Nip.Items.Add("111333")

        Nip.Items.Add("111444")

        Nip.Items.Add("111555")

        Golongan.Items.Add("l01A")

        Golongan.Items.Add("l02B")

        Golongan.Items.Add("l03C")

        Golongan.Items.Add("l04D")

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

        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

 

Kegiatan hari rabu

1. saya masuk kuliah pada pukul 13.10, saya berangkat kuliah pada pukul 13.00.
2. sesampainya dikampus saya belajar Pemrograman VB dilab komputer yang sudah tersedia.

3. pada pukul 15.45 mata kuliah Sistem Operasi selesai.

4. pada pukul 16.00 saya pulang kerumah.

kegiatan hari kamis

1. saya masuk kuliah pada pukul 10.45, saya berangkat kuliah pada pukul 10.30.
2. sesampainya dikampus saya belajar Sistem Operasi diruangan materi.

3. pada pukul 13.15 mata kuliah Sistem Operasi selesai.

4. pada pukul 14.00 saya pulang kerumah.

Kegiatan Di KAMPUS

 Saya Berangkat Kuliah jam 08.00 saya masuk kuliah jam 08.15 , saya mengikuti pelajaran sampai jam 10.45  dan setelah itu saya istirahat atau saya bermain/nongrong di Kantin setelah pukul 11.00 kembali masuk lagi tuk mengikuti mata pelajaran yang akan di -pelajarin sampai jam 13.15 setelah itu pulang,sebelum pulang kerumah saya mengempat-menyempatin nongkrong sama teman-teman kampus setelah itu pulang ke rumah

Kegiatan Di RUMAH

Nama saya Siti Kholijah Ritonga saya berumur 20  tahun.Kegiatan di rumah saya dari saya bangun pagi sampai malam hari dan  begitulah seterus nya.

1. Saya bangun Pukul 05.00 dan langsung berDoa sama keluarga saya atau yang berada di dlam rumah.setelah itu saya membantu orang tua saya untuk membuka usahanya di pasar untuk berjualan
2. Pukul 06.25 saya membersikan rumah dan memperbaiki kamar saya sendiri,dan setelah itu mandi.
3. Pukul 07.00 saya berangkat kerja 
4. pukul 17.00 saya berangkat kuliah
5. Pukul 23.00 saya tidur

Kesehari-harian Saya

Saya bangun tidur pukul 05.00 WIB.Setelah itu saya mandi,lalu Berdoa,kemudian saya sarapan pagi.Kemudian pada pukul 07.00 WIB saya berangkat kerja.

Setelah sampai disana lalu saya mengikuti kegiatan KERJA yang dimulai pada pukul 08.00 WIB sampai dengan pukul 17.00 WIB.

Setelah sampai dirumah lalu ,kemudian pada pukul 17.29 WIB saya kembali Ke kampus untuk mengikuti mata kuliah Saya kulliah sampai dengan pukul 21.25 WIB setelah sampai dirumah saya membantu orang tua saya.Kemudian saya  Jaga Kedeh sebentar.

 

 

 

Lalu  saya melihat TV bersama dengan semua keluarga saya menonton TV.Kadang-kadang saya menonton TV tidak hanya dengan keluarga saya saja tetapi juga dengan para tetangga saya. Biasanya saya juga tidak melihat TV tapi saya bermain sama saudara saya atau kadang saya disuruh nemenin dia pada saat keluarganya tidak ada dirumah.Biasanya saya tidur malam pukul 23.00 WIB.Kadang-kadang juga tidak sampai pukul 23.00 sudah tidur. beberapa hari ini setiap pukul 21.30 sudah tidur,sebab kegiatanku sangat padat sekali.Selain kegiatan kuliah dan kerja saya juga mempunyai banyak kegiatan lain seperti mencari tugas kantor dan juga masih banyak lagi yang belum saya sebutkan.Kadang-kadang saya juga kumpul-kumpul sama temen-temen setelah selesai kumpul biasanya makan-makan sama keluarga Biasanya kumpul nya itu pada hari minggu setelah pada libur semua.

Pembuatan Loading Pada Visual Basic.Net 2008

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.