Friday, April 12, 2013

How To Make A Calculate Basic Math, Program Console With VB.Net




i make a simple program to calculate basic math....






 Sub main()
        Dim a, b, luas, jari, keliling As Integer
        Dim menu, sisi As Integer

1:      Console.WriteLine("RUMUS MATEMATIKA")
        Console.WriteLine("1. Luas persegi panjang")
        Console.WriteLine("2. Keliling persegi panjang")
        Console.WriteLine("3. Luas segitiga")
        Console.WriteLine("4. Luas lingkaran")
        Console.WriteLine("5. Keliling bujur sangkar")
        Console.ReadLine()
        Console.WriteLine()
        Console.Write("Silahkan masukan rumus yang telah disediakan : ")
        menu = Console.ReadLine()

        If menu = 1 Then
            Console.Write("Masukan panjang : ")
            a = Console.ReadLine
            Console.Write("Masukan lebar : ")
            b = Console.ReadLine

            luas = rumus(a, b)
            Console.WriteLine(menu & "." & a & "*" & b)
            Console.Write("Luas : {0}", luas)
            Console.ReadLine()
            Console.Clear()
            GoTo 1
        ElseIf menu = 2 Then
            Console.Write("Masukan nilai panjang : ")
            a = Console.ReadLine()
            Console.Write("Masukan nilai lebar : ")
            b = Console.ReadLine()

            keliling = 2 * (a + b)
            Console.WriteLine(menu & "." & "2" & (a & "+" & b))
            Console.Write("Keliling : {0}", keliling)
            Console.ReadLine()
            Console.Clear()
            GoTo 1
        ElseIf menu = 3 Then
            Console.Write("masukan alas : ")
            a = Console.ReadLine
            Console.Write("masukan tinggi : ")
            b = Console.ReadLine

            luas = rumus(a, b) / 2
            Console.Write("luas segitiga : {0}", luas)
            Console.ReadLine()
            Console.Clear()
            GoTo 1
        ElseIf menu = 4 Then
            Console.Write("masukan jari-jari : ")
            jari = Console.ReadLine

            luas = 3.14 * jari * jari
            Console.Write("luas lingkaran : {0}", luas)
            Console.ReadLine()
            Console.Clear()
            GoTo 1
        ElseIf menu = 5 Then
            Console.Write("masukan sisi : ")
            sisi = Console.ReadLine
           
            keliling = 4 * sisi
            Console.Write("keliling : {0}", keliling)
            Console.ReadLine()
            Console.Clear()
            GoTo 1
        End If

    End Sub
    Private Function rumus(ByVal panjang As Integer, ByVal lebar As Integer)
        Dim hasil As Integer

        hasil = panjang * lebar

        Return hasil
    End Function



