1. tentunya buka project baru di Vb.netnya
2. Buat seperti di gambar ini :
Ganti text label
label1 = Nim
label2 =Nama
masukan script di button hitung seperti berikut ini :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, d As Integer
a = InputBox("Masukan nilai", "Ahmadnasir26.blogspot.com")
b = InputBox("Masukan nilai", "Ahmadnasir26.blogspot.com")
c = InputBox("Masukan nilai", "Ahmadnasir26.blogspot.com")
d = ((a + b + c) / 3)
MessageBox.Show("Mahasiswa dengan Nim " & TextBox1.Text)
MessageBox.Show("Mahasiswa dengan Nama " & TextBox2.Text)
MessageBox.Show("Mahasiswa tersebut mempunyai Nilai Rata : " & d)
End Sub
dan masukan script di button Keluar seperti berikut ini :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
dan hasilnya Seperti ini :
Selesai.
Somoga bermanfaat :D
No comments:
Post a Comment