PROGRAM BIAYA KULIAH Per SKS MENGGUNAKAN VB6
kali ini saya akan membuat atau membagikan script untuk membuat program biaya kuliah per SKS, dengan deskripsi soal sebagai berikut :
Copy Sript dibawah ini :
Option Explicit
Dim biaya As Single
Dim total As Single
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Combo2.Clear '------------------------------bersihkan combo2
Me.Combo2.AddItem "MANAJEMEN"
Me.Combo2.AddItem "AKUNTANSI"
biaya = 80000
ElseIf Combo1.ListIndex = 1 Then
Combo2.Clear '-----------------------------bersihkan combo2
Me.Combo2.AddItem "TEKNIK INFORMATIKA"
Me.Combo2.AddItem "SISTEM INFORMATIKA"
biaya = 70000
ElseIf Combo1.ListIndex = 2 Then
Combo2.Clear
Me.Combo2.AddItem "TEKNIK ELEKTRO"
Me.Combo2.AddItem "TEKNIK INDUSTRI"
Me.Combo2.AddItem "TEKNIK SIPIL"
biaya = 65000
End If
End Sub
Private Sub Command1_Click()
Print " ITEM NO "; Combo1.ListIndex; "PADA COMBO1"
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo2.Clear
Combo1.AddItem "EKONOMI"
Combo1.AddItem "FASILKOM"
Combo1.AddItem "TEKNIK"
End Sub
Private Sub txtSKS_Change()
txtTotal.Text = Format((biaya * Val(txtSKS.Text)) + 1200000, "Rp ###,###,####,###")
End Sub
selesai dech program ini, tapi inget ya, walaupun kalian cuma sekedar dari blog ini, kalian juga harus belajar berlatih supaya kalian mengerti dan walaupun VB6 ini 'sudah' jadul, gak salah dong buat kita melatih logika???- Pilih Fakultas yang terdiri dari (Ekonomi, Fasilkom, dan Tehnik)
- Pilih Prodi
- Untuk Ekonomi terdiri dari (Manajemen dan Akuntansi)
- Untuk Teknik terdiri dari ( Elektro, Sipil dan Industri)
- Untuk Fasilkom terdiri dari ( Teknik Informatika dan Sistem Informasi.)
- Untuk Jumlah Sks diisi dengan inputan menggunakan text book
- Untuk Total Biaya muncul Otomatis setelah jumlah sks diinput.
- Untuk Biaya Per SKS
- Ekonomi = Rp.80.000
- Fasilkom = Rp. 70.000
- Teknik = Rp.65.000
- Untuk Total Biaya dengan perincian Jumlah Sks X Biaya Per Sks + BPP Pokok.
- BPP Pokok Rp.1.200.000
Copy Sript dibawah ini :
Option Explicit
Dim biaya As Single
Dim total As Single
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Combo2.Clear '------------------------------bersihkan combo2
Me.Combo2.AddItem "MANAJEMEN"
Me.Combo2.AddItem "AKUNTANSI"
biaya = 80000
ElseIf Combo1.ListIndex = 1 Then
Combo2.Clear '-----------------------------bersihkan combo2
Me.Combo2.AddItem "TEKNIK INFORMATIKA"
Me.Combo2.AddItem "SISTEM INFORMATIKA"
biaya = 70000
ElseIf Combo1.ListIndex = 2 Then
Combo2.Clear
Me.Combo2.AddItem "TEKNIK ELEKTRO"
Me.Combo2.AddItem "TEKNIK INDUSTRI"
Me.Combo2.AddItem "TEKNIK SIPIL"
biaya = 65000
End If
End Sub
Private Sub Command1_Click()
Print " ITEM NO "; Combo1.ListIndex; "PADA COMBO1"
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo2.Clear
Combo1.AddItem "EKONOMI"
Combo1.AddItem "FASILKOM"
Combo1.AddItem "TEKNIK"
End Sub
Private Sub txtSKS_Change()
txtTotal.Text = Format((biaya * Val(txtSKS.Text)) + 1200000, "Rp ###,###,####,###")
End Sub