tugas uts pemprograman
Nama : Budi Hartono
Nim : 161021450534
Kelas : 520
Microsoft Visual Studio by
merupakan sebuah perangkat lunak lengkap
(suite) yang dapat digunakan untuk melakukan pengembangan aplikasi, baik
itu aplikasi bisnis, aplikasi personal, ataupun komponen aplikasinya, dalam
bentuk aplikasi console, aplikasi Windows, ataupun aplikasi Web. Visual Studio
mencakup kompiler, SDK, Integrated Development Environment (IDE), dan
dokumentasi (umumnya berupa MSDN Library). Kompiler yang dimasukkan ke
dalam paket Visual Studio antara lain Visual C++, Visual C#, Visual Basic, Visual Basic .NET, Visual InterDev, Visual J++, Visual J#, Visual FoxPro,
dan Visual SourceSafe.
Microsoft Visual Studio dapat digunakan untuk mengembangkan
aplikasi dalam native code (dalam bentuk bahasa mesin yang
berjalan di atas Windows) ataupun managed code
Membuat aplikasi input nama obat menggunakan visual studio
1.
Buat desian terlebih dahulu di visual studio
seperti dibawah ini
Gamabar di atas mengguna seperti:
1.
Label
2.
Textbox
3.
Button
2.
Jika sudah dibuat, silahkan buat data file di
word dan di exce
3.
Jika sudah silahkan double klik button excelnya
dan masukan codingan dibawah ini:
ProtectedSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
Dim aplikasiexcel AsNew excel.Application
Dim fileExcelnya As excel.Workbook
fileExcelnya =
aplikasiexcel.Workbooks.Open("D:\budi_.xlsx")
aplikasiexcel.Range("A2").Value = TextBox1.Text
aplikasiexcel.Range("B2").Value = TextBox2.Text
aplikasiexcel.Range("C2").Value = TextBox3.Text
aplikasiexcel.Range("D2").Value = TextBox4.Text
aplikasiexcel.Range("E2").Value = TextBox5.Text
fileExcelnya.SaveAs("D:\budi_.xlxs")
MsgBox("Sukses")
aplikasiexcel.Visible = True
EndSub
4.
Jika sudah lanjut ke button wordnhya
codingannya ada dibawah:
ProtectedSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim Aplikasi AsNew word.Application
Dim Dokumen As word.Document
Dokumen = Aplikasi.Documents.Open("D:\budi_.docx")
Dokumen.Bookmarks("NObat").Select()
Aplikasi.Selection.TypeText(TextBox1.Text.ToString)
Dokumen.Bookmarks("NPP").Select()
Aplikasi.Selection.TypeText(TextBox2.Text.ToString)
Dokumen.Bookmarks("JO").Select()
Aplikasi.Selection.TypeText(TextBox3.Text.ToString)
Dokumen.Bookmarks("TP").Select()
Aplikasi.Selection.TypeText(TextBox4.Text.ToString)
Dokumen.Bookmarks("TMB").Select()
Aplikasi.Selection.TypeText(TextBox5.Text.ToString)
Dokumen.SaveAs2("D:\budi_.docx")
MsgBox("Sukses")
Aplikasi.Visible = True
EndSub
5.
Jika sudah maka jalankan aplikasi tersebut
dengan cara klik ctrl+shift+w, maka akan muncul gambar seperti dibawah ini:
6.
Jika sudah silahkan isi datanya lalu klik
simpan ke word dank e excel
7.
Jika sudah tersimpan akan muncul gambar
dibawah ini lalu klik OK
8.
Hasil save ke excel
9.
Untuk ke word hamper sama seperti pada excel
hanya saja tampilan hasilnya saja yang berbeda, cseperti berikut
10.
Berikut codingan fullnya
Imports excel =
Microsoft.Office.Interop.Excel
Imports word =
Microsoft.Office.Interop.Word
Imports System.Data
Imports System.Data.OleDb
PublicClassInput_Data_Obat
Inherits System.Web.UI.Page
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
EndSub
ProtectedSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
Dim aplikasiexcel AsNew excel.Application
Dim fileExcelnya As excel.Workbook
fileExcelnya =
aplikasiexcel.Workbooks.Open("D:\budi_.xlsx")
aplikasiexcel.Range("A2").Value = TextBox1.Text
aplikasiexcel.Range("B2").Value = TextBox2.Text
aplikasiexcel.Range("C2").Value = TextBox3.Text
aplikasiexcel.Range("D2").Value = TextBox4.Text
aplikasiexcel.Range("E2").Value = TextBox5.Text
fileExcelnya.SaveAs("D:\budi_.xlxs")
MsgBox("Sukses")
aplikasiexcel.Visible = True
EndSub
ProtectedSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim Aplikasi AsNew word.Application
Dim Dokumen As word.Document
Dokumen = Aplikasi.Documents.Open("D:\budi_.docx")
Dokumen.Bookmarks("NObat").Select()
Aplikasi.Selection.TypeText(TextBox1.Text.ToString)
Dokumen.Bookmarks("NPP").Select()
Aplikasi.Selection.TypeText(TextBox2.Text.ToString)
Dokumen.Bookmarks("JO").Select()
Aplikasi.Selection.TypeText(TextBox3.Text.ToString)
Dokumen.Bookmarks("TP").Select()
Aplikasi.Selection.TypeText(TextBox4.Text.ToString)
Dokumen.Bookmarks("TMB").Select()
Aplikasi.Selection.TypeText(TextBox5.Text.ToString)
Dokumen.SaveAs2("D:\budi_.docx")
MsgBox("Sukses")
Aplikasi.Visible = True
EndSub
EndClass
Komentar
Posting Komentar