Cara Membuat Progam/Aplikasi Mencari Tanggal & Hari Lahir By Jaj MV

Cara Membuat Progam/Apliaksi Mencari Tanggal & Hari Lahir

Dengan Software Microsoft Visual Basic 2008

 

Ok Maz Brow...
Jaj Mv Akan Membahas Bagaimana caranya Membuat Software Mencari Tanggal Lahir dan Hari Lahir,
Caranya Sangat Mudah Kok....

Langkah Pertama :

-          Siapkan Segelas kopy Hangat, Sama Roti, hehe... Maknyus Dech....
Wakkkwkkwkkkk......
OK Langsung Saja, Cekidot......

Langkah Pertama :

1.       Buka Aplikasi Visual Basic 2008/Visual Studio 2008, Kalau Belum Punya Download dulu...

2.       Langkah Kedua : Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

3.       Langkah Ke 3 : Rancanglah From Seperti Gambar Berikut Berikut :

 

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Progam Mencari Tanggal Lahir By Jaj MV
Label	Text : Tanggal Lahir
Label	Text : Tanggal Sekarang
Label	Text : Hari Lahir
Label	Text : Umur
Textbox	-
Textbox	-
Textbox	-
Date Time Picker	-

Bagaimana Maz brow....?
sudah merancang belum....???
Sudah Ya? Mudah Kok...

OK,Maz Brow Menaiki  Langkah yang Ke 4:

Langsung Saja :

Double klik Form, Lalu Ketik | Ganti Load Active | Menjadi  Berikut :

Private Sub Form1_activated(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Me.Activated

        TextBox1.Text = FormatDateTime(Now, DateFormat.ShortDate)

    End Sub

Ket :

·         Perintah Form1_Activated akan di jalankan pertama kali ketika progam yang di tampilkan, dan kemudian Textbox1.

·         Text akan di isi dengan data tanggal sekarang.

·         Dengan format tanggal Dateformat.longdate.

Lankah Terakhir Maz Brow Alias Langkah ke 5 :

-          Double Klik DateTimePicker Lalu Ketik Perintah Berikut :

Private Sub DateTimePicker1_ValueChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesDateTimePicker1.ValueChanged

TextBox2.Text = Choose(Weekday(DateTimePicker1.Text), "  Minggu", " Senin", "  Selasa", "  Rabu", "  Kamis", "  Jumat", "  Sabtu")

TextBox3.Text = Year(Now) - Year(DateTimePicker1.Text) & " tahun"

End Sub

Ket :

·         Event DateTimePicker_ValueChanged akan Bekerja Ketika Maz brow mengklik DateTimePicker dan akan mengisi pada textbox2. Text dengan angka hari yang di ambil dari perintah Weekday(DateTimePicker1.Text). Kemudian di masukan ke dalam perintah choose.

OK Selesay Maz Brow....

Hehe...

Jalankan Applikasinya dengan Cara Tekan Tombol F5

Sekian Terimakasih..... ^_^.... By JAJ MV