UAS Lab PB2

Penjelasan Program

program ini berguna untuk

1. memanipulasi data (add, find, update, delete)

2. melihat report

screenshoot

form1

form2

report

output report

sourcecode

Form1

Imports System.Data

Imports System.Data.OleDb

PublicClassForm1

Dim Koneksi AsString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\ \kuliah (akun tsi)\sm3\lab pb2\UAS\DBSessi6.accdb"

Dim objekKoneksi AsNew OleDb.OleDbConnection(Koneksi)

Private xReader AsOleDbDataReader

PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load

EndSub

PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click

Dim x AsString = InputBox("Masukan Kode Barang")

        objekKoneksi.Close()

        objekKoneksi.Open()

Dim ocmd AsNew OleDb.OleDbCommand("SELECT * FROM TableBarang where KodeBarang = '" + x + "'", objekKoneksi)

        xReader = ocmd.ExecuteReader

If xReader.HasRows Then

            xReader.Read()

            TextBox1.Text = xReader("KodeBarang")

            TextBox2.Text = xReader("NamaBarang")

            TextBox3.Text = xReader("Harga")

            TextBox4.Text = xReader("Satuan")

Else

            MsgBox("Kode Barang Tidak Ada")

Exit Sub

EndIf

        xReader.Close()

        objekKoneksi.Close()

EndSub

PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

Dim tambah AsString = "INSERT INTO TableBarang values ('"& TextBox1.Text &"', '"& TextBox2.Text &"', '"& TextBox3.Text &"', '"& TextBox4.Text &"')"

Dim oCmd = NewOleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        TextBox1.Focus()

EndSub

PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

Dim Upd1 AsString = "Update TableBarang set NamaBarang ='"& TextBox2.Text &"' where KodeBarang ='"& TextBox1.Text &"'"

 

