FOTO SAMPUL

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, ...

Category name clash

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. ...

Test with enclosures

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Block quotes

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

Contributor post, approved

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

Latihan_08_46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :

Form Latihan 08 Terdapat Tigaobject yaitu label, textbox, dan button:
1.      Object Label.
Terdapat 12 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)
2.      Object Text Box.
Terdapat 16 textbox (12 status input, 4 berstatus read only dan have a scrollbar(vertikal)). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.
3.      Object Button.
Terdapat 1 buah button yaitu Close yang berfungsi untuk menutup window form.

Cara Membuat Form latihan08
     silahkan lihat video dibawah ini :
 c
setelah itu ubah nama masing2 text box, seperti (c146110021), klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," c146110021 " itu adalah nama textbox, jadi sesuaikan dengan nama text box yang anda buat).

Public Class Latihan_08_46110021

    Private Sub cerita1()
        c146110021.Text = A46110021.Text & " adalah seorang siswa yang terbiasa hidup di perkotaan, dia tinggal di" & aa46110021.Text & ". Karena ayah " & A46110021.Text & " dipindahtugaskan di sebuah pedesaan terpencil, maka " & A46110021.Text & " juga ikut pindah sekolah. Untungnya, di sekolah barunya " & A46110021.Text & " punya teman yang sangat baik yang bernama " & t446110021.Text & "tinggal di" & a446110021.Text & ". sehingga " & A46110021.Text & " merasa betah. Di sekolah barunya, ternyata " & A46110021.Text & " ditaksir oleh salah seorang siswa yang sangat populer di sekolahnya yaitu" & t146110021.Text & ". " & t146110021.Text & " adalah ketua OSIS dan pemain basket terhebat di sekolah tersebut, dia tinggal di" & a146110021.Text & ". Dan " & t146110021.Text & " juga naksir sama " & A46110021.Text & "."
    End Sub
    Private Sub cerita2()
        c246110021.Text = t146110021.Text & " adalah orang yang sangat sombong. " & t146110021.Text & " memilki dua orang teman yang bernama " & t346110021.Text & " dan " & t446110021.Text & ". masing-masing tinggal di" & a346110021.Text & a446110021.Text & " Di sekolahnya, mereka dijuluki sebagai GENG ANGKUH."
    End Sub

    Private Sub cerita3()
        c346110021.Text = t246110021.Text & " memiliki dua orang sudara yang bernama " & t146110021.Text & " dan " & t346110021.Text & ". Mereka bertiga sangat akur, kompak, dan sering jalan bareng."
    End Sub

    Private Sub cerita4()
        c446110021.Text = t346110021.Text & " mempunyai dua orang sahabat. Lucunya, mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB. Awalnya " & t146110021.Text & " mendapat alamat email " & t346110021.Text & " dari salah seorang temannya yang bernama " & t446110021.Text & ". Semenjak saai itulah mereka bersahabat walaupun hanya lewat dunia maya."
    End Sub

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

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

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

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

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

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

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

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

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

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

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


Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.    Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  Hasil akan muncul sendri setelah anda menginput textbox yang tersedia untuk di input.
4.  Untuk menutup klik close.

Scipt unik
    Private Sub cerita1().,, script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.
Even
Textchanged

Leave a Reply