program visual basic penghitungan nilai

Nieahc,, liat dulu tampilanye ye,,

 

koding ini dengan penghitungan nilai akhir di ambil dari 30% nilai UTS, 30% nilai TUGAS dan 40% nilai UAS  lalu di jumlahkan,,, nich koding nya,,,

Private Sub INPUT_Click()

'untuk memberi niali kosong'

XNIM.Text = ""

XNAMA.Text = ""

XUTS.Text = ""

XTUGAS.Text = ""

XUAS.Text = ""

XAKHIR.Text = ""

'untuk mengaktifkan objec inputan'

XNIM.Enabled = True

XNAMA.Enabled = True

XUTS.Enabled = True

XTUGAS.Enabled = True

XUAS.Enabled = True

XAKHIR.Enabled = True

XAKTIVITAS.Caption = "INPUT DATA"

INPUT.Enabled = False

HITUNG.Enabled = True

KELUAR.Enabled = True

End Sub

 

Private Sub KELUAR_Click()

End

End Sub                                                                

 

Private Sub HITUNG_Click()

XAKTIVITAS.Caption = "HITUNG DATA"

XAKHIR.Text = 0.3 * Val(XTUGAS.Text) + 0.3 * Val(XUTS.Text) + 0.4 * Val(XUAS.Text)

End Sub

 

Private Sub Form_Load()

'untuk menonaktifkan objec di awal'

XNIM.Enabled = False

XNAMA.Enabled = False

XUTS.Enabled = False

XTUGAS.Enabled = False

XUAS.Enabled = False

XAKHIR.Enabled = False

XAKTIVITAS.Caption = ""

INPUT.Enabled = True

HITUNG.Enabled = False

KELUAR.Enabled = False

End Sub

 

Private Sub XAKHIR_Change()

XAKHIR.Text = 0.3 * Val(XTUGAS.Text) + 0.3 * Val(XUTS.Text) + 0.4 * Val(XUAS.Text)

End Sub

 

Private Sub XUAS_LostFocus()

XAKHIR.Text = 0.3 * Val(XTUGAS.Text) + 0.3 * Val(XUTS.Text) + 0.4 * Val(XUAS.Text)

End Sub