by : 562010008@student.uksw.edu (Watashi no kantan'na memo)

78 comments:

  1. Pretty interesting post! Thanks it was interesting.

    ReplyDelete
    Replies
  2. semoga artikel2 tutorialnya bisa di tambah lagi ya om
    makasih banyak buat postingannya di blog mas
    salam mahasiswa

    ReplyDelete
  3. okay, youre the best. i love your tutorials

    ReplyDelete
  4. VB is not an easy language the coding are different everything you put in this programmed is not accessible easily by the way it starts from only commands basis. best dissertation proposal || nursing dissertation provider || law dissertation provider || dissertation methodology provider || computer science dissertation provider




    ReplyDelete
  5. Selamat Siang , Informasinya Bermanfaat , Salam Kunjungan :D :D

    ReplyDelete
  6. nice info

    http://goo.gl/lTb1xE
    http://goo.gl/GaOXjd
    http://goo.gl/kuCFze

    ReplyDelete
  7. Cara Mengobati Kelenjar Getah Bening Bengkak Secara Alami dengan obat alami dari bahan-bahan herbal yang telah terbukti dan teruji secara klinis dapat menyembuhkan kelenjar getah bening secara tradisional. Kelenjar getah bening merupakan penyakit yang berbahaya, karena apabila tidak segera diobati akan memicu timbulnya kanker kelenjar getah bening. Bila anda menderita penyakit kelenjar getah bening bengkak ,anda tidak perlu khawatir karena kini telah hadir obat herbal Ace Maxs yang telah terbukti ampuh mengobati kelenjar getah bening tanpa operasi dan efek samping.

    ReplyDelete
  8. This Visual Basic calculation coding are learn to help us a calculating point of view this ios good to see here complete information writer shared with us. Essayvilla.co.uk

    ReplyDelete
  9. motobola.org
    Agen Bola, Agen Judi, Agen Bola Online, Judi Online, Casino Online, Togel Online, Tangkas Online, Bandar Bola, Agen

    Betting, Poker Online
    Agen Bola
    Agen Judi
    Agen Bola Online
    Judi Online
    Casino Online
    Togel Online
    Tangkas Online
    Bandar Bola
    Agen Betting
    Poker Online
    Berita Bola

    ReplyDelete
  10. http://celebrityoftheworld.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    http://oesaha.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    http://mungkindanbo.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    http://west-java-indonesia.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    http://iklan-pertama.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    http://selebriti-nusantara.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    http://indonesia-lovers.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    http://j-handycraft.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    http://pertamadiblogger.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    http://banerbanner.blogspot.com/2014/03/agen-bola-terpercaya-terbaik.html
    go88bet.com Agen Judi, Agen Judi Bola, Agen Bola Online, Agen SBObet Terpercaya
    KAISARBET.COM AGEN BOLA TERPERCAYA PIALA DUNIA 2014
    MASTERPOKER88.COM JUDI POKER ONLINE UANG ASLI INDONESIA RESMI DAN TERPERCAYA

    ReplyDelete
  11. jasa seo google - http://www.jasaseogoogle.web.id
    jasa seo termurah - http://www.jasaseotermurah.web.id
    jasa seo indonesia - http://www.jasaseoindonesia.web.id
    jasa blog - http://www.jasablog.org
    jasa backlink - http://www.jasablog.org/jasa-backlink
    Jasa Toko Online - http://www.jasablog.org/jasa-toko-online
    Jasa SEO - http://www.jasablog.org/jasa-seo
    Jasa Penulisan Artikel - http://www.jasablog.org/jasa-konten
    Jasa Pembuatan Website - http://www.jasablog.org/jasa-pembuatan-website
    jasa brosur - http://www.jasabrosur.com
    Content Artikel - http://www.contentwritter.web.id
    Kabar Selebriti - http://kabarselebriti.com
    Informasi Hewan - http://www.hewan.org
    Tips Menang - http://www.tipsmenang.com

    ReplyDelete
  12. http://goo.gl/IQpEHu
    http://goo.gl/WODWHP
    http://goo.gl/Jb3Tj3
    http://goo.gl/ALvyxA
    http://goo.gl/cZbVHu
    http://goo.gl/39kM0x
    http://goo.gl/K3hrgs
    http://goo.gl/4iS47d
    http://goo.gl/24RKLz
    http://goo.gl/otQnXo
    http://goo.gl/Tx9aM2
    http://goo.gl/lCucm8
    http://goo.gl/7i0XKB
    http://goo.gl/bqSl4S
    http://goo.gl/rxIhQc
    http://goo.gl/gbnr2m
    http://goo.gl/lxVKb3
    http://goo.gl/QtDhwH
    http://goo.gl/GP2SIg
    http://goo.gl/etUvLL
    http://goo.gl/KAsta0
    http://goo.gl/b7GPcA
    http://goo.gl/1vkGyG
    http://goo.gl/pBb7qG
    http://goo.gl/WyM0yJ

    ReplyDelete



  13. Agen Obat Kuat, Agen Viagra USA Original, Aneka Obat Kuat, Jual Obat Kuat, Obat Kuat,Obat Kuat Herbal, Pusat Agen Penjualan Viagra USA Original, Pusat Obat Kuat, Viagra USA Original
    Jual Viagra USA Original
    Viagra USA Adalah Obat Kuat Paling Ampuh Dan Manjur , Obat Kuat Viagra USA Impot Langsung Dari America , Viagra USA Di Buat Oleh Pfitzer , Obat Kuat Viagra USA Murah ,Viagra USA Di Gunakan Oleh Pria Dewasa , Obat Kuat Viagra USA Di Kenal Dengan Sebutan “ Pill Biru ”.
    Viagra Digunakan Untuk Mengobati Disfungsi Ereksi (Impotensi Pria Misalnya). Ia Bekerja Dengan Membantu Aliran Darah Ke Dalam Penis Untuk Mencapai Danmempertahankan Ereksi Selama Rangsangan Seksual. Cara Menggunakan
    Viagra Akan Diambil 30 Menit Sampai 1 Jam Sebelum Aktivitas Seksual. Anda Bisamembawanya Hingga 4 Jam Sebelum Aktivitas Seksual. Viagra Tidak Seharusnyadilakukan Lebih Sering Dari Sekali Per Hari. Obat Kelas Dan Mekanisme
    Viagra Adalah Inhibitor Phosphodiesterase Tipe 5 Dan Bekerja Dengan Membantualiran Darah Ke Dalam Penis Untuk Mencapai Dan Mempertahankan Ereksi Selamarangsangan Seksual.
    Penyimpanan :
    Viagra Untuk Disimpan Dalam Wadah Aslinya. Hal Ini Untuk Disimpan Pada Suhu Kamarantara 59 Dan 86 Derajat F (15-30 Derajat C) Dari Dari Kelembaban, Panas Dan Cahaya Dan Keluar Dari Jangkauan Anak-Anak.
    Kemasan :
    Satu Kotak Botol Seperti Gambar Diatas Isi Nya 30 Butir @ 100mg.Harga : Rp.950.000 ( Nego )
    Jika Anda Ingin Membeli Secara Eceran, Maka Anda Bisa Membeli Nya Disini, Harga Eceran Per Butir Nya 60.000. Minimal Pembelian Adalah Dua Butir. Harga Di Apotik Indonesia, Per Biji Nya Adalah Rp.125.000 Tinggal Anda Hitung Sendiri, Perbotol Nya Biasanya Berkisar Rp 3.250.000, Tapi Jika Anda Membeli Di Toko Kami. Harganya Hanya 950.000 Saja, Barang Di Jamin Sama. Karena Banyak Sekali Apotik Di Sekitar Kami Yang Kulak ( Membeli Grosir ) Di Tempat Kami.
    Cara Pakai :
    Untuk Hasil Maksimal Minumlah Setiap Dua Hari Pada Seminggu Pertama, Selanjutnya Anda Tinggal Minum Satu Atau Dua Butir Saat Satu Jam Sebelum Berhubungan. Obat Ini Sangat Manjur Untuk Menjadikan Anda Singa Diatas Ranjang Yang Haus Wanita.

    ReplyDelete
  14. Having read this I thought it was rather informative. I appreciate you finding the time and energy to put this content together. I once again find myself spending a lot of time both reading and posting comments. But so what, it was still worth it!

    Regards:

    [url]http://www.puribalirentcar.com[/url]

    Cheap Bali Car Hire

    Cheap Car Rental In Bali

    Sewa Mobil Murah Di Bali

    Sewa Mobil Murah Di Bali

    Cheap Bali Car Rental

    Sewa Mobil Di Bali

    Sewa Mobil Bali

    Bali Car Rental

    Penyewaan Mobil Murah Di Bali

    Penyewaan Mobil Di Bali

    Penyewaan Mobil Bali

    Rental Mobil Murah Di Bali

    Rental Mobil Di Bali

    Rental Mobil Bali

    Rent Car Murah Di Bali

    Rent Car Di Bali

    Rent Car Bali

    ReplyDelete
  15. Nice information. I was searching for the same. It helped me alot and saved my time. Thanks alot. upma recipe

    ReplyDelete
  16. welcome to our website here uda rino provides articles kata kata cinta, kata kata mutiara, kata kata lucu, kata kata galau and many other interesting article, thank you!

    ReplyDelete
  17. I have never seen this type of post from you,You tried something new!! Good for you!
    I have always afraid I'll mess when I try new things. What made you decide to try something new? I want to motivate you.
    Maybe you have some ideas you can share.Buy Essays Uk

    ReplyDelete
  18. This Visual Basic calculation coding are learn to help us a calculating point of view this ios good to see here complete information writer shared with us. assignment writers

    ReplyDelete
  19. informasi yang sangat bermanfaat. salam sukses

    ReplyDelete
  20. Mantab infonya sangat bermanfaat

    ReplyDelete
  21. This article relates to how photograph and video online apparatuses can help your little business on the web. This is a piece of our proceeding with arrangement of articles relating to how Local Businesses will start to grow their span to clients during this time by effectively creating special Internet Marketing effort.Online Text tools

    ReplyDelete
  22. media coverage in pr consultants about trends: Allows say you own a grocery store. And you discover out that individuals are modifying their purchasing routines because markets are start more time. Give that information to the press.

    ReplyDelete
  23. The attempt itself likes the point that efficient groups are made, not created, and that achievements relies on having a mix of abilities and positions within the team. To understand more, study on..
    Professional Services

    ReplyDelete
  24. Take the body to shape with rapid weight loss pills www.news-health.net

    ReplyDelete
  25. Amazing information you have shared with us through this article. I am very happy to read this post & I will bookmark this post I come back soon for more updates. Write My Dissertation Dissertation Help

    ReplyDelete
  26. Wonderful when I see this. I can get many useful information. Hope more communicate we can. And I want to ask anyone ever use this flash drive recovery tool . Unfortunately I lost my files. I do not know how to do. Hope somebody can help me.

    ReplyDelete