Project Pendataan Ijazah Sekolah Suzuran

Project Pendataan Ijazah Menggunakan Visual Studio, Microsoft Word, dan Microsoft Excel. 

Aplikasi Pendataan Ijazah Sekolah.

Selasa, 10 October 2018

Description Project 

• Program ini dibuat bertema tentang ijazah yang bertujuan untuk memudahkan menginput data tanpa harus mengedit tampilan lembar ijazah tersebut, dan hanya tinggal mencetak Ijazahnya saja.

Screenshoot Berserta Penjelasannya, Sebagai berikut :

Microsoft Office

1. Pada screenshoot diatas , Adalah bentuk Form Dari project yang akan kita buat melalui Visual Studio.

      2. Selanjutnya, anda hanya tinggal menginput data siswa/siswi yang ingin anda input, setelah itu centang "Save to Word" untuk mengetahuin hasil pendataan anda yang suda tersimpan secara otomatis di dalam Microsoft Word.

   3. Dan Adalah Tampilan dari hasil Ijazah yang sudah di input tadi dari Visual Studio ke Microsoft Office, Dan hanya tinggal di Print Saja.

Dan ini Source Code Projectnya :

Imports word = Microsoft.Office.Interop.Word

Public Class Form1

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

        Dim aplikasi As New word.Application

        Dim dokumen As New word.Document

        Dim judul As String

        dokumen = aplikasi.Documents.Open("C:\Users\ASUS\Desktop\UTS.docx")

        judul = TxtNama.Text

        dokumen.Bookmarks("nama").Select()

        aplikasi.Selection.TypeText(TxtNama.Text)

        dokumen.Bookmarks("as").Select()

        aplikasi.Selection.TypeText(TxtAS.Text)

        dokumen.Bookmarks("orangtua").Select()

        aplikasi.Selection.TypeText(TxtNOT.Text)

        dokumen.Bookmarks("tempat").Select()

        aplikasi.Selection.TypeText(Txttanggal.Text)

        dokumen.Bookmarks("nisn").Select()

        aplikasi.Selection.TypeText(TxtNISW.Text)

        dokumen.Bookmarks("keterangan").Select()

        aplikasi.Selection.TypeText(Cmbketerangan.Text)

        dokumen.SaveAs2("C:\Users\ASUS\Desktop\" + judul + ".docx")

        MsgBox("sukses")

        aplikasi.Visible = True

    End Sub

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

        Dim status() As String = New String() {"LULUS", "TIDAK LULUS"}

        Me.Cmbketerangan.Items.AddRange(status)

    End Sub

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

        Dispose()

    End Sub

End Class

--------------------------------------------------------------------------------------------------------------------------

Microsoft Excel

1. Pada screenshoot diatas , Adalah bentuk Form Dari project yang akan kita buat melalui Visual Studio.

2.Selanjutnya, anda hanya tinggal menginput data siswa/siswi yang ingin anda input, setelah itu centang "Save to Excel" untuk mengetahuin hasil pendataan anda yang suda tersimpan secara otomatis di dalam Microsoft Excel.

3. Dan ini adalah tampilan dari hasil input dari Visual Studio ke Microsoft Excel.

Dan ini Source Code Projectnya :

Imports excel = Microsoft.Office.Interop.Excel

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

        Dim ToolsExcel As New excel.Application

        Dim NoteExcel As excel.Workbook

        Dim Textbox As String

        NoteExcel = ToolsExcel.Workbooks.Open("C:\Users\ASUS\Desktop\UTS.xlsx")

        Textbox = (Nomer.Text)

        ToolsExcel.Range("A3").Value = Nomer.Text

        ToolsExcel.Range("B3").Value = Nama.Text

        ToolsExcel.Range("D3").Value = Alamat.Text

        ToolsExcel.Range("E3").Value = Keterangan.Text

        NoteExcel.SaveAs("C:\Users\ASUS\Desktop\" + Textbox + ".xlsx")

        MsgBox("Selesai")

        ToolsExcel.Visible = True

    End Sub

End Class

--------------------------------------------------------------------------------------------------------------------------

Terima Kasih^^