Air Terjun Pelangi Indah

    

           Air Terjun Pelangi Indah adalah salah satu air terjun yang berada di Sumatera Utara, namun air terjun ini kurang "tersohor" seperti air terjun lain nya : Sigura - gura, Piso - piso, Telaga 2 warna. air terjun ini tidak jauh dari Danau linting.
Rute : Medan → Amplas → Patumbak → Talun kenas → Danau linting →
       Air terjun Pelangi Indah → Jembatan lau luhung.

Tugas Visual Studio

1.proses penyeleesaian bagi Pertama

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()

    End Sub

    Sub buattabel()
        LV.Columns.Add("NPM", 60, HorizontalAlignment.Left)
        LV.Columns.Add("Name", 180, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(Nama.Text)
        LV.Items.Add(lst)

    End Sub


    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
        NPM.Text = ""
        Nama.Text = ""
    End Sub





    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        Dim x As String
        x = MsgBox("Thank You Very Much")
        If x = vbYes Then
            Me.Close()


        End If

    End Sub

    Private Sub hapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus1.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub hapus2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus2.Click

        LV.Items.Clear()
    End Sub
End Classl