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