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 ^^
nice:cendolbig
BalasHapusthanks :)
BalasHapuskak, rumus diskon 10% apa sih?! tadi aku exam, but salah. gagal jadinya. terimakasih
BalasHapusRumusnya, diskon = totalbelanja * (10/100)
BalasHapusTerus panggil deh, bayar = totalbelanja - diskon
Jangan lupa variabel diskon, totalbelanja dan bayar di deklarasikan tipe datanya jadi currency :-)
Mbak,, kalau rumus diskon kayak gini bagai mana "jika belanja > 100.000 dapat diskon 50%, jika belanja < 100.000 tidak dapat diskon"???
BalasHapuskalo masalah seperti diatas, logikanya gini :
BalasHapusIf belanja > 100000 Then
dis = belanja * (50 / 100)
Else
dis = 0
End If
tinggal disesuain dengan textbox kamu
semoga bermanfaat ;)
thaks you mbak :)
BalasHapus.. sngat bermanfaat
sama" senang bisa membantu ;)
BalasHapuskak,aku udah nyoba tapi hasil bilangannya koma" ya kok gak bilangan bulat sperti hasil diatas,mohon pencerahannya
BalasHapus:)
coba liat variabel text boxnya udah di set Currency blm ?
BalasHapuscontoh : Dim bayar As Currency
Keren mbak
BalasHapusHujjah: Thanks ;)
BalasHapusmbak currency itu apa? saya salah trus pas dsitu..?
BalasHapuskk mau nanya tentang vb ni, masih aktif ga ni blog??
BalasHapusMba gimana si rumus di vb
BalasHapusHarga - diskon 10% + biaya tambahan
kak widia, kalo program pulsa cara ngitung diskonnya gimana ya?
BalasHapusthanks dan keren abis
BalasHapusMw nanya blh..
BalasHapusBagus mbak...makasih mbak
BalasHapusmaaf baru bisa membalas komentarnya karena kesibukan tugas kuliah, harap maklum yah ;)
BalasHapusZahid: 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