UAS LAB. PEMROGRAMAN BISNIS 2
Nama : Aqila Qonita
NPM : 1506715923
Aplikasi ini dibuat untuk menghubungkan Ms. Access dengan Visual Studio.
Program yang saya buat terkait pembelian tiket konser.
Data-data nya adalah:
1. Kode Tiket
2. Jenis Tiket (VVIP, VIP, Early Entry)
3. Jumlah Tiket (Maksimal paling banyak pembelian 3 tiket)
4. Harga Tiket
Coding :
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
Dim Koneksi As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\LENOVO\Desktop\UAS LAB DATABASE AQILA_BENERR\DataBaseAqila1.mdb"
Dim ObjekKoneksi As New OleDb.OleDbConnection(Koneksi)
Dim xReader As OleDbDataReader
Private Sub ButtonAdd_Click(sender As Object, e As EventArgs) Handles ButtonAdd.Click
If ButtonAdd.Text = "Add" Then
TextKode.Text = ""
TextJenis.Text = ""
TextHarga.Text = ""
CmbJumlah.SelectedIndex = -1
ButtonAdd.Text = "Save"
TextKode.Focus()
Else
ObjekKoneksi.Open()
Dim Tambah As String = "INSERT INTO TableTKT values('" & TextKode.Text & "','" & TextJenis.Text & "','" & CmbJumlah.Text & "','" & TextHarga.Text & "')"
Dim CMD = New OleDbCommand(Tambah, ObjekKoneksi)
CMD.ExecuteNonQuery()
ObjekKoneksi.Close()
MsgBox("Sukses!")
End If
End Sub
Private Sub ButtonClose_Click(sender As Object, e As EventArgs) Handles ButtonClose.Click
Me.Close()
End Sub
Private Sub ButtonView_Click(sender As Object, e As EventArgs) Handles ButtonView.Click
Form2.Show()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub ButtonFind_Click(sender As Object, e As EventArgs) Handles ButtonFind.Click
Dim Kode As String = InputBox("Masukkan Kode Tiket")
If Not Len(Kode) = 0 Then
ObjekKoneksi.Close()
ObjekKoneksi.Open()
Dim Cari As String = "SELECT * FROM TableTKT where KodeTiket = '" + Kode + "'"
Dim oCMD = New OleDbCommand(Cari, ObjekKoneksi)
xReader = oCMD.ExecuteReader
If xReader.HasRows Then
xReader.Read()
TextKode.Text = xReader("KodeTiket")
TextJenis.Text = xReader("JenisTiket")
TextHarga.Text = xReader("Harga")
CmbJumlah.Text = xReader("Jumlah")
Else
MsgBox("Jenis Tiket " + Kode + " Tidak ada")
Exit Sub
End If
xReader.Close()
End If
ObjekKoneksi.Close()
End Sub
Private Sub ButtonEdit_Click(sender As Object, e As EventArgs) Handles ButtonEdit.Click
ObjekKoneksi.Close()
ObjekKoneksi.Open()
Dim Ubah As String = "update TableTKT set JenisTiket = '" & TextJenis.Text & "' where KodeTiket = '" & TextKode.Text & "' "
Dim oCMD = New OleDbCommand(Ubah, ObjekKoneksi)
oCMD.ExecuteNonQuery()
ObjekKoneksi.Close()
MsgBox("Sukses")
End Sub
End Class
Hasil
aqila's blog
Thursday, December 15, 2016
Thursday, November 17, 2016
Word and Excel Automation - VB.NET
Word and Excel Automation
Aqila Qonita
1506715923
Akuntansi TSI A
Vokasi UI
Lab. Pemrograman Bisnis 2
Program Automasi Data Pasien
1. Penjelasan Program Aplikasi
Program yang saya buat adalah program automasi dari VB ke MS. Word dan MS. Excel. Saya membuat form pada VB dengan judul Appointment Form. Pendaftar yang akan mengisikan data diri untuk membuat janji dengan dokter di RS Siloam Semanggi. Data-data yang harus diinput pada Form Pendaftar adalah:
Patient's Name
Patient's Gender
Patient's Medical Record Number
Docter's Speciality
Doctor's Name
Date and Time
Phone Number
Jika semua data sudah diinput, ketika kita meng-klik “Save". maka semua data akan tersimpan di Ms.Excel. Jika kita ingin mencetak data tersebut, maka kita klik “Print Form” maka semua data akan meng-automasi dari VB.NET ke Ms.Word dan kita bisa langsung mencetaknya. Jika kita meng-klik “New Form”, maka semua data yang sudah kita tulis sebelumnya akan hilang dan kita bisa menulis lagi dari awal (Patient's Name). Jika kita meng-klik “Close”, maka form tersebut secara otomatis akan tertutup.
2. Screen Shoot
3. Source Code
Imports Microsoft.Office.Interop
Public Class form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CBspec.Items.Add("Internist")
CBspec.Items.Add("Neurologist")
CBspec.Items.Add("Dentist")
CBdoctor.Items.Add("Dr.Budi")
CBdoctor.Items.Add("Dr.Gunawan")
End Sub
Private Sub Btnclose_Click(sender As Object, e As EventArgs) Handles Btnclose.Click
Me.Close()
End Sub
Private Sub Btnsave_Click(sender As Object, e As EventArgs) Handles Btnsave.Click
Dim app As New Excel.Application
Dim book As Excel.Workbook
Dim row As Long
Dim sheet As Excel.Worksheet
book = app.Workbooks.Open("C:\Users\LENOVO\Documents\semester 3\Book1.xlsx")
sheet = book.Sheets("Sheet1")
row = sheet.Range("A" & sheet.Rows.Count).End(Excel.XlDirection.xlUp).Row
app.Range("A1").Value = "Patient's Name"
app.Range("B1").Value = "Patient's Gender"
app.Range("C1").Value = "Patient's Medical Record Number"
app.Range("D1").Value = "Doctor's Speciality"
app.Range("E1").Value = "Doctor's Name"
app.Range("F1").Value = "Date and Time"
app.Range("G1").Value = "Phone Number"
app.Range("A" & row + 1).Value = txtname.Text
If RBFemale.Checked Then
app.Range("B" & row + 1).Value = RBFemale.Text
End If
If RBmale.Checked Then
app.Range("E" & row + 1).Value = RBmale.Text
End If
app.Range("C" & row + 1).Value = txtnumber.Text
app.Range("D" & row + 1).Value = CBspec.Text
app.Range("E" & row + 1).Value = CBdoctor.Text
app.Range("F" & row + 1).Value = DateTimePicker1.Text
app.Range("G" & row + 1).Value = txtphone.Text
book.Save()
End Sub
Private Sub Btnprint_Click(sender As Object, e As EventArgs) Handles Btnprint.Click
Dim mywordapp As New Word.Application
Dim myworddoc As New Word.Document
myworddoc = mywordapp.Documents.Open("C:\Users\LENOVO\Documents\semester 3\Data.docx")
myworddoc.Bookmarks("name").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(txtname.Text)
myworddoc = mywordapp.Documents.Open("C:\Users\LENOVO\Documents\semester 3\Data.docx")
myworddoc.Bookmarks("gender").Select()
If RBFemale.Checked Then
mywordapp.Selection.TypeText(RBFemale.Text)
End If
If RBmale.Checked Then
mywordapp.Selection.TypeText(RBmale.Text)
End If
myworddoc = mywordapp.Documents.Open("C:\Users\LENOVO\Documents\semester 3\Data.docx")
myworddoc.Bookmarks("number").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(txtnumber.Text)
myworddoc = mywordapp.Documents.Open("C:\Users\LENOVO\Documents\semester 3\Data.docx")
myworddoc.Bookmarks("Doctor_spec").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(CBspec.Text)
myworddoc = mywordapp.Documents.Open("C:\Users\LENOVO\Documents\semester 3\Data.docx")
myworddoc.Bookmarks("Doctor_name").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(CBdoctor.Text)
myworddoc = mywordapp.Documents.Open("C:\Users\LENOVO\Documents\semester 3\Data.docx")
myworddoc.Bookmarks("Date_time").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(DateTimePicker1.Text)
myworddoc = mywordapp.Documents.Open("C:\Users\LENOVO\Documents\semester 3\Data.docx")
myworddoc.Bookmarks("Phone").Select()
mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
mywordapp.Selection.Font.Name = "Times New Roman"
mywordapp.Selection.Font.Size = 14
mywordapp.Selection.TypeText(txtphone.Text)
myworddoc.SaveAs("C:\Users\LENOVO\Documents\semester 3\Data.docx")
mywordapp.Visible = True
End Sub
Private Sub Btnnew_Click_1(sender As Object, e As EventArgs) Handles Btnnew.Click
Me.txtname.Text = ""
Me.txtnumber.Text = ""
Me.CBspec.Text = ""
Me.CBdoctor.Text = ""
Me.DateTimePicker1.Text = ""
Me.txtphone.Text = ""
Me.txtname.Focus()
End Sub
End Class
Thankyou :)
Sunday, June 12, 2016
UJIAN AKHIR SEMESTER KONSEP PEMROGRAMAN
UJIAN AKHIR SEMESTER KONSEP PEMROGRAMAN
NAma: Aqila Qonita
NPM: 1506715923
Program ini dibuat dengan menggunakan bahasa C++ melalui visual studio. Program ini dibuat untuk menampilkan tampilan jasa pengiriman barang TIKI. Dengan menggunakan class, do-while dan if.
Berikut merupakan codingannya:
// aqilakp2.cpp : Defines the
entry point for the console application.
//
#include "stdafx.h"
#include <iostream>
class pengiriman {
public:
int TOTAL(int uang, int hargabarang)
{
int
TOTAL = uang - hargabarang;
return
TOTAL;
}
}operasitotal;
using namespace std;
struct AqilaQonita
{
char namapenerima[50];
int nopenerima;
char alamat[100];
char jenisbarang[50];
char namapengirim[50];
int jenispaket;
int nopengirim;
int hargabarang;
}tiki;
int _tmain(int argc, _TCHAR* argv[])
{
cout <<
"
*****************JASA PENGIRIMAN BARANG TIKI*****************";
cout <<
endl;
cout <<
"Nama
Penerima : ";
cin >>
tiki.namapenerima;
cout <<
"Nomor
Handphone Penerima: ";
cin >>
tiki.nopenerima;
cout <<
"Alamat
Penerima: ";
cin >>
tiki.alamat;
cout <<
"Jenis
Barang: ";
cin >>
tiki.jenisbarang;
cout <<
"Nama
Pengirim: ";
cin >>
tiki.namapengirim;
cout <<
"Nomor
Handphone Pengirim: ";
cin >>
tiki.nopengirim;
cout <<
"KETERANGAN:
PILIHAN 1 UNTUK REG, 2 UNTUK YES";
cout <<
endl;
int b;
do
{
cout << "masukkan kode paket yang anda pilih: ";
cin >> b;
cout << "anda memilih paket : " <<b;
cout << endl;
} while
(b != 1 & 2);
cout <<
endl;
if (b <= 1)
{
cout << "Maka paket yang anda pilih adalah : "; cout << "paket reguler";
cout << endl;
}
else if (b <= 2)
{
cout << "Maka paket yang anda pilih adalah : "; cout << "paket yes";
cout << endl;
}
if (tiki.jenispaket = 1)
{
tiki.hargabarang = 9000;
cout << "harga = 9000";
cout << endl;
}
else if(tiki.jenispaket = 2){
cout << "harga = 19000";
cout << endl;
tiki.hargabarang = 19000;
}
int uang, kembali;
cout <<
"Total harga:
"
<< tiki.hargabarang << endl;
cout <<
"Masukkan
jumlah uang: ";
cin >>
uang;
kembali = uang - tiki.hargabarang;
cout <<
"Kembalian:
"
<< kembali << endl;
return 0;
}
berikut merupakan hasil dari codingan:
Subscribe to:
Posts (Atom)