4 Tricks / How to Display Messages / Message Boxes at Delphi

4 Tricks / How to Display Messages / Message Boxes at Delphi

Trik Delphi Pustaka Matematika   09:50

Usually, if we want to exit Form on Delphi, there is a dialog box containing the message that we want to convey, either in the form of the Yes, No, Cancel, Abort, or message name of the creator of the program. Here's how.

First.

        Showmessage('Syaharuddin');

close;

Second.

       

if messagedlg('Yakin Anda Ingin Keluar...?',mtconfirmation,[mbYes]+[mbNo],0)=mrYes then begin

close;

end;

end;

     

If you want to add Cancel or something else, you can edit it in this section in bold. For example, want to add Cancel, then:

if messagedlg('Yakin Anda Ingin Keluar...?',mtconfirmation,[mbYes]+[mbNo]+[mbCancel],0)=mrYes then begin

close;

end;

end;

Third.

       This message box consists of two lines.

if messageDlg ('Yakin Anda Ingin Keluar ...?'+chr(10)+' '+ 'Programer:Syaharuddin', mtInformation,  [mbYes]+[mbNo],0) = mrYes then begin

application.terminate;

end;

Fourth.

        Combined one and two.

       

Showmessage('Syaharuddin');

if messagedlg('Yakin Anda Ingin Keluar...?', mtconfirmation,[mbYes]+[mbNo],0)= mrYes then begin

Application.Terminate;

end;

You can combine with each other, as needed. May be useful.

Aplikasi Aritmatika: Menghitung Besar Angsuran

Aplikasi Aritmatika: Menghitung Besar Angsuran

Trik Delphi Pustaka Matematika   19:28

Langsung saja desain seperti berikut ini.

Pada tombol “Hitung” ketikkan scribs berikut.

Var Mo,p,n,Mt,Pk,B,T,S:real;

begin

e4.Clear;

Mo:=strtofloat(e1.Text);

p:=strtofloat(e2.Text);

n:=strtofloat(e3.Text);

Pk:=Mo/n;

B:=(n/12)*(p/100)*Mo;

Mt:=Pk+B;

T:=n*Mt;

S:=T-Mo;

e4.Items.Add('Angsuran Pokok = '+floattostr(Pk));

e4.Items.Add('Bunga = '+floattostr(B));

e4.Items.Add('Angsuran Bulanan = '+floattostr(Mt));

e4.Items.Add('Total Pengembalian = '+floattostr(T));

e4.Items.Add('Untung Perusahaan = '+floattostr(S));

Pada tombol “Hapus” ketikkan scribs berikut.

e1.Clear;

e2.Clear;

e3.Clear;

e4.Clear;

e1.SetFocus;

Operasi Matematika: Tambah, Kurang, Kali, Bagi, Logaritma, Eksponen Menggunakan Delphi

Operasi Matematika: Tambah, Kurang, Kali, Bagi, Logaritma, Eksponen Menggunakan Delphi

Trik Delphi Pustaka Matematika   23:56

Operasi Matematika atau yang sering disebut Operator Aritmatika seperti Penjumlahan, Pengurangan, Perkalian, dan Pembagian umumnya sudah dikenal luas dalam mencari hasilnya. Namun terkadang kita masih kesulitan menentukan hasil Logaritma dan Eksponen dari dua buah bilangan. Berikut penulis bagikan aplikasinya menggunakan Delphi.

Langsung saja desain seperti berikut ini.

Tambahkan “Math” pada Uses.

Pada Form à Object Inspector à Event à OnCreate, tambahkan scribs berikut.

Var

x,y:integer;

begin

for x:=1 to 100 do

stringgrid1.Cells[x,0]:=floattostr(x);

for y:=1 to 100 do

stringgrid1.Cells[0,y]:=floattostr(y);

end;

Pada tombol “Tambah” ketikkan scribs berikut.

VAR

x,x1,x2,y,n:integer;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='+';

for x:=0 to n do

for y:=0 to n do

stringgrid1.Cells[x,y]:=inttostr(x+y);

Pada tombol “Kurang” ketikkan scribs berikut.

VAR

x,y,n:integer;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='-';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=inttostr(x-y);

Pada tombol “Kali” ketikkan scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='x';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=floattostr(y*x);

Pada tombol “Bagi” ketikkan scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='/';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=formatfloat('#.000',x/y);

Pada tombol “Logaritma” ketikkan scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='Log';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=formatfloat('#.000',Log10(x));

Pada tombol “Eksponen” ketikkan scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='x';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=floattostr(power(y,x));

Aplikasi Cara Menentukan Nilai Kelulusan, Ketuntasan atau Grade

Aplikasi Cara Menentukan Nilai Kelulusan, Ketuntasan atau Grade

Trik Delphi Pustaka Matematika   23:20

Langsung saja desain seperti berikut ini.

Pada tombol “Hitung” ketikkan scribs berikut.

Var

k,t,u,s,k1,t1,u1,s1,n:real;

l,p:string;

begin

k:=strtofloat(edit1.Text);

t:=strtofloat(edit2.Text);

u:=strtofloat(edit3.Text);

s:=strtofloat(edit4.Text);

k1:=strtofloat(edit5.Text);

t1:=strtofloat(edit6.Text);

u1:=strtofloat(edit7.Text);

s1:=strtofloat(edit8.Text);

n:=(k*k1/100)+(t*t1/100)+(u*u1/100)+(s*s1/100);

edit9.Text:=floattostr(n);

if  n<=50 then

begin

l:='MAAF!, ANDA HARUS NGULANG TAHUN DEPAN';

p:='BURUK';

edit10.Text:=l;

edit11.Text:=p;

end

else

if  n<=60 then

begin

l:='ANDA LULUS, TAPI HAMPIR ANDA NGULANG LAGI TAHUN DEPAN';

p:='CUKUP';

edit10.Text:=l;

edit11.Text:=p;

END

ELSE

if  n<=70 then

begin

l:='ANDA LULUS, TINGKATKAN';

p:='BAIK';

edit10.Text:=l;

edit11.Text:=p;

END

ELSE

if  n<=80 then

begin

l:='ANDA LULUS, TINGKATKAN';

p:='BAIK SEKALI';

edit10.Text:=l;

edit11.Text:=p;

END

ELSE

if  n<=90 then

begin

l:='ANDA LULUS, TINGKATKAN';

p:='BAIK SEKALI';

edit10.Text:=l;

edit11.Text:=p;

END

ELSE

if  n<=100 then

begin

l:='ANDA LULUS, PERTAHANKAN';

p:='ISTIMEWA';

edit10.Text:=l;

edit11.Text:=p;

end;

end;

Pada tombol “New” ketikkan scribs berikut.

SHOWMESSAGE('Input Data Baru');

EDIT1.Clear;

EDIT2.Clear;

EDIT3.Clear;

EDIT4.Clear;

EDIT5.Clear;

EDIT6.Clear;

EDIT7.Clear;

EDIT8.Clear;

EDIT9.Clear;

EDIT10.Clear;

EDIT11.Clear;

EDIT1.SetFocus;

Lakukan simulasi.

Semoga Bermanfaat.