Latihan_04_36110056

Deskripsi latihan 04 :

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, dan hari kelahiran)

Object Text Box

Terdapat lima textbox dengan status input. Satu  textbox digunakan untuk memasukkan text Nama Saya. Empat textbox lainnya digunakan untuk menampilkan hasil analisa datetimepicker yaitu dari Tanggal Kelahiran; Bulan Kelahiran; Tahun Kelahiran; dan Hari Kelahiran

Object Button

Terdapat satu object button yaitu Analisa. Tombol Analisa digunakan untuk menjalankan rumus object datetimepicker.

Object datetimepicker

Terdapat satu datetimepicker yang digunakan untuk memasukkan tanggal.

Script Unique

         Button Analisa_36110056
If dtp_36110038.Value.DayOfWeek Then

            TK_36110056.Text = dtp_36110056.Value.Day

            BK_36110056.Text = dtp_36110056.Value.Month

            TKL_36110056.Text = dtp_36110056.Value.Year

         

Even

Button.Click

                                                                   From latihan 04 

Langkah-langkah penyelesaian :

• Buka project yang dibuat sebelumnyaPilih Add new item 
       
• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add 
• Buat form sesuai soal di atas menggunakanlabel, textbox, button dan datetimepicker
• Untuk membuat datetimepicker dengan cara memilih toolbox dan selanjutnya memilih datetimepicker.  

•     Setelah form selesai, ubah nama textbox dan button menggunakan properties window
•   Masukkan formula untuk menyelesaikan latihan 04 :
• Public Class Latihan_04_36110056
  
  
      Private Sub Analisis_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Analisis_36110056.Click
          If dtp_36110056.Value.DayOfWeek Then
              Tk_36110056.Text = dtp_36110056.Value.Day
                    Bk_36110056.Text = dtp_36110056.Value.Month
              BKL_36110056.Text = dtp_36110056.Value.Year
              HK_36110056.Text = WeekdayName(Weekday(dtp_36110056.Value.Date, 1), False, FirstDayOfWeek.Monday)
          End If
      End Sub
  End Class
  
  
  •          Setelah itu untuk mengujinya dapat memilih start debugging atau dapat menekan F5