Latihan_08_46110024

DESKRIPSI FORM LATIHAN 8

Form latihan 8 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, dan Cerita 4)

 Object  Textbox

Terdapat enam belas textbox (dua belas berstatus input digunakan untuk memasukkan data berupa nama dan alamat sedangkan empat berstatus readonly digunakan untuk ,menampilkan cerita.

Object Button

Terdapat satu button yang bertuliskan close digunakan untuk keluar dari form yang sedang berjalan

Script Unique

di perkotaan tepatnya di " & _

ala_46110024.Text & ". Karena ayah "

maksud dari scruft “ & _ “  adalah untuk melanjutkan scrift  ke baris yang baru 

Even

TextChanged

Property

Property Textbox --> Readonly = True

Property Textbox --> Multyline = True

Property Textbox --> Scrollbars  = Vertical

Langkah-Langkah Membuat form 8

1.      Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2.      Ganti nama sesuai dengan nama yang anda ingingkan

 

  

3. Lalu pilih object yang ada di latihan 8  yaitu label,textbox dan button

 

4.      Buat form sampai menghasilkan form seperti di bawah ini

 5. Pilih menu view, click code

 

6. Masukkan scrift sebagai berikut :
     Public Class Latihan_08_46110024

    Private Sub cerita1()
        cerita1_46110024.Text = anda_46110024.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan tepatnya di " & _
        ala_46110024.Text & ". Karena ayah " & anda_46110024.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & _
        anda_46110024.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & anda_46110024.Text & _
        " punya teman yang sangat baik yang bernama " & t5_46110024.Text & " sehingga " & anda_46110024.Text & _
        " merasa betah. Di sekolah barunya, ternyata " & anda_46110024.Text & " ditaksir oleh salah seorang siswa" & _
        " yang sangat populer di sekolahnya yaitu " & t1_46110024.Text & ". Dia tinggal di " & alt1_46110024.Text & ". " & _
        t1_46110024.Text & " adalah ketua  OSIS dan pemain basket terhebat di sekolah tersebut. Dan " & t1_46110024.Text & _
        " juga naksir sama " & anda_46110024.Text & "."
    End Sub

    Private Sub cerita2()
        cerita2_46110024.Text = t1_46110024.Text & " adalah orang yang sangat sombong, dia tinggal di " & alt1_46110024.Text & _
        ". " & t1_46110024.Text & " memilki dua orang teman yang bernama " & t3_46110024.Text & " dan " & t4_46110024.Text & _
        ". Di sekolahnya, mereka dijuluki sebagai GENG ANGKUH."
    End Sub
    Private Sub cerita3()
        cerita3_46110024.Text = t2_46110024.Text & " memiliki dua orang sudara yang bernama " & t1_46110024.Text & ", yang tinggal di " & _
        alt1_46110024.Text & t3_46110024.Text & ", yang tinggal di " & alt3_46110024.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."
    End Sub
    Private Sub cerita4()
        cerita4_46110024.Text = t3_46110024.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat" & _
        "dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & t1_46110024.Text & " mendapat alamat email " & _
        t3_46110024.Text & " dari salah seorang temannya yang bernama " & t5_46110024.Text & _
        ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."
    End Sub
    Private Sub anda_46110024_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles anda_46110024.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()
    End Sub


    Private Sub alt5_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alt5_46110024.TextChanged
        cerita1()
        cerita2()
        cerita3()
        cerita4()
    End Sub

    Private Sub close_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close_46110024.Click
        End
    End Sub

 
End Class

 

Langkah-Langkah Menjalankan Form Latihan 8

1.      Input nama dan alamat pada textbox yang berstatus input

2.      Setelah anda memasukkan data maka cerita tersebut akan muncul

3.      Click close untuk keluar dari form tersebut