NE-O

membuat menu help

Private Sub RumusPersegiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusPersegiToolStripMenuItem.Click
MsgBox(" Rumus Luas Persegi = sisi x sisi")
End Sub

Private Sub RumusPersegiPanjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusPersegiPanjangToolStripMenuItem.Click
MsgBox(" Rumus Luas Persegi Panjang = panjang x lebar")
End Sub

Private Sub RumusSegitigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusSegitigaToolStripMenuItem.Click
MsgBox(" Rumus Luas Segitiga = 1/2 x alas x tinggi")
End Sub

Private Sub RumusLingkaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusLingkaranToolStripMenuItem.Click
MsgBox(" Rumus Luas Lingkaran = π (pi) x jari-jari x jari-jari")
End Sub

Private Sub RumusTrapesiumToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusTrapesiumToolStripMenuItem.Click
MsgBox("Rumus Luas Trapesium = 1/2 x jumlah sisi sejajar x tinggi")
End Sub

Private Sub RumusJajargenjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusJajargenjangToolStripMenuItem.Click
MsgBox("Rumus Luas Trapesium = 1/2 x jumlah sisi sejajar x tinggi")
End Sub

Private Sub RumusBelahKetupatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusBelahKetupatToolStripMenuItem.Click
MsgBox("Rumus Belah Ketupat = diagonal (d) 1 x diagonal (d) 2")
End Sub

Private Sub RumusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusToolStripMenuItem.Click
MsgBox("Rumus Belah Ketupat = diagonal (d) 1 x diagonal (d) 2")
End Sub

Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("Programmed by Aritha Handrico (Teknik Informatika UIN SUSKA RIAU)")
End Sub
End Class