Aplikasi Bangun Dua Dimensi Warna

Deskrpsi

Untuk menampilkan gambar dua dimensi secara beberapa warna.dan memperkenalkan gambar dua dimensi tersebut kepada anak anak di bawah kima tahun.

Tujuan

Untuk menampilkan gambar dua dimensi

Sasaran

Anak di bawah lima tahun.

Flowchart

Tutorial

Pembuatan Form1

Komponen toolbox yang dibutuhkan:

Kemudian masukkan listing berikut ini

  

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

        Timer1.Enabled = True

        Timer2.Enabled = False

        Me.Text = "Aplikasi Bangun Dua Dimensi Warna"

End Sub

Keterangan:

Baris pertama untuk mengaktifkan timer1

Baris kedua untuk mengaktifkan timer2

Baris ketiga untuk mengubah nama form1 menjadi “Aplikasi Bangun Dua Dimensi Warna”

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

        Form2.Show()

        Me.Hide()

End Sub

Keterangan:

Baris pertama untuk menampilkan form2

Baris kedua untuk menyembunyikan form yang bersangkutan

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

        Close()

End Sub

Keterangan:

Fungsi tersebut untuk menutup jendela aplikasi

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If Label1.Left <= -Label1.Width Then

            Timer1.Enabled = False

            Timer2.Enabled = True

        Else : Label1.Left = Label1.Left - 15

        End If

End Sub

Keterangan:

Fungsi ‘if’ tersebut untuk membuat label1 kelihatan seperti berjalan ke kiri

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If Label1.Left >= Width Then

            Timer2.Enabled = False

            Timer1.Enabled = True

        Else : Label1.Left = Label1.Left + 15

        End If

    End Sub

Keterangan:

Fungsi tersebut untuk membuat label1 kelihatan seperti berjalan ke  kanan

Pembuatan Form2

Komponen toolbox yang dibutuhkan

Kemudian masukkan listing berikut

Kemudian masukkan listing berikut:

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

        Me.Text = "Bangun Dua Dimensi"

        Me.BackColor = Color.Coral

End Sub

Keterangan:

Baris 1 untuk mengubah nama form menjadi “Bangun Dua Dimensi”

Baris 2 untuk mengubah warna background menjadi coral

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

        If ComboBox1.Text = "Segitiga" And ComboBox2.Text = "Biru" Then PictureBox1.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Persegi" And ComboBox2.Text = "Biru" Then PictureBox2.Visible = True Else PictureBox1.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "Biru" Then PictureBox3.Visible = True Else PictureBox2.Visible = False And PictureBox1.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "Hijau" Then PictureBox4.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox1.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Persegi" And ComboBox2.Text = "Hijau" Then PictureBox5.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox1.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Segitiga" And ComboBox2.Text = "Hijau" Then PictureBox6.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox1.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "Kuning" Then PictureBox7.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox1.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Persegi" And ComboBox2.Text = "Kuning" Then PictureBox8.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox1.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Segitiga" And ComboBox2.Text = "Kuning" Then PictureBox9.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox1.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Segitiga" And ComboBox2.Text = "Merah" Then PictureBox10.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox1.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Persegi" And ComboBox2.Text = "Merah" Then PictureBox11.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox1.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "Merah" Then PictureBox12.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox1.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "Putih" Then PictureBox13.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox1.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Persegi" And ComboBox2.Text = "Putih" Then PictureBox14.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox1.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Segitiga" And ComboBox2.Text = "Putih" Then PictureBox15.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox1.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Lingkaran" And ComboBox2.Text = "Hitam" Then PictureBox16.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox1.Visible = False And PictureBox17.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Persegi" And ComboBox2.Text = "Hitam" Then PictureBox17.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox1.Visible = False And PictureBox18.Visible = False

        If ComboBox1.Text = "Segitiga" And ComboBox2.Text = "Hitam" Then PictureBox18.Visible = True Else PictureBox2.Visible = False And PictureBox3.Visible = False And PictureBox4.Visible = False And PictureBox5.Visible = False And PictureBox6.Visible = False And PictureBox7.Visible = False And PictureBox8.Visible = False And PictureBox9.Visible = False And PictureBox10.Visible = False And PictureBox11.Visible = False And PictureBox12.Visible = False And PictureBox13.Visible = False And PictureBox14.Visible = False And PictureBox15.Visible = False And PictureBox16.Visible = False And PictureBox17.Visible = False And PictureBox1.Visible = False

