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 :
  1. Pilih Fakultas yang terdiri dari (Ekonomi, Fasilkom, dan Tehnik)
  2. Pilih Prodi 
    1. Untuk Ekonomi terdiri dari (Manajemen dan Akuntansi)
    2.  Untuk Teknik terdiri dari ( Elektro, Sipil dan Industri)
    3. Untuk Fasilkom terdiri dari ( Teknik Informatika dan Sistem Informasi.)
  3. Untuk Jumlah Sks diisi dengan inputan menggunakan text book
  4. Untuk Total Biaya muncul Otomatis setelah jumlah sks diinput.
  5. Untuk  Biaya Per SKS
    1. Ekonomi = Rp.80.000
    2. Fasilkom = Rp. 70.000
    3. Teknik = Rp.65.000
  6. Untuk Total Biaya dengan perincian Jumlah Sks X Biaya Per Sks + BPP Pokok.
  7. BPP Pokok Rp.1.200.000
Langsung saja dech anda buka lembar kerja di VB6.

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???


Facebook Comments

0 komentar

Powered by Blogger.