tutorialswb

TutorialsWB hadir sebagai wadah bagi teman-teman yang ingin "Belajar PHP Dasar". Sehingga kami yakin bahwa TutorialsWB akan menjadi Pusat "Belajar Bahasa Pemrograman PHP" Disamping PHP website ini menyediakan berbagai tips dan trik Blogger. Kami menerima Pemasangan iklan banner atau artikel.

Hubungi Saya

Visual Basic 2010 Program Grade Nilai





Program Grade Nilai VB 2010


 Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim angka As Integer = Integer.Parse(TextBox1.Text)
        Select angka
            Case 80 To 100
                MessageBox.Show("A", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case 70 To 79
                MessageBox.Show("B", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case 60 To 69
                MessageBox.Show("C", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case 50 To 59
                MessageBox.Show("D", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case 40 To 49
                MessageBox.Show("A", "grade", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Select
    End Sub
End Class




Baca Juga