Latihan_08_46110037

Deskripsi Form Latihan 08

Pada latihan 08 terdapat 2 Object yaitu Label dan TextBox.

Object Label

Terdapat dua belas Label yaitu Nama; Alamat; Anda; Teman 1; Teman 2; Teman 3; Teman 4; Teman 5; Cerita 1; Cerita 2;Cerita 3;  dan Cerita 4

Object TextBox

Terdapat 16 Textbox, 12 textbox berstatus input, dan 4 textbox berstatus ReadOnly. 6 textbox yang berstatus input adalah untuk mengimput nama anda dan 5 teman anda(Nama Anda;  Nama Teman 1; Nama Teman 2; Nama Teman 3; Nama Teman 4 dan Nama Teman 5),  sedangkan 6 textbox yang berstatus input lainnya adalah untuk menginput alamat anda dan alamat 5 teman anda (Alamat Anda; Alamat Teman 1; Alamat Teman 2; Alamat Teman 3;Alamat Teman 4 dan Alamat Teman 5).  4  textbox yang berstatus ReadOnly (Cerita 1; Cerita 2; Cerita 3 dan Cerita 4) akan menampilkan cerita yang berbeda-beda. Dari data yang di masukkan dalam 16 textbox yang berstatus Input.

Script Unique

Pembuatan Prosedure untuk beberapa cerita

Private Sub CERITA_PERTAMA()

        CERITA146110037.Text = "NAMA SAYA ADALAH " & NM46110037.Text & ", SAYA TINGGAL DI " & AL46110037.Text & ".”

        CERITA246110037.Text = NMT146110037.Text & " tinggal di " & AL146110037.Text & ".”

        CERITA346110037.Text = NM46110037.Text & ", " & NMT146110037.Text & " DAN " & NMT346110037.Text & " JANJIAN UNTUK LES SAMA-SAMA DI TEMPAT BIMBEL AKUNTANSI. LOKASINYA TIDAK JAUH DARI RUMAH " & NMT346110037.Text & " YAITU " & AL346110037.Text & ".”

        CERITA446110037.Text = " PADA SUATU HARI " & NMT446110037.Text & " TIDAK MASUK LES. KATA SI " & NMT546110037.Text & " DIA SAKIT. MENDENGAR HAL ITU,"

    End Sub

Penggunaan Prosedure

Cerita_Pertama ()

Prosedure digunakan untuk memudahkan kita menulis rumus yang berulang(Cuma beda sedikit), cukup pakai saja prosedurnya.

Even

TextChanged

Property

Property Textbox=> ReadOnly=True; Multiline = True

Langkah-Langkah Menjalankan Form

·         Masukkan Data (Nama dan Alamat) anda dan ke 5 teman anda pada textbox yang berstatus Input.

·         Secara Otomatis cerita akan muncul pada masing-masing textbox Cerita.

Langkah-langkah Menyelesaikan Form

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label dan  Textbox.
• Ganti nama Textbox di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True  
• Buatlah Prosedure untuk Cerita 1, Cerita 2, Cerita 3 dan Cerita 4. Ceritanya suka-suka anda.

Private Sub CERITA_PERTAMA()

        CERITA146110037.Text = "NAMA SAYA ADALAH " & NM46110037.Text & ", SAYA TINGGAL DI " & AL46110037.Text & ". HOBI SAYA ADALAH MENONTON TV. SAYA PERNAH BERSEKOLAH DI SD INPRES PERUMNAS ANTANG III, DI SANA SAYA MEMPUNYAI TEMAN BERNAMA " & NMT146110037.Text & " DIA TINGGAL DI DEKAT SEKOLAH YAITU " & AL146110037.Text & " DIA SANGAT BAIK."

        CERITA246110037.Text = NMT146110037.Text & " tinggal di " & AL146110037.Text & ". SETELAH SELESAI SMP, SAYA DAN " & NMT146110037.Text & " LANJUT DI SMK YANG SAMA DAN MENGAMBIL JURUSAN AKUNTANSI. DI SEKOLAH TERSEBUT SY BERKENALAN DENGAN " & NMT246110037.Text & " DIA TINGGAL DI " & AL246110037.Text & ", KAMI SANGAT AKRAB DAN SELALLU BERBAGI CERITA SAMA-SAMA. NAIK KELAS 2 SMK, ADA MURID PINDAHAN DARI JAKARTA, DIA BERNAMA " & NMT346110037.Text & " , DI MAKASSAR DIA TINGGAL DIJALAN " & AL346110037.Text & " BERSAMA NENEKNYA. HARI DEMI HARI KITA LALUI BERSAMA HINGGA KITA BERTIGA YAITU SAYA, " & NMT246110037.Text & " DAN " & NMT346110037.Text & " SEMAKIN AKRAB."

        CERITA346110037.Text = NM46110037.Text & ", " & NMT146110037.Text & " DAN " & NMT346110037.Text & " JANJIAN UNTUK LES SAMA-SAMA DI TEMPAT BIMBEL AKUNTANSI. LOKASINYA TIDAK JAUH DARI RUMAH " & NMT346110037.Text & " YAITU " & AL346110037.Text & ". DI TEMPAT BIMBEL TERSEBUT KAMI BERTEMU " & NMT446110037.Text & " DAN " & NMT546110037.Text & ". MEREKA SANGAT BAIK DAN RAMAH. " & NMT446110037.Text & "TINGGAL DI " & AL446110037.Text & " SEDANGKAN " & NMT546110037.Text & "TINNGAL DI " & AL546110037.Text & "."

        CERITA446110037.Text = " PADA SUATU HARI " & NMT446110037.Text & " TIDAK MASUK LES. KATA SI " & NMT546110037.Text & " DIA SAKIT. MENDENGAR HAL ITU," & NM46110037.Text & ", " & NMT146110037.Text & ", " & NMT246110037.Text & "," & NMT346110037.Text & " DAN " & NMT546110037.Text & " BERENCANA MENJENGUK " & NMT446110037.Text & " DI RUMAHNYA, DI JALAN " & AL446110037.Text & "."

    End Sub

• Kembali ke Latihan 08 Design kemudian click double Nama Anda, lalu ketik scriptnya sebagai berikut:

CERITA_PERTAMA()

• Kembali ke Latihan 08 Design kemudian click double Alamat Anda, lalu ketik scriptnya sebagai berikut:

CERITA_PERTAMA()

• Lakukan hal yang sama untuk semua textbox yang berstatus input yaitu Nama Teman 1; Alamat Teman 1; Nama Teman 2; Alamat Teman 2; Nama Teman 3; Alamat Teman 3; Nama Teman 4; Alamat Teman 4; Nama Teman 5 dan Alamat Teman 5..