DETEKSI
TAHUN KABISAT
Tutorial kali ini anda
dapat menggunakan untuk mengetahui tahun kabisat yang terdapat perbedaan hari
pada bulan februari.
1.
Bukalah program visual basic dan
mulailah dengan form baru.
2.
Masukkan dua komponen Label, tiga komponen TextBox den sebuah komponen CommandButton kedalam area form,
sehingga tampak seperti gambar dibawah ini :
3. Ubahlah
propertis MultiLine menjadi True dan ScrollBars menjadi 2-vertical
pada komponen Text3.
4.
Aktifkan jendela kode, kemudian ketiklah
perintah di bawah ini pada bagian General
untuk membuat fungsi cek_kabisat.
1
2
3
4
5
6
7
|
'general
Public
Function cek_kabisat(tahun As Integer)
If (tahun Mod 4 = 0) And ((tahun Mod
100 <> 0) Or (tahun Mod 400 = 0)) Then
cek_kabisat = tahun & "
tahun kabisat"
Else
cek_kabisat = tahun & "
bukan tahun kabisat"
End If
End
Function
|
Keterangan
Kode
1
2
3-6
|
Membuat
sebuah fungsi dengan nama cek_kabisat
dengan nilai input tahun setiap
tipe data Integer.
Mambuat
perintah kondisi berdasarkan nilai dari variabel tahun yang anda inputkan pada fungsi cek_kabisat.
Apabila
kondisi pada baris 2 terpenuhi, maka fungsi cek_kabisat diberi nilai bahwa tahun yang anda inputkan adalah
tahun kabisat dan apabila kondisi tidak terpenuhi, maka sebaliknya fungsi cek_kabisat diberi nilai bahwan tahun
yang anda inputkan bukan tahun kabisat.
|
5.
Kembali ke tampilan desain form dan klik
ganda komponen Command1. Kemudian
ketiklah perintah di bawah ini.
1
2
3
4
5
6
7
8
|
Private
Sub Command1_Click()
On Error Resume Next
Dim i As Integer
Text3 = Empty
For i = Text1 To Text2
Text3 = Text3 & cek_kabisat(i)
& vbCrLf
Next i
End
Sub
|
Keterangan
Kode
2-3
4-6
|
Perintah
untuk melanjutkan pada perintah berikutnya apabila terjadi kesalahan program
dan mendeklarasikan variabel I
dengan tipe data Integer.
Mengosongkan
nilai pada Text3 dan membuat perintah pengulangan sebanyak nilai pada text1
sampai nilai pada text2. Kemudian menampilkannya kedalam text3 secara
berulang dengan penggabungan nilai yang telah didapat pada fungsi cek_kabisat sesuai tahun pada variabel
i.
Fungis
vbCrLf merupakan fungsi untuk
mengaktifkan baris berikutnya.
|
6.
Untuk mencoba hasilnya, tekan tombol F5 pada keyboard anda. Kemudian
masukkan tahun awal dan tahun akhir pada komponen Text1 dan Text2, selanjutnya
klik tombol Tampilkan.
EmoticonEmoticon