Form Pendaftaran

KONSEP

1.      Deskripsi

Aplikasi biodata adalah sebuah aplikasi yang dapat digunakan untuk menampilkan hasil rekaman data pribadi seseorang yang sudah diketik ke dalam beberapa form untuk memudahkan dalam merekap data anggota baru.

2.      Tujuan

·         Mendapatkan nilai yang bagus dalam jurnal praktikum Teknologi Informatika 2012 modul 1.

·         Memudahkan perekapan data untuk anggota baru dalam proses registrasi.

3.      Manfaat

·         Mengetahui fungsi koding-koding yang dipakai dalam aplikasi biodata.

·         Memperoleh nilai dalam jurnal praktikum Teknologi Informatika 2012 modul 1.

4.      Sasaran User

Semua komunitas non-formal yang membutuhkan perekapan data secara mudah dan cepat.

FLOWCHART

Penjelasan Flowchart

Form Pendaftaran Data Diri

Program ini digunakan untuk pengisian biodata mandiri, isinya berupa daftar identitas pribadi dari orang tersebut.

A

1.     Mulai.

2.     Tulis Nama Depan pada program.

3.     Tulis Nama Belakang pada program.

4.     Input list Tanggal Lahir dengan format dd/month/yyyy.

5.     Akan muncul output Tanggal Lahir yang sesuai dengan pilihan.

6.     Tulis E-Mail pada program.

7.     Apabila seluruh isian pada A telah terisi seluruhnya, maka klik confirm

8.     Apabila isian tidak terisi maka kembali ke No. 1 apabila terisi seluruhnya maka program akan dilanjutkan ke B.

9.     Klik close untuk menghentikan program.

B

1.     Input list Jenis Kelamin.

2.     Akan muncul output jenis kelamin dengan format Laki – laki/Wanita.

3.     Tulis Hobi pada program.

4.     Input list Agama.

5.     Akan muncul output dengan format Islam/Kristen/Katolik/Budha/Kong Hu Chu/Hindu.

6.     Tulis About Me pada program.

7.     Apabila seluruh isian pada B telah terisi seluruhnya, maka klik confirm

8.     Pilihan cetak hasil akan muncul

9.     Program akan memperlihatkan hasil dari input biodata pada program.

    

    TUTORIAL

·         Buka Visual Basic 2010, lalu klik new project

·         Kemudian buatlah 5 form, dengan memilih project

       Klik Add Windows Form

·         

Form 1

Form 2

Form 3

Form 4

Form 5

Komponen Toolbox yang digunakan:

No	Komponen	Properties	Keterangan
1	Form1	Name Text BackgroundImage BackgroundImageLayout	Form1 sign up 1 System.Drawing.Bitmap Stretch
2	Label1	Name Text ForeColor	Label1 Nama depan blue
3	Label6	Name Text ForeColor	Label6 Nama belakang blue
4	Label3	Name Text ForeColor	Label3 Tanggal lahir blue
5	Label4	Name Text ForeColor	Label4 Email blue
6	TextBox1	Name Text	TextBox1
7	TextBox2	Name Text	TextBox2
8	TextBox6	Name Text	TextBox6
9	ComboBox1	Name Text	ComboBox1 tgl
10	ComboBox2	Name Text	ComboBox2 bln
11	ComboBox3	Name Text	ComboBox3 thn
12	Button1	Name Text	Button1 confirm
13	Button2	Name Text	Button2 Close
14	Form2	Name Text BackgroundImage BackgroundImageLayout	Form2 sign up 2 System.Drawing.Bitmap Stretch
15	Label4	Name Text ForeColor	Label4 Jenis Kelamin red
16	Label2	Name Text ForeColor	Label2 Hobi red
17	Label3	Name Text ForeColor	Label3 Agama red
18	Label1	Name Text ForeColor	Label1 About Me red
19	ComboBox1	Name Text	ComboBox1
20	ComboBox2	Name Text	ComboBox2
21	TextBox1	Name Text	TextBox1
22	TextBox2	Name Text	TextBox2
23	Button1	Name Text	Button1 Confirm
24	Button2	Name Text	Button2 Back
25	Form3	Name Text	Form3 konfirmasi
26	Label1	Name Text	Label1 Apakah anda yakin?
27	Button1	Name Text	Button1 ya
28	Button2	Name Text	Button2 tidak
29	Form4	Name Text	Form4 konfirmasi
30	Label1	Name Text	Label1 Terima Kasih sudah mengisi biodata
31	Button1	Name Text	Button1 cetak hasil
32	Form5	Name Text BackgroundImage BackgroundImageLayout	Form5 hasil System.Drawing.Bitmap Stretch
33	Label1	Name Text ForeColor	Label1 nama depan 258,128,0
34	Label2	Name Text ForeColor	Label2 nama belakang 258,128,0
35	Label3	Name Text ForeColor	Label3 tanggal lahir 258,128,0
36	Label4	Name Text ForeColor	Label4 email 258,128,0
37	Label5	Name Text ForeColor	Label5 jenis kelamin 258,128,0
38	Label6	Name Text ForeColor	Label6 hobi 258,128,0
39	Label7	Name Text ForeColor	Label7 agama 258,128,0
40	Label8	Name Text ForeColor	Label8 about me 258,128,0
41	Label9	Name Text ForeColor	Label9 258,128,0
42	Label10	Name Text ForeColor	Label10 258,128,0
43	Label11	Name Text ForeColor	Label12 258,128,0
44	Label13	Name Text ForeColor	Label13 258,128,0
45	Label14	Name Text ForeColor	Label14 258,128,0
46	Label15	Name Text ForeColor	Label15 258,128,0
47	Label16	Name Text ForeColor	Label16 258,128,0
48	Label17	Name Text ForeColor	Label17 258,128,0
49	Label18	Name Text ForeColor	Label18 258,128,0
50	Button1	Name Text	Button1 ok

