LATIHAN 02

 Deskripsi  Form latihan_02_36110043

Form latihan 2 ini terdapat 3 object yaitu :

1.       LABEL

2.      TEXTBOX, dan

3.      BUTTON

• Object label : dapat dilihat  terdapat Sembilan Label yaitu yang bertuliskan, { Ceritaku yang menarik, Nama saya, Alamat sekarang, Nama ayah, Nama ibu, Teman terbaik di SD, Teman terbaik di SLTP, Teman terbaik di SLTA dan Teman di Politeknik}
• Object Text Box : terdapat sembilan Textbox, delapan status input artinya digunakan secara manual memasukkan nilai/huruf  ketika Form dijalankan yaitu nilai/huruf dari {Ceritaku yang menarik, Nama saya, Alamat sekarang, Nama ayah, Nama ibu, Teman terbaik di SD, Teman terbaik di SLTP, Teman terbaik di SLTA dan Teman di Politeknik}. Dan satu Textbox status ReadOnly yang digunakan untuk menampilkan hasil data yang diinput, serta Property Textbox , Scrollbars  =” Vertical” untuk menampilkan scroll secara vertical yang terdapat di sebelah kanan textbox {lihat gambar diatas} -Catatan : berikan nama semua object kecuali object Label Ini akan digunakan dan berpengaruh pada pembuatan SCRIPTnya. 
• Object Button : terdapat dua object Button {kisahku dan sekian}.
  1.  Button Kisahku digunakan untuk menampilkan hasil  di object textboxt    ReadOnly dengan perintah :
       Nama saya adalah NS, saya adalah cowok/cewek berusia 20 Tahun, sekarang ini saya tinggal di AS. Orang tua saya bernama NA dan NI, 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 TSD, setelah lulus di sekolah dasar TSD melanjutkan pendidikan di sekolah yang berbeda dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan TSD 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 TSLTP. Setelah selesai di SLTP kami sama-melanjutkan di sebuah SLTA, namun ketika di SLTA si TSLTP 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 TSLTA, dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya ialah TPOLI. Hingga semester ini saya masih berteman baik dengan si TPOLI.  
  2.  Button Sekian digunakan untuk mengosongkan nilai pada semua Textbox.
• SCRIPT  : Perintah-perintah dalam Script membaca nilai textbox lain dan menempatkan nilai pada textbox tertentu serta program penyambungan text. 
  KERTAS_36110043.Text = "Nama saya adalah " & NAMA_36110043.Text
  
  Mengosongkan nilai Textbox
  KERTAS_36110043.Text = “ ” 
• Event
  ButtonClick
• 
  
  

  Property

  Property textbox :

  Readonly=True
  

  Multiline = True

  Backcolor = Info
  
  

            Langkah-langkah latihan 2         

  • Buka project yang telah dibuat sebelumnya.

  • Pada menu ToolBar klik add new item beri nama ”latihan_02_36110043”
  • Lihat Form yang akan dibuat dibawah ini..

  
  

  • untuk membuat form diatas gunakan object label, textbox dan button yang terdapat di dalam ToolBox {lihat deskripsi diatas untuk cara penggunaan ketiga object  tersebut}

  
  

  • Beri nama setiap Object yang dibuat kecuali Object Label. 
  • Nama pada Object TextBox : {NAMA_36110043, ALAMAT_36110043, AYAH_36110043, IBU_36110043,SD_36110043,SLTP_36110043,SLTA_36110043,POLTEK_36110043,KERTAS_36110043}

  • Nama pada Object Button : {KISAHKU_36110043 dan SEKIAN_36110043}                       

  • Setelah selesai membuat Formnya selanjutnya buat SCRIPTnya berdasarkan perintah{lihat deskripsi diatas}
  • SKRIPTNYA: : Public Class Latihan_02_36110043
    
    
        Private Sub KISAHKU_36110043_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KISAH_36110048.Click
            KERTAS_36110043.Text = "Nama saya adalah " & NAMA_36110043.Text & ", saya adalah cowok/cewek berusia 20 Tahun, sekarang ini saya tinggal di " & ALAMAT_36110043.Text & ". Orang tua saya bernama " & AYAH_36110043.Text & " dan " & IBU_36110043.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_36110043.Text & ", setelah lulus di sekolah dasar " & SD_36110043.Text & " melanjutkan pendidikan di sekolah yang berbeda dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan " & SD_36110043.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 " & SLTP_36110043.Text & ". Setelah selesai di SLTP kami sama-melanjutkan di sebuah SLTA, namun ketika di SLTA si " & SLTP_36110043.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 " & SLTA_36110043.Text & ", dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya ialah " & POLTEK_36110043.Text & ". Hingga semester ini saya masih berteman baik dengan si " & POLTEK_36110043.Text & "."
        End Sub
    
    
        Private Sub SEKIAN_36110043_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SEKIAN_36110043.Click
    KERTAS_36110043.Text = ""
            NAMA_36110043.Text = ""
            ALAMAT_36110043.Text = ""
            AYAH_36110043.Text = ""
            IBU_36110043.Text = ""
            SD_36110043.Text = ""
            SLTP_36110043.Text = ""
            SLTA_36110043.Text = ""
            POLTEK_36110043.Text = ""
           
        End Sub
    End Class

  • terakhir save dan untuk memulai jalankan program ini klik debug{F5}