Teguh-Hafiz Blog's

PENJELASAN:

Program Brosur digital ini dibuat untuk memenuhi tugas Mata Kuliah Pemograman Bisnis,Brosur digital ini dibuat dengan Microsoft Visual Studio 2008,

Brosur digital memiliki berbagai fitur :
1. Daftar barang yang dijual
2. Gambar barang yang dijual
3. Harga barang yang dijual
4. Diskon barang yang dijual
5. Total harga barang (*dikurangi diskon)

SCREENSHOOT:

Proses pengerjaan di Ms.Visual Studio 2008:


Saat di debug di Ms Visual Studio 2008:



Tampilan Program:



Saat user mengklik Salah satu pilihan, tampil gambar, harga, diskon, dan total:











CODING:

Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = System.Drawing.Image.FromFile("D:\Hafiz\Gambar\images1.jpg")
Dim a
a = "21000000"
TextBox1.Text = a
TextBox2.Text = a * 12 / 100
TextBox3.Text = a - (a * 12 / 100)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox1.Image = System.Drawing.Image.FromFile("D:\Hafiz\Gambar\images.jpg")
Dim b
b = "19000000"
TextBox1.Text = b
TextBox2.Text = b * 12 / 100
TextBox3.Text = b - (b * 12 / 100)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
PictureBox1.Image = System.Drawing.Image.FromFile("D:\Hafiz\Gambar\images2.jpg")
Dim c
c = "12500000"
TextBox1.Text = c
TextBox2.Text = c * 12 / 100
TextBox3.Text = c - (c * 12 / 100)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
PictureBox1.Image = System.Drawing.Image.FromFile("D:\Hafiz\Gambar\images3.jpg")
Dim d
d = "260000000"
TextBox1.Text = d
TextBox2.Text = d * 12 / 100
TextBox3.Text = d - (d * 12 / 100)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
PictureBox1.Image = System.Drawing.Image.FromFile("D:\Hafiz\Gambar\images4.jpg")
Dim f
f = "23000000"
TextBox1.Text = f
TextBox2.Text = f * 12 / 100
TextBox3.Text = f - (f * 12 / 100)
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Close()
End Sub

End Class

DATA MAHASISWA:

Nama :Muhammad Teguh Hafizuddin
NPM : 1006724532