Aplikasi Pendaftaran Bimbel Come-On Menggunakan vb.net

            Pada kesempatan kali ini saya , saya akan share langkah-langkah memnbuat aplikasi “Bimbingan belajar Come-On” menggunakan software visual basic .net. Pada semester V mata kuliah pemrograman memang menggunakan software vb.net. Motivasi saya membuat aplikasi bimbel ini karena pengalaman pribadi saya. Beberapa waktu lalu saya mengantar adik saya untuk mendaftar ke sebuah bimbingan belajar A, tetapi pada saat pendaftaran administrasi nya masih manual dan itu menurut saya buang-buang waktu. Maka dari itu saya akhirnya membuat aplikasi ini untuk memenuhi nilai UTS saya pada semester ini. Langsung saja kita masuk ke steps nyaa :

1.      Pertama saya membuat design form yang terdiri dari; Form Login, Form Utama, Form Data Peserta, Form Pembayaran, dan Form Pengajar.

n  Form Login

n  Form Menu Utama

n  Form Pembayaran

2.      Step selanjut nya, saya membuat document vari di Ms. Office dan Excel.

-          Buatlah document yang isinya sesuai dengan form data peserta di word.

-          Buatlah document yang isinya sesuai dengan form data peserta di Excel.

3.      Setelah selesai design nya, kita masuk ke source code nya :

n  Source code Form Log in :

Public Class login

    Dim user As String

    Dim pass As String

    Private Sub masuk_Click(sender As Object, e As EventArgs) Handles masuk.Click

        user = nama.Text

        pass = pswd.Text

        If nama "admin" And pswd "1234" Then MsgBox(“Welcome To Come-On”)

            utama.Show()

            Me.Hide()

            End

        End If

    End Sub

    Private Sub batal_Click(sender As Object, e As EventArgs) Handles batal.Click

        Dim a = MsgBox("Are You sure want to cancel?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmation")

        If a = vbYes Then

            Me.Close()

            End

        End If

    End Sub

End Class

n  Source code Form Menu utama :

Public Class utama

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles pendaftaran.Click

        Form1.Show()

        Me.Hide()

    End Sub

    Private Sub pembayaran_Click(sender As Object, e As EventArgs) Handles pembayaran.Click

        pembayaran.Show()

        Me.Hide()

    End Sub

End Class

n  Source code data peserta :

Imports word = Microsoft.Office.Interop.Word

Public Class Form1

    Dim Appnya As New word.Application

    Dim Dokumennya As word.Document

    Private Sub print_Click(sender As Object, e As EventArgs) Handles print.Click

        Dokumennya = Appnya.Documents.Open("C:\DewiVB\Pendaftaran\Pendaftaran\DATA PESERTA.docx")

        Dokumennya.Bookmarks("NAMA").Select()

        Appnya.Selection.TypeText(nama.Text)

        Dokumennya.Bookmarks("NIS").Select()

        Appnya.Selection.TypeText(nis.Text)

        Dokumennya.Bookmarks("ALAMAT").Select()

        Appnya.Selection.TypeText(alamat.Text)

        Dokumennya.Bookmarks("JK").Select()

        Appnya.Selection.TypeText(jk.Text)

        Dokumennya.Bookmarks("TTL").Select()

        Appnya.Selection.TypeText(ttl.Text)

        Dokumennya.Bookmarks("TELP").Select()

        Appnya.Selection.TypeText(telp.Text)

        Dokumennya.Bookmarks("TP").Select()

        Appnya.Selection.TypeText(tp.Text)

        Dokumennya.SaveAs2("C:\DewiVB\Pendaftaran\Pendaftaran\DATA PESERTA " & nama.Text & ".docx")

        Appnya.Visible = True

    End Sub

    Private Sub clear_Click(sender As Object, e As EventArgs) Handles clear.Click

        nis.Text = ""

        nama.Text = ""

        alamat.Text = ""

        jk.Text = ""

        ttl.Text = ""

        telp.Text = ""

        tp.Text = ""

    End Sub

    Private Sub keluar_Click(sender As Object, e As EventArgs) Handles keluar.Click

        Dim b = MsgBox("Are You sure want to exit?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmation")

        If b = vbYes Then

            Me.Close()

            End

        End If

    End Sub

End Class

n  Source code data pembayaran :

Imports excel = Microsoft.Office.Interop.ExcelPublic

Public Class pembayaran

    Dim myExcelApp As New excel.Application

    Dim myExcelBook As excel.Workbook

    Private Sub jp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles jp.SelectedIndexChanged

        If jp.SelectedItem = "SD" Then dp.Text = "1.500.000"

        End If

        If jp.SelectedItem = "SMP" Then dp.Text = "2.000.000"

        End If

        If jp.SelectedItem = "SMA/SMK" Then dp.Text = "2.750.000"

        End If

    End Sub

    Private Sub print_Click(sender As Object, e As EventArgs) Handles print.Click

        myExcelBook = myExcelApp.Workbooks.Open("C:\Users\DEWI\Documents\pembayaran.xlsx")

        myExcelApp.Range()

    End Sub

    Private Sub total_Click(sender As Object, e As EventArgs) Handles total.Click

    End Sub

End Class

1.      Berikut adalah hasil run nyaa :