End Sub

Keterangan:

Fungsi ‘if’ baris pertama untuk menampilkan segitiga biru

Fungsi ‘if’ baris kedua untuk menampilkan persegi biru

Fungsi ‘if’ baris ketiga untuk menampilkan lingkaran biru

Fungsi ‘if’ baris keempat untuk menampilkan lingkaran hijau

Fungsi ‘if’ baris kelima untuk menampilkan persegi hijau

Fungsi ‘if’ baris keenam untuk menampilkan segitiga hijau

Fungsi ‘if’ baris ketujuh untuk menampilkan lingkaran kuning

Fungsi ‘if’ baris kedelapan untuk menampilkan persegi kuning

Fungsi ‘if’ baris kesembilan untuk menampilkan segitiga kuning

Fungsi ‘if’ baris kesepuluh untuk menampilkan segitiga merah

Fungsi ‘if’ baris kesebelas untuk menampilkan persegi merah

Fungsi ‘if’ baris keduabelas untuk menampilkan lingkaran merah

Fungsi ‘if’ baris ketigabelas untuk menampilkan lingkaran putih

Fungsi ‘if’ baris keempatbelas untuk menampilkan persegi putih

Fungsi ‘if’ baris kelimabelas untuk menampilkan segitiga putih

Fungsi ‘if’ baris keenambelas untuk menampilkan lingkaran hitam

Fungsi ‘if’ baris ketujuhbelas untuk menampilkan persegi hitam

Fungsi ‘if’ baris kedelapanbelas untuk menampilkan segitiga hitam

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

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        PictureBox18.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        PictureBox6.Visible = False

        PictureBox7.Visible = False

        PictureBox8.Visible = False

        PictureBox9.Visible = False

        PictureBox10.Visible = False

        PictureBox11.Visible = False

        PictureBox12.Visible = False

        PictureBox13.Visible = False

        PictureBox14.Visible = False

        PictureBox15.Visible = False

        PictureBox16.Visible = False

        PictureBox17.Visible = False

        PictureBox1.Visible = False

End Sub

Keterangan:

Baris pertama untuk mengembalikkan combobox1 ke posisi kosong

Baris kedua untuk mengembalikkan combobox2 ke posisi kosong

Baris ketiga sampai ke-21 untuk mengembalikan picturebox ke posisi tidak terlihat

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Me.Close()

End Sub

Keterangan:

Fungsi tersebut untuk menutup jendela aplikasi tersebut

Program Multiform

Deskripsi

Alasan kelompok kami membuat program pendaftaran ini adalah ingin mengenalkan cabang olahraga air yaitu rafting.rafting sendiri dilakukan dengan cara berkelompok minimal 6 orang.tetapi,banyak orang ragu untuk mencoba olahraga rafting karena alasan keamanan .oleh karena itu kami berharap dengan adanya rafting dengan tambahan beberapa inovasi dan serta memberikan paket rafting untuk para pendaftar,agar tidak ragu untuk mencoba olahraga rafting.

Tujuan dan manfaat

Memperkenalkan olahraga rafting kepada 

Sasaran

Mahasiswa seluruh universitas di Indonesia yang berminat mengikuti olahraga rafting.

Flowchart

Tutorial

Berikut ini langkah-langkah pembuatan program tersebut.

1.      Pembuatan Form1

      Komponen yang dibutuhkan

      Kemudian masukkan listing berikut

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

        Me.Text = "Form Pendaftaran"

        Timer1.Start()

