Octa Cinta Delphi

Octamus Inggris-Indonesia

2024-02-08T14:22:00.015+07:00

CARA MENGUNDUH OCTAMUS

Unduh Octamus dengan memilih format sebagai berikut:

Unduh Octamus Sebagai File Exe

Unduh Octamus Sebagai File Zip

FITUR OCTAMUS

Dapat mencari kata dalam Inggris-Indonesia, sebaliknya atau otomatis
Mengandung sinonim, idiom dan frasa
Terdapat ejaaan UK dan US
Terdapat penyuara kata, Text-to-Speech, baik Indonesia dan Inggris
Terdapat penyuara kata dengan lima aksen Inggris: GENERAL, AMERICAN, SCOTTISH, NORTHERN, WEST MIDLANDS
Meliputi istilah keilmuan
Memiliki pengawas papan tempel (Clipboard monitoring)

PANDUAN PEMAKAIAN

1. Cara Memasang di Windows
2. Mengubah Pilihan Bahasa

3. Mencari Kata
4. Mengubah Aksen Inggris
5. Pengawas Papan Tempel, CLB (Clipboard Monitoring)
6. Tampilan Pencarian
7. Aplikasi selalu di atas
8. Penyuara Kata, TTS (Text-to-Speech)

A. Cara Memasang di Windows

1. Unduh aplikasi pemasang dengan memilih salah satu format:

Unduh sebagai File EXE

Unduh sebagai File Zip

2. Letakkan di salah satu folder komputer
3. Klik dua kali InsOcm.exe
4. Pemasang akan menampil kan kotak berikut:

5. Tanpa pengubahan, Octamus akan dipasang di D:\Octamus, namun Anda dapat menuliskan atau mengklik tombol GANTI.

6. Kotak berikut akan muncul jika pemasangan Octamus selesai.

B. Mengubah Pilihan Bahasa

Anda dapat mencari kata dengan menganggap kata yang Anda masukkan sebagai Bahasa Indonesia atau Inggris

Atau Anda juga dapat memilih otomatis. Pada mode ini, aplikasi akan mencarinya terlebih dahulu sebagai Bahasa Inggris. Jika tidak diketemukan, aplikasi akan mencarinya dalam Bahasa Indonesia.

C. Mencari Kata
Ketikkan kata yang Anda cari di kotak pencarian. Dalam contoh berikut, saya mencari padanan kata KISS dalam Bahasa Indonesia.

Tekan Enter untuk memulai pencarian atau klik tombol bergambar kaca pembesar. Octamus akan menampilkan daftar kata yang Anda masukkan dengan dua jenis tampilan, yaitu: kata yang mirip (tampilan atas) dan kata dalam frasa (tampilan bawah).

D. Mengubah Aksen Inggris Text-to-Speech
Khusus untuk penyuara Inggris, Anda dapat memilih lima jenis aksen, yaitu:

1. General English Accent
2. American English Accent
3. Scottish Accent
4. Northern English Accent
5. West Midlands Accent

Anda dapat memilihnya pada tampilan berikut ini:

E. Pengawas Papan Tempel (Clipboard Monitoring)
Pengawas Papan Tempel dapat digunakan untuk mempermudah menuliskan kata dengan Copy-Paste kata dari sumber. Aplikasi akan langsung menuliskan pada kotak pencarian kata. Untuk tujuan tersebut, beri centang ke kotak centang CLB:

F. Tampilan Arti Kata

Terdapat dua jenis tampilan arti kata, yaitu: datar dan baris, seperti gambar berikut:

Tampilan arti model datar

Tampilan arti model baris

G. Aplikasi selalu di Atas
Jika dikehendaki, Anda dapat membuat Octamus selalu di atas. Dengan demikian, apapun aplikasi komputer yang sedang berjalan, Octamus tidak akan tertutupi. Klik centang pada bagian berikut untuk maksud tersebut.

H. Penyuara Kata, TTS (Text-to-Speech)
Penyuara kata akan menyuarakan kata yang dipilih di tampilan daftar kata di sebelah kiri, baik kata maupun frasa. Klik kata yang ingin didengar pelafalannya. Agar dapat bertindak demikian, Anda perlu mencentang TTS

I. Daftar Singkatan

Status Kata:

ARK : kata lama yang tidak terpakai lagi

INF : kata Informal

SLG : kata Slang

Kategori:

ANA: ANATOMI

AST: ASTRONOMI

BIO: BIOLOGI

BIN: BINATANG

BUD: BUDDHA

DOK: DOKTER

ELE: ELEKTRO

FAR: FARMASI

FIS: FISIKA

GEO: GEOLOGI

HUK: HUKUM

ISL: ISLAM

KAT: KATOLIK

KIM: KIMIA

KOM: KOMPUTER

KUL: KULINER

KRI: KRISTEN

LIN: LINGUISTIK

MAT: MATEMATIKA

MUS: MUSIK

PIK: PERIKANAN

PTN: PERTANIAN

PSI: PSIKOLOGI

TUM: TUMBUHAN

Asal Bahasa:

AFR: AFRIKA

AME: AMERIKA

ARA: ARAB

AUS: AUSTRALIA

BRI: BRITISH

OLD: INGGRIS LAMA

BEL: BELANDA

CIN: CINA

IND: INDONESIA

IDA: INDIA

ITA: ITALIA

JER: JERMAN

LAT: LATIN

PER: PERANCIS

RUS: RUSIA

SPA: SPANYOL

SKO: SKOTLANDIA

YUN: YUNANI

Jenis Kata:

IDM : Idiom

FRA : Frasa

Tipe Kata:

KB : Kata Benda

KS : Kata Sifat

KT : Kata Keterangan

KG : Kata Ganti

KK : Kata Kerja

KD : Kata Depan

IT : Kata Seru

SB : Kata Sambung

SX : Akhiran

PX : Awalan

PR : Frasa

NU : Numerik

AR : Artikel

Fungsi Waktu MonthOfTheYear

2022-03-31T15:39:00.001+07:00

Fungsi MonthOfTheYear digunakan untuk mendapatkan urutan bulan dengan hasil bilangan integer. Fungsi ini didefinisikan di unit DateUtils.

Contoh:

Uses DateUtils

var

BulanKe : integer

begin

BulanKe := MonthOfTheYear(now);

ShowMessage('Sekarang bulan ke: ' + IntToStr(BulanKe));

end;

Mengetahui Bahasa Windows

2020-06-30T09:14:00.000+07:00

Program-program dewasa ini tidak hanya dipakai oleh bangsa berhuruf Latin, tetapi juga berhuruf "Gambar". Oleh karena itu adalah perlu mengetahui bahasa yang dipakai di Windows tujuan. Sebagai misal, jika program Anda dipakai oleh orang Tiongkok atau Rusia, sementara bahasa software Anda berbahasa "ANSI", maka akan timbul masalah.

Salah satu langkah dalam membuat program kita berganti bahasa adalah mengetahui bahasa Windows saat itu. Program dibawah ini saya buat sebelum saya memutuskan mengganti layout keyboard ke chinese

function GetWindowsLanguage: string;
var
WinLanguage: array [0..50] of char;
begin
VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50);
Result := StrPas(WinLanguage);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetWindowsLanguage);
end;

Menyelesaikan Masalah Assertion Failure di Delphi 64 Bit

2020-05-01T10:46:00.000+07:00

Saya baru saja mencoba Sistem Operasi 64 Bit. Semuanya berjalan oke-oke saja, tetapi ketika memasang Delphi, permasalahan muncul seperti ini:

Saya hampir kembali ke SO 32 Bit, sampai saya akhirnya menemukan solusi. Delphi saya rupanya tidak kompatibel dengan sistim 64 Bit.

Penyelesaian masalah ini membutuhkan Hex Editor. Anda dapat memakai Hex Editor apa saja. Buka modul Delphi bordbk120N.dll dengan Hex Editor milik Anda.

carilah Hex: 01 00 48 74 47 80 3D

Ubah 74 menjadi EB

sehingga menjadi:

Simpan perubahan.

Meletakkan Gambar di Form dengan TBitmap

2019-05-28T13:19:00.000+07:00

Setiap komponen yang mengandung TCanvas dapat kita gambari. Termasuk form. Kita dapat meletakkan gambar pada form. Yang pertama-tama harus kita ketahui adalah: warna-warna pixel disimpan dalam bentuk bit. Semakin tinggi bit, semakin baik warna yang dapat ditampilkan. Dengan demikian kita harus tahu terlebih dahulu bit yang beroperasi pada komputer itu.

var
Context : HDC;
JumlahBitPerPixel : integer;
i, x : integer;
begin
Context := GetDC(Application.Handle);
JumlahBitPerPixel := GetDeviceCaps(Context, BitsPixel);
case JumlahBitPerPixel of
8 : JenisPixel := pf8Bit ;
16 : JenisPixel := pf16Bit ;
24 : JenisPixel := pf24Bit ;
else JenisPixel := pf32Bit ;
end;
end;

Seperti kita lihat pada contoh diatas, bit-bit yang mungkin beroperasi adalah 8, 16, 24, 32. Begitu kita mendapat bit yang beroperasi, kita menyimpannya di variabel JenisPixel yang bertipe integer. Nilai ini akan dipakai pada property PixelFormat milik TBitmap.

Jika Anda ingin tahu perbedaan PixelFormat, load gambar yang bagus (banyak warna) dan set dengan pixel rendah. Gambar Anda akan jelek karena tidak semua warna muncul.

Kemudian kita ambil gambar dari folder dan diletakkan diobyek TBitmap. Di program contoh, saya asumsikan gambar satu folder dengan file exe saya. Apabila tidak, Anda harus memberikan letak folder secara jelas.

var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.create;
try
with bitmap do begin
LoadFromFile('minion.BMP');

Kemudian, kita setting agar panjang dan tinggi form sesuai dengan ukuran gambar:
Form1.ClientHeight := Height;
Form1.ClientWidth := Width;

lantas kita gambar isi variabel bitmap ke form:
Form1.Canvas.Draw(0,0, bitmap);

Program Selengkapnya:

unit UnitGambar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  JenisPixel : TPixelFormat;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    invalidate;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
    Bitmap : TBitMap;
    Context : HDC;
    JumlahBitPerPixel : integer;
    i, x : integer;
begin
    Context := GetDC(Application.Handle);
    JumlahBitPerPixel := GetDeviceCaps(Context, BitsPixel);
    case JumlahBitPerPixel of
      8 : JenisPixel := pf8Bit ;
      16 : JenisPixel := pf16Bit ;
      24 : JenisPixel := pf24Bit ;
      else  JenisPixel := pf32Bit ;
    end;
    releaseDC(application.Handle, context);

Bitmap := TBitmap.create;
    try
        with bitmap do begin
           LoadFromFile('minion.BMP');
           PixelFormat := JenisPixel;
           Form1.ClientHeight := Height;
           Form1.ClientWidth := Width;
           Form1.Canvas.Draw(0,0, bitmap);
      end;
    finally
     bitmap.Free;
    end;
end;

end.

Membuat Segala Bentuk dengan Polyline dan Polygon

2019-05-27T12:54:00.001+07:00

Saya menulis tentang bagaimana membuat bentuk-bentuk beraturan dengan fungsi-fungsi Rectangle, RoundRect, atau bentuk-bentuk lingkaran dan bagiannya di Arc, Chord, Pie. Tetapi lebih daripada itu, kita juga dapat membuat sembarang bentuk dengan bantuan Polyline dan Polygon di Unit Graphics, class TCanvas.

Pertama-tama tugas kita adalah membuat kumpulan titik yang akan dibuat di TPoint. Kemudian masukkan variabel bertipe TPoint ini sebagai parameter Polilyne seperti ini:

Sintak:
Canvas.Polyline(Titik);
Guna: membuat bentuk terbuka. Titik awal tidak terhubung secara otomatis dengan titik akhir.

atau dengan

Polygon(Titik);
Guna: membuat bentuk tertutup. Titik akhir akan tersambung secara otomatis ke titik awal.

Cara mendeklarasikan Titik adalah sebagai berikut:
var
Titik : array[IndexAwal..IndexeAkhir] of TPoint.

TPoint diisi dengan koordinat titik-titik yang akan dituju oleh penggambaran. Sebagai contoh:

var
Titik : array[0..3] of TPoint;
begin
Titik[0] := Point(25,10);
Titik[1] := Point(300,10);
Titik[2] := Point(300,100);
Titik[3] := Point(25,100);
end;

Kemudian penggambaran dilakukan dengan memasukkan variabel Titik tadi ke dalam method Polyline dan Polygon sebagai berikut:
Canvas.Polyline(Titik);

dan

Canvas.Polygone(Titik);

Program dibawah ini akan membuat persegipanjang berwarna merah dengan tebal garis 5. Perlu dingat bahwa titik 0,0 adalah kiri atas form. Angka pertama koordinat adalah jarak dari kiri ke kanan. Angka kedua koordinat adalah jarak dari atas ke bawah.

Sebagai contoh, koordinat 25, 10 artinya, membuat titik 25 ke kiri dan 10 kebawah.

Program akan menggambar garis dari koordinat 25,10 ke 300,10. Kemudian berlanjut dari 300,10 ke 300,100. Dan dilanjutkan ke koordinat 300,100 ke 25, 100.

Pada perintah Polyline, tidak ada garis dari titik 25,100 ke 25, 10, tetapi pada perintah Polygon, titik 25, 100 akan terhubung otomatis dengan 25, 10.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
invalidate;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
    Titik : array[0..3] of TPoint;
    GeserBawah : integer;
begin
    Titik[0] := Point(25,10);
    Titik[1] := Point(300,10);
    Titik[2] := Point(300,100);
    Titik[3] := Point(25,100);
    Canvas.Pen.Color := clRed;
    Canvas.Pen.Width := 5;
    Canvas.Polyline(Titik);

GeserBawah := 100;

Titik[0] := Point(25,10 + GeserBawah);
    Titik[1] := Point(300,10 + GeserBawah);
    Titik[2] := Point(300,100 + GeserBawah);
    Titik[3] := Point(25,100 + GeserBawah);
    Canvas.Pen.Color := clBlue;
    Canvas.Pen.Width := 5;
    Canvas.Polygon(Titik);
end;

end.

Menggambar Kotak Sudut Tumpul dengan RoundRect

2019-05-27T11:01:00.001+07:00

Menggambar kotak seperti biasa dapat dilakukan dengan perintah Rectangle, namun dengan Delphi, kita dapat membuat sudut-sudutnya tumpul. Secara sintak, hampir sampai dengan Rectangle, hanya saja, kita menambahkan dua parameter tambahan untuk mendefinisikan "seberapa tumpul sudutnya" di parameter x3, y3.

Sintak.
Canvas.RoundRect(x1, y1, x2, y2, x3, y3);

Seperti pada Rectangle. x1, y1 adalah koordinat kiri atas, sedangkan x2, y2 adalah koordinat kanan bawah.

Contoh program dibawah ini akan menggambar kotak sudut tumpul bergaris merah dengan tebal 5:
Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 5;

yang akan diisi warna solid kuning:
Canvas.Brush.Color := clyellow;
Canvas.Brush.Style := bsSolid;

Jangan lupa menyertakan unit Graphics yang memuat class TCanvas.

Contoh Program:

Menggambar Bagian Lingkaran dengan Pie

2019-05-27T10:27:00.003+07:00

Saya menuliskan artikel tentang menggambar dengan Chord (tembereng). Secara sintak hampir sama. Lantas apa beda antara Chord dan Pie. Bedanya ini: Titik ujung chord langsung dihubungkan dengan garis, sedangkan pada Pie, kita bisa menentukan titik di tengah-tengah garis tadi, sehingga ada dua macam garis yang menghubungkan antara kedua ujung busur.

Sintak Pie:
Canvas.Pie(x1,y1,x2,y2,x3,y3,x4,y4);

x1, y1, x2, y2 adalah kotak imajiner disekitar Pie. Gambar Pie seakan-akan digambar didalam kotak tersebut, dengan xi, y1 adalah koordinat kiri atas dan x2, y2 adalah koordinat kanan bawah.

x3, y3, x4,y4, adalah koordinat titik awal penggambaran busur dan titik akhir busur. Busur akan digambar berlawanan dengan jarum jam.

Class TCanvas terdapat pada unit Graphics, sehingga harus menambahkan unit Graphics di bagian deklarasi Unit.

Program dibawah ini akan menggambar Pie dengan garis merah dengan ketebalan 5:
Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 5;

Dan daerah Pie diwarnai dengan warna kuning solid:
Canvas.Brush.Color := clyellow;
Canvas.Brush.Style := bsSolid;

Program Selengkapnya:

Menggambar Tembereng dengan Chord

2019-05-24T15:27:00.000+07:00

Dalam matematika, Tembereng adalah daerah yang dibatas oleh busur dan tali busurnya. Jadi jika Anda membaca artikel saya tentang menggambar busur, maka Anda akan lebih mudah memahami program di artikel ini. Perbedaan, di busur, kita cuma menggambar garis talinya saja, sedangkan tembereng, kita juga menggambar daerah yang dibatasinya. So...kesimpulannya, lebih menarik.

Method-method yang dipakai disini ada di Unit Graphics, sehingga harus disertakan di bagian uses.

Sintak:
Canvas.Chord(x1, y1, x2, y2, x3,y3,x4,y4);

Nah, secara sintak, hampir sama dengan sintak Arch (menggambar busur), perbedaannya cuma mengganti kata Arc dengan Chord.

Dua parameter pertama digunakan untuk menentukan bidang berbentuk kotak (x1, y1, x2, y2). Korrdinat x1,y1 menyatakan koordinat atas gambar, sedangkan dua parameter selanjutnya adalah koordinat kanan bawah.

Sedangkan dua parameter selanjutnya adalah koordinat permulaan (x3, y3) dan akhir (x4, y4) dari busur.

Program dibawah ini akan menggambar dua tembereng dengan warna yang berbeda.

Program Selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    ClientWidth := 500;
    ClientHeight := 250;

FormPaint(Sender);
end;

procedure TForm1.FormPaint(Sender: TObject);
var
    i, GeserKanan, GeserBawah, MulaiX, MulaiY,
    AkhirX, AkhirY, AtasKiriKotakX, AtasKiriKotakY,
    BawahKananKotakX, BawahKananKotakY : integer;
begin
    //-- Tembereng Atas
    Canvas.Pen.Width := 2;
    Canvas.Pen.Color := clRed;
    Canvas.Brush.Style := bsSolid;
    Canvas.Brush.Color := clRed;
    GeserKanan := 0;
    GeserBawah := -20;
    MulaiX := 200;
    MulaiY := 200;
    AkhirX := 100;
    AkhirY :=  200;
    AtasKiriKotakX := 25;
    AtasKiriKotakY := 50;
    BawahKananKotakX := 200;
    BawahKananKotakY := 350;

Canvas.Chord(
      AtasKiriKotakX + i * GeserKanan,
      AtasKiriKotakY + GeserBawah,
      BawahKananKotakX + i * GeserKanan, BawahKananKotakY + GeserBawah,
      MulaiX + i * GeserKanan,
      MulaiY + GeserBawah,
      AkhirX + i * GeserKanan,
      AkhirY + GeserBawah);

//-- Tembereng Bawah
     Canvas.Pen.Width := 5;
     Canvas.Pen.Color := clWhite;
     Canvas.Brush.Style := bsSolid;
     Canvas.Brush.Color := clWhite;

MulaiX := 100;
     MulaiY := 200;
     AkhirX := 300;
     AkhirY :=200;
     GeserBawah := -10;

Canvas.Chord(
       AtasKiriKotakX + i * GeserKanan,
       AtasKiriKotakY + GeserBawah,
       BawahKananKotakX + i * GeserKanan, BawahKananKotakY + GeserBawah,
       MulaiX + i * GeserKanan, MulaiY + GeserBawah,
       AkhirX + i * GeserKanan, AkhirY + GeserBawah);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 invalidate;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    Invalidate;
end;

end.

Manggambar Busur Dengan ARC

2019-05-24T13:45:00.000+07:00

Delphi mempunyai fungsi untuk menggambar busur. Dengan demikian kita tidak perlu susah-susah menggambar dengan pixels. Fungsi yang dipakai adalah method dari Canvas yang terletak di unit Graphics.

Sintak:
Canvas.Arc(x1, y1, x2, y2, x3,y3,x4,y4);

Yang perlu diperhatikan adalah: "Anda harus membayangkan bahwa busur itu digambar di dalam kotak persegi". Kemudian bayangkan titik mulai penggambaran dan titik akhir penggambaran.

x1,y1 : koordinat kotak, diatas kiri.
x2,y2 : koordinat kotak, dibawah kanan.

x3,y3: koordinat awal penggambaran
x4,y4: koordinat akhir penggambaran.

Busur akan digambar berlawanan dengan jarum jam. Sehingga koordinat awal penggambaran terletak di sisi kanan dan akhir penggambaran di sisi kiri.

Contoh program dibawah ini akan menggambar 30 busur dari diameter paling besar ke diameter paling kecil. Setiap kali menggambar, warna garis akan diganti secara random dan diatur di:

R := 1+ Random(255);
G := 1+ Random(255);
B := 1+ Random(255);
Canvas.Pen.Color := TColor(RGB(R,G,B));

Program Selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    ClientWidth := 500;
    ClientHeight := 250;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
   i, GeserKanan, GeserBawah, MulaiX, MulaiY,
   AkhirX, AkhirY, R,G,B, AtasKiriKotakX, AtasKiriKotakY, BawahKananKotakX, BawahKananKotakY : integer;
begin
   Canvas.Pen.Width := 2;
   GeserKanan := 0;
   GeserBawah := 20;
   MulaiX := 300;
   MulaiY := 200;
   AkhirX := 100;
   AkhirY :=200;
   AtasKiriKotakX := 50;
   AtasKiriKotakY := 0;
   BawahKananKotakX := 400;
   BawahKananKotakY := 400;

for i := 1 to 30 do begin

//-- Random warna
       R := 1+ Random(255);
       G := 1+ Random(255);
       B := 1+ Random(255);

Canvas.Pen.Color := TColor(RGB(R,G,B));

Canvas.Arc(
     AtasKiriKotakX + i * GeserKanan,
     AtasKiriKotakY + GeserBawah,
     BawahKananKotakX + i * GeserKanan, BawahKananKotakY + GeserBawah,

MulaiX + i * GeserKanan, MulaiY + GeserBawah,
   AkhirX + i * GeserKanan, AkhirY + GeserBawah);

Inc(AtasKiriKotakX, 5);
   Inc(AtasKiriKotakY,5);

Dec(BawahKananKotakX,5);
   Dec(BawahKananKotakY,5);

end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 invalidate;
end;

end.

Menggambar Titik Warna Tertentu di Form dengan Pixels

2019-05-24T10:16:00.000+07:00

Menggambar titik pada form cukup mudah. Kita gunakan Pixels milik Canvas di unit Graphics. Sintaknya adalah sebagai berikut:

Canvas.Pixels(X,Y) := Warna;

dengan X,Y adalah lokasi titik. X,Y dihitung dari kiri atas form sebagai titik permulaan 0,0. Dan warna adalah warna yang didefinisikan secara kostanta (seperti clRed, clBlue, dll) atau dengan TColor.

Contoh pemakaian:
Canvas.Pixels(100,200);

Program dibawah ini akan mendemokan pembuatan titik dengan warna random yang diletakkan secara random di keseluruhan area form.

Program pembuatan titik diletakkan di Event OnPaint milik form dan menuliskan perintah Invalidate di OnResize milik form. Alasannya: Event OnPaint akan dipanggil oleh form apabila perintah Invalidate dieksekusi. Peletakan invalidate di OnResize bermaksud: "Agar setiap perubahan bentuk form akan menggambar ulang titik-titik itu lagi.

Application.ProcessMessages ditambahkan, agar program tetap bisa disela agar Windows dapat menjalankan antrian program lainnya, sehingga Windows tidak tampak "Hang" atau beku, ketika belum selesai menjalankan perintah.

Program Selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Color := clBlack;
end;

procedure TForm1.FormPaint(Sender: TObject);

var
   i, x, y, R, G, B : integer;
begin
   Canvas.Pixels[1,2] := clRed;

for I:= 1 to 20000 do
    begin

//-- Random tempat
       x := 1+ Random(ClientWidth);
       y := 1+ Random(ClientHeight);

//-- Random warna
       R := 1+ Random(255);
       G := 1+ Random(255);
       B := 1+ Random(255);

Canvas.Pixels[x,y] := TColor(RGB(R,G,B));
       Application.ProcessMessages;
    end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 invalidate;
end;

end.

Membuat Garis dengan MoveTo dan LineTo

2019-05-23T15:22:00.000+07:00

Kita tidak hanya bisa membuat kotak dan elips saja, tetapi juga menggambar garis saja. Garis ini nantinya dapat kita kreasikan menjadi bermacam-macam gambar.

Ada dua perintah yang selalu ada ketika membuat garis, yaitu; MoveTo dan LineTo. Keduanya sama-sama property milik Canvas di class TCanvas.

MoveTo
Sintak:
MoveTo(JarakDariKiri, JarakDariAtas)

Kegunaan:
Memindah lokasi penggambaran.

Contoh:
Canvas.MoveTo(10, 90);

LineTo
Sintak
(JarakDariKiri, JarakDariAtas);

Kegunaan:
Menggambar garis mulai saat titik yang aktif, sampai titik pada parameternya.

Contoh:
Canvas.LineTo(100, 50);

Perlu diingat, bahwa titik 0,0 berada di kiri atas form. Sehingga perintah Canvas.LineTo(100, 50) bermaksud menggambar mulai titik aktif saat ini sampai ke 100 ke kiri, dan 50 dari atas.

