MULYANA HIDAYAT / UAS AUDIT IT

NAMA : MULYANA HIDAYAT
NIM    : 161011700028

PT. Kuai Kuai indo mobil adalah sebuah perusahaan penyedia kendaraan baik roda dua maupun roda empat yang terdiri dari berbagai merk yang di suplai oleh showroom-showroom yang ada di indonesia lalu dijual kembali kepada konsumen.
perusahaan ini berniat melakukan audit terhadap data yang ada.

pada kali ini database yang tersedia meliputi

- database kendaraan
- database konsumen
- database showroom

pada bagian ini terdapat beberapa kasus dan analisa data :

1. Mencari kendaraan dengan kategori merk honda dengan kategori tahun 2018

2. mencari jenis kendaraan roda empat yang memiliki stock lebih dari 2

3. mengaudit kendaraan roda dua bermerk SUZUKI dengan kategori tahun 2018

4. mengaudit data konsumen yang membeli motor vario

5. Mengaudit daftar showroom yang dimiliki oleh MULYANA

6. Mengaudit daftar kendaraan roda empat yang di suplai oleh showroom AUTONET

UTS AUDIT IT

assalamualaikum wr.wb

berikut adalah UTS AUDIT IT

NAMA : MULYANA HIDAYAT
NIM      : 161011700028

Deskripsi :
sebuah perusahaan ingin mengaudit bagian persedian stock pruduk  dan beberapa supplier

Kasus 1:  Menampilkan berapa produk yang memiliki stock kurang dari 10

Terdapat 12 produk yang memiliki stock dibawah 10


Kasus 2 : Mencari tau ada berapa produk yang blm masuk orderan / belum laku ?

Terdapat 60 produk yang blm masuk orderan / blm laku

Sedangkan ada 17 produk yang sudah masuk dalam orderan / sudah laku terjual


Kasus 3 : Menampilkan ada berapa produk yang masuk dalam kategori Beverages ?

Hasilnya terdapat 12 produk yang masuk dalam kategori Beverages.


Kasus 4 : Mencari berapa produk yang melakukan Re-order lebih dari 25 kali ? 

Hasil nya terdapat 8 Produk yang melakukan Re-order lebih dari 25 kali


Kasus 5 : Mencari produk apa saja yang termasuk dalam kategori Seafood yang du suplai oleh supplier Svensk Sjofoda AB ?

Hasil nya ada 3 produk yang termasuk dalam kategori Seafood yang di suplai oleh Svensk Sjofoda AB.


Terima kasih

UAS REKAYASA PERANGKAT LUNAK

Assalamualaikum wr.wb

Yth. Bapak Ir. Agus Suharto, M.kom

berikut saya jelaskan untuk aplikasi atau program yang telah saya buat untuk UAS

pertama-tama buat database di ms acces seperti ini :

setelah database dibuat, buat design di Visual studio 2012

setelah itu masukan source code nya :

Imports System.Data
Imports System.Data.OleDb



Public Class WebForm1
    Inherits System.Web.UI.Page

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\LATIHAN01\dbmobil_uas.accdb"
    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
    Dim xReader As OleDb.OleDbDataReader

    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:\LATIHAN01\dbmobil_uas.accdb"
        Dim objekKoneksi As New OleDbConnection(koneksi)
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO tabelmobil values ('" & kodemobil.Text & "','" & namamobil.Text & "','" & merk.Text & "','" & tahun.Text & "','" & jenis.Text & "','" & harga.Text & "')"
        Dim objCmd = New OleDbCommand(tambah, objekKoneksi)
        objCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("DATA BERHASIL DISIMPAN")

    End Sub



    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Response.Redirect("formtabelmobil.aspx")
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        kodemobil.Text = ""
        namamobil.Text = ""
        merk.Text = ""
        tahun.Text = ""
        jenis.Text = ""
        harga.Text = ""
     

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Not Len(kodebarangcari.Text) = 0 Then
            objekkoneksi.Close()
            objekkoneksi.Open()

            Dim ocmd As New OleDb.OleDbCommand(" SELECT * FROM tabelmobil where KODE_MOBIL='" + kodebarangcari.Text + "'", objekkoneksi)

            xReader = ocmd.ExecuteReader()
            If xReader.HasRows Then
                xReader.Read()
                kodemobil.Text = xReader("KODE_MOBIL")
                namamobil.Text = xReader("NAMA_MOBIL")
                merk.Text = xReader("MERK")
                tahun.Text = xReader("TAHUN_PEMBUATAN")
                jenis.Text = xReader("JENIS")
                harga.Text = xReader("HARGA")

            Else
                kodebarangcari.Text = "Mobil tidak ada"

                Exit Sub
            End If
        End If
    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Response.Redirect("transaksi.aspx")
    End Sub