End Sub

      Keterangan:

      Baris 1 untuk mengubah nama form menjadi “Form Pendaftaran”

      Baris 2 untuk memulai timer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label3.Text = TimeOfDay

        Label5.Text = DateString

            End Sub

  Keterangan:

      Baris 1 untuk mengubah teks pada label3 menjadi jam yang mengacu pada jam komputer

      Baris 2 untuk mengubah teks pada label5 menjadi tanggal yang mengacu pada tanggal computer

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

        Me.Close()

End Sub

Keterangan:

            Baris 1 untuk menutup jendela aplikasi

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

        Form2.Show()

        Me.Hide()

End Sub

Keterangan:

Baris 1 untuk menampilkan form2

Baris 2 untuk menyembunyikan form1

Pembuatan Form2

Komponen toolbox yang diperlukan

Kemudian masukkan listing berikut

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

        Me.Text = "Data Pendidikan"

        Me.BackColor = Color.DarkGray

End Sub

            Keterangan:

            Baris 1 untuk mengubah nama form2 menjadi “Data Pendidikan”

            Baris 2 untuk mengubah warna background menjadi Dark Gray

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

        If TextBox1.Text = String.Empty Or TextBox2.Text = String.Empty Or TextBox3.Text = String.Empty Then MsgBox("Tolong Isi Form Dengan Lengkap", MsgBoxStyle.Critical) Else Form3.Show()

        If TextBox1.Text = String.Empty Or TextBox2.Text = String.Empty Or TextBox3.Text = String.Empty Then Label5.Hide() Else Me.Hide()

End Sub

            Keterangan:

Baris 1 berisi rumus fungsi agar jika ada textbox yang tidak diisi maka akan muncul msgbox dan jika terisi akan lanjut ke form3

Baris 2 berisi rumus fungsi untuk menyembunyikan label5 dan jika terisi semua maka menyembunyikan form2

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

        Form1.Show()

        Me.Close()

End Sub

Keterangan:

Baris 1 untuk mengembalikan pada form1

Baris 2 untuk menutup jendela form ini

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

End Sub

Keterangan:

Baris 1 untuk membuat textbox1 kosong

Baris 2 untuk membuat textbox2 kosong

Baris 3 untuk membuat textbox3 kosong

Pembuatan Form3

Komponen toolbox yang dibutuhkan

Kemudian masukkan listing berikut ini

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

        Me.Text = "Data Personal Diri"

        Me.BackColor = Color.DarkGray

End Sub

Keterangan:

Baris 1 untuk mengubah nama form3 menjadi “Data Personal Diri”

Baris 2 untuk membuat warna background menjadi Dark Gray

Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress

        If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then

            e.Handled = False

        ElseIf Asc(e.KeyChar) = 43 Or Asc(e.KeyChar) = 95 Or Asc(e.KeyChar) = 45 Or Asc(e.KeyChar) = 44 Or Asc(e.KeyChar) = 46 Then

            e.Handled = False

        ElseIf e.KeyChar = vbBack Then

            e.Handled = False

        Else

            e.Handled = True

        End If

End Sub

    Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

        If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then

            e.Handled = False

        ElseIf Asc(e.KeyChar) = 43 Or Asc(e.KeyChar) = 95 Or Asc(e.KeyChar) = 45 Or Asc(e.KeyChar) = 44 Or Asc(e.KeyChar) = 46 Then

            e.Handled = False

        ElseIf e.KeyChar = vbBack Then

            e.Handled = False

        Else

            e.Handled = True

        End If

End Sub

Keterangan:

Listing tersebut untuk membuat input pada textbox hanya untuk input karakter angka

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

        If ComboBox1.Text = String.Empty Or TextBox4.Text = String.Empty Or TextBox5.Text = String.Empty Then MsgBox("Tolong Isi Form Dengan Lengkap", MsgBoxStyle.Critical) Else Form4.Show()

        If ComboBox1.Text = String.Empty Or TextBox4.Text = String.Empty Or TextBox5.Text = String.Empty Then Label9.Hide() Else Me.Hide()

End Sub

Keterangan:

Baris 1 berisi rumus fungsi agar jika ada textbox yang tidak diisi maka akan muncul msgbox dan jika terisi akan lanjut ke form4

Baris 2 berisi rumus fungsi untuk menyembunyikan label9 dan jika terisi semua maka menyembunyikan form3

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

        Form2.Show()

        Me.Close()

End Sub

Keterangan:

Baris 1 untuk mengembalikan pada form2

Baris 2 untuk menutup jendela form ini

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

        Me.Close()

End Sub

Keterangan:

Baris 1 untuk menutup jendela aplikasi ini

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

        If ComboBox1.Text = "Laki-laki" Or ComboBox1.Text = "Perempuan" Then ComboBox1.Text = "Jenis Kelamin"

        TextBox4.Text = ""

        TextBox5.Text = ""

End Sub

Keterangan:

Baris 1 untuk membuat combobox menjadi semula

Baris 2 textbox4 menjadi kosong kembali

Baris 3 textbox5 menjadi kosong kembali

Pembuatan Form4

Komponen toolbox yang diperlukan

Kemudian masukkan listing berikut ini

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

        Me.Text = "Opsional"

        Me.BackColor = Color.DarkGray

End Sub

Keterangan:

Baris 1 untuk mengubah nama form4 menjadi “Opsional”

Baris 2 untuk mengubah warna background menjadi Dark Gray

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

        Form5.Show()

        Me.Hide()

End Sub

Keterangan:

Baris 1 untuk memunculkan form5

Baris 2 untuk menyembunyikan form ini

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

        Form3.Show()

        Me.Close()

End Sub

Keterangan:

Baris 1 untuk kembali ke form3

Baris 2 untuk menutup jendela form ini

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

        Me.Close()

End Sub

Keterangan:

Baris 1 untuk menutup jendela aplikasi

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

        ComboBox1.Text = ""

        ComboBox2.Text = ""

End Sub

Keterangan:

Baris 1 untuk mengosongkan combobox1

Baris 2 untuk mengosongkan combobox2

Pembuatan Form5

Komponen toolbox yang dibutuhkan

Kemudian masukkan listing berikut ini

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

        Me.Text = "Rekap Data"

        Me.BackColor = Color.DarkGray

        Label1.Hide()

        Label2.Hide()

        Label3.Hide()

        Label4.Hide()

        Label5.Hide()

        Label6.Hide()

        Label7.Hide()

        Label8.Hide()

        Label9.Hide()

End Sub

Keterangan:

Baris 1 untuk mengubah nama form 5 menjadi “Rekap Data”

Baris 2 untuk mengubah warna background menjadi Dark Gray

Baris 3 sampai 11 untuk menyembunyikan semua label

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

        Dim text1, text2, text3, text4, text5, text6, text7, text8, text9 As String

        text1 = "Nama  :" & Form2.TextBox1.Text

        text2 = "Universitas  :" & Form2.TextBox2.Text

        text3 = "Jurusan  :" & Form2.TextBox3.Text

        text4 = "Tanggal Lahir  :" & Form3.DateTimePicker1.Text

        text5 = "Jenis Kelamin  :" & Form3.ComboBox1.Text

        text6 = "Tinggi Badan  :" & Form3.TextBox4.Text & " cm"

        text7 = "Berat Badan  :" & Form3.TextBox5.Text & " cm"

        text8 = "Paket  :" & Form4.ComboBox1.Text

        text9 = "Lokasi  :" & Form4.ComboBox2.Text

        Label1.Show()

        Label2.Show()

        Label3.Show()

        Label4.Show()

        Label5.Show()

        Label6.Show()

        Label7.Show()

        Label8.Show()

        Label9.Show()

        Label1.Text = text1

        Label2.Text = text2

        Label3.Text = text3

        Label4.Text = text4

        Label5.Text = text5

        Label6.Text = text6

        Label7.Text = text7

        Label8.Text = text8

        Label9.Text = text9

End Sub

Keterangan:

Baris 1 deklarasi text1 sampai dengan text 9 sebagai string

Baris 2 sampai 10 menjelaskan text diikuti data input dari form-form sebelumnya

Baris 11 sampai 19 memunculkan label1 sampai  9 kembali

Baris 20 sampai 28 mensinkronasi antara label dengan text