Source Code Membuat Tanggal Jatuh Tempo dengan VB6 - TeknoTips

Source Code Membuat Tanggal Jatuh Tempo dengan VB6

Selamat datang kembali, TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, kumpulan ebook, game & software.

Pada kesempatan ini kita akan mengulas tentang terbaru, dengan judul artikel Source Code Membuat Tanggal Jatuh Tempo dengan VB6.

Cara Mencari Tanggal Jatuh Tempo dengan VB6 - Jatuh tempo merupakan Jangka waktu yang diberikan kreditur terhadap debitur untuk melunasi hutangnya telah habis.Sementara debitur tidak dapat melunasi cicilan hutangnya, Sehingga kita bisa mengatakan telah jatuh tempo.

Untuk membuat program ini kita memerlukan beberapa komponen yang sudah di sediakan Visual Basic salah satunya adalah DTPicker. DTPicker di gunakan untuk menampilkan atau memilih tanggal dalam sebuah Combobox.

Untuk menambah DTPicker ke dalam ToolBox tekan CTRL+T untuk menampilkan komponen yang ada didalamnya kemudian ceklist Microsoft Windows Common Controls-2 6.0. Berikut adalah beberapa propertinya :


Properti                     
Kegunaan
MaxDateUntuk menentukan tanggal Maksimum yang dapat ditampilkan oleh Objek DTPicker
MinDateUntuk menentukan tanggal Minimu yang dapat ditampilkan oleh Objek DTPicker
UpDownUntuk membuat pemilihan tanggal dilakukan dengan cara mengklik tombol panah atas dan bawah
ValueUntuk menentukan atau mendapatkan tanggal yang terpilih dalam DTPicker

Bagi Anda yang bekerja dalam bidang akuntan atau bagi Anda yang sedang kuliah yang mengambil jurusan akuntansi dan sejenisnya rumus ini wajib Anda pelajari.

Cara kerja:
Akan terlihat 2 tanggal yang sama (20 Mei 2016), itu adalah tanggal sekarang kemudian pilih Opsi lamanya Tempo yaitu Hari, Bulan dan Tahun dengan cara klik OptionButon kemudian  masukan lama jatuh tempo pada kotak tempo dan hasilnya akan terlihat pada pada tanggal tempo.
Saya mengisi lama jatuh tempo 2 bulan dan hasil tanggal jatuh tempo adalah 20 Juli 2016.

Untuk itu pada kesempatan kali ini Saya ingin memberikan trik bagaimana menghitung tanggal jatuh tempo dengan menggunakan Program Visual Basic 6.0. Berikut adalah langkah-langkah dalam pembuatannya :

Cara Mencari Tanggal Jatuh Tempo dengan VB6:

1. Buka form VB6 Anda
2. Setelah itu tambahkan 2 DTPicker, 1 TextBox, 3 OptionButton dan beberapa Label di Form
3. Desainlah Form Anda seperti gambar dibawah ini:

Desain Form
4. Setelah selesai mendesain ketiklah kode dibawah ini di jendela kode :
Source Code Membuat Tanggal Jatuh Tempo dengan VB6

Private Sub Form_Activate()
Option1.Value = True
End Sub

Private Sub Form_Load()
DTPicker1.Value = Now
DTPicker2.Value = Now
End Sub

Private Sub Option1_Click()
Text1.Text = ""
Text1.SetFocus
Label4.Caption = "Bulan"
End Sub

Private Sub Option2_Click()
Text1.Text = ""
Text1.SetFocus
Label4.Caption = "Tahun"
End Sub

Private Sub Option3_Click()
Text1.Text = ""
Text1.SetFocus
Label4.Caption = "Hari"
End Sub

Private Sub Text1_Change()
If Option1.Value = True Then
On Error Resume Next
DTPicker2.Value = DTPicker1.Value
If Val(Text1.Text) + DTPicker1.Month = 2 Then
DTPicker2.Month = 2
ElseIf Val(Text1.Text) + DTPicker1.Month <= 12 Then
DTPicker2.Month = DTPicker1.Month + Val(Text1.Text)
ElseIf Val(Text1.Text) + DTPicker1.Month > 12 Then
DTPicker2.Month = (DTPicker1.Month + Val(Text1.Text)) Mod 12
DTPicker2.Year = (DTPicker2.Year + ((DTPicker1.Month + Val(Text1.Text)) + (12 - DTPicker2.Month)) / 12) - 1
End If
End If

If Option2.Value = True Then
On Error Resume Next
DTPicker2.Year = DTPicker1.Year + Text1.Text
End If

If Option3.Value = True Then
On Error Resume Next
DTPicker2.Value = DTPicker1.Value + Text1.Text
End If

If Text1.Text = "" Then
DTPicker2.Value = DTPicker1.Value
End If

End Sub

5. Simpan hasil pekerjaan Anda dan jalankan program.

Demikian Source Code Membuat Tanggal Jatuh Tempo dengan VB6 dan Mencari Tanggal Jatuh Tempo VB6. Semoga bermanfaat selamat mencoba semoga berhasil.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah.

Belum ada Komentar untuk "Source Code Membuat Tanggal Jatuh Tempo dengan VB6"

Posting Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel