LATIHAN
MICROSOFT VISUAL BASIC
MEMBUAT PROGRAM PERHITUNGAN UMUR
Aplikasi berikut ini berfungsi untuk melakukan proses perhitungan umur dengan menggunakan bahasa pemrograman Microsoft Visual Basic. Komponen-komponen yang diperlukan sebagai berikut.
- 9 buah label
- 4 buah textbox
- 2 buah DTPicker
- 3 buah commandbutton
- 1 buah timer
- 2 buah shape
Lanjutkan dengan merancang form sebagai berikut :
MEMBUAT PROGRAM PERHITUNGAN UMUR
Aplikasi berikut ini berfungsi untuk melakukan proses perhitungan umur dengan menggunakan bahasa pemrograman Microsoft Visual Basic. Komponen-komponen yang diperlukan sebagai berikut.
- 9 buah label
- 4 buah textbox
- 2 buah DTPicker
- 3 buah commandbutton
- 1 buah timer
- 2 buah shape
Lanjutkan dengan merancang form sebagai berikut :
Lanjutkan dengan melakukan perubahan properties tiap komponen sesuaikan dengan table berikut :
komponen
properties
Label1
caption : program hitung umur
label2
caption : masukkan tanggal lahir
Label3
caption : anda lahir pada hari
Label4
Caption : (dikosongkan)
Name : lbllahir
Label5
Caption : masukkan tanggal batas perhitungan
Label6
Caption : usia Anda adalah
Label7
Caption : tahun
Label8
Caption : bulan
Label9
Caption : hari
DTPicker1
name : DTPicker1
DTPicker2
name : DTPicker2
Command1
name : cmdproses
&Hitung usia
Command2
name : cmdreset
caption : &Reset
Command3
name : cmdtutup
caption : &Tutup form
Shape1
name : shape1
Shape2
Name : shape2
timer1
name : timer1
interval : 1
Tuliskan kode program berikut pada windows code :
Private Sub cmdproses_Click()
Dim TanggalA, tanggalB As Date
Dim hr, bl As Double
Dim UsiaTH, usiabl, usiahr, pesan
TanggalA = DTPicker1.Value
tanggalB = DTPicker2.Value
If (tanggalB <= TanggalA) Then
komponen
properties
Label1
caption : program hitung umur
label2
caption : masukkan tanggal lahir
Label3
caption : anda lahir pada hari
Label4
Caption : (dikosongkan)
Name : lbllahir
Label5
Caption : masukkan tanggal batas perhitungan
Label6
Caption : usia Anda adalah
Label7
Caption : tahun
Label8
Caption : bulan
Label9
Caption : hari
DTPicker1
name : DTPicker1
DTPicker2
name : DTPicker2
Command1
name : cmdproses
&Hitung usia
Command2
name : cmdreset
caption : &Reset
Command3
name : cmdtutup
caption : &Tutup form
Shape1
name : shape1
Shape2
Name : shape2
timer1
name : timer1
interval : 1
Tuliskan kode program berikut pada windows code :
Private Sub cmdproses_Click()
Dim TanggalA, tanggalB As Date
Dim hr, bl As Double
Dim UsiaTH, usiabl, usiahr, pesan
TanggalA = DTPicker1.Value
tanggalB = DTPicker2.Value
If (tanggalB <= TanggalA) Then
pesan = MsgBox("tanggal batas perhitungan harus lebih besar dari tanggal lahir !!!",vbCritical, "PERINGATAN")
DTPicker1.SetFocus
Else UsiaTH = DateDiff("yyyy", TanggalA, tanggalB) txttahun.Text = UsiaTH usiabl = DateDiff("m", TanggalA, tanggalB) bl = usiabl Mod 12 txtbulan.Text = bl usiahr = DateDiff("d", TanggalA, tanggalB) hr = usiahr Mod 365 txthari.Text = hr
End If
cmdreset.Enabled = True Cmdproses.Enabled = False
End Sub
Private Sub cmdreset_Click()
DTPicker1.Refresh DTPicker2.Refresh txttahun.Text = "" txtbulan.Text = "" txthari.Text = "" DTPicker1.SetFocus cmdreset.Enabled = False Cmdproses.Enabled = True
End Sub
Private Sub cmdtutup_Click()
Dim pesan As String pesan = MsgBox("Akhiri Program ??", vbQuestion + vbYesNo, "Konfirmasi")
If pesan = vbYes Then
End If
End Sub
Private Sub DTPicker1_Change()
Dim Tanggal As Date
Dim Angkahari
Dim hari nhari = Array("", "MINGGU", "SENIN", "SELASA", "RABU", "KAMIS", "JUMAT", "SABTU") Tanggal = DTPicker1.Value Angkahari = DatePart("w", Tanggal, vbSunday) hari = nhari(Angkahari) lbllahir.Caption = hari
End Sub
Private Sub Timer2_Timer()
If Label1.Enabled = True Then
Label1.Enabled = False
Else
Label1.Enabled = True
End If
DTPicker2.Value = Now
Text1.Text = Time
End Sub