TUGAS 3 (DINA MELIANA SIMANJUNTAK)

Kasus:KLIK DISINI

FORM LOGIN

 

LISTING PROGRAM

Public Class Form1

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click

        If USERNAME.Text = "DINA" And PASSWORD.Text = "12345" Then

            FormMenu.Show()

            Me.Hide()

        Else

            MsgBox("MAAF! PASSWORD SALAH!")

            USERNAME.Text = ""

            PASSWORD.Text = ""

        End If

    End Sub

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

        End

    End Sub

End Class

FORM MENU

LISTING PROGRAM

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

        karyawan.show()

    End Sub

End Class

FORM PENGGAJIAN KARYAWAN

LISTING PROGRAM

Public Class karyawan

    Sub TdkAktif()

        ISTRI.Visible = False

        TUNJA.Visible = False

        ANAK.Visible = False

    End Sub

    Sub Aktif()

        ISTRI.Visible = True

        TUNJA.Visible = True

        ANAK.Visible = True

    End Sub

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

        TdkAktif()

        BUATTABEL()

        ISITABEL()

        JABATAN.Items.Add("KABAG")

        JABATAN.Items.Add("MANDOR")

        JABATAN.Items.Add("STAF")

        STATUS.Items.Add("Menikah")

        STATUS.Items.Add("Belum Menikah")

    End Sub

    Sub BUATTABEL()

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

        LV.Columns.Add("NAMA KARYAWAN", 180, HorizontalAlignment.Left)

        LV.Columns.Add("GOL", 80, HorizontalAlignment.Left)

        LV.Columns.Add("GAJI", 80, HorizontalAlignment.Left)

        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Left)

        LV.Columns.Add("ISTRI", 80, HorizontalAlignment.Left)

        LV.Columns.Add("TUNJA", 80, HorizontalAlignment.Left)

        LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)

        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

        LV.Columns.Add("JAM KERJA", 80, HorizontalAlignment.Left)

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

        For i = 1 To 3

            NIP.Items.Add("000" & i)

        Next

       

    End Sub

    Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged

        If NIP.Text = "0001" Then

            NAMA.Text = "DEDE"

        ElseIf NIP.Text = "0002" Then

            NAMA.Text = "SUSI"

        ElseIf NIP.Text = "0003" Then

            NAMA.Text = "DIDI"

        End If

    End Sub

    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged

       

        If JABATAN.Text = "MANDOR" Then

            GAJI.Text = 1750000

        ElseIf JABATAN.Text = "KABAG" Then

            GAJI.Text = 2500000

        ElseIf JABATAN.Text = "STAF" Then

            GAJI.Text = 1250000

        End If

        PAJAK.Text = GAJI.Text * 0.015

    End Sub

   

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged

        If STATUS.Text = "Menikah" Then

            ISTRI.Text = GAJI.Text * 0.9

            Aktif()

        ElseIf STATUS.Text = "Belum Menikah" Then

            TdkAktif()

        Else

            ISTRI.Text = 0

        End If

    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click

        Dim sublv As New ListViewItem

        sublv.Text = NIP.Text

        sublv.SubItems.Add(NAMA.Text)

        sublv.SubItems.Add(JABATAN.Text)

        sublv.SubItems.Add("RP. " & GAJI.Text)

        sublv.SubItems.Add(STATUS.Text)

        sublv.SubItems.Add("RP. " & ISTRI.Text)

        sublv.SubItems.Add(" RP. " & TUNJA.Text)

        sublv.SubItems.Add(ANAK.Text)

        sublv.SubItems.Add("RP. " & PAJAK.Text)

        sublv.SubItems.Add(JAM.Text)

        sublv.SubItems.Add("RP. " & TLEMBUR.Text)

        sublv.SubItems.Add("RP. " & TOTAL.Text)

        LV.Items.Add(sublv)

    End Sub

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

        End

    End Sub

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

        NIP.Text = ""

        NAMA.Text = ""

        JABATAN.Text = ""

        GAJI.Text = ""

        STATUS.Text = ""

        ISTRI.Text = ""

        TUNJA.Text = ""

        ANAK.Text = ""

        PAJAK.Text = ""

        TOTAL.Text = ""

        NIP.Focus()

    End Sub

    Private Sub TUNJA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ISTRI.TextChanged

        ISTRI.Text = GAJI.Text * 0.9

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ANAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANAK.TextChanged

        If ANAK.Text = "1" Then

            TUNJA.Text = GAJI.Text * 0.3

        ElseIf ANAK.Text = "2" Then

            TUNJA.Text = GAJI.Text * 0.7

        ElseIf ANAK.Text >= 2 Then

            TUNJA.Text = GAJI.Text * 0.7

        End If

    End Sub

    Private Sub JAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAM.TextChanged

        If JABATAN.Text = "STAF" Then

            TLEMBUR.Text = JAM.Text * 5000

        ElseIf JABATAN.Text = "KABAG" Then

            TLEMBUR.Text = JAM.Text * 10000

        ElseIf JABATAN.Text = "MANDOR" Then

            TLEMBUR.Text = JAM.Text * 7500

        Else

            TLEMBUR.Text = 0

        End If

        TOTAL.Text = Val(GAJI.Text) + Val(ISTRI.Text) + Val(TUNJA.Text) + Val(TLEMBUR.Text) - Val(PAJAK.Text)

    End Sub

 

