Sabtu, 03 Maret 2012

Cara Membuat Aplikasi Penghitungan Pendapatan Nasional dengan Microsoft Visual Studio 2008

Nama  : Viva Nuralifiya Ghofananda
NPM  : 1106096002


 1.         Penjelasan mengenai aplikasi “CARA MENGHITUNG PENDAPATAN NASIONAL”
Aplikasi ini bertujuan untuk menghitung pendapatan nasional di Indonesia. Rumusnya adalah

Text Box: Y = C + I + G (X – M)
                               
                                 

                                Y  = Pendapatan Nasional
                                C  = Pengeluaran Konsumsi
                                I   = Pengeluaran Produksi
                                G = Pengeluaran Pemerintah
                                X  = Jumlah Ekspor
                                          M  = Jumlah Impor

Berikut adalah cara saya membuat aplikasi ini menggunakan MICROSOFT VISUAL STUDIO 2008:
1.     1.   Buka aplikasi Microsoft Visual Studio 2008
   Start  -->  All Programs  -->  Microsoft Visual Studio 2008

2.     2.   Buat project baru
   Menu File  -->  New  -->  Project
    
    Beri nama aplikasi sesuai keinginan pada bagian ‘Name’ dan pilih Windows -->  Windows Form Application
 
Klik OK maka tampilan akan menjadi seperti ini
 
1.   3.       Menambah teks di dalam form
    Dibagian ‘Toolbox’ pilih ‘Label’
Lalu klik ditempat yang diinginkan
 
Perbanyak label bisa dengan beberapa cara:
a.       Toolbox -->  Label
b.      Klik kanan pada Label 1 -->  Copy (Ctrl+C)  -->  Paste (Ctrl+V) ditempat yang diinginkan
Jadikan form menjadi seperti ini

 Ganti nama label di kotak ‘Properties’ dibagian ‘Text’

    Setelah itu, dengan cara yang sama, ganti semua label menjadi nama yang diinginkan seperti ini
               

1.       4.   Menambah teksbox didalam form
       Merupakan kotak yang bisa diisi secara bebas saat program di debug
       Cara : Toolbox -->  TextBox  --> klik kiri 1x ditempat yang diinginkan diarea form  -->  atur keluasan 
                  kotak seperti yang diinginkan

 Perbanyak kotak teks sama seperti cara memperbanyak label (copy-paste atau dari toolbox)

 Untuk mempermudah mengingat nama teks box saat pambuatan coding, ganti nama setiap teks box di ‘Properties’ bagian ‘Name’


Dengan cara yang sama, ubahlah:
a.       Pengeluaran produksi menjadi menjadi Tproduksi
b.      Pengeluaran pemerintah menjadi Tpemerintah
c.       Total ekspor menjadi Tekspor
d.      Total Impor menjadi Timpor
e.      Pendapatan Nasional menjadi Thasil

2.   4.     Menambah tombol  dalam form
   Klik Toolbox -->   Button  -->  klik kiri 1x ditempat yang diinginkan
 
Karena yang dibutuhkan 3 tombol mulai, hitung dan selesai, maka lakukan cara yang sama hingga ada 3 tombol.


Lalu untuk mengubah nama button, pada kotak ‘Properties’ dibagian ‘Text’ ubah nama:
a.       Button 1 menjadi Mulai
b.      Button 2 menjadi Hitung
c.       Button 3 menjadi Selesai


 Untuk mempermudah mengingat nama tombol saat pambuatan coding, ganti nama setiap button di ‘Properties’ bagian ‘(Name)’
 
Dengan cara yang sama, ubahlah:
a.      Button1 menjadi Btnmulai
b.      Button2 menjadi Btnhitung
c.       Button3 menjadi Btnselesai

3.      5.     Menambah source code pada setiap buttton
    Agar setiap button berfungsi, maka kita harus memberinya perintah berupa source code. Untuk menambah source code adalah dengan cara meng-klik kiri 2x, maka tampilan akan seperti ini


Tambahlah source code diatas ‘End Sub’


Source code untuk button mulai adalah
'Mengosongkan Teks Box
Tkonsumsi.Text = ""
Tproduksi.Text = ""
Tpemerintah.Text = ""
Tekspor.Text = ""
Timpor.Text = ""
Thasil.Text = ""
Tkonsumsi.Focus()

Klik tab Form1.vb [Design], klik kiri button hitung 2x, lalu masukkan source codenya
'Menghitung Pendapatan Nasional
Thasil.Text = Tkonsumsi.Text + System.Convert.ToInt32(Tpemerintah.Text) + System.Convert.ToInt32(Tproduksi.Text) + (System.Convert.ToInt32(Tekspor.Text) - System.Convert.ToInt32(Timpor.Text))

Klik tab Form1.vb [Design], klik kiri button selesai 2x, lalu masukkan source codenya
Dim y As Integer
y = MsgBox("Are you sure?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "Konfirmasi?")
        If y = vbOK Then
            End
        End If

     

     
Maka saat akan di debug, aplkasi akan menjadi seperti ini


      

1.      Mengubah warna dan font
Pada kotak ‘Properties’ pada bagian ‘Font’ dan ‘FontColor’, ubahlah sesuai yang diinginkan. 



Hingga memiliki akhir seperti ini

1 komentar:

  1. keren.. gw deman ni sama yg kyak gini.. salam bloger indonesia... :D

    BalasHapus