UTS Pemograman I

Nama : Ady Nugraha

Kelas : 04TPLP001

NIM : 161021450264

Deskripsi : Disini saya membuat program tentang TOKO SUSU MADURA penjualan berbagai merk susu, sebelum membeli konsumen akan di minta memasukan nama konumen, dan selanjutnya memilih jenis susu yang akan dipesan, maka akan otomatis muncul harga susu tersebut, dan konsumen kembali akan diminta untuk memasukan jumlah susu yang ingin di pesan, maka setelah di proses akan muncul jumlah dan harga yang harus dibayarkan, apabila konsumen membayar dengan uang lebih maka akan muncul total jumlah kembalian.


Screen Shoot Design :






Shource Coding :


Imports word = Microsoft.Office.Interop.Word
Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Cmbsusu.Items.Add(" Susu Frisian Flag - Rp.25.000/pcs")
        Cmbsusu.Items.Add(" Susu Dancow - Rp.15.000/pcs")
        Cmbsusu.Items.Add(" Susu Lactogen - Rp.50.000/pcs")
        Cmbsusu.Items.Add(" Susu Anlene - Rp.55.000/pcs")
        Cmbsusu.Items.Add(" Susu L-Men - Rp.30.000/pcs")
    End Sub

    Private Sub Cmbsusu_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Cmbsusu.SelectedIndexChanged
        If (Cmbsusu.SelectedIndex.Equals(0)) Then
            Txtsatuan.Text = 25000
        ElseIf (Cmbsusu.SelectedIndex.Equals(1)) Then
            Txtsatuan.Text = 15000
        ElseIf (Cmbsusu.SelectedIndex.Equals(2)) Then
            Txtsatuan.Text = 50000
        ElseIf (Cmbsusu.SelectedIndex.Equals(3)) Then
            Txtsatuan.Text = 55000
        Else
            Txtsatuan.Text = 30000
        End If
    End Sub

    Private Sub Txtjumlah_LostFocus(sender As Object, e As EventArgs) Handles Txtjumlah.LostFocus
        Dim total As Integer
        total = Txtsatuan.Text * Txtjumlah.Text
        Txttotal.Text = total
    End Sub

    Private Sub Btnproses_Click(sender As Object, e As EventArgs) Handles Btnproses.Click
        Dim kembalian As Integer
        kembalian = Txtbayar.Text - Txttotal.Text
        Txtkembalian.Text = kembalian
    End Sub

    Private Sub Btnword_Click(sender As Object, e As EventArgs) Handles Btnword.Click
        Dim aplikasi As New word.Application
        Dim dokumen As word.Document
        Dim gabungan As String
        gabungan = (Txtnama.Text + " " + Txtjumlah.Text)

        dokumen = aplikasi.Documents.Open("E:\Toko Susu Madura excel.docx")

        dokumen.Bookmarks("BNAMA").Select()
        aplikasi.Selection.TypeText(Txtnama.Text)

        dokumen.Bookmarks("BSUSU").Select()
        aplikasi.Selection.TypeText(Cmbsusu.Text)

        dokumen.Bookmarks("BJUMLAH").Select()
        aplikasi.Selection.TypeText(Txtjumlah.Text)

        dokumen.Bookmarks("BTOTAL").Select()
        aplikasi.Selection.TypeText(Txttotal.Text)

        dokumen.Bookmarks("BBAYAR").Select()
        aplikasi.Selection.TypeText(Txtbayar.Text)

        dokumen.Bookmarks("BKEMBALIAN").Select()
        aplikasi.Selection.TypeText(Txtkembalian.Text)

        dokumen.SaveAs("E:\" + gabungan + ".docx")
        aplikasi.Visible = True
    End Sub

    Private Sub Btnexcel_Click(sender As Object, e As EventArgs) Handles Btnexcel.Click
        Dim aplikasiExcel As New Excel.Application
        Dim fileExcelnya As Excel.Workbook
        Dim gabungan As String
        gabungan = (Txtnama.Text + " " + Txtjumlah.Text)

        fileExcelnya = aplikasiExcel.Workbooks.Open("E:\Toko susu madura.xlsx")
        aplikasiExcel.Range("A3").Value = Txtnama.Text
        aplikasiExcel.Range("B3").Value = Cmbsusu.Text
        aplikasiExcel.Range("C3").Value = Txtjumlah.Text
        aplikasiExcel.Range("D3").Value = Txttotal.Text
        aplikasiExcel.Range("E3").Value = Txtbayar.Text
        aplikasiExcel.Range("F3").Value = Txtkembalian.Text
        fileExcelnya.SaveAs("E:\" + gabungan + ".xlsx")

        MsgBox("Sukses!")
        aplikasiExcel.Visible = True
    End Sub
End Class

Komentar

Posting Komentar

Postingan populer dari blog ini

UAS Basis Data II

Gambar
CONTOH PENERAPAN NORMALISASI BASIS DATA II Nama : Ady Nugraha Kelas : 05TPLP001 NIM  : 161021450264 1. Deskripsi Pada blog ini saya akan mencoba menampilkan tahapan normalisasi database dari sebuah faktur pembelian barang. Faktur  Pembelian Barang 2. Bentuk normal pertama ( 1 NF ) Bentuk normal pertama dengan memisahkan data pada atribut yang tepat dan bernilai atomik, dengan normal pertama kita dapat membuat satu relasi yang terdiri dari 11 atribut yaitu: ( No faktur, Kode Supplier, Nama Supplier, Kode Barang, Nama Barang, Tanggal, Jatuh Tempo, Qty, Harga, Jumlah Total ) 3. Bentuk normal kedua ( 2 NF ) Dari normal pertama, kita dapat mendekomposisi menjadi tiga tabel yang ada yaitu: Relasi/Tabel Supplier ( Kode Supplier ), Relasi/Tabel ( kode Barang ), dan Faktur ( No Faktur ) 4. Tampilan Web Demikian Contoh Langkah Menormalisasikan Faktur Pembelian Barang 5. Source Code index.php <!DOCTYPE html> <html> <hea
Baca selengkapnya
Gambar
Nama : Ady Nugraha Kelas : 06TPLP001 Tugas Ujian Tengah Semester Mobile Programing DESKRIPSI Disini saya akan menampilkan program mobile beranda dengan Tap Post yang terdiri dari Log In, Beranda, dan Contact Us. Berikut tampilan setelah di aplikasikan di handphone Tampilan Log In: Tampilan Home dan About Source Coding: activity_main.xml (Login) <?xml version="1.0" encoding="utf-8"?> <androidx.constraintlayout.widget.ConstraintLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:app="http://schemas.android.com/apk/res-auto" xmlns:tools="http://schemas.android.com/tools" android:layout_width="match_parent" android:layout_height="match_parent" android:background="@android:color/black" tools:context=".MainActivity"> <TextView android:id="@+id/tv_username" android:background=
Baca selengkapnya