Cara Membuat DATA TABUNGAN dan BUNGA NASABAH menggunakan VB 6.0

Kali ini saya akan membuat tutorial bagaimana cara untuk membuat program sederhana DATA TABUNGAN dan BUNGA NASABAH dengan menggunakan Visual  Basic 6.0

Sudah pasti langkah pertama adalah menyalakan PC dan membuka program Visual Basic 6.0.. hehe..

Setelah anda membuka VB 6, kemudian buatlah project baru..

Tambahkan komponen2 berikut yg semuanya ada pada ToolBox.


Pastikan semua terletak pada posisi yang benar..

Kemudian klik 2 kali pada ruang kosong di form tersebut.

masukkan kode ini :


Private Sub Command1_Click()
If Text1.Text <= 1000000 Then
Text2.Text = 0.0015
Text3.Text = Val(Text1.Text * Text2.Text)
Text4.Text = Val((Val(Text1.Text)) + (Val(Text3.Text)))
Else
If Text1.Text >= 1000000 And Text1.Text < 5000000 Then
Text2.Text = 0.005
Text3.Text = Val(Text1.Text * Text2.Text)
Text4.Text = Val((Val(Text1.Text)) + (Val(Text3.Text)))
Else
If Text1.Text >= 5000000 And Text1.Text < 10000000 Then
Text2.Text = 0.1
Text3.Text = Val(Text1.Text * Text2.Text)
Text4.Text = Val((Val(Text1.Text)) + (Val(Text3.Text)))
Else
If Text1.Text >= 10000000 Then
Text2.Text = 0.5
Text3.Text = Val(Text1.Text * Text2.Text)
Text4.Text = Val((Val(Text1.Text)) + (Val(Text3.Text)))
End If
End If
End If
End If
End Sub

Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
End Sub

Private Sub Form_Load()
Label1.Caption = "Data Tabungan dan Bunga Nasabah"
Label2.Caption = "Total Tabungan"
Label3.Caption = "Bunga Dalam %"
Label4.Caption = "Bunga Dalam Rp"
Label5.Caption = "Jumlah Tabungan + Bunga"
Form1.Caption = "Dedik Kurniawan"

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

Command1.Caption = "Proses"
Command2.Caption = "Hapus"

End Sub
Kode program tersebut telah dibuat sedemikian rupa hingga dapat menghasilkan : 


Program kini telah selesai..

Untuk cara penggunaannya tinggal diisi hanya pada bagian jumlah tabungan saja.. kemudian klik tombol proses. maka hasilnya akan secara otomatis muncul pada program anda.. 

terimakasih telah menyimak penjelasan dari saya..
terus ikuti Blog saya dan cari ilmu - ilmu yang lainnya :D

Komentar

Postingan populer dari blog ini

Telepon genggam (handphone)

Mengenal Bagian-bagian Gitar Elektrik dan Akustik