Script Delphi


Ini adalah cuplikan Kumpulan Script dari Tutorial Delphi saya …

MENGATUR DIGIT DESIMAL
Tambahkan 2 Edit dan sebuah Button.  Tambahkan script di bawah :
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=Format(‘%.*f’, [4,StrToFloat(Edit1.Text)])
end;
Lalu jalankan aplikasi.  Masukan angka pada Edit1.  Tekan Button1.

Terlihat hasil dibulatkan 4 angka di belakang koma (Saya pakai titik).
Jika Anda ingin menggantinya, misalkan 2 angka saja, maka script menjadi :
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=Format(‘%.*f’, [2,StrToFloat(Edit1.Text)])
end;

PEMISAH RIBUAN
Tambahkan 2 Edit dan Button.  Tambahkan script di bawah :
procedure TForm1.Button1Click(Sender: TObject);
Var
i: Extended;
s: String;
begin
i := StrToFloat(Edit1.Text);
s := Format(‘Rp %.2n’, [i]);
Edit2.Text:=s;
end;
Lalu jalankan aplikasi.  Masukan angka pada Edit1 seperti gambar.  Tekan Button1.

TOGGLE BUTTON
Untuk membuat toggle button, tambahkan sebuah Button.
Tulis script di bawah :
procedure TForm1.Button1Click(Sender: TObject);
begin
  if button1.caption=’Stop’ then Button1.caption:=’Start’
  else Button1.caption:=’Stop’;
end;

MENCARI NAMA HARI
Tambahkan Sebuah Edit, Label dan Button.
Tulis script ini :
procedure TForm1.Button1Click(Sender: TObject);
Var
Tgl:TDateTime;
Hari:Array[1..7] of String;
begin
Hari[1]:=’Minggu’;
Hari[2]:=’Senin’;
Hari[3]:=’Selasa’;
Hari[4]:=’Rabu’;
Hari[5]:=’Kamis’;
Hari[6]:=’Jumat’;
Hari[7]:=’Sabtu’;
Tgl:=StrToDate(Edit1.Text);
Label1.Caption:=’Ini adalah hari : ‘+Hari[DayOfWeek(Tgl)];
end;
Jalankan aplikasi, masukkan tanggal dengan format seperti gambar :

MEMANGGIL APLIKASI WINDOWS
Untuk memanggil aplikasi windows seperti calculator, notepad dan explorer, tambahkan 3 Button seperti gambar, lalu tambahkan script di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
Winexec(‘Calc’,Sw_Normal);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Winexec(‘Notepad’,Sw_Normal);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Winexec(‘Explorer’,Sw_Maximize);
end;

Jika Anda mengetahui nama aplikasi Windows yang akan Anda panggil, Anda bisa menerapkannya dengan format script yang sama.  Misalnya untuk memanggil fungsi merekam, nama filenya adalah Sndrec32.
Maka scriptnya :
Winexec(‘Sndrec32’,Sw_Normal);

FLASH FORM
Tambahkan sebuah Timer pada Form.
Scriptnya sebagai berikut :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 FlashWindow(Handle, true);
 FlashWindow(Application.Handle, true);
end;
Jalankan aplikasi, maka terlihat aplikasi Anda berkedip di Task Bar.

CEK TOMBOL CAPSLOCK
Untuk mengecek tombol CapsLock aktif atau tidak, tambahkan sebuah Button lalu isi dengan script di bawah ini :

Function IsCapsLockOn : boolean;
begin
  Result := 0 <> (GetKeyState(VK_CAPITAL) and $01);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IsCapsLockOn;
If IsCapsLockOn=true then Showmessage(‘Capslock pada Keyboard Anda aktif !’) else
   Showmessage(‘Capslock Keyboard Anda tidak aktif !’);
end;

Iklan

5 Responses to Script Delphi

  1. rembo53rembo berkata:

    Salam Kenal Mas, Saya sangat ingin membeli ebooknya. Tapi saya coba dulu contoh scriptnya. Tapi Hasilnya kok seperti gambar http://oi40.tinypic.com/303gvwo.jpg

    Thanks

    • Septadi berkata:

      Mas Rembo, maaf kayaknya script saat di paste di blog jadi berubah. Harusnya seperti ini.

      Edit2.Text:=Format(‘%.*f’, [4,StrToFloat(Edit1.Text)]);

      Pastikan menggunakan tanda petik satu (Tombol sebelah tombol Enter). Saya tidak tahu kalau ditulis di wordpress jadi berubah.

  2. rembo53 berkata:

    Ternyata Saya Yang Salah, Thanks Gan.

    Kalau Ingin Belajar Cryptography, Apa Bayar Lagi Gan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: