ANALISIS PROGRAM PENDAFTARAN BIMBINGAN BELAJAR SNMPTN BIMBINGAN BELAJAR SUGIARTO HUSODO (bagian 2)


5.      Cara Menampilkan Form Pendaftaran



Form
Komponen
Properties
Keterangan
Form4
Form4
Name
Text
Form4
Pendaftaran

Label1
Name
Text
Label1
PENDAFTARAN

Label2
Name
Text
Label2
Kelas*

Combobox1
Name
Combobox 1

Label3
Name
Text
Label 3
Program*

Label4
Name
Text
Label4
*) wajib diisi

Combobox2
Name
Combobox 2

Button1
Name
Text
Button1
Continue

Button2
Name
Text
Button2
Back


Name
Text
Button3
Refresh

Button3
Name
Text
Form5
Are You Sure

Komponen toolbox yang digunakan :
Public Class Form4

    Private Property Response As MsgBoxResult

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = ("") Or ComboBox2.Text = ("") Then
            MsgBox("Data yang Anda Isi Kurang Lengkap")
            'do nothing
        Else : Response = MsgBox("Are You Sure?", vbYesNo, "Finalize")
            If Response = vbYes Then
                Form6.Show()
            Else 'do nothing
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form3.Show()
        Me.Hide()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ComboBox1.SelectedIndex = False
        ComboBox2.SelectedIndex = False
    End Sub

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

    End Sub
End Clas

6.      Cara Menampilkan Form Finalize


Form
Komponen
Properties
Keterangan
Button1
Name
Text
Button1
Continue
Button1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = ("") Or ComboBox2.Text = ("") Then
            MsgBox("Data yang Anda Isi Kurang Lengkap")
            'do nothing
        Else : Response = MsgBox("Are You Sure?", vbYesNo, "Finalize")
            If Response = vbYes Then
                Form6.Show()
            Else 'do nothing
            End If
        End If
    End Sub

7.      Cara Menampilkan Form Finalisasi



Komponen toolbox yang digunakan :
Form
Komponen
Properties
Keterangan
Form6
Form6
Name
Text
Form6
Finalisasi

Label1
Name
Text
Label 1
FINALISASI PENDAFTARAN

Label2
Name
Text
Label 2
Nama :

Label5
Name
Text
Label5
Textbox7 (Form1)

Label8
Name
Text
Label8
Asal Sekolah :

Label11
Name
Text
Label11
Textbox1 (Form3)

Label9
Name
Text
Label9
Tahun Kelulusan :

Label10
Name
Text
Label10
Combobox2 (Form3)

Label4
Name
Text
Label4
Program :

Label6
Name
Text
Label6
Combobox1 (Form4)

Label3
Name
Text
Label 3
Kelas :

Label7
Name
Text
Label7
Combobox2 (Form4)

Button1
Name
Text
Button 1
Daftar

Button2
Name
Text
Button 2
Back

Public Class Form6

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

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

    End Sub
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label5.Text = Form2.TextBox7.Text
        Label6.Text = Form4.ComboBox1.Text
        Label7.Text = Form4.ComboBox2.Text
        Label11.Text = Form3.TextBox1.Text
        Label10.Text = Form3.ComboBox2.Text()
    End Sub
End Class

0 Response to "ANALISIS PROGRAM PENDAFTARAN BIMBINGAN BELAJAR SNMPTN BIMBINGAN BELAJAR SUGIARTO HUSODO (bagian 2)"

Posting Komentar