End Class

==================================================================

untuk form transaksi source code nya sebagai berikut :

Imports System.Data
Imports System.Data.OleDb

Public Class transaksi
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\LATIHAN01\dbmobil_uas.accdb"
        Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim bil1, bil2, hasil As Integer

        bil1 = harga2.Text
        bil2 = qty.Text
        hasil = harga2.Text * qty.Text
        total.Text = hasil
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\LATIHAN01\dbmobil_uas.accdb"
        Dim objekKoneksi As New OleDbConnection(koneksi)
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO Transaksi values ('" & kodemobil2.Text & "','" & namamobil2.Text & "','" & merk2.Text & "','" & tahun2.Text & "','" & harga2.Text & "','" & qty.Text & "','" & total.Text & "')"
        Dim objCmd = New OleDbCommand(tambah, objekKoneksi)
        objCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("DATA BERHASIL DISIMPAN")

    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Response.Redirect("WebForm1.aspx")
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        kodemobil2.Text = ""
        namamobil2.Text = ""
        merk2.Text = ""
        tahun2.Text = ""
        qty.Text = ""
        harga2.Text = ""
        total.Text = ""
    End Sub
End Class

=================================================================

hasil nya bisa kita lihat sebagai berikut :

sekian untuk tugas uas saya terima kasih banyak :)

APLIKASI PENJUALAN MOBIL #UTSRPL

Assalamualaikum wr.wb
Yth Bapak Ir. Agus Suharto S.Koom, M.Kom

berikut saya jelaskan tentang project aplikasi penjualan mobil beserta laporan penjualan nya

pertama tama buka aplikasi visual studio-lalu klik new project dan pilih Windows form application

Setelah itu buat desain seperti gambar berikut :

setelah itu isi coding perhitungan nya dengan mengklik dua kali button HITUNG 

berikut source code nya :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim bil1, bil2, total, pajak, biaya As Double
        bil1 = TextBox3.Text
        bil2 = TextBox4.Text
        total = TextBox3.Text * TextBox4.Text
        TextBox5.Text = total

        pajak = TextBox5.Text * 10 / 100
        TextBox6.Text = pajak

        biaya = total + pajak

        TextBox7.Text = biaya

Selanjutnya membuat table di microsoft excel yang berfungsi untuk memindahkan data yang sudah dihitung ke microsoft excel dan juga sebagai laporan. berikut desain nya :

agar data hasil perhitungan bisa dipindah dan disimpan di excel masukan source code dengan mengklik dua kali button SIMPAN KE EXCEL. berikut source code nya :

Imports excel = Microsoft.Office.Interop.Excel

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim aplikasiexcel As New excel.Application
        Dim fileexcel As excel.Workbook

        fileexcel = aplikasiexcel.Workbooks.Open("E:\UTSMULYANA\UTSMULYANA.xlsx")

        aplikasiexcel.Range("A3").Value = TextBox1.Text
        aplikasiexcel.Range("B3").Value = TextBox2.Text
        aplikasiexcel.Range("C3").Value = TextBox3.Text
        aplikasiexcel.Range("D3").Value = TextBox4.Text
        aplikasiexcel.Range("E3").Value = TextBox5.Text
        aplikasiexcel.Range("F3").Value = TextBox6.Text
        aplikasiexcel.Range("G3").Value = TextBox7.Text

        fileexcel.SaveAs("E:\UTSMULYANA\UTSMULYANA.xlsx")
        MsgBox("SIMPAN KE EXCEL BERHASIL")
        aplikasiexcel.Visible = True

