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_01_46110021

Posted by Unknown - - 0 komentar

  1. Langkah-langkah penyelesaian
       
Public Class Latihan_01_46110021

    Private Sub hitung46110021_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung46110021.Click
        selesai46110021.Text = Val(umur46110021.Text) + Val(sd46110021.Text) + Val(sltp46110021.Text) + Val(slta46110021.Text) + Val(poli46110021.Text)
        lama46110021.Text = Val(sd46110021.Text) + Val(sltp46110021.Text) + Val(slta46110021.Text) + Val(poli46110021.Text)
        persen46110021.Text = (Val(lama46110021.Text) / Val(selesai46110021.Text)) * 100
    End Sub

    Private Sub kosong46110021_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110021.Click
        umur46110021.Text = ""
        sd46110021.Text = ""
        sltp46110021.Text = ""
        slta46110021.Text = ""
        poli46110021.Text = ""
        selesai46110021.Text = ""
        lama46110021.Text = ""
        persen46110021.Text = ""
    End Sub

End Class

2. Scribt unik beserta komentar
  1. selesai46110021.Text = Val(umur46110021.Text) + Val(sd46110021.Text) + Val(sltp46110021.Text) + Val(slta46110021.Text) + Val(poli46110021.Text) ==>  scibt ini untuk menjumlahkan isi dari setiap kotak yang diisi dan yang harus diperhatikan yaitu penggunaan fungsi (val) agar isi dari kotak itu benar-benar terjumlahkan bukan digabungkan.
  2. umur46110021.Text = ""  ==> tanda (" ") digunakan untuk membuat kosong kembali kotak yang terpilih.

Leave a Reply