Mencari Tahun Kabisat dengan VB 2008

"Om Swastiastu"

Setelah sebelumnya membuat program yang sama dalam C++, kali ini saya ingin membuat program mencari tahun kabisat dalam visual basic 2008. Tentunya kalian masih ingat atau tahu syarat-syarat bagaimana suatu tahun bisa dikatakan sebagai tahun kabisat. Semua itu bisa kalian simak di program mencari tahun habisat dalam C++ buatan saya dulu. Nah, hal pertama yang kalian lakukan adalah mendesain terlebih dahulu form yang akan kalian gunakan nanti. Kalian dapat mendesainnya sesuka hati, tapi untuk tutorial kali ini saya memberikan desain seperti ini.

Dalam form diatas, kalian membutuhkan masing-masing dua buah Label, TextBox, dan Button. Jika sudah, aturlah label, textbox dan button, sehingga tata letak dan tulisannya menjadi gambar seperti diatas.

Kemudian, klik ganda pada button "Keluar", dan masukkan kode berwarna merah berikut ini:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

Seperti yang kalian ketahui sebelumnya, fungsi dari kode End tersebut adalah untuk menghentikan program. Selanjutnya, klik ganda pada button "Proses" lalu masukkan kode berwarna merah berikut ini.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Val(TextBox1.Text) Mod 4 = 0 Or Val(TextBox1.Text) Mod 400 = 0 And Val(TextBox1.Text) Mod 100 <> 0 Then
            TextBox2.Text = "Tahun tersebut adalah tahun kabisat"
        End If

        If Val(TextBox1.Text) Mod 4 <> 0 Or Val(TextBox1.Text) Mod 400 <> 0 And Val(TextBox1.Text) Mod 100 = 0 Then
            TextBox2.Text = "Tahun tersebut bukan tahun kabisat"
        End If
    End Sub

Disini kita sudah langsung menggunakan statemen If. Hal pertama dalam mencari tahun kabisat, bahwa tahun kabisat selalu bernilai 0 jika dibagi 4 atau 400. Untuk menggunakan sisa hasil bagi, kita menggunakan kode "Mod", berbeda dengan C++ yang menggunakan kode "%" ketika mencari sisa hasil bagi. Kemudian, untuk kode tidak sama dengan (!= dalam C++), dalam visual basic kita menggunakan kode "<>" sebagai tanda tidak sama dengan. Jika sudah, maka kalian telah memahami arti kode diatas.

Jika sudah di run, maka program akan berjalan seperti berikut:

Nah, selamat mencoba, semoga sukses.

"Om Santhi, Santhi, Santhi, Om"