Latihan 05 APKOM 4 D3B Akuntansi PNUP

Latihan_05_36110051

DESKRIPSI DAN PROSEDUR

Pada Latihan_05_36110051 terdapat 4 object yaitu :

1.                          Object Label

Terdapat tiga label (yang bertuliskan nama, date of birth, bintang).

2.                          Object Textbox

Terdapat tiga textbox (satu status input; duat status read only). Status input digunakan untuk memasukkan nama saya. Status Read Only digunakan untuk menampilkan hasil analisa tanggal kelahiran, bulan kelahiran, tahun kelahiran, dan hari kelahiran.

3.                         Object Button

Terdapat dua object button (Analizing dan Close). Button Analisa digunakan untuk menampilkan hasil analisa di object TextBox ReadOnly. Sedangkan button Close digunakan untuk mengosongkan kembali semua TextBox.

4.                         Object DateTimePicker

Terdapat satu objek datetimepicker. Digunakan untuk menentukan tanggal yang akan ditampilkan bintang penjelasannya pada TextBox ReadOnly.

B.     Script Unique

·         Untuk button Analizing:

If DOB_36110051.Value.Day >= 22 And DOB_36110051.Value.Month = 12 Or DOB_36110051.Value.Day <= 19 And DOB_36110051.Value.Month = 1 Then

            bintang_36110051.Text = "capricorn"

            kertas_36110051.Text = "gak kenapa-kenapa"

        ElseIf DOB_36110051.Value.Day >= 20 And DOB_36110051.Value.Month = 1 Or DOB_36110051.Value.Day <= 18 And DOB_36110051.Value.Month = 2 Then

            bintang_36110051.Text = "aquarius"

            kertas_36110051.Text = "suka minum air"

      ElseIf DOB_36110051.Value.Day >= 19 And DOB_36110051.Value.Month =

...dan seterusnya...

End If

    End Sub

·         Untuk button Close:

Nama36110051.Text = ""

bintang_36110051.Text = ""

kertas_36110051.Text = ""

C.     Even

a36110051_Click

c36110051_Click

D.    Property

Property TextBox ==> ReadOnly=True

Property TextBox ==> TextBox Tasks=MultiLine

v   Langkah-langkah mengerjakan Latihan 1, sbb:

1.       Buka Ms. Visual Studio

2.       Klik Create Project

3.       Ketik nama file yang ingin disimpan

4.       Akan terbuka jendela pekerjaan Ms. Visual Studio

5.       Design form dengan menggunakan tools pada toolbox

6.       Buat text pada form dengan menggunakan label, al:

a.       “Nama”

b.      “Date of birth”

c.       “Bintang”

7.       Buat kolom sesuai dengan design pada latihan 5 dengan textbox, kolom sebanyak 3

a.       Kolom 1 diberi nama “Nama36110051”

b.      Kolom 2 diberi nama “Bintang_36110051”

c.       Kolom 3 diberi nama “Kertas_36110051”

8.       Buat  tombol sesuai dengan design pada latihan 5 dengan button

a.       Button 1 berisi teks “Analizing” dengan nama “a36110051”

b.      Button 2 berisi teks “Close” dengan nama “c36110051”

9.       Buat  tanggal sesuai dengan design pada latihan 5 dengan DateTimePicker dengan nama

    “DOB_36110051”.

10.       Setelah itu masuk ke lembar “Vb” dan masukkan Script :

           

            Public Class Latihan_05_36110051

    Private Sub Latihan_05_36110051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub a36110051_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles a36110051.Click

        If DOB_36110051.Value.Day >= 22 And DOB_36110051.Value.Month = 12 Or DOB_36110051.Value.Day <= 19 And DOB_36110051.Value.Month = 1 Then

            bintang_36110051.Text = "capricorn"

            kertas_36110051.Text = "gak kenapa-kenapa"

        ElseIf DOB_36110051.Value.Day >= 20 And DOB_36110051.Value.Month = 1 Or DOB_36110051.Value.Day <= 18 And DOB_36110051.Value.Month = 2 Then

            bintang_36110051.Text = "aquarius"

            kertas_36110051.Text = "suka minum air"

        ElseIf DOB_36110051.Value.Day >= 19 And DOB_36110051.Value.Month = 2 Or DOB_36110051.Value.Day <= 20 And DOB_36110051.Value.Month = 3 Then

            bintang_36110051.Text = "pisces"

            kertas_36110051.Text = "suka marah-marah"

        ElseIf DOB_36110051.Value.Day >= 21 And DOB_36110051.Value.Month = 3 Or DOB_36110051.Value.Day <= 20 And DOB_36110051.Value.Month = 4 Then

            bintang_36110051.Text = "aries"

            kertas_36110051.Text = "doyan nyanyi"

        ElseIf DOB_36110051.Value.Day >= 21 And DOB_36110051.Value.Month = 4 Or DOB_36110051.Value.Day <= 20 And DOB_36110051.Value.Month = 5 Then

            bintang_36110051.Text = "taurus"

            kertas_36110051.Text = "mau diurus"

        ElseIf DOB_36110051.Value.Day >= 21 And DOB_36110051.Value.Month = 5 Or DOB_36110051.Value.Day <= 20 And DOB_36110051.Value.Month = 6 Then

            bintang_36110051.Text = "gemini"

            kertas_36110051.Text = "maunya lebih"

        ElseIf DOB_36110051.Value.Day >= 21 And DOB_36110051.Value.Month = 6 Or DOB_36110051.Value.Day <= 22 And DOB_36110051.Value.Month = 7 Then

            bintang_36110051.Text = "cancer"

            kertas_36110051.Text = "ada ajah"

        ElseIf DOB_36110051.Value.Day >= 23 And DOB_36110051.Value.Month = 7 Or DOB_36110051.Value.Day <= 22 And DOB_36110051.Value.Month = 8 Then

            bintang_36110051.Text = "leo"

            kertas_36110051.Text = "suka meraum"

        ElseIf DOB_36110051.Value.Day >= 23 And DOB_36110051.Value.Month = 8 Or DOB_36110051.Value.Day <= 23 And DOB_36110051.Value.Month = 9 Then

            bintang_36110051.Text = "virgo"

            kertas_36110051.Text = "sehat-sehat saja"

        ElseIf DOB_36110051.Value.Day >= 23 And DOB_36110051.Value.Month = 9 Or DOB_36110051.Value.Day <= 23 And DOB_36110051.Value.Month = 10 Then

            bintang_36110051.Text = "libra"

            kertas_36110051.Text = "kurang kerjaan"

        ElseIf DOB_36110051.Value.Day >= 23 And DOB_36110051.Value.Month = 10 Or DOB_36110051.Value.Day <= 21 And DOB_36110051.Value.Month = 11 Then

            bintang_36110051.Text = "scorpio"

            kertas_36110051.Text = "kurang makan"

        ElseIf DOB_36110051.Value.Day >= 22 And DOB_36110051.Value.Month = 11 Or DOB_36110051.Value.Day <= 21 And DOB_36110051.Value.Month = 12 Then

            bintang_36110051.Text = "sagitarius"

            kertas_36110051.Text = "cantik deh"

        End If

    End Sub

    Private Sub c36110051_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles c36110051.Click

        Nama36110051.Text = ""

        bintang_36110051.Text = ""

        kertas_36110051.Text = ""

    End Sub

End Class

11.       Uji program dengan mengklik “Start Debbuging” dan simpan program dengan mengklik “Save”