Pemutar file WAV simple

Dilihat dari judulnya pun ya memang fungsinya hanya untuk memutar file wav,yang amat sangat sederhana,maklum belajar
liat aja skrinsutnya

tapi semoga bermanfaat

membuatnya sangat mudah,bahannya hanya 1 buah edit text,3 bitbutton dan 1 buah opendialog,
sebelumnya jangan lupa tambahkan Uses MMSystem ppada Uses nya. nah nih full source code nya gan

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    od: TOpenDialog;
    Label1: TLabel;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if od.Execute then
  edit1.Text:=od.Filename
else
  exit;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text = '' then
  showmessage('pilih dulu wav soundnya')
else
  PlaySound(PChar(edit1.Text),0,SND_NODEFAULT Or SND_ASYNC);
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  sndPlaySound(nil, 0); // Stops the sound
end;

end.  

kalau mau unduh projeknya silahkan unduh aja disini

Read more »

Posted in: Delphi

Simple Image View

im coming bebh,wkkwkwkw ya sekarang postingan iseng kali ini program yaa semacam windows picture viewer gitu lah ,skrinsunya ni gan



maklum lah nyubi,ane bikinnya pake koding seada2 nya,
silahken gan unduh projeknya disini

terakhir,semoga bermanfaat

Read more »

Posted in: Delphi

Try....Except di Delphi

oke,sekarang kita berkenalan dengan klausa try...except,berbeda dengan if...then...else,klausa try...except digunakan untuk menghandle error,untuk contoh kita coba dengan form seperti berikut:

niatya kita akan buat program untuk membagi bilangan dengan nol dan mengeksekusi perhitungan(pertambahan sih),namun jika kita salah input?? (maksudnya ada angka ada kata) so read this and check this.

keisengan pertama pada button1 coba ketik listing berikut:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : real;
begin
  a:=1;
  b:=0;
  c:=a/b;
  showmessage(floattostr(c));
end;

jalankan.
pasti begini:

dan sejak kapan ada bilangan yang bisa dibagi nol???wkwkwkkw]
nah,maka dari itu kita pakai error handler dengan menggunakan try...except,sebelum itu jump dulu kesini, pilih Tool - Debugger Options

lalu pilih Language Exceptions,dan uncheck(jangan ceklis) bagian Stop On Delphi Exceptions nya,OK.

lalu kita coba try...except nya,cuma tambah ko,maka kode baru tersebut jadi seperti ini:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : real;
begin
  try
    a:=1;
    b:=0;
    c:=a/b;
    showmessage(floattostr(c));
  except
    showmessage('bilangan tidak bisa dibagi nol');
  end
end;

coba di run,dan anda bisa menghandle error bahwa showmessage('bilangan tidak bisa dibagi nol');
gampang kan??
begitu juga untuk perhitungan jika kita salah input,perhatikan kode dibawah:

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c : integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  c:=a+b;
  showmessage('hasil penjumlahan adalah = '+inttostr(c));
end;

hmmmmmm sepertinya kode diatas berjalan lancar2 saja,namun coba jika pada edittext jangan masukan angka,ex : karakter/kalimat/apa lah
pasti muncul begini :

maka dari itu gunakan kembali Try...Except.
ubah kode pada button2 menjadi seperti ini :

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c : integer;
begin
  try
    a:=strtoint(edit1.Text);
    b:=strtoint(edit2.Text);
    c:=a+b;
    showmessage('hasil penjumlahan adalah = '+inttostr(c));
  except
    showmessage('jangan masukan kata men');
  end;
end;

jalankan kembali dan anda berhasil kembali.
anda tidak bisa memakai klausa if...then...else untuk menghandle code tersebut,eksepsi sangat diperlukan,artinya try....except adalah error handling dimana blok try adalah perintah untuk memaksa dan blok except adalah jika terjadi fatal error. so semoga bermanfaat.

Read more »

Posted in: Delphi

Menampilkan gambar GIF di Delphi

Sekarang adalah bagian pemanasan dulu,tutor kecil lah,tentang bagaimana memunculkan gambar .gif di komponen TImage,nih dah ane kasih tutornya.

misal,potongan standar mentah kita hanya,1 button,1 Image,1 openpicturedialog dengan uses awal sbb:

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

