Postingan

Menampilkan postingan dari Desember, 2010

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
Baca selengkapnya

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  diulang  sering  disebut  juga  kalang ( loop ). 1. Pernyataan For Positif Contoh : Perulangan positif untuk satu statement :
Posting Komentar
Baca selengkapnya

Postingan populer dari blog ini

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 : array [1..20] of string[30]; HSatuan, subtot : array[1..20] of double; jmlBeli: array [1..20] of byte; id,jBrg : byte; TotHar, totbay: double; begin clrsc
Baca selengkapnya

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  diulang  sering  disebut  juga  kalang ( loop ). 1. Pernyataan For Positif Contoh : Perulangan positif untuk satu statement :
Baca selengkapnya

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
Baca selengkapnya