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