End Sub
End Class

Setelah itu aplikasi bisa kita jalankan atau run berikut hasil nya : 

masukan nominalnya

setelah semua nya dihitung klik button SIMPAN KE EXCEL untuk menyimpan data transaksinya sebagai laporan

setelah disimpan akan muncul otomatis di microsoft excel

 

Sekian untuk postingan saya sebagai tugas UTS Rekaya perangkat lunak, mohon maaf jika banyak kekurangan, Saya ucapkan terima kasih

Source all code :

Imports excel = Microsoft.Office.Interop.Excel


Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim bil1, bil2, total, pajak, biaya As Double
        bil1 = TextBox3.Text
        bil2 = TextBox4.Text
        total = TextBox3.Text * TextBox4.Text
        TextBox5.Text = total

        pajak = TextBox5.Text * 10 / 100
        TextBox6.Text = pajak

        biaya = total + pajak

        TextBox7.Text = biaya




    End Sub



    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim aplikasiexcel As New excel.Application
        Dim fileexcel As excel.Workbook

        fileexcel = aplikasiexcel.Workbooks.Open("E:\UTSMULYANA\UTSMULYANA.xlsx")

        aplikasiexcel.Range("A3").Value = TextBox1.Text
        aplikasiexcel.Range("B3").Value = TextBox2.Text
        aplikasiexcel.Range("C3").Value = TextBox3.Text
        aplikasiexcel.Range("D3").Value = TextBox4.Text
        aplikasiexcel.Range("E3").Value = TextBox5.Text
        aplikasiexcel.Range("F3").Value = TextBox6.Text
        aplikasiexcel.Range("G3").Value = TextBox7.Text




        fileexcel.SaveAs("E:\UTSMULYANA\UTSMULYANA.xlsx")
        MsgBox("SIMPAN KE EXCEL BERHASIL")
        aplikasiexcel.Visible = True





    End Sub
End Class
 

Motivasi belajar Sistem Informasi

Assalamualaikum Wr.Wb

Perkenalkan nama saya MULYANA HIDAYAT mahasiswa jurusan Sistem Informasi STMIK ERESHA disini saya akan memberikan penjelasan mengapa saya memilih sistem informasi, atau apa motivasi saya terhadap sistem informasi?

Sebelumnya saya ucapkan terima kasih kepada dosen favorit saya Bapak Mochamad Adhari Adiguna yang telah memberikan ilmu tentang sistem informasi, khusus nya dalam mata kuliah Teknologi Web.

Motivasi atau alasan saya memilih jurusan sistem informasi karena saya ingin menjadi programer. Selain itu di era globalisasi saat ini perkembangan teknologi sudah berkembang sangat pesat. Dimana semua kegiatan yang kita lakukan tidak lepas dari penggunaan teknologi komputer.

Pendidikan mengenai komputer sangatlah di perlukan. Oleh karena itu, saya memilih mengambil jurusan sistem informasi karena menurut saya bidang ini sangatlah berguna apabila saya sudah lulus nanti.

Di samping itu dalam jurusan sistem informasi yang sangat banyak di minati oleh para mahasiswa karena kita dapat belajar menganalisis sebuah data, bahkan membuat sebuah program.

Hal inilah yang membuat saya tertarik dalam mengambil jurusan ini. Selain karena dapat membuat program, komputer juga merupakan hobi saya. Belajar dari sesuatu yang merupakan hobi itu juga merupakan hal paling penting juga.

Komputer sangat berpengaruh dalam semua bidang misal : perbankan, bisnis dalam sebuah perusahaan membutuhkan teknologi internet yang juga tidak lepas dari komputer. Karenannya sebuah perusahaan membutuhkan para ahli komputer untuk mengembangkan perusahaan tersebut

Terima kasih :)