Latihan 04 APKOM 4 D3B Akuntansi PNUP

Latihan_04_36110051

DESKRIPSI DAN PROSEDUR PENYELESAIAN

Latihan_04_36110051 terdapat empat object yaitu Label, textbox,  button, dan DateTime Picker.

Object Label

Terdapat enam label yang bertuliskan “Nama Saya”, “Tanggal Lahir”, “Tanggal Kelahiran”, “Bulan Kelahiran”, “Tahun Kelahiran”, dan “Hari Kelahiran”.

Object Textbox

Terdapat Lima textbox (berstatus input) yaitu “Nama Saya”, “Tanggal Kelahiran”, “Bulan Kelahiran”, “Tahun Kelahiran”, dan “Hari Kelahiran”.

Object Button

Terdapat dua ubject button (“Analisa” dan “hapus”). Button "Analisa" digunakan untuk menampilkan hasil analisa Date Time Picker. Sedangkan button "Hapus" digunakan untuk mengosongkan isi semua textbox.

Object DateTimePicker

Terdapat Date Time Picker yang digunakan untuk menampilkan date.

Script Unique

Menganalisa DateTimePicker yang hasilnya akan ditampilkan pada textbox tertentu.

If Date36110051.Value.DayOfWeek Then

            b36110051.Text = Date36110051.Value.Day

            c36110051.Text = Date36110051.Value.Month

            d36110051.Text = Date36110051.Value.Year

            e36110051.Text = WeekdayName(Weekday(Date36110051.Value.Date, 1), False, FirstDayOfWeek.Sunday)

      
Mengosongkan nilai Textbox

Textbox1.Text = “ ”

Dst.

Event

Buttonclick

Property

Default

1.       Buka Ms. Visual Studio

2.       Klik Create Project

3.       Ketik nama file yang ingin disimpan

4.       Akan terbuka jendela pekerjaan Ms. Visual Studio

5.       Design form dengan menggunakan tools pada toolbox

6.       Buat text pada form dengan menggunakan label, al:

a.      “Nama saya”

b.      “Tanggal lahir”

c.       “Tanggal kelahiran”

d.      “Bulan kelahiran”

e.      “Tahun kelahiran”

f.        “Hari kelahiran”

7.       Buat kolom sesuai dengan design pada latihan 4 dengan textbox, kolom sebanyak 6

a.       Kolom 1 diberi nama “a36110051”

b.      Kolom 2 diberi nama “b36110051”

c.       Kolom 3 diberi nama “c36110051”

d.      Kolom 4 diberi nama “d36110051”

e.      Kolom 5 diberi nama “e36110051”

f.      Kolom 6 diberi nama “f46110051”

8.      Buat  tanggal sesuai dengan design pada latihan 4 dengan DateTimePicker dengan nama

“Date36110051”

9.      Buat  tombol sesuai dengan design pada latihan 1 dengan button berisi teks Analisa dengan

         nama “an36110051”

10.    Setelah itu masuk ke lembar “Vb” dan masukkan script :

            Public Class Latihan_04_36110051

    Private Sub an36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles an36110051.Click

        If Date36110051.Value.DayOfWeek Then

            b36110051.Text = Date36110051.Value.Day

            c36110051.Text = Date36110051.Value.Month

            d36110051.Text = Date36110051.Value.Year

            e36110051.Text = WeekdayName(Weekday(Date36110051.Value.Date, 1), False, FirstDayOfWeek.Sunday)

        End If

    End Sub

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

    End Sub

End Class

11.    Uji program dengan mengklik “Start Debbuging” dan save program dengan mengklik “Save”.