Bahan UTS Semester4 Matkul Visual Studio

       Berikut ini adalah tampilan form yang akan di buat nanti saat UTS semester4 ;

Untuk membuat yang ada di dalam lingkaran merah ,

langkahnya sebagai berikut :

1)      # Pilih tool Label, tempatkan di dalam panel yang telah disediakan ,

2)     # Tempatkan yang rapi dengan patokan garis yang otomatis mengikuti,

3)     # Rubah nama tampilan Label dengan gambar , satu per satu .

1)       Contoh ;

Kemudian untuk membuat yang di lingkari warna hijau :

> Pada toolbox pilih Textbox ,

> Kemudian tempatkan satu per satu di dalam panel.

> Untuk ukuran di sesuaikan sendiri .

Selanjutnya untuk membuat yang di lingkari warna ungu :

- Pilih toolbox Button , tempat dan ukuran atur sendiri .

- Cara mengubah text di dalam Button tersebut adalah :

+ klik Button , pada kolom propertis cari record Text terus ganti dengan yang Anda inginkan .

Yang terakhir menambahkan bagian Listbox ke dalam panel.

* Pilih Listbox di toolbox dan tempatkan di dalam panel.

Untuk source code nya bisa di lihat di bawah ini , bisa di rubah .

    Public Class Form1

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call bersih()

        Call isi_combo()

    End Sub

    Sub bersih()

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

    End Sub

    Sub isi_combo()

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

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

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

        ComboBox1.Items.Add("26 Manajemen Informasi")

    End Sub

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

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

            Call bersih()

        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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Button1.Text = "Tambah" Then

            Button1.Text = "Simpan"

            Button1.Enabled = True

            Button2.Enabled = False

            Button3.Enabled = False

            Button4.Text = "Batal"

            TextBox1.Focus()

            ListBox1.Items.Add(TextBox1.Text + " " & TextBox2.Text + " " & TextBox3.Text + " " & TextBox4.Text + " " & ComboBox1.Text)

        End If

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

   End Class

                                           
            Silahkan mencoba dan terus tingkatkan semangat latihan membuat coding !