Tugas Uts aplikasi Biodata Siswa export Word dan Excel


Nama : Suhendar

Nim : 161021450501

Kelas : 520/06Tple004
 
Aflikasi Biodata Siswa

Assalamu’alaikum Wr Wb
Di sini saya akan menjelaskan bagai mana tugas uts saya, yang mana tugas uts nya mengenai aplikasi, berbentuk web. Apliaksi yang saya buat ini mengenai aplikasi tentang sekolah dan aplikasi nya itu berguna untuk pengimputan biodata siswa/I agar mempermudah pekerjaan setiap guru.

Disetiap tahun ajaran baru tentunya banyak peserta didik baru dan seorang guru tentunya harus mencatat semua siswa - siswi yang menjadi peserta didiknya agar supaya dalam mencatat semua data - data siswa - siswi tidak ada kesalahan maka seorang guru kelas maupun guru bidang study haruslah menggunakan sebuah aplikasi yang dimana dengan aplikasi tersebut dapat dengan mudah mempercepat kinerja para guru.

Aplikasi yang kami berikan ini sangatlah mudah untuk digunakan para guru - guru karena aplikasi ini saya sediakan kedalam bentuk format excel dan word hingga para guru tinggal hanya mengisi kolom - kolom yang sudah disediakan.Bagi kawan - kawan guru yang sekiranya belum memiliki aplikasi.

 Dan langsung saja kita mengetahui bagai mana cara membuat aflikasi nya itu.

Yang pertama kalian harus mempunyai aflikasi visual Studio 2012. Dan visual studio yang lain nya juga bias ko. Kalua saya memang memakai visual studio.

Langsung saya kalua kalian sudah punya langsung install di leptop atau pc teman teman sekalian, sesudah menginstal kalian pilih new project. Lalu pilih web dan pilih lagi ASP. Net Empty Web application. Setelah kalian mempilih itu kalian kasih nama projek nya lalu Ok.










Setelah membuat Projek teman teman jangan lupa kalian klik kanan di Project teman teman sekalia, lalu teman teman pilih Add. Dan pilih juga New Item





Dan teman teman lanjut lagi teman teman pilih Web Form dan jangan lupa kasih Nama Project ke dua nya ya. Lalu Add




Pilih Tabel Insert table




Lalu teman teman isi Rows dengan apa yang teman teman ingin kan
Kalua saya rows dan columns nya di ketik 2




Untuk mendesain nya jangan lupa teman teman pilik Toolbox. Di toolbox itu banyak pilihan apa yang kita butuhkan untuk mendesain ada semua di toolboox



Ini hasil desain yang saya buat.
Dan langsung jasa. Kalua Nim, Nama, jenis Kelamin, Tanggal Lahir,Phone,email saya memakal LABEL
Dan untuk yang kotak itu saya memakai TextBoxt1. TextBoxt2. TextBoxt3. TextBoxt4. TextBoxt5. TextBoxt6.
Kalua untuk save to word dan save to excel kita memakal Button1, Button2

 





Dan untuk codingan nya ada di bawa.
Imports System.Net.Mime.MediaTypeNames
Imports excel = Microsoft.Office.Interop.Excel
Imports word = Microsoft.Office.Interop.Word


