Prosedur Penyelesaian Latihan_04_36110037

Form Latihan_04_36110037 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.

DateTimePicker.Value.DayOfWeek = 1 Then
            Textbox1.Text = "SENIN" 

TGL_36110037.Text = TL_36110037.Value.Day
 
BLN_36110037.Text = TL_36110037.Value.Month
 
THN_36110037.Text = TL_36110037.Value.Year

Mengosongkan nilai Textbox

Textbox1.Text = “ ”

Dst.

Event

Buttonclick

Property

Property textbox :

Readonly = True
Multiline = True

Backcolor = Info

Prosedur Penyelesaian

1. buka project yang telah dibuat.
2.  buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.


4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.

 5. buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

6. setelah form selesai, ubah nama textbox dan button menggunakan properties window


7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_02_36110037

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

    Private Sub KISAHKU_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KISAHKU_36110037.Click
        KERTAS_36110037.Text = "Nama saya adalah " & NS_36110037.Text & " saya adalah cowok/cewek berusia 20 Tahun, sekarang ini saya tinggal di " & ALM_36110037.Text & " . Orang tua saya bernama " & NA_36110037.Text & " dan " & NI_36110037.Text & ", mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang lebih baik. Saya telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga di Politeknik, selama mengenyam pendidikan tersebut saya memiliki beberapa teman terbaik. Di sekolah dasar saya memiliki teman yang sangat baik bernama " & SD_36110037.Text & ", setelah lulus di sekolah dasar " & SD_36110037.Text & " melanjutkan pendidikan di sekolah yang berbeda dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan " & SD_36110037.Text & " pindah ke Jakarta. Di SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya semangat hingga saya lulus sama-sama di sekolah, namanya adalah " & SMP_36110037.Text & ". Setelah selesai di " & SMP_36110037.Text & " kami sama-melanjutkan di sebuah SLTA, namun ketika di SLTA si TSLTP memilih Jurusan IPA dan saya sendiri di jurusan IPS, di kelas saya terdapat seorang perempuan yang sangat pintar dan orangnya baik pada saya namanya adalah " & SMA_36110037.Text & ", dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya ialah " & POLTEK_36110037.Text & ". Hingga semester ini saya masih berteman baik dengan si " & POLTEK_36110037.Text & "."
    End Sub

    Private Sub SEKIAN_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SEKIAN_36110037.Click
        NS_36110037.Text = ""
        ALM_36110037.Text = ""
        NA_36110037.Text = ""
        NI_36110037.Text = ""
        SD_36110037.Text = ""
        SMP_36110037.Text = ""
        SMA_36110037.Text = ""
        POLTEK_36110037.Text = ""
        KERTAS_36110037.Text = ""
    End Sub
End Class
8. Uji program dengan mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".

10. Selesai.