PENGENALAN TAHUN KABISAT UNTUK ANAK SD PADA PROGRAM VISUAL BASIC

Program Output:

1.      Skrip

Private Sub Command1_Click()

If (th.Text Mod 4 = 0) Then

hasil.Text = "Tahun Kabisat"

Else

hasil.Text = "Bukan Tahun kabisat"

End If

End Sub

Private Sub Command2_Click()

Private Sub Command2_Click()

  If MsgBox(" Anda ingin keluar Aplikasi ?", vbOKCancel, "Warning !!") = vbOK Then

    End

      Else

    MsgBox "Lho kok gak jadi", , "Warning !!"

  End If

End Sub

Cara kerja Program :

1.      Form awal untuk menapilkan halaman login

2.      Sertelah login berhasil, maka form utama akan terbuka akan terbuka

3.      Kemudian user harus memasukkan tahun yang ingin di prosses.

4.      Klik Tombol prosses bila ingin tahu apakah tahun yang di masukkan tahun kabisat atau bukan.

5.      Klik tombol exit bila ingin keluar dari program, pilih ok pada msg box jika ingin keluar, klik cancel jika ingin membatalkan keluar.

Fungsi program :

 Program yang di buat ini befungsi untuk mengenalkan tahun kabisat pada siswa SD, yang mungkin perlu mereka ketahui .