Pengalaman Penerapan Sistem Informasi

hmm....sekedar sharing aja mau bagi-bagi pengalaman tentang sistem informasi yang saya  dapat dari kuliah. saya mencoba membuat program sederhana yang menampilkan sebuah grade nilai. cara kerjanya hanya menginput sebuah nilai yang kemudian ditampilkan nilai dalam huruf A-E, predikat, dan keterangan lulus atau tidak. dalam program ini saya menggunakan VB. bagi pembaca, lumayan buat tambah-tambah ilmu....

Private Sub Command1_Click()

If Val(tx1.Text) < 50 Then

    lb5 = "E"

ElseIf Val(tx1.Text) < 69 Then

    lb5 = "D"

ElseIf Val(tx1.Text) < 80 Then

    lb5 = "C"

ElseIf Val(tx1.Text) < 89 Then

    lb5 = "B"

Else

    lb5 = "A"

End If

If lb5 = "A" Then

    lb6 = "memuaskan"

ElseIf lb5 = "B" Then

    lb6 = "baik"

ElseIf lb5 = "C" Then

    lb6 = "cukup"

Else

    lb6 = "kurang"

End If

If lb6 = "kurang" Then

    lb7 = "tidak lulus"

Else

    lb7 = "lulus"

End If

End Sub