Program Menentukan Zodiak dan Shio dengan Visual Studio

Kali ini saya membuat program percabangan tentang cara menentukan zodiak dan shio dengan inputan tanggal, bulan dan tahun lahir. Berikut design yang saya buat:

Pada design diatas saya menggunakan 6 label untuk judul dan penulisan Tanggal, Bulan, Tahun, Zodiak dan Shio. Untuk pilihan tanggal saya menggunakan ListBox yang saya beri name list_tgl, untuk bulan saya beri name list_bln, untuk tahun saya beri name list_thn, untuk kolom zodiak saya beri name TextBox1, sedangkan untuk kolom shio saya beri name TextBox2.

Ketentuan untuk menentukan Zodiak adalah sebagai berikut:
Inputan tanggal dan bulan 22 Desember - 20 Januari berzodiak Cappricorn,  21 Januari - 19 Februari berzodiak Aquarius, 20 Februari - 20 Maret berzodiak Pisces, 21 Maret - 19 April berzodiak Aries, 21 April - 20 Mei berzodiak Taurus, 21 Mei - 21 Juni berzodiak Gemini, 22 Juni - 22 Juli berzodiak Cancer, 23 Juli - 23 Agustus berzodiak Leo, 24 Agustus - 22 September berzodiak Virgo, 23 September - 23 Oktober berzodiak Libra, 24 Oktober - 22 November berzodiak Scorpio, dan 23 November - 21 Desember berzodiak Sagitarius seperti pada flowchart dibawah:

Program ini dapat menentukan shio dengan batasan tahun 1970 - 2017, ketentuannya sebagai berikut:

bila tahun yang diinputkan 1972, 1984, 1996, 2008 maka shionya Tikus. 1973, 1985, 1997, 2009 shionya Kerbau. 1974, 1986, 1998, 2010 shionya Macan. 1975, 1987, 1999, 2011 shionya Kelinci. 1976, 1988, 2000, 2012 shionya Naga. 1977, 1989, 2001, 2013 shionya Ular. 1978, 1990, 2002, 2014 shionya Kuda. 1979, 1991, 2003, 2015 shionya Kambing. 1980, 1992, 2004, 2016 shionya Monyet. 1981, 1993, 2005, 2017 shionya Ayam. 1970, 1982, 1994, 2006 shionya Anjing. 1971, 1983, 1995, 2007 shionya Babi seperti pada flowchart dibawah:

Memasuki coding, disini saya menggunakan percabangan If dan ElseIf dimana bila inputan sesuai dengan ketentuan yang ditentukan diatas maka akan keluar inputan zodiak dan shionya, jika tidak sesuai dengan ketentuan pertama maka akan diperiksa pada ketentuan berikutnya sampai menemukan ketentuan yang sesuai dengan inputan tersebut. Bila inputan tidak ada yang sesuai dengan ketentuan, saya memakai MsgBox untuk menampilkan pesan peringatan. Berikut coding lengkapnya:

Saat dijalankan tampilannya akan seperti dibawah 

Saat diberi inputan yang sesuai dengan ketentuan akan muncul hasil seperti dibawah:

Saat inputan tidak ada yang sesuai dengan ketentuan atau tidak lengkap, maka akan muncul pesan peringatan seperti di bawah ini: