Program Aplikasi Menentukan Zodiak Berbasis Desktop Dengan Bahasa Pemrograman VB.NET

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

Control = DateTimePicker (dtp_tgl_lahir)

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.

(Average rating 0 on 0 rating)