Program visual basic menghitung total bayar menggunakan diskon

Program visual basic menghitung total bayar menggunakan diskon

By Wie 

Code programnya :

Dim a As Currency
Dim b As Currency
Dim c As Currency
Dim d As Currency
Dim e As Currency
Dim belanja As Currency
Dim dis As Currency
Dim bayar As Currency
Dim jam As Double

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

Private Sub Form_Load()
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
End Sub

Private Sub Command1_Click()
jam = Text1.Text
a = Text2.Text
b = Text3.Text
c = Text4.Text
d = Text5.Text
e = Text6.Text

belanja = a + b + c + d + e
Text7.Text = belanja

If jam < 15.1 Then
    If belanja > 300000 Then
        dis = belanja * (15 / 100)
        Text8.Text = "15%"
        Text9.Text = dis
        Command1.Enabled = False
        ElseIf belanja > 200000 Then
        dis = belanja * (10 / 100)
        Text8.Text = "10%"
        Text9.Text = dis
        Command1.Enabled = False
        ElseIf belanja > 100000 Then
        dis = belanja * (5 / 100)
        Text8.Text = "5%"
        Text9.Text = dis
        Command1.Enabled = False
        Else
        dis = 0
        Text8.Text = 0
        Text9.Text = dis
        Command1.Enabled = False
    End If
Else
    dis = 0
    Text8.Text = 0
    Text9.Text = dis
    Command1.Enabled = False
End If
If jam > 7.9 Then
    If belanja > 300000 Then
        dis = belanja * (15 / 100)
        Text8.Text = "15%"
        Text9.Text = dis
        Command1.Enabled = False
        ElseIf belanja > 200000 Then
        dis = belanja * (10 / 100)
        Text8.Text = "10%"
        Text9.Text = dis
        Command1.Enabled = False
        ElseIf belanja > 100000 Then
        dis = belanja * (5 / 100)
        Text8.Text = "5%"
        Text9.Text = dis
        Command1.Enabled = False
        Else
        dis = 0
        Text8.Text = 0
        Text9.Text = dis
        Command1.Enabled = False
    End If
Else
    dis = 0
    Text8.Text = 0
    Text9.Text = dis
    Command1.Enabled = False
End If

bayar = belanja - dis
Text10.Text = bayar
End Sub

Salam ilmu pengetahuan ^^

Andaiku malaikat, kupotong sayapku dan rasakan perih di dunia bersamamu
Perang kan berakhir, cinta kan abadi, di tanah anarki romansa terjadi

Desing peluru tak bertuan, hari-hari yang tak benderang
Setiap detik nyawa ini kupertahankan untukmu
Alasanku ada di sini, dan parasmu yang kurindukan
Di neraka kan kumenangkan, hariku bersamamu

Dalam gelisahku menunggu, berita tentang gerilyamu
Semerbak rindu kuasai udara panas ini
Sepucuk surat telah tiba, dan senja pun ikut berdebar
Kalimat indah dan kisahmu tentang perang dan cinta

Kubasuh luka dengan air mata
Oh hatimu beku, serta jiwamu yang lelah
Tak henti lawan dunia dengan mimpi besar untuk cinta
Dan jalanmu tuk pulang, di ujung waktu kan ada cahaya
Itulah aku, raihlah mimpimu .                                                         superman is dead> sunset ditanah anarki

EKS PROSEDUR (PROCEDURE)

Teks prosedur merupakan teks yang berisi tujuan dan langkah-langkah yang harus diikuti agar suatu pekerjaan dapat dilakukan.
Contoh :

Cara membuat Kue Muffin Cokelat

Bahan :
3 butir telur
50 cc air
200 cc minyak goreng
tepung Pondan Muffin Cokelat

Petunjuk penyajian :
1.    Panaskan oven (200⁰C)
2.    Campurkan tepung Pondan Muffin Cokelat dengan telur, minyak sayur dan air
3.    Kocok dengan mixer kecepatan rendah (nomor 1) selama kurang lebih ±3 menit
4.    Masukkan adonan ke dalam cetakan Muffin yang sudah diberi cake up (kertas cetakan kue).
5.    Panggang di dalam oven panas ±20 menit
6.    Untuk mengetahui kue yang dipanggang sudah matang atau belum, tusuk bagian tengah kue dengan
       tusuk gigi lalu angkat. Bila tidak ada adonan yang menempel berarti kue sudah matang.

  

Struktur Teks Prosedur :

1. Tujuan

2. Langkah-langkah

Memahami Unsur Kebahasaan Teks Prosedur :

1.    kata berantonim

2.    kata bersinonim

3.    kata bilangan

4.    kalimat perintah atau imperatif.

Kalimat perintah atau imperatif adalah kalimat atau kata yang menyatakan larangan    atau keharusan melakukan suatu hal.

Contoh :   Pertama, carilah dahan yang ukurannya sedang, tidak terlalu besar

 atau terlalu kecil!