Tugas UAS PEMROGRAMAN I

TUGAS UAS

Aplikasi Data Mahasiswa 

Deskripsi Program:

Apikasi data mahasiswa ini adalah program yang dibuat untuk mencari data mahasiswa, mahasiswa yang sudah disimpan didalam database.

Program ini berkorelasi dengan database pada microsoft access ke aplikasi data mahasiswa tadi,

Program ini dibuat untuk memudahkan pencarian data nama, kelas dll, pada mahasiswa yang jumlahnya sangat banyak disetiap Kampus. 

Program ini memiliki beberapa button diantaranya adalah 

Add, save, Serach, Show 

Berikut adalah contoh program  yang saya buat 

Untuk mencari data yang diinginkan pengguna harus tau NIM dari mahasiswa jika NIM sudah diisi, maka Klik button search lalu aplikasi akan menampilkan data lengkap mahasiswa.

 data yang akan yang sudah disave akan tersimpan pada database berikut.

ini adalah hasil dari run database.

Desain Pada VB.

Kemudian Source Code dari Program 

 Source Code InputForm Mahasiswa_161011400168

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

Partial Class WebForm1
    Inherits System.Web.UI.Page
    Dim transfer As OleDbConnection
    Dim constring As String = ConfigurationManager.ConnectionStrings("ConnectionString2").ConnectionString
    Dim oConn As New OleDbConnection(constring)
    Dim xReader As OleDbDataReader
    Dim Sql As String

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
        Dim sql As String = "INSERT INTO Kelas VALUES ('" & TxtNim.Text & "','" & TxtNama.Text & "','" & TxtKelas.Text & "','" & TxtFakultas.Text & "');"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        TxtNim.Text = ""
        TxtNama.Text = ""
        TxtKelas.Text = ""
        TxtFakultas.Text = ""
        TxtNim.Focus()
    End Sub

    Protected Sub btntampil_Click(sender As Object, e As EventArgs) Handles btntampil.Click
        Response.Redirect("Form_DataMahasiswa_Reva_Alfaridzi_161011400168.aspx")
    End Sub

    Protected Sub btncari_Click(sender As Object, e As EventArgs) Handles btncari.Click
        If Not Len(TxtNim.Text) = 0 Then
            oConn.Close()
            oConn.Open()
            Dim ocmd As New OleDbCommand("SELECT * FROM Kelas where NIM='" + TxtNim.Text + "'", oConn)
            xReader = ocmd.ExecuteReader
            If xReader.HasRows Then
                xReader.Read()
                TxtNim.Text = xReader("NIM")
                TxtNama.Text = xReader("Nama")
                TxtKelas.Text = xReader("Kelas")
                TxtFakultas.Text = xReader("Fakultas")
            Else
                TxtNim.Text = "NIM Tidak Ditemukan"
                Exit Sub

            End If
            xReader.Close()
        End If
    End Sub
End Class


Flowchart

TUGAS UTS PEMROGRAMAN I 

1.Deskripsi Aplikasi

    Aplikasi Penghitungan biaya cuci mobil dan resto, yang dimana aplikasi ini digunakan untuk membayar dan menghitung pesanan customer.

Biaya Mobil : Jika jenis mobil mini bus maka  Rp. 15000

                       Jika jenis mobil bus maka Rp.25000

dan seterusnya

Biaya Tambahan (Boleh Dipilih atau Tidak)

                             Cuci Kolong : 10000

                             Cuci Mesin   : 15000

                             Cuci Polish   : 20000

Makanan / Minuman (Boleh dipilih atau Tidak)

                                   Nasi Goreng Rp. 17000

                                   Nasi Goreng Special Rp 21000

                                   Mie Goreng Rp. 16000

                                   Jus Jeruk Rp. 10000

                                   Minuman Dingin Rp.5000

Total Bayar :

Biaya Cuci + Total Biaya Tambah + Total Biaya Makan

Bayar : Masukan Uang pembayaran

Kembalian : (Didapat setelah menekan tombol enter)

2. Data Input, Proses ,Output 

    Data Input     : Jenis Mobil, Control, Makanan/Minuman, biaya cuci, biaya tambahan
    Proses           : Hitung, Reset
    Data Output  : Total Biaya 

3.Screenshoot dan Form

