Tutorial Program Pendaftaran Bimbingan Belajar SNMPTN

Berikut ini adalah cara pembuatan program Pendaftaran Bimbingan Belajar SNMPTN Bimbingan Belajar Sugiarto Husodo yang telah kami buat :


1.      Cara Menampilkan Form Awal Aplikasi

Komponen toolbox yang digunakan :

Form
Komponen
Properties
Keterangan
Form 1
Button1
Name
Text
Button1
START

Label1
Name
Text
Label1
Formulir Pendaftaran Bimbingan Belajar SNMPTN

Label2
Name
Text
Label2
Bimbingan Belajar Sugiarto Husodo

Label3
Name
Text
Label3
Developed by Tim23

Label4
Name
Text
Label4
Jl. Pandanaran no 234, Semarang

Label5
Name
Text
Label5
sure we can!

Masukkan Listing Berikut
Public Class Form1

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

    End Sub

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

    End Sub
End Class


2.      Cara Menampilkan Form Data Pribadi

Komponen yang digunakan :
Form
Komponen
Properties
Keterangan
Form2
Form2
Name
Text
Form2
Data Pribadi

Label1
Name
Text
Label1
DATA PRIBADI

Label2
Name Text
Label2
Nama Peserta*

Textbox7
Name
Text
Textbox7

Label3
Name
Text
Label3
Jenis Kelamin*

Radi
obutton1
Name
Text
Radiobutton1
Pria

Radiobutton2
Name
Text
Radiobutton2
Wanita

Label4
Name
Text
Label4
Tempat Tanggal Lahir*

Textbox6
Name
Text
Textbox6

Label5
Name
text
Label5
Alamat Rumah

Textbox5
Name
Text
Textbox5

Label6
Name
Text
Label 6
Nomor Telepon/HP*

Textbox4
Name
Text
Textbox 4

Label7
Name
Text
Label 7
Alamat E-Mail

Textbox3
Name
Text
Textbox 3


Label8
Name
Text
Label 8
Nama Ortu/Wali*

Textbox2
Name
Text
Textbox 2


Label9
Name
Text
Label 8
Nomor Telepon Ortu/Wali*

Textbox1
Name
Text
Textbox1


Label10
Name
Text
Label 9
Pekerjaan Ortu/Wali

Combobox1
Name
Combobox1

Label11
Name
Text
Label11
*) wajib diisi

Button1
Name
Text
Button1
Continue

Button2
Name
Text
Button2
Refresh

Masukkan Listing berikut :
Public Class Form2

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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.ResetText()
        TextBox2.ResetText()
        TextBox3.ResetText()
        TextBox4.ResetText()
        TextBox5.ResetText()
        TextBox6.ResetText()
        TextBox7.ResetText()
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        ComboBox1.SelectedIndex = False
    End Sub
    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        If Not Char.IsDigit(e.KeyChar) Then e.Handled = True
    End Sub
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not Char.IsDigit(e.KeyChar) Then e.Handled = True
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub
End Class










3.      Cara Menampilkan Form Data Akademis
Komponen toolbox yang digunakan :
Form
Komponen
Properties
Keterangan
Form3
Form3
Name
Text
Form3
Data Akademis

Label1
Name
Text
Label1
DATA AKADEMIS

Label2
Name
Text
Label2
Nama Sekolah*

Textbox1
Name
Text
Textbox1


Label3
Name
Text
Label3
Alamat Sekolah

Textbox2
Name
Text
Textbox2


Label4
Name
Text
Label4
Program*

Combobox1
Name
Combobox1

Label5
Name
Text
Label 5
Tahun Kelulusan

Combobox2
Name
Combobox2

Label6
Name
Text
Label6
*) wajib diisi

Button1
Name
Text
Button1
Continue

Button2
Name
Text
Button2
Back

Button3
Name
Text
Button3
Refresh

Masukkan listing berikut :
Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = ("") Or ComboBox1.Text = ("") Or ComboBox2.Text = ("") Then
            MsgBox("Data yang Anda Isi Kurang Lengkap")
            'do nothing
        Else : Form4.Show()
            Me.Hide()
        End If
    End Sub

    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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.ResetText()
        TextBox2.ResetText()
        ComboBox1.SelectedIndex = False
        ComboBox2.SelectedIndex = False
    End Sub

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

    End Sub
End Class


 4.      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

Masukkan listing berikut :
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



5.      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

Masukkan Listing berikut :
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 "Tutorial Program Pendaftaran Bimbingan Belajar SNMPTN"

Posting Komentar