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
Diposting oleh
Hafiz
di
03.02
Label: Program VB, Tugas 1 komentar
Langganan:
Postingan (Atom)