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

            

             

Mengisi Data Dengan Menggunakan Listview

Rangkuman 6

Kita akan membuat data mahasiswa dengan menggunakan ListView, berikut langsung 
kita membuatnya...
Seperti biasa kita buat disainnya dulu :

 kita buat disainnya dulu :

Kemudian isi perintahnya :

Public Class Form1

    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 isikombo()

        Call tampilan()

    End Sub

   

    Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ComboBox1.Text = " 06 Teknik Informatika "

    End Sub

    Sub isikombo()

        ComboBox1.Items.Add(" 06 Teknik Informatika ")

        ComboBox1.Items.Add(" 07 Sistem Informasi ")

        ComboBox1.Items.Add(" 67 Komputer Akuntansi ")

        ComboBox1.Items.Add(" 05 Teknik Komputer ")

        ComboBox1.Items.Add(" 26 Management Informatika ")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As           System.EventArgs) Handles Button1.Click

        If Button1.Text = "tambah" Then

            Button1.Text = "simpan"

            Button2.Enabled = False

            Button3.Enabled = False

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

            isitext(0) = Trim(TextBox1.Text)

            isitext(1) = Trim(TextBox2.Text)

            isitext(2) = Trim(TextBox3.Text)

            isitext(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 2)

            item = New ListViewItem(isitext)

            ListView1.Items.Add(item)

            Call bersih()

            TextBox1.Focus()

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button4.Text = "keluar" Then

            Me.Close()

        Else

            Call bersih()

            Call normal()

        End If

    End Sub

    Sub normal()

        Button1.Text = "tambah"

        Button1.Enabled = True

        Button2.Text = "ubah"

        Button2.Enabled = True

        Button3.Text = "hapus"

        Button3.Enabled = True

        Button4.Text = "keluar"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button2.Text = "ubah" Then

            Button2.Text = "simpan"

            Button1.Enabled = False

            Button3.Enabled = False

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If Button3.Text = "hapus" Then

            Button3.Text = "simpan"

            Button1.Enabled = False

            Button2.Enabled = False

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

        End If

    End Sub

    Sub tampilan()

        ListView1.View = View.Details

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

        ListView1.Columns.Add("NAMA", 100, HorizontalAlignment.Left)

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

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

    End Sub

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

        TextBox1.Text = e.Item.Text

    End Sub

End Class

Perkalian Dan Menampilkan Bilangan Ganjil&Genap Menggunakan Module

Rangkuman 5

Pertama kita buat perkalian dan berikut disannya :

Setelah itu isi perintahnya :

Setelah itu i

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call tampilnama()

        TextBox1.Text = nama

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        h = TextBox2.Text

        b = TextBox3.Text

        Call hitung()

        TextBox4.Text = hasil

    End Sub

End Class

Jangan lupa tambahkan module,berikut isinya :

 

Modulely

    'variablepublic

    Public nama As String, hasil, h, b As Integer

    Sub tampilnama()

        nama = "lya"

    End Sub

    Sub hitung()

        hasil = Val(h)* Val(b)

    End Sub

   

Dan berikutnya Bilangan Ganjil dan Genap

Kita buat dulu desainnya :

Kita

Dan isi perintahnya :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        c = TextBox1.Text

        Call pilih(ListBox1, ListBox2)

    End Sub

End Class

Tambahkan juga modulenya :

Module lia

    Public nama As String, hasil, c, ganjil, genap As Integer

    Sub pilih(ByVal lb1 As ListBox, ByVal lb2 As ListBox)

        For i = 1 To Val(c)

            If i Mod 2 = 0 Then

                lb2.Items.Add(i)

            ElseIf i Mod 2 = 1 Then

                lb1.Items.Add(i)

            End If

        Next

    End Sub

End Module

Pengulangan Atau Looping

Rangkuman 4

Membuat Bilangan dengan 3 jenis,
Langsung saja kita buat disainnya :

Membuat Bilangan dengan 3 jenis,

Langsung saja kita buat disainnya :

Kemudian kita isi perintah dalam program :

Kemudian kita isi perintah dalam program :kita isi perintah dalam program :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        ListBox3.Items.Clear()

        For i = 2 To Val(TextBox1.Text)

            ListBox1.Items.Add("*" + i.ToString + "," + (i + 1).ToString)

        Next

        For i = 1 To Val(TextBox1.Text)

            If i Mod 4 Then

                ListBox2.Items.Add(i)

            End If

        Next

        For i = 1 To Val(TextBox1.Text)

            If i Mod 3 = 2 Then

                ListBox3.Items.Add(i)

            End If

        Next

    End Sub

End Class