Public Class tugas
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Btnexcel.Click
        Dim aplikasiExcel As New excel.Application
        Dim fileExcelnya As excel.Workbook

        fileExcelnya = aplikasiExcel.Workbooks.Open("E:\biodata siswa.xlsx")
        aplikasiExcel.Range("A2").Value = txtnim.Text
        aplikasiExcel.Range("B2").Value = txtnama.Text
        aplikasiExcel.Range("C2").Value = txtjeniskelamin.Text
        aplikasiExcel.Range("D2").Value = txttanggallahir.Text
        aplikasiExcel.Range("E2").Value = txtphone.Text
        aplikasiExcel.Range("F2").Value = txtemail.Text

        fileExcelnya.SaveAs("E:\biodata siswa.xlsx")
        MsgBox("Sukses")
        aplikasiExcel.Visible = True
    End Sub

    Protected Sub Btnword_Click(sender As Object, e As EventArgs) Handles Btnword.Click
        Dim aplikasi As New word.Application
        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("E:\biodata siswa.docx")

        dokumen.Bookmarks("nim").Select()
        aplikasi.Selection.TypeText(txtnim.Text)

        dokumen.Bookmarks("nama").Select()
        aplikasi.Selection.TypeText(txtnama.Text)

        dokumen.Bookmarks("jeniskelamin").Select()
        aplikasi.Selection.TypeText(txtjeniskelamin.Text)

        dokumen.Bookmarks("tanggallahir").Select()
        aplikasi.Selection.TypeText(txttanggallahir.Text)

        dokumen.Bookmarks("phone").Select()
        aplikasi.Selection.TypeText(txtphone.Text)

        dokumen.Bookmarks("email").Select()
        aplikasi.Selection.TypeText(txtemail.Text)


        dokumen.SaveAs2("E:\biodata siswa.docx")
        MsgBox("sukses")
        aplikasi.Visible = False




    End Sub

End Class




Dan ini hasil aplikasi yang saya buat.



Ini hasil aplikasi ke excel dan ke word nya nya sudsah berhasil




Ini hasil ke excel nya



ini yang hasil yang ke word nya









Sekian aplikasi yang saya buat ini, seboga bermanfaat bagi semuanya dan bagi pembacanya.juga dan saya juga mengucapkan terimakasih bagi yang sudah mengunjungi blog saya.
Wassalamu’alaikum Wr. wb

Komentar

Posting Komentar

Postingan populer dari blog ini

Tutorial Membuat Program Dengan DEV C++

Gambar
Banyak Aplikasi untuk membuat suatu program berbasis C++ seperti halnya program Dev C++ yang merupakan salah satu aplikasi yang sering digunakan dalam pemrograman. Nah sekarang akan saya memberikan suatu sekrip dimana kita akan belajar mengunakan array dan if didalam Dev C++.  Sebelumnya kita Akan membuat Program untuk menginput atau memasukkan sebuah data dan setelah itu akan keluar hasil sebuah bilangan bulat yaitu : bisa bilangan ganjil dan juga bilangan genap dan tidak hanya itu setelah terdapat output hasilnya akan di saring atau ada bilangan tertentu yang tidak di tampilkan...... Ikuti perintah sayang harap anda simak dengan seksama ; Pertama jalankan program DEV C++ yang ada di komputer anda. Buat data baru dengan memilih File  =>  New  => Source New. Atau bisa dengan mengklik tombol CTRL+N pada keyboard secara bersama. Ketikkan scrip agar program yang kita inginkan. Setelah selesai menulis scrip Save Program . Dengan mengklik CTRL+S save dengan nama ter...
Baca selengkapnya

tugas uas aplikasi biodata siswa terkoneksi ke database access

Gambar
Nama : Suhendar Nim : 161021450501 Kelas : 06tple004/520 dalam membuat Apliaksi ini saya  menggunakan Visual Studio 2012. aplikasi ini di gunakan untuk mengisi biodata siswa agar mempermudah pekerjaan sekolah. karna jaman tekhnologi ini sekolahan harus sudah punya aplikasi ini. dan aplikasi ini Nim, Nama, Jenis kelamin, Tanggal Lahir, Phone, email, berikut saya lampirkan tulisan tangan saya di lembar kertas jawaban tentang aplikasi yang saya buat kemaren. Imports System.Data.OleDb Public Class tugas Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim koneksi As String = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\tugas\uas_Web2db.accdb” Dim objKoneksi As New OleDb.OleDbConnection(koneksi) Dim cmd As OleDbCommand = New OleDbCommand(“SELECT * FROM tbuser WHERE tbpass...
Baca selengkapnya