Deskripsi_Latihan_04_36110054

Cara Membuat Progam/Apliaksi Latihan 04

Dengan Software Microsoft Visual Basic 2008

Langkah 1:
Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2 :

1.      Langkah Kedua : Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

 Langkah 3 : 

    Rancanglah From Seperti Gambar Berikut Berikut :

 

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_04_36110054
Label	Text : Nama Saya
Label	Text : Tanggal Lahir
Label	Text : Tanggal Sekarang
Label	Text : Tanggal kelahiran
Label	Text : Bulan Kelahiran
Label	Text : Tahun Kelahiran
Label	Text : Hari kelahiran
Label	Text : Umur
Button	Text :Analisa
Textbox	-
Textbox	-
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Datetimepicker	-

 Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public NotInheritable Class Latihan_04_36110054

    Private Sub Latihan_04_36110054_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Tgls_36110054.Text = FormatDateTime(Now, DateFormat.LongDate)

    End Sub

   
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        H_36110054.Text = Choose(Weekday(DateTimePicker1.Text), "Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
        U_36110054.Text = Year(Now) - Year(DateTimePicker1.Text) & " " & "Tahun"
        T_36110054.Text = DateTimePicker1.Value.Day
        B_36110054.Text = Month(DateTimePicker1.Text)
        TH_36110054.Text = Year(DateTimePicker1.Text)
    End Sub

   
End Class