Latihan_04_46110001

 

 

 

Ad

1.      Latihan_04_46110001

Ø  Object Label

Pada form latihan 4 terdapat 6 label yang terdiri dari kolom Nama saya, Tanggal Lahir, Tanggal Kelahiran, Bulan Kelahiran,Tahun Kelahiran, dan Hari Kelahiran.

Ø  Object TextBox

Terdapat Lima textbox yang terdiri dri satu jenis texbox yang berstatus input dan empat menggunakan status readonly. Status input digunakan untuk memasukkan nama saya, sedangkan status readonly digunakan untuk menampilkan Tanggal Kelahiran, Bulan Kelahiran, Tahun Kelahiran, dan Hari Kelahiran.dari kolom nama saya dan tanggal lahir yang telah diisi

Ø  Object Button

Pada form ini Terdapat satu object button yaitu pada kolom Analisa. Button Analisa digunakan untuk menampilkan hasil analisa Date Time Picker yng dapat berupa tanggal,bulan,tahun dan hari kelahiran.

Ø  Object DateTimePicker

Terdapat satu objek datetimepicker. Digunakan untuk menentukan tanggal yang akan ditampilkan pada TextBox ReadOnly

Ø  SCRIFT UNIQUE

Untuk button Analisa: Menganalisa DateTimePicker yang hasilnya akan ditampilkan pada textbox tertentu.

Private Sub Analisa_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Analisa.Click

Textlahir_46110001.Text = DTPLahir_46110001.Value.Day

Texttahun_46110001.Text = DTPLahir_46110001.Value.Year

        If DTPLahir_46110001.Value.Month = 1 Then

            Textbulan_46110001.Text = "januari"

        ElseIf DTPLahir_46110001.Value.Month = 2 Then

            Textbulan_46110001.Text = "februari"

        End If

Ø  EVENT

ButtonClick

==> Analisa_46110001.Click

Ø  PROPERTY

Property TextBox ==> ReadOnly=True

Ø  PROSEDUR PENYELESAIAN

1.      Pada layar desktop,klik Start lalu pilih Microsoft Visual Studio 2008

2.       Kemudian akan muncul tampilan awal Microsoft Visual Studio seperti di bawah ini,Klik project

3.      kemudian beri nama serta pilih tempat folder untuk menyimpan data.

 

  

4.         Kemudian buat form sesuai dengan form di bawah ini

5.           Berikut adalah rumus untuk menjalankan form yang telah dibuat di atas

Public Class Latihan_04_46110001

Private Sub Analisa_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Analisa_46110001.Click

        Textlahir_46110001.Text = DTPLahir_46110001.Value.Day

        Textbulan_46110001.Text = DTPLahir_46110001.Value.Month

        Texttahun_46110001.Text = DTPLahir_46110001.Value.Year

        If DTPLahir_46110001.Value.Month = 1 Then

            Textbulan_46110001.Text = "januari"

        ElseIf DTPLahir_46110001.Value.Month = 2 Then

Textbulan_46110001.Text = "februari"

        End If

        Texttahun_46110001.Text = DTPLahir_46110001.Value.Year

        If DTPLahir_46110001.Value.DayOfWeek = 0 Then

            Texthari_46110001.Text = "minggu"

        ElseIf DTPLahir_46110001.Value.DayOfWeek = 1 Then

            Texthari_46110001.Text = "senin"

        ElseIf DTPLahir_46110001.Value.DayOfWeek = 2 Then

End If

End Sub

End Class

6.      Setelah menyelesaikan rumus diatas, maka program dapat dijalankan dengan mengklik “Debug”

7.      Maka akan muncul form yang telah dibuat kemudian Masukkan nama anda pada textbox yang berada disamping kanan nama saya, setelah itu

8.      Input/masukkan tanggal,bulan dan tahun kelahiran anda pada datetimepicker, kemudian

9.      Tekan tombol analisa, maka

10.  Program diatas akan menampilkan dan menganalisa tgl lahir yang anda masukkan kedalam date time picker,kemudian hasil analisanya akan muncul pada kolom tgl,bulan,tahun dan hari kelahiran.