TUGAS UTS (VB.Net)

Aplikasi Pemesanan Barang

    Public class Form5

        Dim isitext(4) As String

        Dim item As ListViewItem

     

    private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs)

  Handles Me.Activated

                Call bersih()

                Call tampilan()

               End Sub

          Sub bersih()

             TextBox1.Text=""

             TextBox2.Text=""

             TextBox3.Text=""

             TextBox4.Text=""

             TextBox5.Text=""

             TextBox6.Text=""

             TextBox7.Text=""

          End Sub

         Sub normal()

            Button1.Text="INPUT"

            Button1.Enabled=true

            Button2.Text="CARI"

            Button2.Enabled=true

            Button3.Text="EDIT"

            Button3.Enabled=true

            Button4.Text="DELETE"

            Button4.Enabled=true

                   

            Button5.Text="EXIT"

       End Sub

       private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.Click

       If Button1.Text="INPUT"Then

          Button1.Text="SAVE"

          Button2.Enabled=false

          Button3.Enabled=false

          Button4.Enabled=false

          Button5.Text="BATAL"

          Textbox1.Focus()

        else

          isitext(0)=Trim(TextBox1.Text)

          isitext(1)=Trim(TextBox2.Text)

          isitext(2)=Trim(TextBox3.Text)

          isitext(3)=Trim(TextBox4.Text)

          isitext(4)=Trim(TextBox5.Text)

          isitext(5)=Trim(TextBox6.Text)

          isitext(6)=Trim(TextBox7.Text)

          item = New ListView(isitext)

          listView1.Items.Add(Item)

           Call bersih()

           TextBox1.Focus()

   

         End if

      End Sub

      private Sub Button5_Click(ByVal sender As System.Object, ByVal e EventArgs)Handles Button5_Click

      If Button5.Text="EXIT"Then

        Me.Close()

      Else

        Call bersih()

        Call normal()

       End If

     End Sub

     Sub tampilan()

       ListView1.View.Details

                            ListView1.Columns.Add("KODE_CUSTOMER",100,HorizontalAlignment.Center)                  ListView1.Columns.Add("NAMA_CUSTOMER",100,HorizontalAlignment.Center)

       ListView1.Columns.Add("TELEPON",100,HorizontalAlignment.Center)

       ListView1.Columns.Add("ALAMAT",100,HorizontalAlignment.Center)

       ListView1.Columns.Add("KOTA",100,HorizontalAlignment.Center)

       ListView1.Columns.Add("KODE_POS",100,HorizontalAlignment.Center)

       ListView1.Columns.Add("FAX",100,HorizontalAlignment.Center)

      End Sub

         private Sub ListView1_ItemSelectionChanged(ByVal sender As object,ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs)Handles ListView.ItemSelectionChanged

                   TextBox1.Text=else.Item.Text

               End Sub

            End Class