Skip to content Skip to sidebar Skip to footer

Operasi Matematika & Menghitung Umur

Operasi Matematika & Menghitung Umur

Operasi matematika adalah bagaimana cara menerapkan pola penjumlahan, pengurangan, perkalian, pembagian dan pola matematika lainnya di Visual Basic 6.0. Disini kita akan membuat sebuah project Penghitungan Umur dengan menggunakan Operasi Matematika dalam Visual Basic 6.0.

Operasi Matematika dalam Visual Basic 6.0

Bentuk operasi matematika yang akan kita implementasikan dalam project sederhana ini, diantaranya:

1. Penjumlahan ( menggunakan tanda plus atau [+] )
2. Perkalian, ( menggunakan tanda asterik atau [*] )dan
3. Pembagian ( menggunakan tanda slash atau [/]).

Dalam implementasinya, kita tidak bisa menggunakan sistem penghitungan dengan cara langsung seperti contoh dibawah ini:

txtHasil.Text = txtVariabel1.Text + txtVariabel2.Text

Oleh karena, isi atau input user atas TextBox diatas bersifat umum; bisa berupa, integer, double, single, string, dsb, untuk itu, sistem Visual basic 6.0 membutuhkan deklarasi (baca: dim) agar dapat dibaca dan dimengerti oleh sistem, misalnya:

dim strHasil as integer
dim strVar1 as string
dim strVar2 as string

lalu dijelaskan kepada visual basic 6.0 apa itu strHasil, strVar1 dan strVar2, sehingga menjadi sbb:

strHasil = txtHasil.Text
strVar1 =  txtVariabel1.Text
strVar2 =  txtVariabel2.Text

Sederhana banget, bukan? :p

Control OCX yang dibutuhkan:

  1. 2 Textbox. Masing-masing diberi nama: txtNama dan txtUmur
  2. 3 ComboBox. 
    1. ComboBox pertama bernama: cbTglLahir
    2. ComboBox kedua bernama: cbBlnLahir
    3. ComboBox ketiga bernama: cbThnLahir
  3. 1 CommandButton, yaitu: cmdHitungUmur
  4. 4 Label, sbb:
    1. Label1.Caption: Nama Lengkap
    2. Label2.Caption: Tanggal Lahir
    3. Label3.Caption: Hasil
    4. Label4.Caption: tahun
 Sehingga tampilannya seperti dibawah ini!


Menghitung Umur di Visual Basic 6.0


Selanjutnya, deklarasikan terlebih dahulu variabel-variabel yang akan kita gunakan dibawah Option Explicit, sbb:

Option Explicit

Dim i As Integer
Dim varTgl As Integer
Dim varBln As Integer
Dim varThn As Integer
Dim strHasilUmur As String
Dim strWaktuSekarang As String
Dim intTgl As Integer
Dim intBln As Integer
Dim intThn As Integer

Berikutnya adalah men-deklarasikan Fungsi TANGGAL, BULAN dan TAHUN pada ComboBox tadi, seperti berikut ini:

Sub BULAN_LAHIR()
cbBlnLahir.AddItem "Januari"
cbBlnLahir.AddItem "Pebruari"
cbBlnLahir.AddItem "Maret"
cbBlnLahir.AddItem "April"
cbBlnLahir.AddItem "Mei"
cbBlnLahir.AddItem "Juni"
cbBlnLahir.AddItem "Juli"
cbBlnLahir.AddItem "Agustus"
cbBlnLahir.AddItem "September"
cbBlnLahir.AddItem "Oktober"
cbBlnLahir.AddItem "Nopember"
cbBlnLahir.AddItem "Desember"
End Sub

Sub TANGGAL_LAHIR()
On Error Resume Next
For i = 1 To 31
cbTglLahir.AddItem (i)
Next i
End Sub

Sub TAHUN_LAHIR()
On Error Resume Next
For i = 1975 To 2020
cbThnLahir.AddItem (i)
Next i
End Sub

Setelah itu, letakkan ketiga fungsi tersebut didalam blok kode Form_Load() agar ketiga fungsi tadi bisa tampil pada saat project vb6 kita berjalan:

Private Sub Form_Load()
TANGGAL_LAHIR
BULAN_LAHIR
TAHUN_LAHIR
End Sub


Terakhir adalah, project code listing yang merupakan baris kode yang didalamnya terdapat penghitungan usia / umur berdasarkan data input user:

Private Sub cmdHitungUmur_Click()
Dim strBulan As String
Dim strBln As Integer
Dim varTahun As Integer
Dim varBulan As Integer
Dim varTahunX As Long

If frmHitungUmur.cbTglLahir.Text = "" Or frmHitungUmur.cbBlnLahir.Text = "" Or frmHitungUmur.cbThnLahir.Text = "" Then Exit Sub
intTgl = cbTglLahir.Text
strBulan = cbBlnLahir.Text
intThn = cbThnLahir.Text
If strBulan = "Januari" Then
        strBln = 1
ElseIf strBulan = "Pebruari" Then
        strBln = 2
ElseIf strBulan = "Maret" Then
        strBln = 3
ElseIf strBulan = "April" Then
        strBln = 4
ElseIf strBulan = "Mei" Then
        strBln = 5
ElseIf strBulan = "Juni" Then
        strBln = 6
ElseIf strBulan = "Juli" Then
        strBln = 7
ElseIf strBulan = "Agustus" Then
        strBln = 8
ElseIf strBulan = "September" Then
        strBln = 9
ElseIf strBulan = "Oktober" Then
        strBln = 10
ElseIf strBulan = "Nopember" Then
        strBln = 11
ElseIf strBulan = "Desember" Then
        strBln = 12
End If
varTgl = Format(Date, "DD") - intTgl
varBln = Format(Date, "MM") - strBln
varThn = Format(Date, "YYYY") - intThn

If varBln = "1" Or varBln = "2" Or varBln = "3" Or varBln = "4" Or varBln = "5" Or varBln = "6" Or varBln = "7" Or varBln = "8" Or varBln = "97" Or varBln = "10" Or varBln = "11" Then
        strHasilUmur = varThn & ", " & varBln
        txtUmur.Text = strHasilUmur
        MsgBox "Hai " & txtNama.Text & ", Umurmu sekarang adalah: " & strHasilUmur
Else
        varTahunX = (varThn * 12) + (varBln)
        varTahun = (varTahunX / 12)
        varBulan = 12 + (varBln)
        strHasilUmur = varTahun & ", " & varBulan
        txtUmur.Text = strHasilUmur
        MsgBox "Hai " & txtNama.Text & ", Umurmu sekarang adalah: " & strHasilUmur
End If
End Sub

Selesai!.
Keterangan:
Dalam project sederhana ini, penulis sengaja menampilkan sebuah project bagi pemula tentang penggunaan operasi matematika dalam visual basic 6.0 dan tidak menggunakan sistem penulisan kode tingkat lanjutan.
Selanjutnya anda dapat mengembangkan project ini lebih baik lagi.


Post a Comment for "Operasi Matematika & Menghitung Umur"