End Class

TUGAS 2(dina meliana simanjuntak)

Kasus: KLIK DISINI
FORM MENYIMPAN DAN MENGHAPUS DATA DI LIST VIEW

 

LISTING PROGRAM

Public Class Form1

    Sub buattabel()

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

        LV.Columns.Add("NAMA", 160, HorizontalAlignment.Left)

        LV.Columns.Add("TAHUN", 80, 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 proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        ISITABEL()

        NPM.Text = ""

        nama.Text = ""

        tahun.Text = ""

    End Sub

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

        Me.Close()

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

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

    End Sub

End Class

PENGENALAN VISUAL BASIC .NET

PENGENALAN VISUAL BASIC .NET
A. TUJUAN
Memahami platform Microsoft .NET.
Mengenal Integrated Development Environment (IDE) Visual Basic
.NET.
Memahami struktur project Visual Basic .NET.
Memahami jenis-jenis aplikasi .NET.
Mampu membangun Graphical User Interface (GUI) menggunakan
Visual Basic .NET.
B. PETUNJUK
C. DASAR TEORI
o Platform .NET Framework
Microsoft .NET—yang awalnya disebut Next Generation Windows
Services (NGWS)—adalah suatu platform untuk membangun dan
menjalankan generasi penerus aplikasi-aplikasi terdistribusi. Microsoft
.NET merupakan framework (kerangka) pengembangan yang
menyediakan antarmuka pemrograman baru untuk layanan Windows dan
API (Application Programming Interface).
Microsoft .NET merupakan strategi Microsoft untuk menghubungkan
sistem, informasi, dan alat (device), sehingga orang dapat berkomunikasi
serta berkolaborasi dengan lebih efektif. Teknologi .NET terintegrasi
penuh melalui produk-produk Microsoft, dan menyediakan kemampuan
untuk mengembangkan solusi dengan menggunakan Web service.
Platform Microsoft .NET terdiri dari lima komponen utama yang tersusun
dalam tiga lapisan (layer). Lapisan paling bawah adalah sistem operasi;
lapisan kedua terdiri dari tiga komponen; lapisan teratas adalah Visual
Studio .NET.
Awali setiap aktivitas dengan doa, semoga berkah dan mendapat kemudahan.
Pahami tujuan, dasar teori, dan latihan-latihan praktikum dengan baik.
Kerjakan tugas-tugas praktikum dengan baik, sabar, dan jujur.
Tanyakan kepada asisten/dosen apabila ada hal-hal yang kurang jelas.
Praktikum Pemrograman Visual (PTI438) 2
Gambar 1 Platform Microsoft .NET
o Visual Studio .NET
Microsoft Visual Studio .NET merupakan kumpulan lengkap tools
pengembangan untuk membangun aplikasi Web ASP.NET, XML Web
Services, aplikasi dekstop, dan aplikasi mobile. Di dalam Visual Studio
inilah bahasa-bahasa pemrograman .NET—seperti Visual Basic, Visual
C++, Visual C# (CSharp), dan Visual J# (JSharp)—semuanya
menggunakan lingkungan pengembangan terintegrasi atau IDE yang sama
sehingga memungkinkan untuk saling berbagi tools dan fasilitas.
o Visual Basic .NET
Visual Basic .NET (atau VB.NET) merupakan salah satu bahasa
pemrograman yang bisa digunakan untuk membangun aplikasi-aplikasi
.NET di platform Microsoft .NET. Tidak seperti generasi sebelumnya—
Visual Basic versi 6.0 ke bawah—yang lebih difokuskan untuk
pengembangan aplikasi desktop, Visual Basic .NET memungkinkan para
pengembang membangun bermacam aplikasi, baik desktop maupun
aplikasi web.
Seiring dengan perkembangan aplikasi perangkat lunak yang semakin
kompleks, saat ini Visual Basic .NET memasuki versi kelima (Visual
Basic 2008). Meskipun demikian—karena beberapa alasan—dalam
praktikum ini menggunakan Visual Basic .NET 2005 (atau VB.NET 2005
atau VB 2005 atau VB.NET 8)
o IDE Visual Basic
IDE (Integrated Development Environment), atau juga disebut sebagai
Integrated Design/Debugging Environment, adalah perangkat lunak
komputer yang berfungsi untuk membantu pemrogram dalam
mengembangkan perangkat lunak. Singkatnya, IDE merupakan suatu
lingkungan pengembangan aplikasi yang terintegrasi; lengkap dengan
beragam tools atau utilitas pendukung.
Praktikum Pemrograman Visual (PTI438) 3
D. LATIHAN
a. Membuat Project Baru
Project merupakan kerangka dasar aplikasi yang sangat menentukan jenis
aplikasi yang akan dibuat. Untuk memulai pembuatan project, ikuti
langkah-langkah berikut:
1. Jalankan Visual Basic 2005 Express Edition.
2. Klik menu File > New Project, atau melalui ikon New Project, atau
melalui kombinasi tombol Ctrl+N.
3. Pada kotak dialog New Project, pilih template Windows
Application, kemudian klik OK.
Gambar 2 Memilih jenis project
• Windows Application. Untuk menciptakan aplikasi-aplikasi
Windows yang berjalan secara lokal di komputer user.
• Class Library. Untuk menciptakan kelas-kelas atau komponenkomponen
reusable yang dapat di-share dengan project lainnya.
• Console Application. Untuk membuat aplikasi-aplikasi
command-line.
• My Movie Collection Starter Kit. Untuk menciptakan aplikasi
pre-built My Movie Collection, dan bisa di-customize sesuai
kebutuhan.
• Screen Saver Starter Kit. Untuk menciptakan aplikasi pre-built
Screen Saver, dan bisa di-customize sesuai kebutuhan.
b. Mengenal IDE Visual Basic 2005
Dalam upaya memudahkan penggunaan IDE, maka diperlukan
pemahaman yang baik mengenai IDE Visual Basic 2005.
Praktikum Pemrograman Visual (PTI438) 4
Gambar 3 IDE Visual Basic 2005
c. Membuat Aplikasi Windows
1. Buat project baru, atau lanjutkan project pertama Anda sebelumnya.
2. Tambahkan sebuah kontrol Label ke form, dengan cara mengklik
ganda Label di Toolbox, atau men-drag Label ke form. Atur
propertinya seperti tabel berikut:
Objek Properti Nilai
Label Name lblText
Text (Kosongkan isinya)
3. Tambahkan event Load pada form dengan salah satu cara berikut:
a. Klik ganda area form kosong.
b. Klik area form kosong, kemudian tekan F7.
4. Lengkapi kode event handler-nya seperti berikut:
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Load
' Men-set title (judul) window
Me.Text = "Latihan"
' Men-set teks kontrol label
Me.lblTeks.Text = "Selamat Belajar Teman-Teman FT-UM"
End Sub
End Class
Praktikum Pemrograman Visual (PTI438) 5
5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau
melalui ikon Start Debugging di toolbar, atau melalui menu Debug
> Start Debuging.
6. Simpan aplikasi Anda.
d. Membuat Aplikasi Console
1. Buat project baru, pilih template Console Application, kemudian klik
OK.
2. Lengkapi kode programnya seperti berikut:
Module Module1
Sub Main()
' Mencetak teks ke console
Console.WriteLine("Apa Kabar Teman-Teman FT-UM")
Console.WriteLine("Selamat Belajar Pemrograman Visual")
Console.Read()
End Sub
End Module
3. Tekan F5 untuk menjalankan aplikasi.
4. Simpan aplikasi Anda.
E. TUGAS PRAKTIKUM
1. Buat aplikasi windows untuk menampilkan teks di kontrol label pada saat
kontrol button diklik.
Petunjuk:
Gunakan sebuah kontrol Label dan Button.
Tambahkan event Click pada Button.
2. Jalankan aplikasi dari luar IDE.
Petunjuk:
Buka Explorer, cari file .exe aplikasi, klik ganda
3. Build aplikasi.
Petunjuk:
Pilih menu Build, klik Build_nama_aplikasi
Lihat hasilnya di folder release