latihan_04_36110031

Tahap Penyelesaian Latihan_04_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_04 dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_04 dibawah ini:

 

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_04_36110031

    Private Sub ANALISA_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA_36110031.Click

        If DTP1_36110031.Value.DayOfWeek Then

            HARI_36110031.Text = WeekdayName(Weekday(DTP1_36110031.Value.Date, 1), False, FirstDayOfWeek.Sunday)

        Else : HARI_36110031.Text = "MINGGU"

        End If

        TANGGAL_36110031.Text = DTP1_36110031.Value.Day

        BULAN_36110031.Text = DTP1_36110031.Value.Month

        TAHUN_36110031.Text = DTP1_36110031.Value.Year

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “Save”

 

8.      Selesai.

Deskripsi Latihan_04_36110031

  A.  Form Latihan 04 terdapat Empat Object yaitu label, textbox, button dan datetimepicker.

-        Object Label

Terdapat Enam Label ( yang bertuliskan Nama saya, Tanggal lahir, Tanggal kelahiran, Bulan kelahiran, Tahun kelahiran, Hari kelahiran).

-        Object Textbox

Terdapat Lima TextBox diantaranya satu status input dan Empat status ReadOnly. Status Input digunakan untuk memasukkan nama saya sedangkan status ReadOnly digunakan untuk menampilkan hasil analisa dari tanggal kelahiran, bulan kelahiran, tahun kelahiran, dan hari kelahiran.

-        Object Button

Terdapat Satu Object Button yaitu Analisa, dimana tombol ini digunakan untuk menampilkan hasil dari analisa pada TextBox ReadOnly.

-        Object DateTimePiker

Terdapat satu object DateTimePiker yang digunakan untuk menampilkan Tanggal kelahiran pada TextBox ReadOnly.

B.      Script Unique

Untuk Botton Analisa:

If DTP_36110031.Value.DayOfWeek Then

HARI_36110031.Text = WeekdayName(Weekday(DTP_36110031.Value.Date,

1), False, FirstDayOfWeek.Sunday)

Else : HARI_36110031.Text = "MINGGU"

End If

TGL_36110031.Text = DTP_36110031.Value.Day

BLN_36110031.Text = DTP_36110031.Value.Month

THN_36110031.Text = DTP_36110031.Value.Year

C.     Even

ANALISA_36110031_Click

D.     Property

Property TextBox è ReadOnly = True