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
bagus sih mas..
ReplyDeletesumbernya dari mana ya mas, ?
makasih mbak, sumbernya dari Ki Jogoogle
Delete