Aplikasi Mencari Hari Lahir dan Umur dari VB 2008

Selamat malam para pengunjung Anak Laut, pada malam yang dingin ini enaknya minum kopi jahe sedikit dengan gula aren + ditemani wanita cantik yang bisa buat gimana gitu he he he J. Ok itu tadi sekedar candaan saja teman-teman, pada malam ini saya akan memberikan sedikit koding ringan yang mudah di ingat. Kenapa koding ini sangat simple?? Ya, koding ini saya publikasikan hanya untuk memperlancar daya ingat teman-teman agar tidak mudah lupa dengan koding yang rumit telah teman-teman lewati sebelumnya. Ribet ya kawan-kawan bacanya??..., gk ngerti yang dimaksud??..., sama saya juga bingung he he he he J canda lagi teman-teman. Baiklah kita mulai serius aja kali ini tidak ada lagi becandanya.

Berikut ini hal yang perlu teman-teman siapkan untuk sebelum pembuatan koding program dari judul postingan kita kali ini :

No	Komponen	Properties
1	Form	Text : Mencari Hari Lahir
2	Label	Text : Tanggal Lahir
3	Label	Text : Tanggal Sekarang
4	Label	Text : Hari Lahir
5	Label	Text : Umur
6	TextBox	Name : tgl_skrng
7	TextBox	Name :  hr_lhr
8	TextBox	Name : umur
9	DateTimePicker

Tabel diatas tadi tidak perlu teman dihafal atau teman catat di buku, cukup buka lagi singkilutara.blogspot.co.id dah lihat deh disitu gampangkan he he he :D

Dan berikut ini gambar desain yang kawan-kawan akan buat, desain kawan-kawan tidak mesti sama dengan desain yang saya buat, boleh berkreasi kok :)

Jika kawan-kawan telah selesai membuat desainnya berikut ini koding yang perlu sobat buat,

Public Class Form1

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

        tgl_skrng.Text = FormatDateTime(Now, DateFormat.LongDate)

    End Sub

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

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

        umur.Text = Year(Now) - Year(DateTimePicker1.Text) & "Tahun"

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        DateTimePicker1.Text = ""

        hr_lhr.Text = ""

        umur.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

End Class

Bagaimana kawan-kawan, simple kan??.., kalo tidak simple dan masih rumit koment aja di bawah, nanti admin balas.

Cukup sampai disini dulu ilmu yang saya berikan pada malam ini lebih dan kurang admin minta maaf ya.

     Salam Admin

  Salam Anak Laut

Tweet

Artikel keren lainnya: