3/24/2012

Program visual basic menghitung total bayar menggunakan diskon

By Wie   12:56 AM // 20 comments


























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 ^^

20 komentar:

  1. Anonim5/02/2012 9:24 AM

    nice:cendolbig

    BalasHapus
  2. Wie6/03/2012 12:24 AM

    thanks :)

    BalasHapus
  3. Unknown1/31/2013 12:00 PM

    kak, rumus diskon 10% apa sih?! tadi aku exam, but salah. gagal jadinya. terimakasih

    BalasHapus
  4. Widia Murni Wijaya1/31/2013 4:47 PM

    Rumusnya, diskon = totalbelanja * (10/100)
    Terus panggil deh, bayar = totalbelanja - diskon
    Jangan lupa variabel diskon, totalbelanja dan bayar di deklarasikan tipe datanya jadi currency :-)

    BalasHapus
  5. Unknown11/02/2013 1:32 PM

    Mbak,, kalau rumus diskon kayak gini bagai mana "jika belanja > 100.000 dapat diskon 50%, jika belanja < 100.000 tidak dapat diskon"???

    BalasHapus
  6. Widia Murni Wijaya11/04/2013 9:56 PM

    kalo masalah seperti diatas, logikanya gini :
    If belanja > 100000 Then
    dis = belanja * (50 / 100)
    Else
    dis = 0
    End If
    tinggal disesuain dengan textbox kamu
    semoga bermanfaat ;)

    BalasHapus
  7. Unknown11/08/2013 8:44 AM

    thaks you mbak :)
    .. sngat bermanfaat

    BalasHapus
  8. Widia Murni Wijaya11/09/2013 2:31 PM

    sama" senang bisa membantu ;)

    BalasHapus
  9. Anonim11/10/2013 2:48 PM

    kak,aku udah nyoba tapi hasil bilangannya koma" ya kok gak bilangan bulat sperti hasil diatas,mohon pencerahannya
    :)

    BalasHapus
  10. Widia Murni Wijaya11/12/2013 2:21 PM

    coba liat variabel text boxnya udah di set Currency blm ?
    contoh : Dim bayar As Currency

    BalasHapus
  11. Unknown1/29/2015 4:55 PM

    Keren mbak

    BalasHapus
  12. Widia Murni Wijaya2/18/2015 12:10 PM

    Hujjah: Thanks ;)

    BalasHapus
  13. Unknown4/05/2015 3:30 PM

    mbak currency itu apa? saya salah trus pas dsitu..?

    BalasHapus
  14. Anonim9/10/2015 5:24 PM

    kk mau nanya tentang vb ni, masih aktif ga ni blog??

    BalasHapus
  15. Unknown9/26/2015 12:34 PM

    Mba gimana si rumus di vb
    Harga - diskon 10% + biaya tambahan

    BalasHapus
  16. Unknown11/03/2015 7:00 PM

    kak widia, kalo program pulsa cara ngitung diskonnya gimana ya?

    BalasHapus
  17. lakongkong11/07/2015 6:01 PM

    thanks dan keren abis

    BalasHapus
  18. Unknown12/05/2015 6:58 AM

    Mw nanya blh..

    BalasHapus
  19. Unknown12/05/2015 6:59 AM

    Bagus mbak...makasih mbak

    BalasHapus
  20. Widia Murni Wijaya2/18/2016 2:56 PM

    maaf baru bisa membalas komentarnya karena kesibukan tugas kuliah, harap maklum yah ;)

    Zahid: currency itu tipe data untuk uang

    Rico: logikanya seperti ini
    Dim harga As Currency
    Dim biayatambahan As Currency
    Dim dis As Currency
    Dim bayar As Currency

    Private Sub Command1_Click()
    harga = Text1.Text
    biayatambahan = Text2.text

    dis = harga * (10 / 100)

    bayar = harga - dis + biayatambahan
    Text3.Text = bayar
    End Sub

    Azis: kalo diskon sama aja, contoh: dis = harga * (10 / 100)
    tinggal diganti aja angka 10 dengan diskon yang dikehendaki

    BalasHapus

Berkomentarlah dengan baik dan sopan ya ^^

Langganan: Posting Komentar (Atom)
View My Stats