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