APLIKASI PENJUALAN MOBIL #UTSRPL

Assalamualaikum wr.wb
Yth Bapak Ir. Agus Suharto S.Koom, M.Kom

berikut saya jelaskan tentang project aplikasi penjualan mobil beserta laporan penjualan nya

pertama tama buka aplikasi visual studio-lalu klik new project dan pilih Windows form application

Setelah itu buat desain seperti gambar berikut :

setelah itu isi coding perhitungan nya dengan mengklik dua kali button HITUNG 

berikut source code nya :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim bil1, bil2, total, pajak, biaya As Double
        bil1 = TextBox3.Text
        bil2 = TextBox4.Text
        total = TextBox3.Text * TextBox4.Text
        TextBox5.Text = total

        pajak = TextBox5.Text * 10 / 100
        TextBox6.Text = pajak

        biaya = total + pajak

        TextBox7.Text = biaya

Selanjutnya membuat table di microsoft excel yang berfungsi untuk memindahkan data yang sudah dihitung ke microsoft excel dan juga sebagai laporan. berikut desain nya :

agar data hasil perhitungan bisa dipindah dan disimpan di excel masukan source code dengan mengklik dua kali button SIMPAN KE EXCEL. berikut source code nya :

Imports excel = Microsoft.Office.Interop.Excel

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim aplikasiexcel As New excel.Application
        Dim fileexcel As excel.Workbook

        fileexcel = aplikasiexcel.Workbooks.Open("E:\UTSMULYANA\UTSMULYANA.xlsx")

        aplikasiexcel.Range("A3").Value = TextBox1.Text
        aplikasiexcel.Range("B3").Value = TextBox2.Text
        aplikasiexcel.Range("C3").Value = TextBox3.Text
        aplikasiexcel.Range("D3").Value = TextBox4.Text
        aplikasiexcel.Range("E3").Value = TextBox5.Text
        aplikasiexcel.Range("F3").Value = TextBox6.Text
        aplikasiexcel.Range("G3").Value = TextBox7.Text

        fileexcel.SaveAs("E:\UTSMULYANA\UTSMULYANA.xlsx")
        MsgBox("SIMPAN KE EXCEL BERHASIL")
        aplikasiexcel.Visible = True

End Sub
End Class

Setelah itu aplikasi bisa kita jalankan atau run berikut hasil nya : 

masukan nominalnya

setelah semua nya dihitung klik button SIMPAN KE EXCEL untuk menyimpan data transaksinya sebagai laporan

setelah disimpan akan muncul otomatis di microsoft excel

 

Sekian untuk postingan saya sebagai tugas UTS Rekaya perangkat lunak, mohon maaf jika banyak kekurangan, Saya ucapkan terima kasih

Source all code :

Imports excel = Microsoft.Office.Interop.Excel


Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim bil1, bil2, total, pajak, biaya As Double
        bil1 = TextBox3.Text
        bil2 = TextBox4.Text
        total = TextBox3.Text * TextBox4.Text
        TextBox5.Text = total

        pajak = TextBox5.Text * 10 / 100
        TextBox6.Text = pajak

        biaya = total + pajak

        TextBox7.Text = biaya




    End Sub



    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim aplikasiexcel As New excel.Application
        Dim fileexcel As excel.Workbook

        fileexcel = aplikasiexcel.Workbooks.Open("E:\UTSMULYANA\UTSMULYANA.xlsx")

        aplikasiexcel.Range("A3").Value = TextBox1.Text
        aplikasiexcel.Range("B3").Value = TextBox2.Text
        aplikasiexcel.Range("C3").Value = TextBox3.Text
        aplikasiexcel.Range("D3").Value = TextBox4.Text
        aplikasiexcel.Range("E3").Value = TextBox5.Text
        aplikasiexcel.Range("F3").Value = TextBox6.Text
        aplikasiexcel.Range("G3").Value = TextBox7.Text




        fileexcel.SaveAs("E:\UTSMULYANA\UTSMULYANA.xlsx")
        MsgBox("SIMPAN KE EXCEL BERHASIL")
        aplikasiexcel.Visible = True





    End Sub
End Class