Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikanlah Kasus Berikut : Penjualan Kredit Mobil

Berikut Jawaban Program :

Public Class Form1

   

    Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

        Call RancangTabel()

        kode.Items.Add("MB1")

        kode.Items.Add("MB2")

        kode.Items.Add("MB3")

        kode.Items.Add("MB4")

        For i = 0 To 20

            jumlah.Items.Add(i)

        Next

        kondisi.Items.Add("Baru")

        kondisi.Items.Add("Bekas")

        thn.Items.Add("2012")

        thn.Items.Add("2013")

        thn.Items.Add("2014")

        For t = 12 To 48 Step 6

            lkredit.Items.Add(t)

        Next

    End Sub

    Sub RancangTabel()

        lv.Columns.Add("Kode", 50, HorizontalAlignment.Left)

        lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Tahun", 120, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah", 120, HorizontalAlignment.Center)

        lv.Columns.Add("Kondisi", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Komisi Sales", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Total Kredit", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Lama Kredit", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Angsuran perBulan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("Uang Muka", 90, HorizontalAlignment.Center)

        lv.Columns.Add("Total Harga", 90, HorizontalAlignment.Center)

        lv.FullRowSelect = True

        lv.GridLines = True

        lv.View = View.Details

    End Sub

    Sub MasukTabel()

        Dim a As New ListViewItem

        a.Text = kode.Text

        a.SubItems.Add(kode.Text)

        a.SubItems.Add(nama.Text)

        a.SubItems.Add(thn.Text)

        a.SubItems.Add(jumlah.Text)

        a.SubItems.Add(kondisi.Text)

        a.SubItems.Add(harga.Text)

        a.SubItems.Add(ksales.Text)

        a.SubItems.Add(tkredit.Text)

        a.SubItems.Add(lkredit.Text)

        a.SubItems.Add(angsuran.Text)

        a.SubItems.Add(umuka.Text)

        a.SubItems.Add(tharga.Text)

        lv.Items.Add(a)

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleskode.SelectedIndexChanged

        If kode.Text = "MB1" Then

            nama.Text = "AVANZA Veloz"

        ElseIf kode.Text = "MB2" Then

            nama.Text = "AVANZA"

        ElseIf kode.Text = "MB3" Then

            nama.Text = "XENIA"

        ElseIf kode.Text = "MB4" Then

            nama.Text = "YARIS"

        End If

    End Sub

    Private Sub kondisi_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleskondisi.SelectedIndexChanged

        If kode.Text = "MB1" And thn.Text = "2012" Andkondisi.Text = "Baru" Then

            harga.Text = 175000000

        ElseIf kode.Text = "MB1" And thn.Text = "2012" Andkondisi.Text = "Bekas" Then

            harga.Text = 120000000

        ElseIf kode.Text = "MB1" And thn.Text = "2013" Andkondisi.Text = "Baru" Then

            harga.Text = 195000000

        ElseIf kode.Text = "MB1" And thn.Text = "2013" Andkondisi.Text = "Bekas" Then

            harga.Text = 130000000

        ElseIf kode.Text = "MB1" And thn.Text = "2014" Andkondisi.Text = "Baru" Then

            harga.Text = 208000000

        ElseIf kode.Text = "MB1" And thn.Text = "2014" Andkondisi.Text = "Bekas" Then

            harga.Text = 170000000

        ElseIf kode.Text = "MB2" And thn.Text = "2012" Andkondisi.Text = "Baru" Then

            harga.Text = 200000000

        ElseIf kode.Text = "MB2" And thn.Text = "2012" Andkondisi.Text = "Bekas" Then

            harga.Text = 190000000

        ElseIf kode.Text = "MB2" And thn.Text = "2013" Andkondisi.Text = "Baru" Then

            harga.Text = 220000000

        ElseIf kode.Text = "MB2" And thn.Text = "2013" Andkondisi.Text = "Bekas" Then

            harga.Text = 197000000

        ElseIf kode.Text = "MB2" And thn.Text = "2014" Andkondisi.Text = "Baru" Then

            harga.Text = 230000000

        ElseIf kode.Text = "MB2" And thn.Text = "2014" Andkondisi.Text = "Bekas" Then

            harga.Text = 150000000

        ElseIf kode.Text = "MB3" And thn.Text = "2012" Andkondisi.Text = "Baru" Then

            harga.Text = 300000000

        ElseIf kode.Text = "MB3" And thn.Text = "2012" Andkondisi.Text = "Bekas" Then

            harga.Text = 140000000

        ElseIf kode.Text = "MB3" And thn.Text = "2013" Andkondisi.Text = "Baru" Then

            harga.Text = 290000000

        ElseIf kode.Text = "MB3" And thn.Text = "2013" Andkondisi.Text = "Bekas" Then

            harga.Text = 122000000

        ElseIf kode.Text = "MB3" And thn.Text = "2014" Andkondisi.Text = "Baru" Then

            harga.Text = 208000000

        ElseIf kode.Text = "MB3" And thn.Text = "2014" Andkondisi.Text = "Bekas" Then

            harga.Text = 166000000

        ElseIf kode.Text = "MB4" And thn.Text = "2012" Andkondisi.Text = "Baru" Then

            harga.Text = 400000000

        ElseIf kode.Text = "MB4" And thn.Text = "2012" Andkondisi.Text = "Bekas" Then

            harga.Text = 322000000

        ElseIf kode.Text = "MB4" And thn.Text = "2013" Andkondisi.Text = "Baru" Then

            harga.Text = 367000000

        ElseIf kode.Text = "MB4" And thn.Text = "2013" Andkondisi.Text = "Bekas" Then

            harga.Text = 221000000

        ElseIf kode.Text = "MB4" And thn.Text = "2014" Andkondisi.Text = "Baru" Then

            harga.Text = 359000000

        ElseIf kode.Text = "MB4" And thn.Text = "2014" Andkondisi.Text = "Bekas" Then

            harga.Text = 277000000

        End If

    End Sub

    Private Sub jumlah_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handlesjumlah.SelectedIndexChanged

        tharga.Text = Val(jumlah.Text) * Val(harga.Text)

        umuka.Text = Val(tharga.Text) * 0.3

        ksales.Text = Val(jumlah.Text) * 0.02 * Val(umuka.Text)

       

    End Sub

    Private Sub lkredit_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleslkredit.SelectedIndexChanged

        tkredit.Text = Val(tharga.Text) - Val(umuka.Text)

        angsuran.Text = Val(Val(tkredit.Text) * Val(lkredit.Text * 0.03)) - Val(tkredit.Text) / Val(lkredit.Text)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles simpan.Click

        Call MasukTabel()

        kode.Text = ""

        nama.Text = ""

        thn.Text = ""

        jumlah.Text = ""

        harga.Text = ""

        kondisi.Text = ""

        lkredit.Text = ""

        tkredit.Text = ""

        angsuran.Text = ""

        umuka.Text = ""

        ksales.Text = ""

        tharga.Text = ""

    End Sub

    Sub h()

        kode.Text = ""

        nama.Text = ""

        thn.Text = ""

        jumlah.Text = ""

        harga.Text = ""

        kondisi.Text = ""

        lkredit.Text = ""

        tkredit.Text = ""

        angsuran.Text = ""

        umuka.Text = ""

        ksales.Text = ""

        tharga.Text = ""

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles hapus.Click

        Call h()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles bersih.Click

        lv.Items.Clear()

    End Sub

End Class

Tampilan Hasil :

Demikianlah Postingan Saya

Nama : Rizka Miranti

NPM : 13110683

Selamat Belajar Pemrograman VB NET

Macam-macam Masker Wajah Alami dan Manfaatnya

Ada banyak masker wajah yang dapat mengurangi kerusakan kulit, namun masker wajah dari bahan kimia dapat menjadikan kulit lebih kering. Nah, cara terbaik merawat wajah kita adalah dengan masker wajah buatan sendiri, contohnya dari buah-buahan, atau tumbuhan yg lainnya bahkan telur juga bisa dijadikan masker. 

Bebarapa masker wajah alami berikut ini bisa menutrisi kulit wajah kita dan juga tidak menimbulkan efek samping

1. Alpukat

Tidak hanya lezat, tetapi buah alpukat ini juga bisa dijadikan masker untuk wajah kita. Manfaat dari masker alpukat juga ada banyak:
- Alpukat juga mengandung banyak nutrisi seperti vitamin E, vitamin K, zat besi, seng, tembaga dll, yang dapat membantu menjaga kulit tetap sehat.

- Masker wajah dari alpukat dapat melembabkan kulit dan kelembabannya bertahan lama.

- Minyak alpukat meningkatkan produksi kolagen, sehingga mencegah kulit dari penuaan.

- Menenangkat kulit dan juga membersihkan kotoran yang melekat pada kulit.

- Masker alpukat juga dikenal menjadikan kulit lebih cerah dan bebas kerut.


2. Bengkoang

Nah, si putih yang satu ini tentu sudah tidak asing lagi di telinga kita, selain banyak digunakan sebagai bahan dasar lotion, bengkoang ini juga bisa di jadikan masker untuk kulit wajah. Kandungan fosfor dan kalsium alami dalam bengkuang berkhasiat menjadikan kulit lebih putih, sehat, bersih dan pastinya cantik.


3. Beras

Di balik keutamaan beras sebagai bahan makanan pokok, ternyata ada manfaat lain untuk kecantikan. Beras bisa berfungsi sebagai masker yang bermanfaat bagi kulit. Masker beras bisa dibuat sendiri, bahkan disesuaikan dengan kebutuhan kulit. Umumnya, masker beras sangat bagus untuk membersihkan, melembabkan, dan pengelupasan kulit wajah.
Pembuatannya juga bisa dicampurkan dengan bahan lain seperti:

- Beras dan madu

- Beras dan baking soda

- Beras dan tomat

- Beras dan gula

- Beras, susu, dan cuka sari apel

4. Kentang

Manfaat kentang untuk kulit sudah terkenal sejak dulu, kentang tidak hanya dapat dikonsumsi sebagai makanan dan berkhasiat untuk kesehatan. Namun sudah diyakini memiliki kandungan yang baik untuk menyehatkan kulit. Coba saja dengan memakai masker kentang yang bermanfaat untuk mengurangi lingkaran hitam di mata, mengurangi penuaan dini dan mencerahkan wajah. 

5.  Mentimun

Buah sayuran ini dikenal mengandung senyawa yang baik untuk kulit. Karenanya tidak heran jika manfaat masker mentimun terasa begitu nyata. Pada umumnya, mentimun terdiri dari 90% air. Hal inilah yang menjadikan mentimun sering dijadikan makanan penyegar tubuh. Mentimun mengandung beberapa mineral penting dan juga berbagai vitamin antara lain A, B2, dan C. Ketiga vitamin ini dikenal bisa melemahkan melanin gelap. Sehingga wajar jika kemudian mentimun dikenal ampuh melawan lingkar mata yang gelap.

Dengan demikian masker mentimun sangat ampuh untuk mencerahkan kulit wajah, melembabkan serta mengencangkan kulit wajah, dan juga mampu meringkas pori-pori sehingga wajah Anda akan terasa halus dan terlihat lembut.

6. Pepaya

Pepaya termasuk buah yang memiliki banyak manfaat. Baik saat dikonsumsi maupun sebagai masker. Adalah enzim papain yang terkandung di dalam pepaya, yang membantu mengikis noda hitam di wajah, sekalipun meremajakan kembali kulit agar lebih cerah dan segar.

Tak heran jika industri kosmetik banyak menggunakan bahan dasar pepaya sebagai bahan dalam produk kosmetikanya untuk mengatasi noda hitam di wajah.

7. Putih Telur

Putih telur ayam mengandung berbagai zat aktif yang sangat berkhasiat untuk menjaga , merawat dan memberikan nutrisi tambahan pada pori-pori kulit wajah. jadi bagi yang suka melakukan perawatan wajah disarankan untuk menggunakan putih telur, masker putih telur juga menjadi solusi bagi anda yang memiliki bekas jerawat.

8. Tomat

Buah sayuran yang satu ini tidak hanya untuk dikonsumsi, ternyata juga bisa dimanfaatkan untuk masker kulit wajah. Masker tomat bermanfaat untuk memperkecil pori-pori kulit, menghilangkan jerawat yang terdapat pada wajah, dan juga mampu mencerahkan kulit.

Nah, itu tadi beberapa bahan alami yang mudah di dapat untuk dimanfaatkan sebagai masker kulit wajah. Tidak melulu harus yang berbahan kimia kan? Selain mampu menutrisi juga tidak menimbulkan efek samping

Beberapa Macam Bahasa Pemrograman

Bahasa pemrograman merupakan suatu teknik instruksi standar untuk memerintah komputer. Berikut adalah penjelasan tentang bahasa pemrograman yang biasa digunakan untuk membuat suatu website:

1. HTML: HyperText Markup Language (HTML) adalah sebuah bahasa markup yang digunakan untuk membuat sebuah halaman web dan menampilkan berbagai informasi di dalam sebuah browser Internet. HTML saat ini merupakan standar Internet yang didefinisikan dan dikendalikan penggunaannya oleh World Wide Web Consortium (W3C). HTML berupa kode-kode tag yang menginstruksikan browser untuk menghasilkan tampilan sesuai dengan yang diinginkan. Sebuah file yang merupakan file HTML dapat dibuka dengan menggunakan browser web seperti Mozilla Firefox, Microsoft Internet Explorer, dan lain sebagainya.

2. PHP: Hypertext Preprocessor (PHP) adalah bahasa pemrograman script yang paling banyak dipakai saat ini. PHP pertama kali dibuat oleh Rasmus Lerdorf pada tahun 1995. Pada waktu itu PHP masih bernama FI (Form Interpreted), yang wujudnya berupa sekumpulan script yang digunakan untuk mengolah data form dari web. PHP banyak dipakai untuk membuat situs web yang dinamis, walaupun tidak tertutup kemungkinan digunakan untuk pemakaian lain. PHP biasanya berjalan pada sistem operasi Linux (PHP juga bisa dijalankan dengan hosting windows).

3. ASP: ASP adalah singkatan dari Active Server Pages yang merupakan salah satu bahasa pemograman web untuk menciptakan halaman web yang dinamis. ASP merupakan salah satu produk teknologi yang disediakan oleh Microsoft. ASP bekerja pada web server dan merupakan server side scripting.

4. XML: Extensible Markup Language (XML) adalah bahasa markup serbaguna yang direkomendasikan W3C untuk mendeskripsikan berbagai macam data. XML menggunakan markup tags seperti halnya HTML namun penggunaannya tidak terbatas pada tampilan halaman web saja. XML merupakan suatu metode dalam membuat penanda/markup pada sebuah dokumen.

5. WML: WML adalah kepanjangan dari Wireless Markup Language, yaitu bahasa pemrograman yang digunakan dalam aplikasi berbasis XML (Extensible Markup Langauge). WML adalah bahasa pemrograman yang digunakan dalam aplikasi wireless. WML merupakan analogi dari HTML yang berjalan pada protocol nirkabel.

6. PERL: adalah bahasa pemrograman untuk mesin dengan sistem operasi Unix (SunOS, Linux, BSD, HP-UX), juga tersedia untuk sistem operasi seperti DOS, Windows, BeOS, VMS, EBCDIC, dan PocketPC. PERL merupakan bahasa pemograman yang mirip bahasa pemrograman C.

7. CFM: CFM dibuat menggunakan tag ColdFusion dengan software Adobe ColdFusion / BlueDragon / Coldfusion Studio. Syntax coldfusion berbasis html.

8. Javascript: Javascript adalah bahasa scripting yang handal yang berjalan pada sisi client. JavaScript merupakan sebuah bahasa scripting yang dikembangkan oleh Netscape. Untuk menjalankan script yang ditulis dengan JavaScript kita membutuhkan JavaScript-enabled browser yaitu browser yang mampu menjalankan JavaScript.


9. CSS: Cascading Style Sheets (CSS) adalah suatu bahasa stylesheet yang digunakan untuk mengatur tampilan suatu dokumen yang ditulis dalam bahasa markup. Penggunaan yang paling umum dari CSS adalah untuk memformat halaman web yang ditulis dengan HTML dan XHTML. Walaupun demikian, bahasanya sendiri dapat dipergunakan untuk semua jenis dokumen XML termasuk SVG dan XUL. Spesifikasi CSS diatur oleh World Wide Web Consortium (W3C).

sumber : lpk-unigama.com