Prosedur Format Indonesia

Bagi teman2 yang pengen tahu prosedur untuk merubah format currency atau tanggal indonesia ini sekedar tips. Jika ada yang mau di tanyakan silahkan posting komentar teman2

procedure TDM.DateToIndonesia();
begin
  CurrencyString := 'Rp.';
  CurrencyFormat := 2;
  NegCurrFormat := 14;
  CurrencyDecimals := 2;
  TimeAMString := 'AM';
  TimePMString := 'PM';
  ThousandSeparator := ',';
  DecimalSeparator := '.';

  LongTimeFormat := 'hh:mm:ss';
  ShortTimeFormat := 'hh:mm';
  LongDateFormat := 'dd mmmm yyyy';
  ShortDateFormat := 'dd/mm/yyyy';

  LongDayNames[1] := 'Minggu';
  LongDayNames[2] := 'Senin';
  LongDayNames[3] := 'Selasa';
  LongDayNames[4] := 'Rabu';
  LongDayNames[5] := 'Kamis';
  LongDayNames[6] := 'Jum''at';
  LongDayNames[7] := 'Sabtu';

  LongMonthNames[1] := 'Januari';
  LongMonthNames[2] := 'Februari';
  LongMonthNames[3] := 'Maret';
  LongMonthNames[4] := 'April';
  LongMonthNames[5] := 'Mei';
  LongMonthNames[6] := 'Juni';
  LongMonthNames[7] := 'Juli';
  LongMonthNames[8] := 'Agustus';
  LongMonthNames[9] := 'September';
  LongMonthNames[10] := 'Oktober';
  LongMonthNames[11] := 'Nopember';
  LongMonthNames[12] := 'Desember';
end;

Fungsi Algoritma Luhn

Saya membuat fungsi berikut untuk menerapkan algoritma luhn (credit card) menggunakan borland delphi 7, jika ada pertanyaan silahkan posting pertanyaan teman2 :)

var
  Form1: TForm1;
  vNum,vGanjil,vGenap,DigGanjil,DigGenap: array[1..20] of string;
  vTotGanjil, vTotGenap: integer;

implementation

uses Math;

{$R *.dfm}

function TForm1.CheckCard(number:string):string;
var i,vTotal: Integer; vHasil: string;
begin
  vTotGanjil:= 0;
  vTotGenap:= 0;
  for i:= 1 to Length(number) do
    begin
      vNum[i]:= MidStr(number,i,1);
      DigGanjil[i]:= '0';
      DigGenap[i]:= '0';
      if i mod 2 <> 0 then
        begin
          vGanjil[i]:= IntToStr(i);
          vGenap[i]:= '0';
          if StrToInt(vNum[i])*2 > 9 then DigGanjil[i]:= IntToStr((StrToInt(vNum[i])*2)-9) else DigGanjil[i]:= IntToStr(StrToInt(vNum[i])*2);
      end
        else begin
          vGenap[i]:= IntToStr(i);
          vGanjil[i]:= '0';
          DigGenap[i]:= vNum[i];
      end;
        vTotGanjil:= vTotGanjil + StrToInt(DigGanjil[i]);
        vTotGenap:=  vTotGenap + StrToInt(DigGenap[i]);
  end;
    vTotal:= vTotGanjil + vTotGenap;
    case vTotal mod 10 of
      0: vHasil:= 'Sah';
     1..100: vHasil:= 'Tidak Sah';
    end;
    result:= vHasil;
end;

Jasa Pembuatan TA Informatika

Terima pembuatan Tugas Akhir D3 dan S1 Informatika dari bahasa pemrograman delphi dan php database mysql, acces,etc. Adapun paket kami sediakan adalah : 1. H-S : Hanya source code tanpa proposal, Harga : a. D3: Rp. 3.500.000 2.500.000, Bimbingan 10x/3 Bln* b. S1: Rp. 4.500.000 3.500.000, Bimbingan 15x/3 Bln* 2. H-P-S : Hanya proposal + source code, Harga : a. D3: Rp. 4.750.000 3.750.000, Bimbingan 10x/3 Bln* b. S1: Rp. 5.500.000 4.500.000, Bimbingan 15x/3 Bln* 3. H-F-S : Paket lengkap judul + source code + proposal + laporan lengkap dari BAB1 s/d BAB 5, Harga : a. D3: Rp. 8.000.000 7.000.000, Bimbingan 10x/3 Bln* b. S1: Rp. 10.000.000 9.000.000, Bimbingan 10x/3 Bln* dengan lingkup wilayah surabaya dan sidoarjo, untuk luar daerah surabaya dan sidoarjo bisa secara online dengan menghubungi ym/email kami ilham_3014@yahoo.co.id, untuk kontak hubungi kami di 085733634253 a/n ilham. contoh project yang telah kami kerjakan adalah sebagai berikut : 1. Sistem pakar dengan berbagai algoritma: a. Forward Chaining b. Backward Chaining c. Variable-Centered Intelligent Rule System (VCIRS) 2. Data mining dengan berbagai algoritma: a. C4.5 b. Apriori c. Fp - Growth d. Regresi Non Linear 3. Sistem pengambil keputusan algoritma: a. Profile Matching b. K-Nearest Neighbourhood 4. Sistem SMS Center 5. Sistem Informasi Manajemen: a. Ticketing, Tour And Travel b. Penjualan, Pembelian Dan Stock Opname c. Produksi Garment (Pakaian Jadi) d. Pengolahan Layanan Sosial Untuk Anak Asuh e. Pengolahan Layanan Sosial Untuk Donatur/GOTA f. Pengolahan Layanan Sosial Untuk Qurban Hewan/Aqiqoh g. Trucking System h. Konter Handphone i. Administrasi Sekolah etc. segera hubungi kami, dengan jaminan lulus 100%.terima kasih sebelumnya jika anda telah mempercayakan kepada kami.

* harga bisa berubah tergantung tingkat kesulitan program