Analisis Program "Pendaftaran FDZ Rental Video"

Analisis Program “Pendaftaran FDZ Rental Video”

Public Class Form1

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

    End Sub

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

        Form3.Show()

        Me.Hide()

    End Sub

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

        Me.Close()

    End Sub

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

        Me.Text = "Program Pendaftaran FDZ Rental Video"

        ComboBox1.Text = "Pilih"

        With ComboBox1

            .Items.Add("Laki-laki")

            .Items.Add("Perempuan")

        End With

    End Sub

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

        Me.TextBox1.Clear()

        Me.TextBox2.Clear()

        Me.TextBox3.Clear()

        Me.TextBox4.Clear()

        Me.TextBox5.Clear()

        Me.TextBox6.Clear()

        Me.ComboBox1.Text = "Pilih"

    End Sub

End Class

Public Class Form2

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

        Dim ktp As Integer

        Dim nama As String

        Dim alamat As String

        Dim tgl As String

        Dim tpt As String

        Dim notelf As Integer

        ktp = Form1.TextBox1.Text

        nama = Form1.TextBox2.Text

        alamat = Form1.TextBox3.Text

        tgl = Form1.TextBox4.Text

        tpt = Form1.TextBox5.Text

        notelf = Form1.TextBox6.Text

        Label8.Text = ktp

        Label9.Text = nama

        Label10.Text = alamat

        Label11.Text = tgl

        Label12.Text = tpt

        Label13.Text = notelf

        If Form1.ComboBox1.Text = ("Laki-laki") Then Label14.Text = ("Laki-laki")

        If Form1.ComboBox1.Text = ("Perempuan") Then Label14.Text = ("Perempuan")

    End Sub

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

        Form1.Close()

    End Sub

    End Sub

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

        Me.Close()

        Form1.Show()

        Form1.Button3.PerformClick()

    End Sub

End Class

Form3

Public Class Form3

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

        Form2.Show()

        Me.Hide()

    End Sub

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

        Form1.Close()

    End Sub

End Class

Keterangan:

Form1

Baris 1 ketika Button1 di klik Form1 sembunyi dan Form3 muncul.

Baris 2 ketika Button2 di klik Form1 tutup.

Baris 3 mengubah nama Form1 menjadi “Program Pendaftaran FDZ Rental Video”

Baris 4 mengubah teks pada combobox1 menjadi “Pilih”

Baris 5 menambahkan item “laki-laki” pada combobox1

Baris 6 menambahkan item “perempuan” pada combobox1

Baris 7  Saat Button3 di klik Teksbox1 pada Form1 kosong

Baris 7  Saat Button3 di klik Teksbox2 pada Form1 kosong

Baris 8  Saat Button3 di klik Teksbox3 pada Form1 kosong

Baris 9  Saat Button3 di klik Teksbox4 pada Form1 kosong

Baris 10  Saat Button3 di klik Teksbox5 pada Form1 kosong

Baris 11  Saat Button3 di klik Teksbox6 pada Form1 kosong

Baris 12 Teks pada Combobox1 pada Form1 berisi “Pilih”

Form2

Baris 1 menyatakan “ktp” sebagai integer

Baris 2 menyatakan “nama” sebagai string

Baris 3 menyatakan “alamat” sebagai string

Baris 4 menyatakan “tanggal” sebagai string

Baris 5 menyatakan “tempat” sebagai string

Baris 6 menyatakan “notelf” sebagai integer

Baris 7 “ktp” adalah  teks pada TextBox1 pada Form1

Baris 8 “nama” adalah teks pada TextBox2 pada Form1

Baris 9 “alamat” adalah teks pada TextBox3 pada Form1

Baris 10 “tgl” adalah teks pada TextBox4 pada Form1

Baris 11 “tpt” adalah teks pada TextBox5 pada Form1

Baris 12 “notelf” adalah teks pada TextBox6 pada Form1

Baris 13 teks pada Label8 adalah “ktp”

Baris 14 teks pada Label9 adalah “nama”

Baris 15 teks pada Label10 adalah “alamat”

Baris 16 teks pada Label11 adalah “tgl”

Baris 17 teks pada Label12 adalah “tpt”

Baris 18 teks pada Label13 adalah “notelf”

Baris 19 jika teks pada ComboBox1 pada form1 adalah "Laki-laki" lalu teks pada Label14 adalah "Laki-laki"

Baris 20 jika teks pada ComboBox1 pada form1 adalah "Perempuan" lalu teks pada Label14 adalah "Perempuan"

Baris 21 ketika Button1 di klik Form1ditutup

Baris 22 ketika Button2 di klik Form2 ditutup, Form 1 muncul, Button3 pada Form1 di klik.

Form3

Baris 1 ketika Button2 di klik Form2 muncul dan Form3 sembunyi.

Baris 2 ketika Button1 di klik Form1 tutup.