Jual Program Ekspedisi Pengiriman Barang (Multi Client Server)

Jual Program Ekspedisi Pengiriman Barang (Multi Client Server). Berikut Capture Programnya:

Harga 1,5 Juta/ 1 CPU Jika anda pesan lebih dari 1 maka anda akan dapat discount 200rb berlaku untuk kelipatannya. Transfer Ke Rekening BANK MANDIRI 1410010961282. A.n Moch. Ilham Safiudin. Setelah transfer segera konfirmasi ke 082139196314, nanti saya langsung kirim file serta cara instalasi. trim's

Jual Program SIM Sekolah Disertai Dengan Penilaian + Cetak Rapot Serta Pembayaran Administrasi Sekolah

Jual Program SIM Sekolah Disertai Dengan Penilaian + Cetak Rapot Serta Pembayaran Administrasi Sekolah (Multi Client Server). Berikut Capture Programnya:

Harga 1,5 Juta/ 1 CPU Jika anda pesan lebih dari 1 maka anda akan dapat discount 200rb berlaku untuk kelipatannya. Transfer Ke Rekening BANK MANDIRI 1410010961282. A.n Moch. Ilham Safiudin. Setelah transfer segera konfirmasi ke 082139196314, nanti saya langsung kirim file serta cara instalasi. trim's

Jual Program Travel Disertai Dengan Deposit Per Member Agen

Jual Program Travel Disertai Dengan Deposit Per Member Agen (Multi Client Server). Berikut Capture Programnya:

Harga 1,5 Juta/ 1 CPU Jika anda pesan lebih dari 1 maka anda akan dapat discount 200rb berlaku untuk kelipatannya. Transfer Ke Rekening BANK MANDIRI 1410010961282. A.n Moch. Ilham Safiudin. Setelah transfer segera konfirmasi ke 082139196314, nanti saya langsung kirim file serta cara instalasi. trim's

Jual Program Pola Assosiasi Toefl Dan Induk Mahasiswa Metode FP-Growth

Saya jual program TA Pola Assosiasi Toefl Dan Induk Mahasiswa Metode FP-Growth menggunakan bahasa pemrograman delphi 7. Berikut 1 bagian capture programnya:

Harga 1,5 Juta. Transfer Ke Rekening BANK MANDIRI 1410010961282. A.n Moch. Ilham Safiudin. Setelah transfer segera konfirmasi ke 082139196314, nanti saya langsung kirim file source code + komponennya serta cara instalasi. trim's

Jual Program Data Mining Regresi Metode Non Linier

Saya jual program TA Data Mining Regresi Metode Non Linier menggunakan bahasa pemrograman delphi 7. Berikut 1 bagian capture programnya:

Harga 1,5 Juta. Transfer Ke Rekening BANK MANDIRI 1410010961282. A.n Moch. Ilham Safiudin. Setelah transfer segera konfirmasi ke 082139196314, nanti saya langsung kirim file source code + komponennya serta cara instalasi. trim's

Kursus Pemrograman Delphi

Apakah anda ingin belajar pemrograman Delphi dan memiliki keahlian untuk menjadi seorang programmer ? Atau anda ingin memperdalam keahlian tentang pemrograman Delphi ?

Jika ada jawaban 'Ya' dari sekian pertanyaan tsb, saya siap membantu.

Adapun modul2 dan praktek yang saya berikan adalah:
1). Mengenal komentar, variabel, tipe data dan operator
2). Membuat prosedur dan fungsi sendiri sesuai dengan kebutuhan aplikasi
3). Mengajarkan cara install komponen jenis *.dpk, *.pas,*.bpl,dsb
4). Mengenal konsep pemrograman database master-detail
5). Mengenal SQL(Structure Query Language) pada database
6). Mengajarkan cara membuat database,table,relation foreign,index table,dsb
7). Mengenal tentang fungsi select,insert,update dan delete pada database
8). Mengajarkan tentang cara otoritas user,backup data,restore data,dsb pada sebuah aplikasi
9). Mengajarkan pembuatan aplikasi client server
10). Mengajarkan pembuatan aplikasi desktop digabungkan dengan aplikasi web base sistem

Semua modul2 dan praktek yang saya sebutkan diatas adalah BENAR.
Bukan anda yang datang di tempat saya, tapi saya yang akan datang di tempat anda.. JADI TUNGGU APALAGI JUST CALL ME 082139196314 [An. Ilham].

Biaya untuk kursus private sebagai berikut:
1). PAKET A:
Kursus private berlangsung selama 1 bln dengan biaya 3 juta
2x/minggu: 1x pertemuan selama 2 jam -> selama 1 bln = 16 jam (4 minggu)
2). PAKET B:
Kursus private berlangsung selama 2 bln dengan biaya 5 juta
2x/minggu: 1x pertemuan selama 2 jam -> selama 1 bln = 16 jam (4 minggu)
3). PAKET C:
Kursus private berlangsung selama 3 bln dengan biaya 7 juta
2x/minggu: 1x pertemuan selama 2 jam -> selama 1 bln = 16 jam (4 minggu)
4). PAKET D:
Kursus private berlangsung selama 6 bln dengan biaya 15 juta
2x/minggu: 1x pertemuan selama 2 jam -> selama 1 bln = 16 jam (4 minggu)

5). PAKET ULTIMATE: **
Kursus private berlangsung selama 12 bln dengan biaya 25 juta
2x/minggu: 1x pertemuan selama 2 jam -> selama 1 bln = 16 jam (4 minggu)

**. bonus: source code beberapa project saya dan layanan konseling gratis diluar jam kursus

Terima kasih sebelumnya, saya tunggu kabar baik dari anda :)

Fungsi Menghitung Jumlah Sebuah Karakter

Fungsi untuk menghitung sebuah karakter dalam sebuah kata:

function TForm1.CountChars ( const str : string ; c : char ) : integer ;
var p : PChar ;
begin Result := 0 ; p := PChar ( Pointer ( str ) ) ;
  while p <> nil do
   begin p := StrScan ( p , c ) ;
    if p <> nil
    then
   begin inc ( Result ) ;
    inc ( p ) ;
  end ;
 end ;
end;

penggunaan fungsi diatas:

var i: integer;
      k: string;
begin
    k:= 'Saya#';
    i:= CountChars(k,'#');
end;

penjelasan:

variabel i adalah hasil dari penggunaan fungsi countchar dimana fungsi tersebut mencari jumlah karakter '#' pada sebuah kata 'Saya#' pada variabel k.


ok.. bersambung ya penjelasannya.... :)

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