Pages

Jumat, 20 Januari 2012

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


Tidak ada komentar:

Posting Komentar