Rabu, 30 Maret 2011

Aplikasi Menghitung Umur

HITUNG UMUR by Fadly Okfianto Muin

Aplikasi ini terbilang sangat sederhana dan cara membuatnyapun sangat sederhana pula, namun kegunaannya tentu tidak sederhana. Mau bukti ? hehehe…pernahkah anda dating pada suatu instansi pemerintah atau swasta dimana anda ditanya oleh operator tentang berapa umur anda sekarang ? padahal sebelumnya sang operator telah menanyakan tanggal lahir anda atau anda sudah mengisinya didalam formulir (jika ada)…tetapi kadangkala operator atau anda bingung atau agak telat menjawab berapa umur anda atau umur seseorang (jika kebetulan orang itu tidak ada dihadapan kita) secara pasti kendatipun tanggal lahirnya sudah kita ketahui, paling tidak kita membutuhkan waktu barang beberapa saat untuk menghitung umur orang tersebut…

Aplikasi berikut adalah aplikasi yang akan menunjukkan umur akurat seseorang dengan akurasi tahun dan bulan. Yah…hanya untuk iseng-iseng saja, namun mungkin berguna bagi anda yang berprofesi sebagai operator, pembuat daftar gaji pada instansi pemerintah atau panitia test cpns / penerimaan karyawan untuk memastikan seorang pelamar sudah berapa tahun lewat berapa bulan umurnya..hehehe…

Atau paling tidak bagi anda yang kebetulan mahasiswa computer yang ingin sedikit belajar fungsi dan terapan aritmatika serta fungsi string dari MID, LEFT dan RIGHT

Okelah…daripada basa basi terus berikut adalah cara membuat aplikasi menghitung umurnya.


1.       Bukalah sebuah project standart exe dalam visual basic anda.
2.       Rancanglah tampilan form sebagai berikut :
 
Pengaturan properties komponennya adalah sebagai berikut :
Komponen
Properties
Value
Label1
Caption
Tanggal Sekarang
Label2
Caption
Masukkan Tanggal Lahir Anda !
Label3
Caption
Umur Anda Sekarang =
Label4
Caption
Bulan
Label5
Caption
Tahun
Textbox1
Name
Text
Txttglskr
“  “ (dikosongkan)
Textbox2
Name
Text
Txttgllahir
“  “ (dikosongkan)
Textbox3
Name
Text
Txtumurbln
“  “ (dikosongkan)
Textbox4
Name
Text
Txtumurthn
“  “ (dikosongkan)

3.       Setelah itu masukkan listing lengkap berikut :
Private Sub Form_Activate()
    txttgllahir.SetFocus
End Sub

Private Sub Form_Load()
    txttglskr = Date
End Sub

Private Sub txttgllahir_Change()
    'jika bulan kelahiran diatas bulan sekarang
    If (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)) < 0) Then
        txtumurbln = 12 + (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)))
        txtumurthn = (Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))) - 1
    Else
        txtumurbln = Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2))
        txtumurthn = Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))
    End If
End Sub

Private Sub txtumurbln_Change()
    'jika bulan kelahiran diatas bulan sekarang
    If (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)) < 0) Then
        txtumurbln = 12 + (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)))
        txtumurthn = (Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))) - 1
    Else
        txtumurbln = Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2))
        txtumurthn = Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))
    End If
End Sub

Private Sub txtumurthn_Change()
    'jika bulan kelahiran diatas bulan sekarang
    If (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)) < 0) Then
        txtumurbln = 12 + (Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2)))
        txtumurthn = (Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))) - 1
    Else
        txtumurbln = Val(Mid(Date, 4, 2)) - Val(Mid(txttgllahir, 4, 2))
        txtumurthn = Val(Right(Date, 4)) - Val(Right(txttgllahir, 4))
    End If
End Sub

Cara menjalankan program adalah anda tinggal memasukkan tanggal kelahiran dengan format “dd/mm/yyyy” contoh “12/10/2001” dan program otomatis akan memunculkan umur anda sekarang.
            
Kedepannya tentu anda dapat memodifikasinya hingga akurasi hari. Selamat mencoba dan semoga sukses !

1 komentar:

  1. gan maw tanya kalo ini di implementasikan dengan .net remoting bisa kah??kalo bisa mohon pencerahanya

    BalasHapus