Hello Accounting: latihan_5

Deskripsi latihan_5_36110036

A. Object label

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

B. Object textbox
Terdapat tiga textbox (satu status input yang digunakan untuk memasukkan name dan

dua textbox yang digunakan untuk menampilkan hasil dari bintang).

C. Object date timepicker

Terdapat satu date timepicker yang digunakan untuk menginput date of birth.

D. Object button

Terdapat dua object button (analizing dan close). Button analizing digunakan untuk menampilkan hasil dari object textbox kecuali textbox status input. Rumus perhitungannya adalah:

1. Bintang merupakan hasil dari name, dan date of birth.

Sedangkan close digunakan untuk menghapus data yang ada pada textbox.

E. Script unique

Untuk button analizing:

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

bintang_36110036.Text = "copricorn"

hasil_36110036.Text = "tidak kenapa-kenapa"

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

bintang_36110036.Text = "aquarius"

hasil_36110036.Text = "suka minum air"

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

bintang_36110036.Text = "pisces"

hasil_36110036.Text = "suka marah-marah"

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

bintang_36110036.Text = "aries"

hasil_36110036.Text = "doyan nyanyi"

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

bintang_36110036.Text = "taurus"

hasil_36110036.Text = "tak mau diurus"

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

bintang_36110036.Text = "gemini"

hasil_36110036.Text = "maunya lebih"

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

bintang_36110036.Text = "cancer"

hasil_36110036.Text = "ada aja"

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

bintang_36110036.Text = "leo"

hasil_36110036.Text = "suka ngeraung"

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

bintang_36110036.Text = "virgo"

hasil_36110036.Text = "sehat-sehat aja"

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

bintang_36110036.Text = "libra"

hasil_36110036.Text = "kurang kerjaan"

ElseIf date_36110036.Value.Day >= 24 And date_36110036.Value.Month = 10 Or date_36110036.Value.Day <= 21 And date_36110036.Value.Month = 11 Then

bintang_36110036.Text = "scorpio"

hasil_36110036.Text = "kurang makan"

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

bintang_36110036.Text = "sagitarius"

hasil_36110036.Text = "cantik degh"

End If

untuk button close:

nm_36110036.Text = ""

date_36110036.Text = ""

bintang_36110036.Text = ""

hasil_36110036.Text = ""

F. Even

a. analisis_36110036_Click

b. cl_36110036_Click

G. property

Property TextBox ==>multiline=true

Langkah-langkah mengerjakan latihan_5_36110036

1. Buat folder baru dimana project akan disimpan

2. Buka Ms. Visual Studio

3. Klik file ==> new project

4. Ketik nama file yang ingin disimpan

5. Kemudian akan terbuka jendela pekerjaan Ms. Visual Studio

6. Desaign form dengan menggunakan tools pada toolbox

7. Buat text pada form dengan menggunakan label:

a. Name

b. date of birth

c. bintang

8. Buat kolom pada form dengan menggunakan textbox, sebanyak tiga kolom:

a. Kolom 1 diberi nama nm_36110036

b. Kolom 2 diberi nama bintang_36110036

c. Kolom 3 diberi nama hasil_36110036

9. Buat dua tombol button:

a. Button 1 analizing

b. Button 2 close

10. Setelah desaign selesai dibuatlah rumusnya

11. berikut adalah rumus untuk menjalankan latihan_5_36110036

Public Class latihan_05_36110036

Private Sub analisis_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analisis_36110036.Click