membuat program untuk menentukan kelulusan beserta gradenya
Tampilannya
Codingnya
Penjelasan logika
Deklarasikan Nama, Grade, Status sebagai string, lalu deklarasikan UTS, UAS, Total sebagai integer
Nama = TxtNama.Text *buat variable Nama
Grade = TxtGrade.Text *buat variable Grade
Status = TxtStatus.Text *buat variable Status
UTS = Val(TxtUTS.Text) *buat variable UTS
UAS = Val(TxtUAS.Text) *buat variable UAS
Total = Val(TxtTotal.Text) *buat variable Total
Buat formula untuk TxtTotal.Text = Val(UTS / 100 * 70) + Val(UAS / 100 * 30)
*Artinya, nilai yang nanti akan muncul di textbox TxtTotal.Text adalah hasil dari nilai Val(TxtUTS.Text) yang di bagi 100 dan dikali 70, dan ditambah dari hasil nilai UAS = Val(TxtUAS.Text) yang dibagi 100 dan dikali 30
If TxtTotal.Text >= 0 And TxtTotal.Text < 60 Then
TxtStatus.Text = "TIDAK LULUS"
TxtGrade.Text = "Grade D"
MessageBox.Show(Nama & " Dengan nilai " & TxtTotal.Text & " Maka Anda TIDAK LULUS", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
*Artinya, akan dibuat suatu kondisi, apabila nilai dari textbox TxtTotal.Text lebih dari sama dengan 0 dan TxtTotal.Text kurang dari 60 maka, akan tertulis di Textbox TxtStatus.Text TIDAK LULUS, dan pada textbox TxtGrade.Text akan tertulis Grade D. Dan akan muncul messagebox, Nama Dengan nilai nilaitotalnya maka anda TIDAK lulus, dengan title informasi, lalu ada button ok pada messagebox itu dan ada messagebox icon informasi.
Ketika di running
No comments:
Post a Comment