Fungsi Terbilang Dalam Rupiah (Visual Basic)

Public Function Terbilang(Angka As Double) As String Dim strJmlHuruf$, intPecahan As Integer, strPecahan$, Urai$, Bill$, strTot$, Bil2$ Dim X As Integer, Y As Integer, z As Integer Dim Bil1 As String If IsNull(Angka) Then Terbilang = "" Exit Function ElseIf Angka = 0 Then Terbilang = " NOL RUPIAH" Exit Function ElseIf Angka < 0 Then Terbilang = "MINUS " & Terbilang(Abs(Angka)) Exit Function End If strJmlHuruf = LTrim(CStr(Angka)) intPecahan = Val(Mid(CStr(Round(Angka - Int(Angka), 2)), 3, 2)) If (intPecahan = 0) Then strPecahan = "" Else strPecahan = LTrim(Str(intPecahan)) + "/100 " strJmlHuruf = LTrim(CStr(Int(Angka))) End If X = 0 Y = 0 Urai = "" While (X < Len(strJmlHuruf)) Bil1 = "" Bil2 = "" X = X + 1 strTot = Mid(strJmlHuruf, X, 1) Y = Y + Val(strTot) z = Len(strJmlHuruf) - X + 1 Select Case Val(strTot) Case 1 If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then ...
Posting Komentar

Ada hal-hal yang sangat ingin kamu dengar tetapi tidak akan pernah kamu

dengar dari orang yang kamu harapkan untuk mengatakannya.

Namun demikian janganlah menulikan telinga untuk mendengar dari orang

yang mengatakannya dengan sepenuh hati.

Komentar

Posting Komentar

Postingan populer dari blog ini

Looping /Perulangan

Gambar
Pengulangan digunakan untuk menj a lankan satu atau bebera p a pernya t aa n sebanya k bebe r ap a kali . Denga n kata lain, pengulangan memungkinkan k ita untuk menjalankan beberapa pernyataan hanya dengan menuliskan pernyataan tersebut satu kali saja. A. Pernyataan for Pernyataan pengulangan yang pali n g sering digunakan adalah for. Pernyataan ini digun a kan jika kita telah mengetahui berapa kali kita akan mengulang satu atau beberapa         pernyataan.  Bentuk          u m um         pernyataan    for adalah sebagai berikut: for pencacah := nilai_awal to nilai_akhir do Begin (pernyataan-pernyataan yang akan diulang) end; Sekedar tambahan, blok berisi pernyataan-pernyataan yang  harus...
Baca selengkapnya

Soal Dan Jawaban Final Algoritma

Soal :  Buatlah program Nota Penjualan barang dengan ketentuan: Nama dan Alamat pembeli diinput Nama, Harga satuan dan jumlah barang diinput Jika Nama barang yang diinput adalah x maka otomatis program berhenti menginput dan langsung megeluarkan nota pembelian baran tampilkan total harga masing2 barang tampilkan total harga keseluruhan diskon dibuat dalam bentu fungsi dengan ketentuan =>5000000 -5% 2jt-5jt -3% 1jt-2jt 2% <1jt 0% Total bayar =total harga - diskon   Jawaban:   uses crt; function Diskon(TH:double):double; begin     if TH >= 5000000 then       Diskon := TH * 5 /100     else if TH >= 2000000 then       Diskon := TH * 3 /100     else if TH >= 1000000 then       Diskon := TH * 2 /100     else        Diskon := 0; end; var nama: string[25]; alamat: string[50]; nabar : a...
Baca selengkapnya