Bagaimana cara menghitung pembayaran bulanan dalam Visual Basic

Langkah 1

Pilih template "Standard EXE" setelah memuat program Visual Basic. Temukan ikon "Label" di bilah alat di sisi kiri layar. Ikon ini tampak seperti huruf besar "A". Klik dan seret ke bagian atas formulir di tengah layar. Saat Anda melepaskan mouse, tanda silang akan muncul. Klik dan gunakan kotak kecil -seperti drag-untuk memperluas label. Ulangi tindakan ini sebanyak tiga kali, dengan menempatkan setiap label di bawah yang sebelumnya dan membuatnya lebih lebar. Tambahkan label kelima di sebelah kanan keempat dan juga regangkan.

Langkah 2

Klik pada kontrol "Textbox" di bilah alat, kotak kecil berisi huruf "ab", dan seret ke formulir di sebelah kanan label atas. Lepaskan mouse dan gunakan tuas drag untuk memperluas kotak teks. Ulangi tindakan ini dua kali lagi, letakkan setiap kotak di bawah yang sebelumnya. Klik pada opsi "CommandButton", kotak kecil di bilah alat, yang berada di bawah ikon "Textbox", dan seret ke formulir, pelebaran juga.

Langkah 3

Klik pada "Label" pada saat yang sama mulai dari atas. Cari "Judul" di kolom "Properti" di panel kanan. Untuk setiap label, klik dua kali pada baris "Judul" dan buat perubahan ini dari teks default yang Anda lihat:

Label teratas: Sebut saja "Jumlah pinjaman:" Label kedua: Sebut saja "Bunga bulanan:" Label ketiga: Sebut "Jumlah bulan:" Label keempat: Sebut saja "Pembayaran bulanan:" Label kelima: Hapus nama judul.

Langkah 4

Klik setiap "Kotak teks" secara bergantian dan hapus nama properti "Teks" di bagian "Properti". Ubah judul "CommandButton" untuk membaca "Hitung".

Langkah 5

Klik dua kali pada kontrol dengan nama baru "Hitung" yang akan membuka jendela untuk melihat Kode. Anda akan menemukan dua baris sudah dimasukkan, "Private Sub Command1_Click ()" dan "End Sub." Masukkan baris kode berikut di antara dua baris ini:

Dim AmtBorrow, NumMonths Sebagai Dim Integer Rate, MonthPay Sebagai Double Rate = Text2.Text NumMonths = Text3.Text MonthPay = Text1.Text * (1 + Rate) ^ NumMonths * Rate / ((1 + Rate) ^ NumMonths - 1) Label5 .Caption = Format (MonthPay, "$ ##. ##")

Tekan "F5" untuk menjalankan program dan memuat kuantitas pada layar, menekan "Hitung" untuk menyelesaikan.