Latihan_02_36110033

         

Latihan_02_36110033

A.    Object-object dalam Latihan_02_36110033 :

            1.      Object Label

Terdapat sembilan label (yang bertuliskan ceritaku yang menarik, nama saya, alamat sekarang, nama ayah, nama ibu, teman terbaik di SD; SLTP; SLTA, teman di Politeknik.

            2.      Object Textbox

Terdapat sembilan textbox (delapan status input; satu status ReadOnly). Status input digunakan untuk memasukkan nilai:

Nama saya, alamat sekarang, nama ayah, nama ibu, teman terbaik di SD; SLTP; SLTA, teman di Politeknik. Status ReadOnly digunakan untuk menampilkan hasil dari input.

 

            3.      Object Button

Terdapat dua object button (Kisahku dan Sekian). Tombol Kisahku digunakan untuk menampilkan hasil input di object TextBox ReadOnly (KISAHQ_36110033.Text). Rumus perhitungannya adalah:

"Nama saya adalah " & NAMA_36110033.Text & ",saya adalah cowok/cewek berusia 20 Tahun, sekarang ini saya tinggal di " & ALAMAT_36110033.Text & ". Orang tua saya bernama " & NA_36110033.Text & " dan " & NI_36110033.Text & ", mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang lebih baik. Saya telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga di Politeknik, selama mengenyam pendidikan tersebut saya memiliki beberapa teman terbaik. Di sekolah dasar saya memiliki teman yang sangat baik bernama " & SD_36110033.Text & ", setelah lulus di sekolah dasar " & SD_36110033.Text & " melanjutkan pendidikan di sekolah yang berbeda dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan " & SD_36110033.Text & " pindah ke Jakarta. Di SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya semangat hingga saya lulus sama-sama di sekolah, namanya adalah " & SMP_36110033.Text & " Setelah selesai di SLTP kami sama-melanjutkan di sebuah SLTA, namun ketika di SLTA si " & SMP_36110033.Text & " memilih Jurusan IPA dan saya sendiri di jurusan IPS, di kelas saya terdapat seorang perempuan yang sangat pintar dan orangnya baik pada saya namanya adalah " & SMK_36110033.Text & ", dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya ialah " & POLITEK_36110033.Text & ". Hingga semester ini saya masih berteman baik dengan si " & POLITEK_36110033.Text & "."

Sedangkan tombol Sekian digunakan untuk mengosongkan nilai pada semua TextBox.

B.     Script Unique

Untuk button Kisahku:

KISAHKU_36110033_Click

Untuk button Sekian:

           NAMA_36110033.Text = ""

      ALAMAT_36110033.Text = ""

      NA_36110033.Text = ""

      NI_36110033.Text = ""

      SD_36110033.Text = ""

      SMP_36110033.Text = ""

      SMK_36110033.Text = ""

      POLITEK_36110033.Text = ""

      KISAHQ_36110033.Text = ""

C.    Even

KISAHKU_36110033_Click

SEKIAN_36110033_Click

D.    Property

Property TextBox ==> ScrollBars = Vertical

TextBox Task ==> MultiLine

 

         Prosedur

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, sebanyak 9 label. Dengan nama text masing-masing sebagai berikut:

·      CERITAKU YANG MENARIK sebagai judul;

·      Nama saya;

·      Alamat sekarang;

·      Nama Ayah;

·      Nama Ibu;

·      Teman terbaik di SD;

·      Teman terbaik di SLTP;

·      Teman terbaik di SLTA;

·      Teman di Politeknik;

7.    Buat kolom sesuai dengan design pada latihan 2 dengan menggunakan textbox, sebanyak 9 kolom. Nama textbox diisi dengan identitas apa saja yang kemudian diikuti nomor stambuk seperti:

·      NAMA_36110033

·      ALAMAT_36110033

·      NA_36110033

·      NI_36110033

·      SD_36110033

·      SMP_36110033

·      SMK_36110033

·      POLITEK_36110033

·      KISAHQ_36110033 (khusus untuk textbox ini Readonlynya diganti menjadi true

8.   Buat  tombol dua sesuai dengan design pada latihan 2 dengan button dan  mengganti teks menjadi Kisahku dan sekian dengan masing-masing namenya menggunakan KISAHKU_36110033 dan SEKIAN_36110033

9.  Untuk menuliskan rumus pada tombol kisahku, klik dua kali tombol kisahku pada from. Akan muncul lembar vb untuk menulis rumus. Adapun rumusnya dapat dituliskan sebagai berikut:

Public Class Latihan_02_36110033

PrivateSubKISAHKU_36110033_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesKISAHKU_36110033.Click

KISAHQ_36110033.Text = "Nama saya adalah " & NAMA_36110033.Text& ",saya adalah cowok/cewek berusia 20 Tahun, sekarang ini saya tinggal di " & ALAMAT_36110033.Text & ". Orang tua saya bernama " & NA_36110033.Text & " dan " & NI_36110033.Text & ", mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang lebih baik. Saya telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga di Politeknik, selama mengenyam pendidikan tersebut saya memiliki beberapa teman terbaik. Di sekolah dasar saya memiliki teman yang sangat baik bernama " & SD_36110033.Text & ", setelah lulus di sekolah dasar " & SD_36110033.Text & " melanjutkan pendidikan di sekolah yang berbeda dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan " & SD_36110033.Text & " pindah ke Jakarta. Di SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya semangat hingga saya lulus sama-sama di sekolah, namanya adalah " & SMP_36110033.Text & " Setelah selesai di SLTP kami sama-melanjutkan di sebuah SLTA, namun ketika di SLTA si " & SMP_36110033.Text & " memilih Jurusan IPA dan saya sendiri di jurusan IPS, di kelas saya terdapat seorang perempuan yang sangat pintar dan orangnya baik pada saya namanya adalah " & SMK_36110033.Text & ", dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya ialah " & POLITEK_36110033.Text & ". Hingga semester ini saya masih berteman baik dengan si " & POLITEK_36110033.Text & "."

End Sub

10.        Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan. Untuk menuliskan rumus pada tombol sekian, pelaksanaannya sama dengan penulisan tombol kisahku yaitu kelik dua kali pada tombol sekian dan selanjutnya menuliskan rumus sebagai berikut:

PrivateSubSEKIAN_36110033_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles SEKIAN_36110033.Click      

NAMA_36110033.Text = ""

ALAMAT_36110033.Text = ""

NA_36110033.Text = ""

NI_36110033.Text = ""

SD_36110033.Text = ""

SMP_36110033.Text = ""

SMK_36110033.Text = ""

POLITEK_36110033.Text = ""

KISAHQ_36110033.Text = ""

End Sub

 End Class

11.   Uji kembali program untuk mengetahui apakah program ini berjalan atau tidak dengan cara  mengklik Start  Debbuging

12.          Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data

13.          Setelah melaksanakan semua prosedur maka latihan 02 selesai.