4. Source Code


 Dim i As Integer
        makan = New CheckBox() {makan1, makan2, makan3, makan4, makan5}
        txtmakan = New TextBox() {txtmakan1, txtmakan2, txtmakan3, txtmakan4, txtmakan5}
        txtjumlah = New TextBox() {txtjumlah1, txtjumlah2, txtjumlah3, txtjumlah4, txtjumlah5}
        tambah = New CheckBox() {tambah1, tambah2, tambah3}
        txttambah = New TextBox() {txttambah1, txttambah2, txttambah3}

        For i = 0 To 4
            txtmakan(i).Text = "Rp. " & Format(hargamakan(i), "#,#.##")

        Next

        For i = 0 To 2
            txttambah(i).Text = "Rp. " & Format(hargatambah(i), "#,#.##")

        Next
        bycuci = 0

    End Sub

    Private Sub jenis1_CheckedChanged(sender As Object, e As EventArgs) Handles jenis1.CheckedChanged
        bycuci = 15000
        TxtByCuci.Text = "Rp. " & Format(bycuci, "#,#.##")
        myimage.Image = My.Resources.minibus
    End Sub

    Private Sub jenis2_CheckedChanged(sender As Object, e As EventArgs) Handles jenis2.CheckedChanged
        bycuci = 25000
        TxtByCuci.Text = "Rp. " & Format(bycuci, "#,#.##")
        myimage.Image = My.Resources.bus
    End Sub

    Private Sub jenis3_CheckedChanged(sender As Object, e As EventArgs) Handles jenis3.CheckedChanged
        bycuci = 30000
        TxtByCuci.Text = "Rp. " & Format(bycuci, "#,#.##")
        myimage.Image = My.Resources.truck
    End Sub

    Private Sub jenis4_CheckedChanged(sender As Object, e As EventArgs) Handles jenis4.CheckedChanged
        bycuci = 50000
        TxtByCuci.Text = "Rp. " & Format(bycuci, "#,#.##")
        myimage.Image = My.Resources.Car_wash
    End Sub

    Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click
        Dim i As Integer
        totmakan = 0
        tottambah = 0
        For i = 0 To 2
            If tambah(i).Checked Then
                tottambah = tottambah + hargatambah(i)
            End If
        Next
        For i = 0 To 4
            If makan(i).Checked Then
                totmakan = totmakan + (hargamakan(i) * Val(txtjumlah(i).Text))
            End If
        Next
        total = bycuci + tottambah + totmakan
        txttotal.Text = "Rp. " & Format(total, "#,#.##")
    End Sub

    Private Sub txtbayar_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtbayar.KeyPress
        If e.KeyChar = Chr(13) Then
            kembali = Val(txtbayar.Text) - total
            txtkembali.Text = "Rp. " & Format(kembali, "#,#.##")
        End If
    End Sub

    Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click
        Dim i As Integer
        For i = 0 To 4
            makan(i).Checked = False
        Next
        For i = 0 To 4
            txtjumlah(i).Text = 0
        Next
        For i = 0 To 2
            tambah(i).Checked = False
        Next
        txttotal.Clear()
        txtbayar.Clear()
        txtkembali.Clear()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnWord.Click
        Dim wordapp As New word.Application
        Dim Doku As word.Document
        Doku = wordapp.Documents.Open("C:\Users\AKBAR\Documents\Visual Studio 2013\Projects\WindowsApplication7\Primary.docx")
        Doku.Bookmarks("TotalBiaya").Select()
        wordapp.Selection.TypeText(txttotal.Text)
        Doku.Bookmarks("Bayar").Select()
        wordapp.Selection.TypeText(txtbayar.Text)
        Doku.Bookmarks("Kembali").Select()
        wordapp.Selection.TypeText(txtkembali.Text)
        Doku.SaveAs("D:\Data Output\Word\Struks.docx")

        MsgBox("Your Receipt Has Been Printed", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "Information")
        wordapp.Visible = True

    End Sub

    Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
        Dim AppExcelnya As New excel.Application
        Dim ExcelWB As excel.Workbook
        ExcelWB = AppExcelnya.Workbooks.Open("C:\Users\AKBAR\Documents\Visual Studio 2013\Projects\WindowsApplication7\Secondary.xlsx")
        AppExcelnya.Range("C1").Value = txttotal.Text
        AppExcelnya.Range("C3").Value = txtbayar.Text
        AppExcelnya.Range("C5").Value = txtkembali.Text
        ExcelWB.SaveAs("D:\Data Output\Excel\Databasi.xlsx")

        MsgBox("Your Data Has Been Saved", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "Information")
        AppExcelnya.Visible = True
    End Sub
End Class