Ahmad Prayitno

ABAS ERP adalah sebuah ERP buatan Jerman yang sudah dikenal dunia. ERP ini memang banyak digunakan di dunia karena berjalan di Linux dan juga proses maintenancenya yang tidak membutuhkan effort banyak. Kali ini AP tidak ingin membahas tentang ABAS ERP, tetapi tentang komponent yang AP buat. Untuk modifikasi ABAS ERP, bisa gunakan bahasa FOP. Tapi [...]

Sebagai seorang programmer, tidak hanya dibutuhkan kualitas dari hasil codingnya, tetapi juga kecepatan dalam waktu pengerjaan. Oleh sebab itu, seorang programmer sangat membutuhkan sekali tools tools yang mampu membantu pekerjaannya baik yang membantu untuk kecepatan pembuatan program ataupun fungsi fungsi menarik dari tools itu sendiri. Berikut adalah component VCL Delphi yang AP Buat sendiri untuk [...]

Untuk mengecek status keberadaan file, bisa gunakan fungsi File Search. Perintah dasar untuk File Search dalam delphi adalah FileSearch(const Name, DirList: string): string; Berikut contoh penerapan File Search. Siapkan sebuah EditText dan Button, dan terapkan source code berikut ini. procedure TForm1.Button1Click(Sender: TObject); var FileToFind: string; begin FileToFind := FileSearch(Edit1.Text, GetCurrentDir); if FileToFind = ” then [...]

Dengan fungsi windows, banyak yang bisa didapatkan, salah satunya adalah mendapatkan status ataupun mensetting capslock dan numlock. Sintax dasarnya adalah var KeyState: TKeyboardState; begin Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or 0, 0); Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); end; VK_Capital adalah jenis key yang ingin di set, bisa diganti menjadi VK_NUMLOCK ataupun VK_SCROLL. Untuk mendapatkan source code [...]

Untuk menghilangkan bunyi tung pada saat enter, silahkan gunakan tambahkan key := #0 pada event keypress. Berikut AP Berikan contoh : procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then key := #0; end;

Pembatasan karakter sangat penting diketahui oleh para programmer pemula. Ini diakibatkan untuk menghindari error dari data yang dimasukkan oleh user. Misalkan saja, seharusnya text tersebut hanya boleh diisi oleh angka saja, tetapi karena tidak ada pembatasan karakter inputan, maka user menginput huruf. Hasilnya, error yang didapatkan. Untuk pembatasan karakter, bisa gunakan key := #0; Pembatasan [...]

Array adalah beberapa data yang memiliki index. Penggunaan array dilakukan jika kita ingin mengumpulkan data lalu data yang ada ingin diproses. Untuk source code penggunaan array(Static), silahkan klik disini

Fungsi Pengulangan (Loop) dalam delphi bisa dilakukan dengan berbagai cara, tergantung keperluan dan kebutuhan serta keinginan programmer itu sendiri. Untuk fungsi looping itu sendiri didalam delphi bisa dilakukan dengan For..To atau While atau juga bisa menggunakan Repeat. Untuk mendapatkan source code penggunaan fungsi looping ini silahkan klik disini