kemudian beri event onclick pada button1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if openpicturedialog1.Execute then
    image1.Picture.LoadFromFile(openpicturedialog1.FileName)
  else
    exit;
end;

anda hanya bisa menampilkan gambar dengan ekstensi .bmp .ico .wmf .emf
maka dari itu untuk menampilkan gambar gif,maka donlod dulu compiler unit nya disini

kemudian extract here,file itu bernama GIFImage.dcu,kopikan GIFImage.dcu ke C:\Program Files\Borland\Delphi7\Lib paste disana.
cara penggunaannya tambahkan GIFImage pada uses.
lalu coba jalankan lagi program tadi,dan anda bisa masukan gambar gif pada TImage
dijamin BERHASIL

Read more »

Posted in: Delphi

MessageDlgPos

Berbeda dengan Messagedlg,MessageDlgPos adalah message dialog yang posisinya bisa kita sesuaikan,artinya berbeda dengan messagedlg biasa yang kotak dialognya hanya muncul di tengah,dari namanya juga ada kata2 POS otomatis letak bisa kita atur kordinatnya. kordinatnya dalam X dan Y.

dibawah berikut merupakan bunyi fungsi MessageDlgPos dalam Delphi:

function MessageDlgPos ( const Message : string; DialogType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpContext : Longint; X, Y : Integer ) : Integer;

kita lihat penampakan contoh program yang ane bikin gan :

so si kotak akan muncul tidak di tengah2,namun di tempat lain yang telah kita set kordinatnya

buat dipahami,ane share in projek ane gan

Read more »

Posted in: Delphi

Login Database with Encrypt Decrypt

Berhubung postingan kemarin tentang enkrip dekrip sekarang,yang akan di enkrip adalah saat kita mengisi user password dalam databes dan di dekrip saat kita login. jadi ane buat program Login2 database dengan fitur encrypt decrypt. database yang akan kita pakai adalah ms.access,pake mySQL juga bisa namun kita pake yang basic2nya sajah dulu
okeh!!! lanjut gan.
NB : tenang,ane sediain link donlod projeknya,buat latihan


ini adalah penampakannya gan :

secara default beri saja dulu

user : pein
pass : akatsuki

tar juga muncul apa2 saja user dan pass yang bisa kita pakai,maka akan muncul ini gan:

coba di klik atau pindah2kan,maka itulah isi databesnya. dan kita bisa edit,ganti,tambah,hapus

sesuai janji,supaya bisa lihat source nya..
ini link donlod nya gan

Read more »

Posted in: Delphi

Encrypt dan Decrypt

liat gan,pada edittext 2 ,kalimat pada edittext1 ,menjadi ngaco,bukan ngaco sih

itulah encrypt decrypt,encrypt adalah suatu metode untuk mengacak karakter menjadi kode Ascii,dan decrypt adalah sebaliknya.
ga bisa ngejelasin secara skill dewa gan,cuma tebakan cupunya doank,tapi semoga benar.
kita buat aja gan di delphinya


buat form kaya diatas gan.
sebelumnya nih gan fungsi encrypt decrypt nya,pasang dibawah "Implementation"

function Encrypt(const s:String; CryptInt:Integer): String;
var
  i: integer;
  s2: string;
begin
  if not (Length(s) = 0) then
    for i := 1 to Length(s) do
      s2 := s2 + Chr(Ord(s[i]) + CrypTint);
  Result := s2;
end;

function Decrypt(const s:String; CryptInt:Integer): String;
var
  i: integer;
  s2: string;
begin
  if not (Length(s) = 0) then
    for i := 1 to Length(s) do
      s2 := s2 + Chr(Ord(s[i])-cryptint);
  Result := s2;
end;

beri dulu event form show nya gan

procedure TForm1.FormShow(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit3.ReadOnly:=true;
edit2.ReadOnly:=true;
end;

lalu kita panggil fungsi enkrip pada button1

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=encrypt(edit1.Text,length(edit1.Text));
end;

lalu dekrip pada button2

procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:=decrypt(edit2.Text,length(edit2.Text));
end;

jadi gan tinggal dicoba

Read more »

Posted in: Delphi