Program Menghitung Nilai Mahasiswa

PROGRAM MENGHITUNG NILAI MAHASISWA

LISTNING PROGRAM

Private Sub Command1_Click()

Dim nama As String

Dim nim As String

Dim tgs As Integer

Dim uts As Integer

Dim uas As Integer

Dim akhir As Integer

nim = txtnim.Text

nama = txtnama.Text

tugas = Val(txttgs.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

akhir = (2 * tugas) + (3 * uts) + (5 * uas)

Label14 = nim

Label15 = nama

Label16 = tugas

Label17 = uts

Label18 = uas

lblna = Val(akhir / 10)

End Sub

KELUARANNYA