UAS SEM 3

Untuk tugas Ujian Akhir Semester 3 ini, saya membuat aplikasi tentang pemesanan coklat!
Berikut ini penjelasannya :

1. Masukkan kode barang, pilih coklat yang ingin dipesan dengan beberapa pilihan yang ada di ComboBox, kemudian pada textbox harga akan muncul harga sesuai dengan pilihan coklat yang dipesan. Isi qty sesuai yang diinginkan

2. Setelah mengisi data, klik OK kemudian akan muncul message box seperti gambar di atas

3. Data yang telah tertera juga dapat dihapus dengan meng-klik Clear, kemudian tampilannya akan seperti gambar ini

Dalam aplikasi ini, ditampilkan juga report untuk data barang dan data penjualan

 

 

 

 

 

 

 

 Database :

1. Tabel Barang

 

2. Tabel Penjualan

 

3. Query

 

Source Code :

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
    Dim a, b As String
    Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\NasyaSafina\Documents\Databasefix.mdb"
    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 TabelBarang values('" & TextBox1.Text & "','" & harga.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "')"
        Dim ocmd = New OleDbCommand(tambah, objkoneksi)
        ocmd.ExecuteNonQuery()
        MsgBox("Terimakasih atas pemesanannya!")
        objkoneksi.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        ComboBox1.Text = "-- None --"
        harga.Text = ""
        TextBox3.Text = ""

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Silverqueen" Then
            harga.Text = "15000"
        ElseIf ComboBox1.Text = "Cadburry" Then
            harga.Text = "17000"
        ElseIf ComboBox1.Text = "Toblerone" Then
            harga.Text = "20000"
        ElseIf ComboBox1.Text = "Kitkat" Then
            harga.Text = "13000"
        ElseIf ComboBox1.Text = "Fererro Rocher" Then
            harga.Text = "25000"
        End If
    End Sub

    Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
        objkoneksi.Close()
        objkoneksi.Open()

        Dim dell1 As String = "delete from TabelPenjualan where IDCustomer='" & TextBox1.Text & "'"
        Dim oCmd = New OleDbCommand(dell1, objkoneksi)
        oCmd.ExecuteNonQuery()
        objkoneksi.Close()
        MsgBox("Sukses")
    End Sub

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

    Private Sub DataPenjualanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataPenjualanToolStripMenuItem.Click
        Form3.Show()
    End Sub
End Class

uts sem3

 

  

 

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Dim a, b As String

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LARAS\TSI'14\Databasesitha.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 TablePemesanan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"

        Dim ocmd = New OleDbCommand(tambah, objkoneksi)

        ocmd.ExecuteNonQuery()

        MsgBox("Sukses")

        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

        TextBox6.Text = TextBox5.Text * TextBox7.Text

    End Sub

End Class

 

UAS LAB VB

 

Source Coding: 

Form1
Public Class Form1

    Private Sub BtnVisit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVisit.Click
        Form3.Show()
        Me.Hide()
    End Sub

    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        If TextBox1.Text = "ghassannim" And TextBox2.Text = "1406629433" Then
            Form2.Show()
            Me.Hide()
        ElseIf MsgBox("Incorrect username or password", MsgBoxStyle.Critical, "Warning!") Then
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox1.Focus()
        End If
    End Sub
End Class

Form2
Public Class Form2

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        Label5.Text = DateAndTime.Now
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim a As String

        a = ComboBox1.Text

        If a = "Provokasi Hitam" Then
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\Downloads\212667.jpg")
        ElseIf a = "Provokasi Abu-abu" Then
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\Downloads\212666.jpg")
        ElseIf a = "Spartan" Then
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\Downloads\KAOS SPARTAN DEPAN 1.jpg")
        End If
    End Sub


    Private Sub Form2_activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        On Error Resume Next
        Dim var3 As Object
        Dim var2 As Object
        Dim var1 As Object
        Dim noFile As Short
        noFile = FreeFile()
        FileOpen(noFile, "D:\Documents\MASYI\Visual Studio 2008\Projects\PROVOKshop\listbox.TXT", OpenMode.Input)
        Do While Not EOF(noFile)
            Input(1, var1)
            Input(1, var2)
            Input(1, var3)
            ListBox1.Items.Add(var1 & " " & var2 & " " & var3 & " ")
        Loop
        FileClose(noFile)
    End Sub

    Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        On Error Resume Next

        SaveFileDialog1.Filter = "Text File|*.txt|CSV File|*.CSV"
        SaveFileDialog1.DefaultExt = "*.txt"
        SaveFileDialog1.ShowDialog()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        MessageBox.Show("Total Pembelian Anda Rp 80.000. Terimakasih atas pemesanannya :)")
    End Sub
End Class

Form3
Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.Show()
        Me.Hide()

    End Sub
End Class

UTS Pemrograman Bisnis

KALKULATOR BANGUN DATAR

Kita dapat menghitung luas dan keliling bangun datar:
1. Persegi Panjang
2. Segitiga
3. Jajar Genjang

CLASS
Public Class Class1
    Public Function Lpersegipanjang(ByVal panjang As Integer, ByVal lebar As Integer)
        Lpersegipanjang = (panjang * lebar)
    End Function

    Public Function Kpersegipanjang(ByVal panjang As Integer, ByVal lebar As Integer)
        Kpersegipanjang = (2 * (panjang + lebar))
    End Function

    Public Function Lsegitiga(ByVal alas As Integer, ByVal tinggi As Integer)
        Lsegitiga = (alas * tinggi) / 2
    End Function

    Public Function Ksegitiga(ByVal sisi As Integer)
        Ksegitiga = (3 * sisi)
    End Function

    Public Function Ljajargenjang(ByVal alas As Integer, ByVal tinggi As Integer)
        Ljajargenjang = (alas * tinggi)
    End Function

    Public Function Kjajargenjang(ByVal sisiA As Integer, ByVal alas As Integer)
        Kjajargenjang = (2 * (sisiA + alas))
    End Function
End Class


SOURCE CODING
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Hide()
    End Sub
End Class

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Persegi Panjang" Then
            Form3.Show()
            Me.Hide()
        End If

        If ComboBox1.Text = "Segitiga" Then
            Form4.Show()
            Me.Hide()
        End If

        If ComboBox1.Text = "Jajar Genjang" Then
            Form5.Show()
            Me.Hide()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("Anda yakin ingin keluar?", "Kalkulator Bangun Datar", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        Close()
    End Sub
End Class

Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim objLpersegipanjang As New Class1
        Dim objKpersegipanjang As New Class1
        TextBox3.Text = objKpersegipanjang.Kpersegipanjang(TextBox1.Text, TextBox2.Text)
        TextBox4.Text = objLpersegipanjang.Lpersegipanjang(TextBox1.Text, TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form2.Show()
        Me.Hide()
    End Sub
End Class

Public Class Form4

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objLsegitiga As New Class1
        Dim objKsegitiga As New Class1
        TextBox3.Text = objKsegitiga.Ksegitiga(TextBox5.Text)
        TextBox4.Text = objLsegitiga.Lsegitiga(TextBox1.Text, TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()
        Me.Hide()
    End Sub
End Class

Public Class Form5

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim objLjajargenjang As New Class1
        Dim objKjajargenjang As New Class1
        TextBox3.Text = objKjajargenjang.Kjajargenjang(TextBox6.Text, TextBox1.Text)
        TextBox4.Text = objLjajargenjang.Ljajargenjang(TextBox1.Text, TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form2.Show()
        Me.Hide()
    End Sub

End Class