UAS Pemrograman Bisnis 2

Saya membuat aplikasi database Rental DVD.

Public Class Form1

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

        If TextBox1.Text = "Admin" Then

            TextBox2.Text = "admin"

            Form2.Show()

            Me.Hide()

        End If

    End Sub

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

        Me.Hide()

    End Sub

End Class

Imports System.Data

Imports System.Data.Sql

Imports System.Data.OleDb

Public Class Form2

    Dim connection As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Lukman Hakim\Documents\dhany.accdb"

    Dim objekkoneksi As New OleDb.OleDbConnection(connection)

    Dim xreader As OleDbDataReader

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

        objekkoneksi.Close()

        objekkoneksi.Open()

        Dim add As String = "INSERT INTO TableTransaksi values('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox5.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "', '" & TextBox4.Text & "')"

        Dim ocmd = New OleDbCommand(add, objekkoneksi)

        ocmd.ExecuteNonQuery()

        objekkoneksi.Close()

        MsgBox("Berhasil")

        Form3.Show()

    End Sub

End Class

UTS Pemrograman Bisnis 2

Form Pembelian

Design:























 buatlah variable harga barang dan harga kirim terlebih dahulu

Public Class Form1
    Public hrgbarang, hrgkirim As Integer

Lalu mulailah kodingnya:

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Select Case ComboBox1.Text
            Case "Kipas Angin"

                TextBox1.Text = "Rp. 50000"

                hrgbarang = 50000
            Case "Mesin Cuci"

                TextBox1.Text = "Rp. 80000"

                hrgbarang = 80000
            Case "Televisi"

                TextBox1.Text = "Rp. 120000"

                hrgbarang = 120000
        End Select
    End Sub

lalu untuk pengirimannya:

Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Select Case ComboBox2.Text
            Case "Jabodetabek"

                TextBox2.Text = "Rp. 15000"

                hrgkirim = 15000
            Case "Luar Jabodetabek"

                TextBox2.Text = "Rp. 25000"

                hrgkirim = 25000
        End Select
    End Sub

koding tombol "Hitung" :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim banyakbarang, total As Integer

        banyakbarang = TextBox3.Text

        total = (hrgbarang * banyakbarang) + hrgkirim

        TextBox4.Text = hrgbarang * banyakbarang
        TextBox4.Text = hrgkirim
        TextBox4.Text = "Rp" & total.ToString

    End Sub

untuk checkbox :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
 If CheckBox1.Enabled = False Then
            ComboBox2.Visible = False

        End If

        If CheckBox1.Enabled = True Then

            ComboBox2.Visible = True

            Label3.Visible = True

        End If
    End Sub

dan terakhir untuk tombol "Simpan" yang akan menyimpan data ke MS Excel:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MyExcelBook = excelApp.Workbooks.Open("D:\Pemesanan.xlsx")

        excelApp.Range("A2").Value = ComboBox1.Text
        excelApp.Range("B2").Value = ComboBox2.Text
        excelApp.Range("C2").Value = TextBox1.Text
        excelApp.Range("D2").Value = TextBox2.Text
        excelApp.Range("E2").Value = TextBox3.Text
        excelApp.Range("F2").Value = TextBox4.Text

        MyExcelBook.SaveAs("D:\Pemesanan.xlsx")

        excelApp.Visible = True

    End Sub
End Class

yang akan menampilkan seperti ini:








Terima Kasih

UAS Pemrograman Bisnis

Muhammad Dhany Arrozie
1506760952
Akuntansi TSI

Penghitung Nilai Mahasiswa

Design:

Disini kita akan menjumlahkan nilai dan menentukan mahasiswa tersebut lulus atau tidak

Sebagai contoh dalam program ini, keseluruhan nilai tugas akan ditambah dan dikali 25% (2.5/10), dan Absensi dikali 5% (0.5?10) .Nilai Uts dan Nilai Uas masing-masing diberi nilai 30% (3/10) dan 40%(4/10)

Lalu total nilai akan dihitung , bila nilai tersebut kurang dari 65 ,maka mahasiswa tersebut tidak lulus.

File Excel untuk data - datanya:

Source Code:

Public Class Form1

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

        TextTotal.Text = ((TextAbsen.Text) * 0.5 / 10 + ((TextTugas.Text) * 2.5 / 10) + ((TextUTS.Text) * 3 / 10) + ((TextUAS.Text) * 4 / 10)

        If TextTotal.Text >= 65 Then

            TextKeterangan.Text = "Lulus"

        Else  TextKeterangan.Text = "Tidak Lulus"

        End If

    End Sub

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

              Dim nilai8 As Object

        Dim nilai7 As Object

        Dim nilai6 As Object

        Dim nilai5 As Object

        Dim nilai4 As Object

        Dim nilai3 As Object

        Dim nilai2 As Object

        Dim nilai1 As Object

        Dim noFile As Short

        noFile = FreeFile()

        FileOpen(noFile, "D: \MHS.csv", OpenMode.Append)

        nilai1 = TextMahasiswa.Text

        nilai2 = TextNPM.Text

        nilai3 = TextAbsen.Text

        nilai4 = TextTugas.Text

        nilai5 = TextUTS.Text

        nilai6 = TextUAS.Text

        nilai7 = TextTotal.Text

        nilai8 = TextKeterangan.Text

        ListBox1.Items.Add(nilai1 & "---" & nilai2 & "---" & nilai3 & "---" & nilai4 & "--" & nilai5 & "---" & nilai6 & "---" & nilai7 & "---" & nilai8 & "---")

        WriteLine(1, nilai1, nilai2, nilai3, nilai4, nilai5, nilai 6)

        FileClose(1)

    End Sub

 

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

        Dim x = MsgBox("Anda Mau Keluar?", MsgBoxStyle.YesNo +MsgBoxStyle.Question, "Konfirmasi")

        If x = vbYes Then

            Me.Close()

        End If

    End Sub

End Class

UTS Pemrograman Bisnis

Nama : Muhammad Dhany Arrozie
NPM  : 1506760952

UTS Pemograman Bisnis

Program Aplikasi Nilai Murid

Form:


Kode:
   Public Class Form1

    Private Sub TextUH3_TextChanged(sender As Object, e As EventArgs) Handles TextUH3.TextChanged
        TextTotalUH.Text = (Val(TextUH1.Text) + Val(TextUH2.Text) + Val(TextUH3.Text)) / 4
    End Sub

    Private Sub TextTugas4_TextChanged(sender As Object, e As EventArgs) Handles TextTugas4.TextChanged
        TextTugasTotal.Text = (Val(TextTugas1.Text) + Val(TextTugas2.Text) + Val(TextTugas3.Text) + Val(TextTugas4.Text)) / 3
        On Error Resume Next

    End Sub

    Private Sub TextUAS_TextChanged(sender As Object, e As EventArgs) Handles TextUAS.TextChanged
        TextNakhir.Text = (Val(TextTotalUH.Text)) * 0.3 + (Val(TextTugasTotal.Text)) * 0.2 + (Val(TextUTS.Text)) * 0.2 + (Val(TextUAS.Text)) * 0.3
    End Sub

    Private Sub TextNakhir_TextChanged(sender As Object, e As EventArgs) Handles TextNakhir.TextChanged
        If TextNakhir.Text >= 80 Then
            TextKeterangan.Text = "A"
        ElseIf TextNakhir.Text >= 70 Then
            TextKeterangan.Text = "B"
        ElseIf TextNakhir.Text >= 60 Then
            TextKeterangan.Text = "C"
        ElseIf TextNakhir.Text >= 50 Then
            TextKeterangan.Text = "D"
        Else : TextKeterangan.Text = "E"

        End If
    End Sub
End Class

Microsoft Excel

Pengertian

Microsoft Excel atau Microsoft Office Excel adalah sebuah progra aplikasi lembar kerja spreadsheet yang dibuat dan didistribusikan oleh Microsoft Corporation yang dapat dijalankan pada Microsoft Windows dan Mac OS. Aplikasi ini memiliki fitur kalkulasi dan pembuatan grafik yang, dengan menggunakan strategi marketing Microsoft yang agresif, menjadikan Microsoft Excel sebagai salah satu program komputer yang populer digunakan di dalam komputer mikro hingga saat ini. Bahkan, saat ini program ini merupakan program spreadsheet paling banyak digunakan oleh banyak pihak, baik di platformPC berbasis Windows maupun platform Macintosh berbasis Mac OS, semenjak versi 5.0 diterbitkan pada tahun 1993. Aplikasi ini merupakan bagian dari Microsoft Office System, dan versi terakhir adalah versi Microsoft Office Excel 2013 yang diintegrasikan di dalam paket Microsoft Office System 2013.

Sejarah Microsoft Excel

Pada tahun [[1982]], Microsoft membuat sebuah program spreadsheet yang disebut dengan [Multiplan], yang sangat populer dalam [sistem operasi|sistem-sistem] CP/M, tapi tidak dalam sistem MS-DOS mengingat di sana sudah berdiri saingannya, yakni Lotus 1-2-3. Hal ini membuat Microsoft memulai pengembangan sebuah program spreadsheet yang baru yang disebut dengan Excel, dengan tujuan, seperti yang dikatakan oleh Doug Klunder, "do everything 1-2-3 does and do it better/melakukan apa yang dilakukan oleh 1-2-3 dan lebih baik lagi".

Versi pertama Excel dirilis untuk Macintosh pada tahun 1985 dan versi Windows-nya menyusul (dinomori versi 2.0) padaNovember 1987. Lotus ternyata terlambat turun ke pasar program spreadsheet untuk Windows, dan pada tahun tersebut, Lotus 1-2-3 masih berbasis MS-DOS. Pada tahun 1988, Excel pun mulai menggeser 1-2-3 dalam pangsa pasar programspreadsheet dan menjadikan Microsoft sebagai salah satu perusahaan pengembang aplikasi perangkat lunak untuk komputer pribadi yang andal. Prestasi ini mengukuhkan Microsoft sebagai kompetitor yang sangat kuat bagi 1-2-3 dan bahkan mereka mengembangkannya lebih baik lagi. Microsoft, dengan menggunakan keunggulannya, rata-rata merilis versi Excel baru setiap dua tahun sekali, dan versi Excel untuk Windows terakhir adalah Microsoft Office Excel 2010 (Excel 14), sementara untuk Macintosh (Mac OS X), versi terakhirnya adalah Excel for Mac.

Pada awal-awal peluncurannya, Excel menjadi sasaran tuntutan perusahaan lainnya yang bergerak dalam bidang industri finansial yang telah menjual sebuah perangkat lunak yang juga memiliki nama Excel. Akhirnya, Microsoft pun mengakhiri tuntutan tersebut dengan kekalahan dan Microsoft harus mengubah nama Excel menjadi "Microsoft Excel" dalam semua rilis pers dan dokumenMicrosoft. Meskipun demikian, dalam prakteknya, hal ini diabaikan dan bahkan Microsoft membeli Excel dari perusahaan yang sebelumnya menuntut mereka, sehingga penggunaan nama Excel saja tidak akan membawa masalah lagi. Microsoft juga sering menggunakan huruf XL sebagai singkatan untuk program tersebut, yang meskipun tidak umum lagi, ikon yang digunakan oleh program tersebut masih terdiri atas dua huruf tersebut (meski diberi beberapa gaya penulisan). Selain itu, ekstensi default darispreadsheet yang dibuat oleh Microsoft Excel hingga versi 11.0 (Excel 2003) adalah *.xls sedangkan mulai Microsoft Office Excel 2007 (versi 12.0) ekstensi default-nya adalah *.xlsx yang mendukung format HTML namun dengan isi yang sama memiliki ukuran file yang lebih kecil jika dibandingkan dengan versi-versi Excel sebelumnya.

Excel menawarkan banyak keunggulan antar muka jika dibandingkan dengan program spreadsheet yang mendahuluinya, tapi esensinya masih sama dengan VisiCalc (perangkat lunak spreadsheet yang terkenal pertama kali): Sel disusun dalam baris dan kolom, serta mengandung data atau formula dengan berisi referensi absolut atau referensi relatif terhadap sel lainnya.

Excel merupakan program spreadsheet pertama yang mengizinkan pengguna untuk mendefinisikan bagaimana tampilan darispreadsheet yang mereka sunting: font, atribut karakter, dan tampilan setiap sel. Excel juga menawarkan penghitungan kembali terhadap sel-sel secara cerdas, di mana hanya sel yang berkaitan dengan sel tersebut saja yang akan diperbarui nilanya (di mana program-program spreadsheet lainnya akan menghitung ulang keseluruhan data atau menunggu perintah khusus dari pengguna). Selain itu, Excel juga menawarkan fitur pengolahan grafik yang sangat baik.

Ketika pertama kali dibundel ke dalam Microsoft Office pada tahun 1993, Microsoft pun mendesain ulang tampilan antar muka yang digunakan oleh Microsoft Word dan Microsoft PowerPoint untuk mencocokkan dengan tampilan Microsoft Excel, yang pada waktu itu menjadi aplikasi spreadsheet yang paling disukai.

Sejak tahun 1993, Excel telah memiliki bahasa pemrograman Visual Basic for Applications (VBA), yang dapat menambahkan kemampuan Excel untuk melakukan automatisasi di dalam Excel dan juga menambahkan fungsi-fungsi yang dapat didefinisikan oleh pengguna (user-defined functions/UDF) untuk digunakan di dalam worksheet. Dalam versi selanjutnya, bahkan Microsoft menambahkan sebuah integrated development environment (IDE) untuk bahasa VBA untuk Excel, sehingga memudahkan programmer untuk melakukan pembuatan program buatannya. Selain itu, Excel juga dapat merekam semua yang dilakukan oleh pengguna untuk menjadi [macro], sehingga mampu melakukan automatisasi beberapa tugas. VBA juga mengizinkan pembuatan form dan kontrol yang terdapat di dalam worksheet untuk dapat berkomunikasi dengan penggunanya. Bahasa VBA juga mendukung penggunaan DLL ActiveX/COM, meski tidak dapat membuatnya. Versi VBA selanjutnya menambahkan dukungan terhadap [class module] sehingga mengizinkan penggunaan teknik pemrograman berorientasi objek dalam VBA

Fungsi automatisasi yang disediakan oleh VBA menjadikan Excel sebagai sebuah target virus-virus macro. Ini merupakan problem yang sangat serius dalam dunia korporasi hingga para pembuat antivirus mulai menambahkan dukungan untuk mendeteksi dan membersihkan virus-virus macro dari berkas Excel. Akhirnya, meski terlambat, Microsoft juga mengintegrasikan fungsi untuk mencegah penyalahgunaan macro dengan menonaktifkan macro secara keseluruhan, atau menngaktifkan macro ketika mengaktifkan workbook, atau mempercayai macro yang dienkripsi dengan menggunakan sertifikat digital yang tepercaya.

Versi

Tahun	Versi Excel	Sistem operasi	Versi Microsoft Office
1985	Excel 1.0	Apple Macintosh klasik	Tidak ada Microsoft Office
1987	Excel 2.0 for Windows	Microsoft Windows 2.0	Tidak ada Microsoft Office
1988	Excel 1.5	Apple Macintosh klasik	Tidak ada Microsoft Office
1989	Excel 2.2	Apple Macintosh klasik	Tidak ada Microsoft Office
1989	Excel 2.2	IBM OS/2	Tidak ada Microsoft Office
1990	Excel 3.0	Microsoft Windows 3.0	Tidak ada Microsoft Office
1990	Excel 3.0	Apple Macintosh	Tidak ada Microsoft Office
1991	Excel 3.0	IBM OS/2	Tidak ada Microsoft Office
1992	Excel 4.0	Microsoft Windows 3.0 dan Windows 3.1	Tidak ada Microsoft Office
1992	Excel 4.0	Apple Macintosh	Tidak ada Microsoft Office
1993	Excel 5.0	Windows 3.0, Windows 3.1, Windows 3.11, Windows for Workgroups, dan Windows NT (hanya versi 32-bit)	Microsoft Office 4.2 dan Office 4.3
1993	Excel 5.0	Apple Macintosh	Tidak ada Microsoft Office
1995	Excel 7 for Windows 95	Windows 95 dan Windows NT 3.1/3.50	Microsoft Office 95
1997	Excel 97 (Excel 8)	Windows 95, Windows NT 3.51/Windows NT 4.0	Microsoft Office 97
1998	Excel 8.0	Apple Macintosh	Microsoft Office '98 for Macintosh
1999	Excel 2000 (Excel 9)	Windows 98, Windows Me, Windows 2000	Microsoft Office 2000
2000	Excel 9.0	Apple Macintosh	Microsoft Office 2001 for Macintosh
2001	Excel 2002 (Excel 10)	Windows 98, Windows Me, Windows 2000, Windows XP	Microsoft Office XP
2001	Excel 10.0	Apple Macintosh OS X	Microsoft Office v. X
2003	Excel 2003 (Excel 11)	Windows 2000 (Service Pack 3), Windows XP, Windows Server 2003, Windows Vista, Windows Server 2008	Microsoft Office System 2003
2004	Excel 11.0	Apple Macintosh OS X	Microsoft Office 2004 for Macintosh
2007	Excel 2007 (Excel 12)	Microsoft Windows XP (dengan Service Pack 2 atau lebih tinggi), Windows Server 2003 (Service Pack 1), Windows Vista, serta Windows Server 2008.	Microsoft Office System 2007
2010	Excel 2010 (Excel 14)	Windows 7 Windows Vista (dengan Service Pack 2), Microsoft Windows XP, Windows Server 2008, Windows Server 2008 R2, dan Windows 8	Microsoft Office 2010
2013	Excel 2013 (Excel 15)	Windows 7 Windows Server 2008 R2 Windows Server 2012, dan Windows 8	Microsoft Office 2013 & Office 365

sumber: https://id.wikipedia.org/wiki/Microsoft_Excel