Latest News

Menghitung total sebuah Pinjaman dengan Visual Basic 6.0

Diposting oleh Karolus Malau On Jumat, 18 November 2011 1 komentar

Kali ini saya akan menerangkan pembuatan program peminjaman.Bisa di katakan sebuah koperasi kecil tapi memang belum di lakukan penyimpanan ke database.Program ini hanya menunjukkan bagaimana menghitung total pembayaran bagi yang melakukan peminjaman dan di kenakan bunga tiap bulannya.
Sebagai ketentuannya yaitu:
1.Setiap bulannya dikenakan bunga 3%.
2.Bagi yang melakukan peminjaman antara 12 sampai 18 bulan, maka diberikan diskon 2 bulan(tidak dikenakan bunga).
3.Bagi yang melakukan peminjaman lebih besar dari 18 bulan, maka diberikan diskon 3 bulan(tidak dikenakan bunga).
4.Untuk peminjam lebih kecil dari 12 tidak diberikan diskon.

Sekarang kita mulai untuk membuat programya.
Pertama : Buatlah tampilan seperti gambar berikut!

  • 5 buah Label digunakan untuk judul, No.Peminjam, Nama Peminjam, Lama Peminjam, dan Jumlah Pembayaran.
  • 4 buah TextBox digunakan untuk No.Peminjam, Nama Peminjam, Jumlah Pinjaman dan Jumlah Pembayaran.
  • 1 buah ComboBox yang di gunakan untuk pemilihan lama peminjaman.
  • 4 buah CommandButton digunakan untuk Hitung, Ulang, Keluar dan Laporan.


Baca selengkapnya »

Membuat kalkulator sederhana dengan Visual Basic 6.0

Diposting oleh Karolus Malau On Kamis, 17 November 2011 0 komentar


Berikut ini adalah langakah-langak pembuatan kalkulator sederhana menggunakan bahasa pemrograman Visual Basic 6.0.
Langkah-langkahnya:
Pertama : buat tampilan seperti berikut dengan ketentuan
Label 1 buah (hanya untuk judul saja)
Text 2 buah sebagai input nilai.
Common Button 7 buah digunakan untuk operator aritmatika dan tombol fungsi keluar.














Buka page source code, lalu tuliskan source code berikut.
Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) + Val(Text2.Text)
Text1.Text = ""                                
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text2.Text = Val(Text1.Text) - Val(Text2.Text)
Text1.Text = ""                                       
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Text2.Text = Val(Text1.Text) / Val(Text2.Text)
Text1.Text = ""                                  
Text1.SetFocus
End Sub

rivate Sub Command4_Click()
Text2.Text = Val(Text1.Text) * Val(Text2.Text)
Text1.Text = ""                                        
Text1.SetFocus
End Sub

rivate Sub Command5_Click()
Text2.Text = Val(Text1.Text) ^ Val(Text2.Text)         
End Sub

Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""                         
Text3.Text = ""
End Sub

Private Sub Command7_Click()
End                                 
End Sub

Demikian program sederhana untuk membuat kalkulator sederhana.