Contoh program dibawah ini akan menggambar 10 kotak yang berukuran beda, mulai dari yang paling besar sampai yang paling kecil. Program penggambaran diletakkan di Event OnPaint milik Form dan Tambahkan kode Invalidate di Resize milik form. Seperti kita ketahui, form akan menggambar form di property OnPaint saat perintah Invalidate dieksekusi.

Tebal garis ditentukan di property Canvas.Pen.Width, sedangkan warna garis diatur di Canvas.Pen.Color. Sedangkan ClientHeight dan ClientWidth, berturut-turut digunakan untuk menentukan tinggi dan lebar form.

Program Selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormResize(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //-- bentuk ukuran form
  ClientHeight := 325;
  ClientWidth := 400;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
    JarakDariKiri, PanjangGaris, TinggiGaris,
    JarakGarisDariAtas, TebalGaris, SelisihAntarPersegi, i : integer;
begin
    //-- Inisial
    JarakDariKiri := 50;
    PanjangGaris := 300;
    TinggiGaris := 300;
    JarakGarisDariAtas := 10;
    TebalGaris := 5;
    Canvas.Pen.Width := TebalGaris;
    SelisihAntarPersegi := 10;

for i := 1 to 10 do begin

//-- Permulaan garis dari titik tertentu
    Canvas.MoveTo(JarakDariKiri, JarakGarisDariAtas);

//-- Mulai menggambar persegi
    Canvas.Pen.Color := clRed;
    Canvas.LineTo(JarakDariKiri + PanjangGaris, JarakGarisDariAtas);

Canvas.Pen.Color := clYellow;
    Canvas.LineTo(JarakDariKiri + PanjangGaris, TinggiGaris );

Canvas.Pen.Color := clBlack;
    Canvas.LineTo(JarakDariKiri, TinggiGaris );

Canvas.Pen.Color := clFuchsia;
    Canvas.LineTo(JarakDariKiri, JarakGarisDariAtas);

//-- Persiapan gambar berikutnya
    inc(JarakDariKiri, SelisihAntarPersegi);
    dec(PanjangGaris, SelisihAntarPersegi * 2);
    inc(JarakGarisDariAtas, SelisihAntarPersegi);
    dec(TinggiGaris, SelisihAntarPersegi);
    end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 invalidate;
end;

end.

Membuat Elips dengan Ellipse

2019-05-23T11:32:00.000+07:00

Elips adalah kurva yang membatasi suatu daerah. Di Delphi, kita memanfaatkan fungsi Ellipse yang merupakan property dari Canvas untuk membuat gambar semacam ini. Ada empat parameter yang dibutuhkan. .Dua parameter pertama menyatakan koordinat diatas kiri. Lainnnya, titik koordinat di kanan bawah.

Sintak
Canvas.Ellipse(TitikLebarKiri, TitikTinggiKiri, TitikLebarKananBawah, TitikTinggiKananBawah);

Ketebalan Garis
Besar garis ditentukan oleh property Canvas.Pen.Width
Contoh:
Canvas.Pen.Width := 5;

Arsiran Area Dalam
Bagian dalam Elips dapat diarsir dengan memberikan kostanta berikut:

bsSolid
bsBDiagonal
bsFDiagonal
bsHorizontal
bsVertical
bsCross
bsDiagCross
bsClear

Arsiran dapat ditentukan dengan menuliskan Canvas.Brush.Style
Contoh:
Canvas.Brush.Style := bsVertical;

Warna Arsiran
Dapat ditentukan lewat Canvas.Brush.Color dengan menggunakan kostanta warna atau lewat definisi RGB lewat TColor

Warna Garis
Garis kurva dapat ditentukan dengan Canvas.Pen.Color
Contoh:
Canvas.Pen.Color := clGreen.
atau
Canvas.Pen.Color := TColor(RGB(00,80,00));

Warna-warna dapat dipilih dari kostanta warna yang sudah didefinisikan oleh Delphi di unit Graphics seperti berikut:

clBlack = TColor($000000);
clMaroon = TColor($000080);
clGreen = TColor($008000);
clOlive = TColor($008080);
clNavy = TColor($800000);
clPurple = TColor($800080);
clTeal = TColor($808000);
clGray = TColor($808080);
clSilver = TColor($C0C0C0);
clRed = TColor($0000FF);
clLime = TColor($00FF00);
clYellow = TColor($00FFFF);
clBlue = TColor($FF0000);
clFuchsia = TColor($FF00FF);
clAqua = TColor($FFFF00);
clLtGray = TColor($C0C0C0);
clDkGray = TColor($808080);
clWhite = TColor($FFFFFF);

clMoneyGreen = TColor($C0DCC0);

clSkyBlue = TColor($F0CAA6);

clCream = TColor($F0FBFF);

clMedGray = TColor($A4A0A0);

Program Selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientHeight := 220;
  ClientWidth := 210;

end;

procedure TForm1.FormPaint(Sender: TObject);
var
    TitikLebarKiri, TitikTinggiKiri, TitikLebarKanan, TitikTinggiKanan : integer;
begin
  TitikLebarKiri := 30;
  TitikTinggiKiri := 40;
  TItikLebarKanan := 175;
  TitikTinggiKanan := 175;

//-- Lingkaran paling besar
  Canvas.Pen.Color := clRed;
  Canvas.Brush.Style := bsCross;
  Canvas.Brush.Color := clPurple;
  Canvas.Pen.Width := 1;
  Canvas.Pen.Style := psDot;
  Canvas.Ellipse(
    TitikLebarKiri, TitikTinggiKiri,
   TitikLebarKanan, TitikTinggiKanan
                );

//-- Lingkaran kecil kiri atas
  Canvas.Pen.Width := 5;
  Canvas.Brush.Color := clBlack;
  Canvas.Brush.Style := bsSolid;
  Canvas.Ellipse(10, 10, 50, 50);

//-- Lingkaran kecil kiri bawah
  Canvas.Pen.Width := 5;
  Canvas.Brush.Color := clGreen;
  Canvas.Brush.Style := bsDiagCross;
  Canvas.Ellipse(10, 10 + 150, 50, 50 + 150);

//-- Lingkaran kecil kanan atas
  Canvas.Pen.Width := 5;
  Canvas.Brush.Color := clYellow;
  Canvas.Brush.Style := bsFDiagonal;
  Canvas.Ellipse(150, 10, 190, 50);

//-- Lingkaran kecil kanan bawah
  Canvas.Pen.Width := 5;
  Canvas.Brush.Color := clBlue;
  Canvas.Brush.Style := bsHorizontal;
  Canvas.Ellipse(150, 10 + 150, 190, 50 + 150);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 invalidate;
end;

end.

Menggambar Kotak Dengan Rectangle

2019-05-22T14:20:00.000+07:00

Saya sering melihat, jarang programmer-programmer saat ini yang mendalami masalah grafik. Di jaman saya mempelajari bahasa program pertama kali, tahun 1988, salah satu yang menarik saya justru grafik. Waktu itu memakai bahasa program BASIC. Mungkin karena saat ini sistem operasi berbasis windows, sehingga grafik hal yang biasa saja. Padahal mendalami grafik juga mendukung kita memahami komponen-komponen yang "bisa digambari". Dengan demikian program kita lebih menarik.

Delphi menggambar sesuatu pada form lewat event OnPaint. Even ini dipanggil saat ada instruksi invalidate. Sehingga kita meletakkan invalidate pada saat form "diotak-atik", yaitu di Resize.

Untuk menggambar kotak persegi (baik persegi panjang maupun kotak tergantun ukuran panjang lebar), kita membutuhkan fungsi Rectangle milik TCanvas.

Kita membutuhkan empat parameter. 2 parameter pertama adalah koordinat kiri atas. Sedangkan dua sisanya adalah koordinat kanan bawah.

canvas.Rectangle( 0,0, 50, 50);

Canvas.Pen.Color
Jika diingkan, Anda juga bisa menggambar dengan "tinta" selain hitam seperti diatas. Untuk keperluan ini, kita menggunakan kostanta warna seperti clRed, clBlue, atau clGreen. Contoh, source code diatas pada bagian FormPaint saya ubah seperti dibawah ini untuk menggunakan warna merah.

procedure TForm1.FormPaint(Sender: TObject);
var
i, x : integer;
begin
Canvas.Pen.Color := clRed;
for x := 1 to 10 do begin
i := x * 10;
canvas.Rectangle( i,i, ClientWidth - i, ClientHeight - i);
end;
end;

Canvas.Pen.Width

Besar garis juga bisa diatur dengan Property Width milik Canvas.Pen.

Contoh:

Canvas.Pen.Width := 5;

Contoh program dibawah ini akan menggambar lima kotak yang berlainan ukuran, dimulai dari yang terbesar sampai yang terkecil. Total sebanyak 10 kotak. Masing-masing kotak akan berselisih 10 dari sebelumnya, dengan besar garis 5 dan berwarna merah

procedure TForm1.FormPaint(Sender: TObject);
var
i, x : integer;
begin
Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 5;
for x := 1 to 10 do begin
i := x * 10;
canvas.Rectangle( i,i, ClientWidth - i, ClientHeight - i);
end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
invalidate;
end;

Canvas.Pen.Style

Secara default, bentuk garis adalah psSolid. Anda bisa mengganti garis solid menjadi bermacam-macam dengan berbagai bentuk, semisal: psDash, psDashDot, psDashDotDot, psDot, psClear, psInsideFrame. Namun perlu diingat, Style hanya bisa terlihat jika Width := 1. Lebih dari ini, tak akan terlihat.

Contoh:

Canvas.Pen.Style := psDash;

Canvas.Brush.Style

Kita dapat mengarsir daerah kotak dengan memanfaatkan fungsi Brush. Ada berbagai bentuk arsiran, yaitu: bsSolid, bsDiagonal, bsFDiagonal, bsHorizontal, bsVertical, bsCross, bsDiagCross, dan bsClear.

Canvas.Brush.Color
Warna arsiran (Brush) dapat juga didefinisikan dengan property color milik Canvas.Brush.
Contoh:
Canvas.Brush.Color := clRed;

Pada program dibawah ini, saya akan menggambar satu kotak dengan arsiran bsBDiagonal, dan bentuk garis psDot.

procedure TForm1.FormPaint(Sender: TObject);
var
i, x : integer;
begin
Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 1;
Canvas.Pen.Style := psDot;
Canvas.Brush.Style := bsBDiagonal;
Canvas.Brush.Color := clBlue;
canvas.Rectangle( 10,10, ClientWidth - 10, ClientHeight - 10);
end;

Membuat Parameter di Query

2019-04-26T09:49:00.001+07:00

Pada dasarnya, parameter pada query akan dibuat secara otomatis oleh Delphi. Tapi entah karena apa, terkadang tidak, sehingga kita harus membuat parameter list secara manual.

Parameter membutuhkan dua property, yaitu, nama dan tipe data. Tipe data harus sesuai seperti yang didefinisikan di Unit DB sebagai TFieldType sebagai berikut:

TFieldType =
(ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd,
ftFixedWideChar, ftWideMemo, ftOraTimeStamp, ftOraInterval,
ftLongWord, ftShortint, ftByte, ftExtended, ftConnection, ftParams, ftStream);

Kedua property tadi harus diatur sebelum melakukan perintah query.

contoh berikut ini qry adalah TAdoQuery yang mendapatkan masukan isi parameter KODE dari user.

with qry do
begin
Close;
SQL.Clear;
parameters.clear;
parameters.AddParameter.Name := 'KODE';
parameters.AddParameter.DataType := ftString;
SQL.Add('select KodeGroup, NamaGroup ');
SQL.Add('from KodeGroup ');
SQL.Add('where KodeGolongan = :KODE ');
SQL.Add('Order by KodeGroup ');
Open;

end;

Memakai TDBGrid untuk Menampilkan Data MS Access

2019-03-13T13:10:00.002+07:00

TDBGrid digunakan untuk menampilkan isi atau mengubah tabel atau query. Komponen ini tidak dapat berdiri sendiri. Secara minimal, Anda memakai TDBGrid dengan bantuan TDataSet (table/query) dan TDataSouce.

Cara Pemakaian:
Letakkan TDataSource dan TADOTable di form

Hubungkan TDBGrid dengan TDataSource di property DataSource

Hubungkan TDataSource dengan TDataSet (dalam hal ini TADOTable) dengan mengubah property DataSet:

Isi ConnectionPilih di TADOTable

a. Klik tombol bergambar 3 titik sehingga muncul kotak "Source of Connection":

b. Tekan tombol Build. sehingga muncul kotak dibawah ini. Pilih Microsoft Jet 4.0 OLE DB Provider. Kemudian klik tombol Next.

c. Pada kotak dibawah "Select or enter a database name". Cari database yang diinginkan.

Jika database Anda ber-password, pilih Tab ALL dan pilih "Jet OleDB Database Password" seperti dibawah ini, tetapi jika tidak, maka klik tombol OK.

Pilih table yang akan ditunjukkan isinya

Ganti property Active milik TADOTable ke True

Sekarang jalankan program, isi tabel akan segera terlihat.

Membunyikan Speaker dengan Frekuensi dan Lama Tertentu

2019-03-12T11:10:00.000+07:00

Yah, saya tahu, ini program lama. Membunyikan speaker memang sudah tidak jamannya lagi. Sekarang sudah ada sound system. Tetapi ada kalanya kita membuat program di minimum system. Saya pribadi masih memakainya untuk menandakan user salah memasukkan user dan/atau password.

Membunyikan speaker dapat memakai salah satu fungsi bawaan Delphi, fungsi itu adalah Beep. Ada di unit Windows dengan sintak:

Beep( frekuensi, lama_bunyi )

Frekuensi dapat berkisar antara 37 s.d. 32.767 hertz sedangkan lama_bunyi dalam hitungan milidetik.

Perlu diingat, bahwa fungsi beep tidak hanya ada di Windows, tetapi juga di SysUtils. Agar Delphi tidak salah terka, kita sertakan unit-nya sekalian.

Dibawah ini, saya akan membunyikan frekuensi random antara 100 sampai 5000 dengan panjang bunyi selama 50 milidetik

Contoh Program:

var
   frek, i : integer;
begin
   i := 1
    while i < 5 do begin
         frek := 100 + random(5000);
         Windows.Beep(frek, 50);
    end;
end;

Jangan terlalu lama membunyikan memakai Windows.Beep, karena fungsi ini tidak dapat dikontrol. Ia akan menjalankan suara sampai selesai.

sumber gambar: http://www.clipartpanda.com

Perulangan dengan While DO

2019-03-12T10:34:00.000+07:00

Fungsi While Do mirip dengan fungsi Repeat Until. Perbedaannya, Repeat Until memeriksa kode keluar looping di akhir baris, sedangkan While Do di awal baris. Jika syarat berhenti suatu looping sudah pasti, maka While-Do terasa lebih singkat dalam hal source code. Selebihnya, kedua fungsi ini sama saja.

sintak while do.

while do syarat begin

kode_program

end;

Contoh berikut akan membandingkan kedua fungsi tersebut, while-do dan repeat until, untuk menyelesaikan masalah yang sama, yaitu mencetak bilangan dari 1 sampai dengan 10.

Penyelesaian cara Repeat Until:

var
    i : integer;
    keluar : boolean;
begin
    i := 1;
    keluar := false;

   repeat
       writeln(i);
   inc(i);
       if i > 10 then keluar := not keluar;
until keluar = true;
end;

Penyelesaian cara While-Do:

var
     i : integer;
begin
     i := 1;
    keluar := false;

    While i < 11 do begin
     writeln(i);
     inc(i);
     end;
end;

Membuat Class Sederhana

2018-12-07T14:44:00.002+07:00

secara sederhana, class di Delphi didefinisikan sebagai berikut di dalam sebuah unit:

type
    namaclass = class(namaclassasal)
end;

setiap class dapat diturunkan dari class yang lain. Secara sederhana, class paling minim diturunkan dari class TObject. namaclass adalah identifikasi class yang Anda buat. Nama ini bisa apa saja. sehingga deklarasi diatas dapat dibuat menjadi:

type
    TUtama = class(TObject)
end;

biasanya, karena class minimal adalah TObject, maka jika tidak disebutkan, secara otomatis class asalnya adalah TObject, seperti contoh berikut:

type
    TUtama = class
end;

Jika deklarasi diatas dimasukkan ke dalam sebuah unit, maka penampakannya menjadi seperti ini:

Program diatas dapat Anda compile tanpa kesalahan.Tetapi tentu saja jika dijalankan, tidak menghasilkan apa-apa karena sekedar deklarasi class. Sekarang kita akan membuat perkalian dua bilangan dengan sistem class seperti ini.

Field
Kita akan membuat apa yang disebut Field. Ini adalah semacam variabel internal di dalam class, sehingga pihak diluar class tidak dapat mengaksesnya.Jika ingin mengisinya dari luar class, maka kita harus membuat procedure tersendiri.

Field-field untuk contoh program disini adalah:

perkalian, angka1, angka2 : integer;

Property
Field perkalian, angka1, angka2 tidak bisa diakses langsung oleh program diluar class, sehingga harus dibuatkan property. Tugasnya, adalah memberitahu class agar menganggap perkalian sebagai isi dari variabel internal bernama hasil, sehingga user dapat mengaksesnya melalui field hasil.

property hasil: integer read perkalian;

Method
Dapat dikatakan method mirip fungsi dalam sistem pemrograman yang lama. Segala operasi dilakukan oleh method. Dalam contoh ini, method adalah mengalikan bilangan dari pemanggil dan meletakkan hasilnya dalam field perkalian. Selanjutnya isi dari perkalian dapat diakses oleh pemanggil di field hasil akibat property.

Private, Protected, Public, Published
Hak akses atas pernak-pernik di class dapat diatur oleh pembuat class.
Jika diinginkan bahwa anggota class itu hanya dapat diakses oleh class itu sendiri, maka harus dibuat private. Dalam program ini, saya membuat perkalian, angka1, dan angka2 sebagai private, karena field-field ini hanya diperuntukkan untuk operasi di class ini sendiri. sedangkan property hasil saya buat menjadi public (bisa juga published). Dengan demikian property saya dapat diakses di luar class saya sendiri. Perbedaan public dan published adalah, anggota yang published akan muncul di object inspector di IDE Delphi.

Jika Anda menginginkan beberapa anggota class dapat diakses baik di class itu dan subclass-nya, maka Anda dapat membuatnya menjadi protected.

Oke, deklarasi class selesai, berikutnya, agar class dapat dipakai, maka harus diinstankan terlebih dahulu. Pertama-tama deklarasikan variabel dengan tipe class itu:

var
buat : TUtama;

Kemudian instankan class.

buat := TUtama.Create;

Saya mengisi angka-angka perkalian, sekaligus memrosesnya di class

buat.setHasil(5,2);

Hasil dari operasi method dapat diakses di field hasil.

writeln('Hasil perkalian: ' + IntToStr(buat.hasil));

Perulangan Batas Tertentu dengan FOR

2018-12-06T15:02:00.003+07:00

Fungsi perulangan sering digunakan untuk menggandakan eksekusi baris program dalam batas tertentu. Sintaknya adalah sebagai berikut:

for variabel := angka1 to Batas do begin
{isi program}
end;

variabel harus bertipe integer atau word dan diisi dari nilai angka1 sampai Batas. Jika program hanya berisi satu baris perintah saja, Anda tidak harus menggunakan begin end.

for i:= 1 to 3 do writeln('Saya ganteng');

Namun jika lebih dari satu baris perintah, blok kode program harus diapit oleh begin end. Contoh program dibawah ini akan mencetak kode ASCII dari 1 s.d. 6:

Perulangan For tidak hanya maju. Kita juga dapat menggunakannya untuk hitungan mundur. Pada program dibawah ini, saya akan membalik string dengan bantuan hitungan mundur dengan mengganti kata to menjadi downto.

Fungsi perulangan tidak hanya FOR di Delphi. Kekurangan dari FOR, batas keluar dari perulangan selalu angka dan harus integer. Sementara, terkadang kita bisa memakai boolean atau lainnya. Batas FOR juga harus diberitahukan secara tertentu, sedangkan kita terkadang membutuhkan batas yang ditentukan kemudian.

Membentuk Tanggal dari String Menggunakan EncodeDate

2018-12-06T14:14:00.000+07:00

EncodeDate digunakan untuk membentuk data bertipe TDateTime dari string. Dengan format:

EncodeDate(tahun, bulan, hari);

dengan tahun, bulan dan hari dalam tipe word.

Kenapa why? Kenapa membutuhkan fungsi ini? Saya biasanya menggunakan fungsi ini untuk membatasi data. Program transaksi yang dipakai dalam beberapa waktu, tentunya bisa mempunyai ribuan data. Jika user menginginkan menampilkan data, maka programmer harus membatasinya. Misal, di program bawah ini, saya menggunakan fungsi EncodeDate untuk menampilkan data tanggal pada tanggal satu di bulan pilihan sampai hari ini.

Membalik String dengan AnsiReverseString

2018-12-06T11:10:00.000+07:00

Sejak awal mempelajari pemrograman, saya merasa bahwa banyak perintah Delphi yang terlihat remeh, namun di kemudian hari, justru perintah-perintah remeh ini yang sering membantu saya menyelesaikan pemrograman.

Salah satu perintahnya adalah AnsiReverseString. Fungsinya adalah membalik urutan string, sehingga terbaca dari belakang. Perintah ini saya katakan remeh karena dapat dibuat dengan mudah. Seperti berikut:

Namun kenapa harus ada AnsiReverseString? Ya, nggak pa pa, kebetulan, kita bisa berhemat kode program.

AnsiReverseString ada di unit StrUtils, sehingga jangan lupa menuliskannya pada bagian unit. Sekarag saya akan membuat kode program diatas lebih singkat dengan perintah AnsiReverseString;

Membuat Fungsi

2018-12-06T10:40:00.001+07:00

Fungsi adalah bagian program yang dipanggil oleh bagian program yang lain. Tidak sekedar dipanggil, fungsi juga mengembalikan nilai ke program pemanggilnya.

Sebenarnya fungsi bisa digantikan oleh method di sistem OOP, tetapi penggunaan fungsi memang lebih simpel, lagipula Delphi memang bersifat hibrid, bisa OOP bisa juga struktural seperti bahasa lama.

fungsi didefinisikan sebagai berikut:

fungsi namaFungsi(parameter): nilaifungsi
begin
result : nilaikembali;
end;

result adalah nilai yang dikembalikan oleh sebuah fungsi. Semua tipe data dapat dikembalikan melalui result.

Kita dapat memberikan parameter pada fungsi. Gunanya, parameter-parameter tadi dapat diolah sehingga sesuai keinginan program pemanggil. Ada dua jenis parameter yang dipakai fungsi. Pertama, passing by value. Parameter jenis ini hanya diisi oleh pemanggil untuk diberikan kepada fungsi. Apapun yang terjadi pada parameter itu tidak mempengaruhi nilai yang ada di pemanggil.

Program diatas akan saya ubah, dengan mendapatkan nilai Bil1 dan Bil2 dari user, kemudian memanggil fungsi perkalian untuk mengalikan Bil1 dan Bil2. Namun Bil1 dan Bil2 diterima A1 dan A2. Hasil dari perkalian dikembalikan ke pemanggil dengan:

result := A1 * A2;

Yang kedua, dinamakan passing by reference. Nilai parameter ini mempengaruhi pada program pemanggi. Variabel yang di-passing reference harus diberi kata var

Contoh berikut ini adalah modifikasi dari program diatas. Pada program diatas, hasil perkalian didapatkan dari result, sedangkan program berikut ini, nilai hasil didapatkan dari variabel var.

Daftar Versi Delphi

2018-11-23T13:33:00.001+07:00

Turbo Pascal 1: 1983
Turbo Pascal 2: 1984
Turbo Pascal 3: 1986
Turbo Pascal 4: 1987
Turbo Pascal 5: 1988
Turbo Pascal 5.5: 1989
Turbo Pascal 6: 1990
Turbo Pascal for Windows 1.0
Turbo Pascal for Windows 1.5
Borland Pascal 7
Borland DELPHI 1: 1995
Borland DELPHI 2: 1996
Borland DELPHI 3: 1997
Borland DELPHI 4: 1998
Borland DELPHI 5: 1999
Borland DELPHI 6: 2001
Borland DELPHI 7: 2002
Borland DELPHI 8 for NET: 2003
Borland DELPHI 2005: 2004
Borland DELPHI 2006: 2005
CodeGear DELPHI 2007: 2006
CodeGear DELPHI 2009: 2008
CodeGear DELPHI 2010: 2009
Embarcadero DELPHI XE: 2010
Embarcadero DELPHI XE2: 2011
Embarcadero DELPHI XE3: 2012
Embarcadero DELPHI XE4: April 2013
Embarcadero DELPHI XE5: September 2013
Embarcadero DELPHI XE8:
Embarcadero DELPHI 10 SEATTLE: 2015
Embarcadero DELPHI 10.1 BERLIN: 2016
Embarcadero DELPHI 10.2 TOKYO: 2017

Fungsi Matematika Power

2018-11-05T15:07:00.001+07:00

Power dalam dalam artikel ini adalah pangkat dalam matematika seperti 2 ³ . Dalam Delphi, kita tinggal memakai fungsi ini dengan input-an bilangan. Power adalah fungsi yang terdaftar pada unit Math, sehingga harus ditulis di bagian Unit.

Sintak:

Power(x,y);

dengan
x = bilangan yang dipangkatkan.
y = pangkat bilangan

sehingga 2 ³ ditulis Power(2,3);

Contoh program:

uses
SysUtils, Math;
var
p : single;
begin
try
    p := Power(2,3);
    writeln('2 pangkat 3 = ', FloatToStr(p));

    writeln;

    p := Power(2,0.5);
    writeln('2 pangkat 0.5 = ', FloatToStr(p));

    readln;
except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
end;
end.