Dim oCmd = NewOleDbCommand(Upd1, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

EndSub

PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

Dim dell1 AsString = "delete from TableBarang where KodeBarang='"& TextBox1.Text &"'"

Dim oCmd = NewOleDbCommand(dell1, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

EndSub

PrivateSub Button5_Click(sender AsObject, e AsEventArgs) Handles Button5.Click

Form2.Show()

EndSub

EndClass

UTS PB2

Penjelasan Project Aplikasi

Aplikasi ini menghubungkan input ke database yang ada di acces. Aplikasi ini bermanfaat untuk

1. menginput jika ada penambahan persediaan buku
2. melihat database buku

Perusahaan yang bergerak dibidang jual-beli buku sangat cocok menggunakan aplikasi ini.

ScreenShoot

 Form1

TextBox1 (No Kode)
TextBox4 (tanggal)
ComboBox1 (jenis Cover)
TextBox2 (stok)
TextBox3 (Harga Satuan)
Button1 (Add)
Button2 (preview)
Button3 (Exit)

Form2

Button1 (Delete)
Button2 (Save)

SourceCode

Form1

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class Form1
    Dim koneksi As Object = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Dany-PC\Documents\Database3.accdb"
    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

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

        Dim tambah As String = "INSERT INTO DbBuku values('" & TextBox1.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
        Dim oCmd = New OleDbCommand(tambah, objkoneksi)
        oCmd.ExecuteNonQuery()
        MsgBox("Success")
        objkoneksi.Close()
    End Sub

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

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

Form2

Public Class Form2

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database3DataSet2.DbBuku' table. You can move, or remove it, as needed.
        Me.DbBukuTableAdapter.Fill(Me.Database3DataSet2.DbBuku)

    End Sub

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

        DbBukuBindingSource.RemoveCurrent()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        On Error GoTo SaveErr
        DbBukuBindingSource.EndEdit()
        DbBukuTableAdapter.Update(Database3DataSet2.DbBuku)
        MessageBox.Show("OK Boss")
SaveErr:
        Exit Sub
    End Sub
End Class

 

UAS Lab Pemograman Bisnis

PENJELASAN PROGRAM

program ini bermanfaat bagi perusahaan kecil untuk mengestimasi keuntungan/kerugian per barang berdasarkan harga beli di database yang telah dibuat.

pengaplikasianya:
1. ketik estimasi harga jual
2. pilih jenis barang, maka akan mucul harga beli sebelom pajak (berdasarkan database) dan harga beli setelah pajak
3. klik proses, maka anda akan mengetahui apakah untung atau rugi

SCREENSHOOT

screenshoot design

screenshoot contoh hasil

SOURCE CODING

Public Class Form1
    Dim x As String
    Dim vgol As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim var4 As Object
        Dim var3 As Object
        Dim var2 As Object
        Dim var1 As Object

        Dim nofile As Short
        nofile = FreeFile()
        FileOpen(nofile, "F:\kuliah (akun tsi)\sm2\pemograman bisnis\uas\Book1.CSV", OpenMode.Input)

        Do While Not EOF(nofile)

            Input(1, var2)
            Input(1, var3)
            Input(1, var4)

            ListBox1.Items.Add(" kode " & var2 & " : " & var3 & " harga beli " & var4)
        Loop
        FileClose(nofile)

    End Sub

   
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        vgol = ComboBox1.Text
        Select Case vgol
            Case "polo"
                TextBox1.Text = "80000"
            Case "oblong"
                TextBox1.Text = "50000"
            Case "kemeja"
                TextBox1.Text = "100000"
            Case "jaket"
                TextBox1.Text = "150000"
        End Select

        vgol = ComboBox1.Text
        Select Case vgol
            Case "polo"
                TextBox4.Text = (TextBox1.Text * 10 / 100) + TextBox1.Text
            Case "oblong"
                TextBox4.Text = (TextBox1.Text * 10 / 100) + TextBox1.Text
            Case "kemeja"
                TextBox4.Text = (TextBox1.Text * 10 / 100) + TextBox1.Text
            Case "jaket"
                TextBox4.Text = (TextBox1.Text * 10 / 100) + TextBox1.Text
        End Select
    End Sub

   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Text = TextBox2.Text - TextBox4.Text
    End Sub
End Class

Tugas UTS : Penghitung luas

1. penjelasan program aplikasi

program ini berfungsi untuk menghitung luas segitiga, lingkaran, dan persegi. pertama pengguna diminta untuk memilih luas apa yang akan dihitung, kemudian pengguna memasukan inputnya sesuai yang dibutuhkan, misal

• jika pengguna memilih menghitung luas segitiga, maka pengguna diminta untuk memasukan alas dan tinggi
• jika pengguna memilih menghitung luas lingkaran, maka pengguna diminta untuk memasukan jari-jari
• jika pengguna memilih menghitung luas persegi, maka pengguna diminta untuk memasukan alas dan sisi

2. screenshoot

 

3. source code

source coding form

Public Class Form1
    Dim vgol As String
    Dim inputnya As New luas
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox2.Text = "(alas * tinggi) / 2" Then
            Dim alas As Integer = InputBox("masukan alas")
            Dim tinggi As Integer = InputBox("masukan tinggi")
            TextBox1.Text = (inputnya.konversi(alas) * inputnya.konversi(tinggi)) / 2
        ElseIf TextBox2.Text = "π * jari-jari^2" Then
            Dim jari As Integer = InputBox("masukan jari-jari")
            TextBox1.Text = inputnya.konversi(jari) ^ 2 * 22 / 7
        ElseIf TextBox2.Text = "sisi^2" Then
            Dim sisi As Integer = InputBox("masukan sisi")
            TextBox1.Text = inputnya.konversi(sisi) ^ 2
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        vgol = ComboBox1.Text
        Select Case vgol
            Case "luas segitiga"
                TextBox2.Text = "(alas * tinggi) / 2"
            Case "luas lingkaran"
                TextBox2.Text = "π * jari-jari^2"
            Case "luas persegi"
                TextBox2.Text = "sisi^2"
        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        inputnya.selesai()
    End Sub
End Class


source coding kelas

Public Class luas
    Dim alas, tinggi, jari, sisi As Integer

    Public Function konversi(ByVal karakter As Integer)

        konversi = StrConv(karakter, alas)
        konversi = StrConv(karakter, tinggi)
        konversi = StrConv(karakter, jari)
        konversi = StrConv(karakter, sisi)

    End Function
    Sub selesai()
        Dim x = MsgBox("Terimakasih. Anda yakin keluar? ", MsgBoxStyle.YesNo)
        If vbYes = x Then
            Form1.Close()
        ElseIf vbNo = x Then
            Form1.Show()


        End If

PENGECEK KADALUARSA KUE

1. Penjelasan Program Aplikasi

Program ini bertujuan untuk mengetahui kelayakan kue, apakah sudah kadaluarsa apakah masih aman dikonsumsi. Program ini cocok untuk toko kue yang cakupanya tidak besar. Berikut cara pengaplikasianya :

• pilih jenis kue yang ingin dicek, maka akan muncul berapa lama kue tersebut dapat bertahan

• setelah itu masukan tanggal produksi kue dan tanggal hari ini. Kemudian, klik tombol cek usia kue maka akan muncul usia kue tersebut

• Langkah selanjutnya adalah klik tombol cek kadaluarsa, maka akan muncul pesan apakah kue ini aman dikonsumsi atau sudah kadaluarsa

 

•  langkah terakhir, klik tombol clear untuk menghapus data-data yang ada

2. Screenshoot

bolu : RadioButton1
astor : RadioButton2
mayor : RadioButton3
risol : RadioButton4
pastel : RadioButton5
lemper : RadioButton6
masa kadaluarsa : textbox1
tgl produksi : textbox2
hari ini : textbox3
usia kue : textbox4
cek usia kue : button1
cek kadaluarsa : button2
clear : button3

3. source coding

Public Class Form1
    Dim a, x, y, z As Integer
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        a = 6
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        a = 2
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        a = 7
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        a = 14
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        a = 10
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
        a = 4
        TextBox1.Text = a
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x = TextBox2.Text
        y = TextBox3.Text
        z = y - x
        TextBox4.Text = z
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox4.Text > a Then
            MsgBox("kadaluarsa")
        Else
            MsgBox("aman dikonsumsi")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub
End Class