Analisis Listing

1.      Form1

Public Class Form1

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

        ComboBox2.Items.Add("Januari")

        ComboBox2.Items.Add("Februari")

        ComboBox2.Items.Add("Maret")

        ComboBox2.Items.Add("April")

        ComboBox2.Items.Add("Mei")

        ComboBox2.Items.Add("Juni")

        ComboBox2.Items.Add("Juli")

        ComboBox2.Items.Add("Agustus")

        ComboBox2.Items.Add("September")

        ComboBox2.Items.Add("Oktober")

        ComboBox2.Items.Add("November")

        ComboBox2.Items.Add("Desember")

        'bulan

        Dim i As Integer

        For i = 1 To 31

            ComboBox1.Items.Add(i)

            'tanggal

        Next

        Dim j As Integer

        For j = 1980 To 2012

            ComboBox3.Items.Add(j)

            'tahun

        Next

    End Sub

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

        Form3.Show()

        'button close

    End Sub

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

        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox6.Text = "" Or ComboBox1.Text = "tgl" Or ComboBox2.Text = "bln" Or ComboBox3.Text = "thn" Then

            MsgBox("mohon data diisi dengan lengkap")

        Else

            Form2.Show()

            Me.Hide()

        End If

        'confirm

    End Sub

End Class

2.      Form2

Public Class Form2

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

        ComboBox1.Items.Add("Islam")

        ComboBox1.Items.Add("Kristen")

        ComboBox1.Items.Add("Katolik")

        ComboBox1.Items.Add("Budha")

        ComboBox1.Items.Add("Kong Hu Chu")

        ComboBox1.Items.Add("Hindu")

        'agama

        ComboBox2.Items.Add("Laki-laki")

        ComboBox2.Items.Add("Wanita")

        'jenis kelamin

    End Sub

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

        If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Then

            MsgBox("mohon data diisi dengan lengkap")

        Else

            Form4.Show()

            Me.Hide()

        End If

        'confirm

    End Sub

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

        Form1.Show()

        Me.Hide()

        'back

    End Sub

End Class

3.      Form3

Public Class Form3

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

        Form1.Close()

        Me.Close()

        'jika yakin

    End Sub

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

        Form1.Show()

        Me.Hide()

        'jika tidak

    End Sub

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

    End Sub

End Class

4.      Form4

Public Class Form4

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

        Form5.Show()

        Me.Hide()

        'untuk mencetak hasil yg sudah ditulis

    End Sub

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

    End Sub

End Class

5.      Form5

Public Class Form5

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

        Label9.Text = Form1.TextBox1.Text

        Label10.Text = Form1.TextBox2.Text

        Label11.Text = Form1.ComboBox1.Text

        Label12.Text = Form1.ComboBox2.Text

        Label13.Text = Form1.ComboBox3.Text

        Label14.Text = Form1.TextBox6.Text

        Label15.Text = Form2.ComboBox1.Text

        Label16.Text = Form2.TextBox1.Text

        Label17.Text = Form2.ComboBox2.Text

        Label18.Text = Form2.TextBox2.Text

        'keterangan yg akan ditampilkan

    End Sub

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

        Form1.Show()

        Me.Hide()

        Form1.TextBox1.Text = " "

        Form1.TextBox2.Text = " "

        Form1.ComboBox1.Text = ""

        Form1.ComboBox2.Text = ""

        Form1.ComboBox3.Text = ""

        Form1.TextBox6.Text = " "

        Form2.ComboBox1.Text = ""

        Form2.TextBox1.Text = " "

        Form2.ComboBox2.Text = ""

        Form2.TextBox2.Text = " "

        Label9.Text = " "

        Label10.Text = " "

        Label11.Text = " "

        Label12.Text = " "

        Label13.Text = " "

        Label14.Text = " "

        Label15.Text = " "

        Label16.Text = " "

        Label17.Text = " "

        Label18.Text = " "

        'untuk merefresh data yg ada di form1 maupun form2

    End Sub

End Class

<spanclass = "fullpost">

</span>