Data Flow Diagram Sistem Informasi Pembukaan Rekening Tabungan Baru

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

Stadion Sepakbola Terbesar di Dunia

Nah, pengen tau the biggest top ten stadium in the world? Let's check it out

#1 India - Salt Lake Stadium

Salt Lake Stadion adalah stadion terbesar di dunia dengan kapasitas 120.000 penonton. Diresmikan pada tahun 1984 dan terletak di kota Calcutta. Disinilah tim nasional India bermain dan juga merupakan kandang bagi 4 klub lokal

#2 Mexico - Estadio Azteca

Azteca stadion terletak di kota Meksiko, ibukota negara Meksiko. Kapasitas stadion ini adalah 105.064 penonton dan digunakan oleh tim nasional Meksiko dan juga klub sepak bola lokal 'Club America'. Stadion ini dibangun untuk Olimpiade musim panas tahun 1968 dan merupakan yang terbesar di benua itu.

#3 Spain - Camp Nou

Nah, pasti banyak diantara kita yang gak asing sama stadion yang satu ini terutama barcelonista. Yup, Camp Nou yang merupakan markas dari salah satu raksasa klub spanyol Barcelona dengan kapasitas 99.354 penonton. Dibuka pada tahun 1957, tetapi direnovasi hingga akhir tahun 2008 dan merupakan stadion yang terbesar di Eropa.

#4 Iran - Azadi Stadium

Stadion Azadi memiliki kapasitas 95.225 dan terletak di ibukota Iran, Teheran. Stadion ini dibangun untuk Asian games pada tahun 1974 dan dibagi oleh dua klub paling populer di negeri ini.

#5 South Africa - FNB Stadium/Soccer City

Kapasitas stadion Soccer City adalah 94.736 dan dibuka pada tahun 1989. Stadion ini telah direnovasi dan diperluas pada tahun 2009 dan merupakan stadion yang menjadi tuan rumah final antara Spanyol dan Belanda. Nama aslinya adalah "Stadion National Bank Pertama", tetapi FIFA tidak mengijinkan, sehingga mereka menamakannya Soccer City.

#6 USA - Rose Bowl Stadium

Stadion Rose Bowl dibangun pada awal tahun 1922 dan memiliki kapasitas 93.420 penonton yang terletak di Passadena, California. Inilah stadion yang menjadi tuan rumah final antara Brazil dan Italia pada Piala Dunia '94. Sekarang stadion ini menjadi markas dari tim sepakbola UCLA Bruins.

#7 England - Wembley

Nah, untuk stadion yang satu ini pasti juga tidak asing lagi buat kita terutama pencinta EPL. Yup, Wembley adalah stadion berkapasitas 90.000 yang terletak di Wembley Park di London. Wembley adalah salah satu stadion yang paling modern di dunia, dan biaya konstruksi adalah sekitar 757.000.000 pound sterling. Tidak hanya sebagai stadion untuk tim nasional Inggris, Wembley juga digunakan untuk Piala FA, Piala Liga final, Konser dan permainan rugby.

#8 Indonesia - Gelora Bung Karno Stadium

Yang satu ini juga paling tidak asing lagi :D Yup GBK. GBK adalah stadion berkapasitas 88.306 penonton yang terletak di ibukota Indonesia, Jakarta. GBK dibangun pada tahun 1960 dan telah direnovasi pada tahun 2007. Stadion ini awalnya memiliki kapasitas 100.800 sebelum direnovasi. Stadion ini juga digunakan untuk konser. Pada tahun 1975 Deep Purple menggelar konser yang dihadiri oleh 150.000 penonton.

#9 Malaysia - Bukit Jalil National Stadium

Stadion Bukit Jalil memiliki kapasitas 87.411 dan terletak di Kuala Lumpur, ibukota Malaysia. Stadion ini mulai dibangun pada tahun 1997. Stadion ini sering digunakan ketika klub besar Eropa mengadakan tur promosi mereka di pra-musim.

#10 Egypt - Borg El-Arab Stadium

Stadion Borg El-Arab memiliki kapasitas 86.000 dan terletak di kota Alexandria, Mesir. Borg El-Arab merupakan stadion yang terbesar di Mesir. Stadion ini dibangun karena Mesir ingin menjadi tuan rumah Piala Dunia 2010. Delegasi UEFA telah mengatakan bahwa ini adalah salah satu stadion terbaik di dunia. Borg El-Arab adalah stadion terbesar kedua di Afrika.