Deskripsi_Latihan_08_36110054

Cara Membuat Progam/Apliaksi Latihan 08

Dengan Software Microsoft Visual Basic 2008

Langkah 1 :
Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah Kedua : 
Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

 

  Langkah Ke 3 : Rancanglah From Seperti Gambar Berikut Berikut :

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_08_36110054
Label	Text : Anda
Label	Text : Teman 1
Label	Text : Teman 2
Label	Text : Teman 3
Label	Text : Teman 4
Label	Text : Teman 5
Label	Text : Cerita 1
Label	Text : Cerita 2
Label	Text : Cerita 3
Label	Text : Cerita 4
Label	Text : Nama
Label	Text : Alamat
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)

 

 Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

 Public Class Latihan_08_36110054

    Private Sub ceritapertama()
        Cerita1_36110054.Text = anda_36110054.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan. Karena ayah " & anda_36110054.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & anda_36110054.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & anda_36110054.Text & " punya teman yang sangat baik yang bernama " & Teman5_36110054.Text & " sehingga " & anda_36110054.Text & " merasa betah. Di sekolah barunya, ternyata " & anda_36110054.Text & " ditaksir oleh salah seorang siswa yang sangat populer di sekolahnya yaitu" & Teman1_36110054.Text & ". " & Teman1_36110054.Text & " adalah ketua OSIS dan pemain basket terhebat di sekolah tersebut. Dan " & Teman1_36110054.Text & " juga naksir sama " & anda_36110054.Text & "."
    End Sub
    Private Sub ceritakedua()
        Cerita2_36110054.Text = Teman1_36110054.Text & " adalah orang yang sangat sombong. " & Teman1_36110054.Text & " memilki dua orang teman yang bernama " & Teman3_36110054.Text & " dan " & Teman4_36110054.Text & ". Di sekolahnya, mereka dijuluki sebagai GENG ANGKUH."
    End Sub
    Private Sub ceritaketiga()
        Cerita3_36110054.Text = Teman2_36110054.Text & " memiliki dua orang saudara yang bernama " & Teman1_36110054.Text & " dan " & Teman3_36110054.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."
    End Sub
    Private Sub ceritakeempat()
        Cerita4_36110054.Text = Teman3_36110054.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & Teman1_36110054.Text & " mendapat alamat email " & Teman3_36110054.Text & " dari salah seorang temannya yang bernama " & Teman5_36110054.Text & ". Semenjak saat itulah mereka bersahabat walaupun hanya lewat dunia maya."
    End Sub

    Private Sub Teman1_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Teman1_36110054.TextChanged, anda_36110054.TextChanged, Teman1_36110054.TextChanged, Teman2_36110054.TextChanged, Teman3_36110054.TextChanged, Teman4_36110054.TextChanged, Teman5_36110054.TextChanged
        ceritapertama()
        ceritakedua()
        ceritaketiga()
        ceritakeempat()


    End Sub
End Class