Flowchart
Penjelasan
1. Awal dimulainya program
2. Input tanggal lahir (Tgl_lahir)
3. Validasi tanggal lahir(Tgl_lahir) yang diinput merupakan format tanggal. Jika data yang diinput tidak valid kembali ke proses 2. Jika valid proses dilanjutkan.
4. Pecah tanggal lahir yang diinput menjadi tanggal (h) dan bulan dalam format angka (b).
5. Cek jika tanggal lahir dari 21 Desember s/d 19 Januari, maka zodiaknya adalah Capricorn. Jika (h lebih dari atau sama dengan 21 dan b sama dengan 12) atau (h kurang dari atau sama dengan 19 dan b sama dengan 1) maka zodiak (z) sama dengan Capricorn, jika bukan lanjut ke proses selanjutnya.
6. Cek jika tanggal lahir dari 20 Januari s/d 18 Februari, maka zodiaknya adalah Aquarius. Jika (h lebih dari atau sama dengan 20 dan b sama dengan 1) atau (h kurang dari atau sama dengan 18 dan b sama dengan 2) maka zodiak (z) sama dengan Aquarius, jika bukan lanjut ke proses selanjutnya.
7. Cek jika tanggal lahir dari 19 Februari s/d 20 Maret, maka zodiaknya adalah Pisces. Jika (h lebih dari atau sama dengan 19 dan b sama dengan 2) atau (h kurang dari atau sama dengan 20 dan b sama dengan 3) maka zodiak (z) sama dengan pisces, jika bukan lanjut ke proses selanjutnya.
8. Cek jika tanggal lahir dari 21 Maret s/d 20 April, maka zodiaknya adalah Aries. Jika (h lebih dari atau sama dengan 21 dan b sama dengan 3) atau (h kurang dari atau sama dengan 20 dan b sama dengan 4) maka zodiak (z) sama dengan Aries, jika bukan lanjut ke proses selanjutnya.
9. Cek jika tanggal lahir dari 21 April s/d 20 Mei, maka zodiaknya adalah Taurus. Jika (h lebih dari atau sama dengan 21 dan b sama dengan 4) atau (h kurang dari atau sama dengan 20 dan b sama dengan 5) maka zodiak (z) sama dengan Taurus, jika bukan lanjut ke proses selanjutnya.
10. Cek jika tanggal lahir dari 21 Mei s/d 20 Juni, maka zodiaknya adalah Gemini. Jika (h lebih dari atau sama dengan 21 dan b sama dengan 5) atau (h kurang dari atau sama dengan 20 dan b sama dengan 6) maka zodiak (z) sama dengan Gemini, jika bukan lanjut ke proses selanjutnya.
11. Cek jika tanggal lahir dari 21 Juni s/d 20 Juli, maka zodiaknya adalah Cancer. Jika (h lebih dari atau sama dengan 21 dan b sama dengan 6) atau (h kurang dari atau sama dengan 20 dan b sama dengan 7) maka zodiak (z) sama dengan Cancer, jika bukan lanjut ke proses selanjutnya.
12. Cek jika tanggal lahir dari 21 Juli s/d 21 Agustus, maka zodiaknya adalah Leo. Jika (h lebih dari atau sama dengan 21 dan b sama dengan 7) atau (h kurang dari atau sama dengan 21 dan b sama dengan 8) maka zodiak (z) sama dengan Leo, jika bukan lanjut ke proses selanjutnya.
13. Cek jika tanggal lahir dari 22 Agustus s/d 22 September, maka zodiaknya adalah Virgo. Jika (h lebih dari atau sama dengan 22 dan b sama dengan 8) atau (h kurang dari atau sama dengan 22 dan b sama dengan 9) maka zodiak (z) sama dengan Virgo, jika bukan lanjut ke proses selanjutnya.
14. Cek jika tanggal lahir dari 23 September s/d 22 Oktober, maka zodiaknya adalah Libra. Jika (h lebih dari atau sama dengan 23 dan b sama dengan 9) atau (h kurang dari atau sama dengan 22 dan b sama dengan 10) maka zodiak (z) sama dengan Libra, jika bukan lanjut ke proses selanjutnya.
15. Cek jika tanggal lahir dari 23 Oktober s/d 22 November, maka zodiaknya adalah Scorpio. Jika (h lebih dari atau sama dengan 23 dan b sama dengan 10) atau (h kurang dari atau sama dengan 22 dan b sama dengan 11) maka zodiak (z) sama dengan Scorpio, jika bukan lanjut ke proses selanjutnya.
16. Cek jika tanggal lahir dari 23 November s/d 20 Desember, maka zodiaknya adalah Sagitarius. Jika (h lebih dari atau sama dengan 23 dan b sama dengan 11) atau (h kurang dari atau sama dengan 20 dan b sama dengan 12) maka zodiak (z) sama dengan Sagitarius, jika bukan lanjut ke proses selanjutnya.
17. Tampilkan Nama Zodiak(z)
18. Akhir Program.
User Interface
Detail
No. |
Control |
Property |
Value |
1 |
Form(Form1) |
Name |
frm_zodiak |
Text |
Zodiak V1.0 |
||
FormBorderStyle |
FixedSingle |
||
MaximizedBox |
False |
||
Font |
Microsoft Sans Serif, 8.25pt |
||
BackColor |
White |
||
2 |
Label(Label1) |
BackColor |
Gray |
BorderStyle |
FixedSingle |
||
Font |
Monotype Corsiva, 27.75pt, style=Bold, Italic |
||
ForeColor |
White |
||
Text |
Zodiak |
||
TextAlign |
MiddleCenter |
||
Name |
lbl_title |
||
Dock |
Top |
||
3 |
GroupBox(GroupBox1) |
Font |
Monotype Corsiva, 14.25pt, style=Italic |
Text |
Tanggal Lahir |
||
Name |
gpb_tgl_lahir |
||
4 |
DateTimePicker(DateTimePicker1) |
Font |
Monotype Corsiva, 14.25pt, style=Italic |
Format |
Long |
||
Name |
dtp_tgl_lahir |
||
5 |
GroupBox(Groupbox2) |
Font |
Monotype Corsiva, 14.25pt, style=Italic |
Text |
Nama Zodiak |
||
Name |
gpb_zodiak |
||
6 |
Label(Label2) |
Font |
Monotype Corsiva, 14.25pt, style=Italic |
ForeColor |
Black |
||
Text |
Zodiak |
||
TextAlign |
MiddleCenter |
||
Name |
lbl_nm_zodiak |
||
Dock |
Fill |
Source Code
Method = ValueChanged
Private Sub dtp_tgl_lahir_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtp_tgl_lahir.ValueChanged
Dim tgl_lahir As Date = Now
Dim h As Integer = 0
Dim b As Integer = 0
Dim z As String = ""
tgl_lahir = dtp_tgl_lahir.Value
If (IsDate(tgl_lahir)) Then
h = tgl_lahir.Day
b = tgl_lahir.Month
If (h >= 21 And b = 12) Or (h <= 19 And b = 1) Then
z = "Capricorn"
ElseIf (h >= 20 And b = 1) Or (h <= 18 And b = 2) Then
z = "Aquarius"
ElseIf (h >= 19 And b = 2) Or (h <= 20 And b = 3) Then
z = "Pisces"
ElseIf (h >= 21 And b = 3) Or (h <= 20 And b = 4) Then
z = "Aries"
ElseIf (h >= 21 And b = 4) Or (h <= 20 And b = 5) Then
z = "Taurus"
ElseIf (h >= 21 And b = 5) Or (h <= 20 And b = 6) Then
z = "Gemini"
ElseIf (h >= 21 And b = 6) Or (h <= 20 And b = 7) Then
z = "Cancer"
ElseIf (h >= 21 And b = 7) Or (h <= 21 And b = 8) Then
z = "Leo"
ElseIf (h >= 22 And b = 8) Or (h <= 22 And b = 9) Then
z = "Virgo"
ElseIf (h >= 23 And b = 9) Or (h <= 22 And b = 10) Then
z = "Libra"
ElseIf (h >= 23 And b = 10) Or (h <= 22 And b = 11) Then
z = "Scorpio"
ElseIf (h >= 23 And b = 11) Or (h <= 20 And b = 12) Then
z = "Sagitarius"
End If
lbl_nm_zodiak.Text = z
End If
End Sub
Result
Program Aplikasi Menentukan Nama Zodiak Berdasarkan Tanggal Lahir Berbasis Desktop Dengan Menggunakan Bahasa Pemrograman VB.NET.
EoF.