Sabtu, 22 September 2012

Latihan_08_46110009

Latihan_08_46110009
 
      A.     Form Latihan_08  terdapat tiga object yaitu Label, Textbox, dan Button: 
          ==>Object Label
Terdapat  dua belas  label (yang bertuliskan; Nama, Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5, Cerita 1, Cerita 2, Cerita 3, Cerita 4)
          ==>Object Text Box
Terdapat enam belas  textbox (dua belas status input dan empat status read only). Status input digunakan untuk memasukkan data Nama, Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5. Status Read Only digunakan untuk menampilkan hasil Cerita 1, Cerita 2, Cerita 3, Cerita 4 dari hasil pengimputan data.
          

B.     Script Unique 
Untuk Buttom "Close"
NA_36110041.Text = ""
NT1_36110041.Text = ""
NT2_36110041.Text = ""
NT3_36110041.Text = ""
NT4_36110041.Text = ""
NT5_36110041.Text = "")
       
C.     Even
ULHY()
CLOSE46110009_Click
D.     Property
Property TextBox ==> ReadOnly=True
Rumus
Private Sub ULHY()
        C146110009.Text = "NAMA SAYA " & NA46110009.Text & "SAYA TINGGAL DI " & AA46110009.Text & "." & " SAAT SAYA SD SAYA BERTEMAN DENGAN " & NT146110009.Text & "," & " DIA TINGGAL DI " & AT146110009.Text & "SAAT SAYA SMP SAYA BERTEMAN DENGAN " & NT246110009.Text & " DIA TINGGAL DI " & AT146110009.Text & " SELAIN " & NT246110009.Text & "SAYA JUGA BERTEMAN DENGAN " & NT346110009.Text & " YANG TINGGAL DI " & AT346110009.Text & "." & " SAAT SAYA SMA SAY BERTEMAN DENGAN " & NT446110009.Text & " YANG TINGGAL DI " & AT446110009.Text & " DIA MEMPUNYAI SEPUPU YANG JUGA MENJADI TEMAN SAYA NAMANYA " & NT546110009.Text & " DIA TINGGAL DI " & AT546110009.Text
        C246110009.Text = "ASSALAMUALAIKUM....PERKENALKAN NAMA SAYA " & NA46110009.Text & " HMM AKU TINGGAL DI KOTA MAKASSAR TEPATNYA " & AA46110009.Text & "." & "SAYA MEPUNYAI TEMAN YANG TINGGAL DI " & AT146110009.Text & " NAMANYA " & NT146110009.Text & "," & " DIA PUNYA SEPUPU YANG MASIH SEK0LAH DI SLTA NAMANYA " & NT246110009.Text & " DIA TINGGAL TIDAK JAUH DARI RUMAHKU YAITU DI " & AT246110009.Text & "." & " SAYA JUGA MEMILIKI TEMAN YANG TINGGAL DI " & AT346110009.Text & " NAMANYA " & NT346110009.Text & " DIA PUNYA ADIK YANG TINGGAL DI RUMAH NENEKNYA YAITU DI " & AT446110009.Text & " NAMANYA " & NT446110009.Text & "." & "OH IYA,SAYA JUGA DULU PUNYA TETANGGA YG SANGAT BAIK DAN SUDAH SAYA ANGGAP SEPERTI KELUARGA SENDIRI NAMANYA " & NT546110009.Text & " TAPI SAYANGNYA DIA SUDAH PINDAH DI DAERAH " & AT546110009.Text & "SAMPAI DISINI DULU KLO MASIH MAU LANJUT BACA AJA CERITA 3" & "."
        C346110009.Text = "TIDAK DICH LUPA JIE TOCH YANG TINGGAL DI" & AA46110009.Text & NA46110009.Text & "." & " SAYA MAU CERITA NIH TENTANG TEMAN BARU SAYA" & "," & " NAMANYA " & NT146110009.Text & "DIA TINGGAL DI " & AT146110009.Text & " OH IYA DIA PUNYA TEMAN NAMANYA " & NT246110009.Text & "DIA TINGGAL DI " & AT246110009.Text & "TEMANNYA PUNYA TEMAN YANG NAMANYA " & NT346110009.Text & " TEMANNYA TINGGAL DI " & AT346110009.Text & "." & " OH IYA TEMAN TEMANNYA " & NT246110009.Text & " JUGA PUNYA TEMAN YANG NAMANYA " & NT446110009.Text & " YANG TINGGAL DI " & AT446110009.Text & "DIA PUNYA SEPUPU YANG BERNAMA " & NT546110009.Text & " YANG TERNYATA" & NT546110009.Text & "TETANGGAKU YANG BAIK DAN SEKARANG TINGGAL DI " & AT546110009.Text & "."
        C446110009.Text = "PERKENALKAN NAMA SAYA " & NA46110009.Text & " SAYA BERTEMPAT TINGGAL DI " & AA46110009.Text & "," & " SAYA PUNYA TEMAN YANG NAMANYA " & NT146110009.Text & " KATANYA DIA TINGGAL DI " & AT146110009.Text & " SELAIN " & NT146110009.Text & " SAYA JUGA BERTEMAN DENGAN " & NT246110009.Text & " YANG TINGGAL DI " & AT246110009.Text & "," & NT346110009.Text & " YANG TINGGAL DI " & AT346110009.Text & ", " & NT446110009.Text & "YANG TINGGAL DI " & AT446110009.Text & "," & "DAN " & NT546110009.Text & " YANG TINGGAL DI " & AT546110009.Text & "SEKIAN" & "."
    End Sub

    Private Sub CLOSE46110009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLOSE46110009.Click
        NA46110009.Text = ""
        NT146110009.Text = ""
        NT246110009.Text = ""
        NT346110009.Text = ""
        NT446110009.Text = ""
        NT546110009.Text = ""
        AA46110009.Text = ""
        AT146110009.Text = ""
        AT246110009.Text = ""
        AT346110009.Text = ""
        AT446110009.Text = ""
        AT546110009.Text = ""

    End Sub
    Private Sub NA46110009_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NA46110009.TextChanged, AA46110009.TextChanged, NT146110009.TextChanged, AT146110009.TextChanged, NT246110009.TextChanged, AT246110009.TextChanged, NT346110009.TextChanged, AT346110009.TextChanged, NT4_36110041.TextChanged, AT446110009.TextChanged, NT546110009.TextChanged, AT546110009.TextChanged
        ULHY()
    End Sub
End Class

Tidak ada komentar:

Posting Komentar