LISTING PROGRAM MATEMATIKA Program Delphi Disusun untuk memenuhi tugas akhir mata kuliah Program Komputer Dosen

Pembimbing: Deddy Sofyan, [Link].

Oleh : Barkah Ismail Aji 09512049 Kelas 2 C

Jurusan Pendidikan Matematika Sekolah Tinggi Keguruan dan Ilmu Pendidikan (STKIP) GARUT Juli 2011

Program Matematika 1. Program animasi

procedure brAnimasiTivi(FForm:TForm; Muncul:Boolean); var i,j,k,l:Integer; hs : array [0..600] of hrgn; begin j:=0;i:=0;l:=0; //--------------------------------------------------------------------- Muncul if Muncul then begin for k:=0 to 800 do begin if (j+2<([Link] div 2)) then begin j:=j+2; if j>([Link] div 2) then i:=[Link]; hs[k]:=CreateRectRgn(i,j,[Link]-i,[Link]-j); end else if (i+6<[Link] div 2) then begin i:=i+8; hs[k]:=CreateRectRgn(i,j,[Link]-i,[Link]-j); end else begin l:=k; break; end;//if end;//for SetWindowRgn([Link],CreateRectRgn(0,0,0,0),true); [Link]:=true; for i:=l downto 0 do begin SetWindowRgn([Link],hs[i],true); sleep(10);

end; SetWindowRgn([Link],0,true); end else //--------------------------------------------------------------------- Hilang begin //Tidak Muncul for k:=0 to 599 do begin if (j+2<([Link] div 2)) then begin j:=j+2; if j>([Link] div 2) then i:=[Link]; hs[k]:=CreateRectRgn(i,j,[Link]-i,[Link]-j); end else if (i+6<[Link] div 2) then begin i:=i+8; hs[k]:=CreateRectRgn(i,j,[Link]-i,[Link]-j); end else begin l:=k; break; end;//if end;//for for i:=0 to l do begin SetWindowRgn([Link],hs[i],true); sleep(5); end; SetWindowRgn([Link],CreateRectRgn(0,0,0,0),true); end;//if end; procedure [Link](Sender: TObject; var Action: TCloseAction); begin brAnimasiTivi(Self, False); end; procedure [Link](Sender: TObject); begin brAnimasiTivi(Self, True); end; procedure Tanimasi.SpeedButton1Click(Sender: TObject); begin if [Link]='' then begin messagedlg('kolom password belum terisi',mtinformation,[mbretry],0); end else if [Link]=[Link] then begin [Link];

[Link]; [Link]; end

end; procedure Tanimasi.SpeedButton2Click(Sender: TObject); begin [Link]; end; procedure Tanimasi.SpeedButton3Click(Sender: TObject); begin [Link]; end; procedure Tanimasi.SpeedButton4DblClick(Sender: TObject); begin [Link]:=false; end; procedure Tanimasi.Timer1Timer(Sender: TObject); begin a:=a+1; if a mod 13 =0 then begin [Link]:='Welcome'; [Link]:=''; [Link]:='my'; [Link]:=''; end else if a mod 13=1 then begin [Link]:=''; [Link]:='to'; [Link]:=''; [Link]:='project'; end else if a mod 13=2 then begin [Link]:=''; [Link]:=''; [Link]:='my';

[Link]:=''; end else if a mod 13=3 then begin [Link]:='welcome'; [Link]:=''; [Link]:=''; [Link]:=''; end else if a mod 13=4 then begin [Link]:=''; [Link]:=''; [Link]:=''; [Link]:='project'; end else if a mod 13=5 then begin [Link]:=''; [Link]:='to'; [Link]:=''; [Link]:=''; end else if a mod 13=6 then begin [Link]:=''; [Link]:=''; [Link]:=''; [Link]:=''; end else if a mod 13=7 then begin [Link]:='welcome'; [Link]:=''; [Link]:=''; [Link]:=''; end else if a mod 13=8 then begin [Link]:='';

[Link]:='to'; [Link]:=''; [Link]:=''; end else if a mod 13=9 then begin [Link]:=''; [Link]:=''; [Link]:='my'; [Link]:=''; end else if a mod 13=10 then begin [Link]:=''; [Link]:=''; [Link]:=''; [Link]:='project'; end else if a mod 13=11 then begin [Link]:=''; [Link]:=''; [Link]:=''; [Link]:=''; end else if a mod 13=12 then begin [Link]:='welcome'; [Link]:='to'; [Link]:='my'; [Link]:='project'; end end; end.

2. Program Gen

const Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; var gen: Tgen; i, x, a: integer; s1, s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12: string; implementation {$R *.dfm} procedure Tgen.Button1Click(Sender: TObject); begin s1 := Codes64; s2 := ''; for i := 0 to 5 do begin x := Random(Length(s1)); x := Length(s1) - x; s2 := s2 + s1[x]; s1 := Copy(s1, 3,x - 2) + Copy(s1, x + 5,Length(s1)); end; [Link]:= s2; end; procedure Tgen.Timer1Timer(Sender: TObject); begin s1 := Codes64; s2 := ''; s3 := ''; s4 := '';

s5 := ''; s6 := ''; s7 := ''; s8 := ''; s9 := ''; s10 := ''; s11 := ''; s12 := ''; x := Random(Length(s1)); x := Length(s1) - x; s3 := s3 + s1[x]; s1 := Copy(s1, 2,x - 5) + Copy(s1, x + 1,Length(s1)); x := Random(Length(s1)); x := Length(s1) - x; s4 := s4 + s1[x]; s1 := Copy(s1, 2,x - 3) + Copy(s1, x + 1,Length(s1)); x := Random(Length(s1)); x := Length(s1) - x; s5 := s5 + s1[x]; s1 := Copy(s1, 2,x - 5) + Copy(s1, x + 1,Length(s1)); x := Random(Length(s1)); x := Length(s1) - x; s6 := s6 + s1[x]; s1 := Copy(s1, 2,x - 7) + Copy(s1, x + 1,Length(s1)); x := Random(Length(s1)); x := Length(s1) - x; s7 := s7 + s1[x]; s1 := Copy(s1, 2,x - 6) + Copy(s1, x + 1,Length(s1)); x := Random(Length(s1)); x := Length(s1) - x; s8 := s8 + s1[x]; s1 := Copy(s1, 2,x - 8) + Copy(s1, x + 1,Length(s1)); x := Random(Length(s1)); x := Length(s1) - x; s9 := s9 + s1[x]; s1 := Copy(s1, 2,x - 9) + Copy(s1, x + 1,Length(s1)); x := Random(Length(s1)); x := Length(s1) - x;

s10 := s10 + s1[x]; s1 := Copy(s1, 2,x - 1) + Copy(s1, x + 1,Length(s1)); x := Random(Length(s1)); x := Length(s1) - x; s11 := s12 + s1[x]; s1 := Copy(s1, 2,x - 14) + Copy(s1, x + 1,Length(s1)); x := Random(Length(s1)); x := Length(s1) - x; s12 := s12 + s1[x]; s1 := Copy(s1, 2,x - 16) + Copy(s1, x + 1,Length(s1)); [Link]:= s3; [Link]:= s4; [Link]:= s5; [Link]:= s6; [Link]:= s7; [Link]:= s8; [Link]:= s9; [Link]:= s10; [Link]:= s11; [Link]:= s12; a:=a+1; if a=1 then [Link]:=true; if a=2 then [Link]:=true; if a=3 then [Link]:=true; if a=4 then [Link]:=true; if a=5 then begin [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; a:=0; end else begin if a=1 then [Link]:=true; if a=2 then [Link]:=true; if a=3 then [Link]:=true; if a=4 then [Link]:=true; end;

end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end. 3. Program Menu Awal

procedure Tawal.BangunDatar1Click(Sender: TObject); begin [Link]; materi_segi_empat.show; end; procedure Tawal.BangunRuang1Click(Sender: TObject); begin [Link]; materi_bangun_ruang.show; end; procedure [Link](Sender: TObject); begin if [Link] then begin

for i:=0 to [Link]-1 do [Link]([Link][i]); [Link]:=true; [Link]:=0; end; end; procedure [Link](Sender: TObject); begin if [Link] = 'Start' then begin index:=[Link]; [Link]:=[Link][index]; [Link]; [Link]:=extractfilename([Link]); [Link]:=200; [Link]:=[Link]; [Link]; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:='Pause'; end else if [Link] = 'Pause' then begin [Link]; [Link]:='Play'; end else if [Link] = 'Play' then begin [Link]; [Link]:='Pause'; end else end; procedure [Link](Sender: TObject); begin [Link]; [Link]:=false; [Link]:=8; [Link]:='Start'; end; procedure Tawal.DataMahsiswa1Click(Sender: TObject); begin [Link];

data_mahasiswa.show; data_mahasiswa.[Link]:=true; end; procedure Tawal.Exit1Click(Sender: TObject); begin [Link]; end; procedure [Link](Sender: TObject; var Action: TCloseAction); begin [Link]; end; procedure [Link](Sender: TObject); begin [Link]:=''; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; end; procedure Tawal.Hapus1Click(Sender: TObject); begin [Link]([Link]); end; procedure Tawal.Kalkulator1Click(Sender: TObject); begin [Link]; [Link]; end; procedure [Link](Sender: TObject); begin [Link]:='Start'; [Link](self); end; procedure Tawal.Peluang1Click(Sender: TObject); begin [Link]; [Link]; end;

procedure [Link](Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); begin [Link]:=[Link]; [Link]; end;

procedure Tawal.Timer1Timer(Sender: TObject); begin [Link]:=[Link]-1; if [Link] = [Link] then [Link]:=[Link]+1; if [Link]=[Link] then begin if index + 1 =[Link] then begin [Link](self); [Link]:=0; end else begin [Link]:=index+1; [Link]:='Start'; [Link](self); end; end; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end.

4. Program Materi Segi Empat

procedure TMateri_Segi_Empat.BelahKetupat1Click(Sender: TObject); begin materi_segi_empat.Hide; Belah_ketupat.show; end;

procedure TMateri_Segi_Empat.JajarGenjang1Click(Sender: TObject); begin materi_segi_empat.Hide; jajar_genjang.show; end; procedure TMateri_Segi_Empat.Layanglayang1Click(Sender: TObject); begin materi_segi_empat.Hide; layang_layang.show; end; procedure TMateri_Segi_Empat.Menu1Click(Sender: TObject); begin materi_segi_empat.Hide; [Link]; end;

procedure TMateri_Segi_Empat.Persegi1Click(Sender: TObject); begin materi_segi_empat.Hide; persegi_panjang.show; end; procedure TMateri_Segi_Empat.Persegi2Click(Sender: TObject); begin materi_segi_empat.Hide; [Link]; end; procedure TMateri_Segi_Empat.rapesium1Click(Sender: TObject); begin materi_segi_empat.Hide; [Link]; end; procedure Tmateri_segi_empat.WMNCHitTest(var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end. 5. Program Persegi Panjang

procedure Tpersegi_panjang.BitBtn1Click(Sender: TObject); begin

a:= strtoint([Link]); b:= strtoint([Link]); c:=a*b; d:=2*(a+b); [Link]:=true; [Link]('Luas Persegi Panjang Tersebut Adalah' +floattostr(c)); [Link]('Keliling Persegi Panjang Tersebut Adalah' +floattostr(d)); end; procedure Tpersegi_panjang.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link]:=false; [Link]; end;

procedure Tpersegi_panjang.Button1Click(Sender: TObject); begin persegi_panjang.Hide; materi_segi_empat.show; end;

procedure Tpersegi_panjang.WMNCHitTest(var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end.

6. Program Persegi

procedure TPersegi.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:=a*a; c:=4*a; [Link]:=true; [Link]('Luas Persegi Tersebut Adalah' +floattostr(b)); [Link]('Keliling Persegi Tersebut Adalah' +floattostr(c)); end; procedure TPersegi.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]:=false; [Link]; end; procedure TPersegi.Button1Click(Sender: TObject); begin [Link]; materi_segi_empat.show; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end.

7. Program Jajar Genjang

procedure Tjajar_genjang.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:= strtoint([Link]); c:=a*b; [Link]:=true; [Link]('Luas Jajar Genjang Tersebut Adalah' +floattostr(c)); end; procedure Tjajar_genjang.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link]:=false; [Link]; end;

procedure Tjajar_genjang.Button1Click(Sender: TObject); begin jajar_genjang.Hide; materi_segi_empat.show; end;

procedure Tjajar_genjang.WMNCHitTest(var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end. 8. Program Belah Ketupat

procedure Tbelah_ketupat.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:= strtoint([Link]); c:= strtoint([Link]); d:=1/2*a*b; e:=4*c; [Link]:=true; [Link]('Luas Belah Ketupat Tersebut Adalah' +floattostr(d)); [Link]('Keliling Belah Ketupat Tersebut Adalah' +floattostr(e)); end; procedure Tbelah_ketupat.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link];

[Link]:=false; [Link]; end;

procedure Tbelah_ketupat.Button1Click(Sender: TObject); begin belah_ketupat.Hide; materi_segi_empat.show; end;

procedure Tbelah_ketupat.WMNCHitTest(var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end. 9. Program Layang-layang

procedure Tlayang_layang.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:= strtoint([Link]); c:= strtoint([Link]); d:= strtoint([Link]); e:=1/2*a*b; f:=(2*c)+(2*d);

[Link]:=true; [Link]('Luas Layang-layang Tersebut Adalah' +floattostr(e)); [Link]('Keliling Layang-layang Tersebut Adalah' +floattostr(f)); end; procedure Tlayang_layang.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link]; [Link]; [Link]:=false; [Link]; end;

procedure Tlayang_layang.Button1Click(Sender: TObject); begin layang_layang.Hide; materi_segi_empat.show; end;

procedure Tlayang_layang.WMNCHitTest(var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; 10. Program Trapeisum

procedure Ttrapesium.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:= strtoint([Link]); c:= strtoint([Link]); F:=a+b+c+d; e:=1/2*(b+c)*a; [Link]:=true; [Link]('Luas Trapesium Tersebut Adalah' +floattostr(e)); [Link]('Keliling Trapesium Tersebut Adalah' +floattostr(f)); end; procedure Ttrapesium.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link]; [Link]; [Link]:=false; [Link]; end; procedure Ttrapesium.Button1Click(Sender: TObject); begin [Link]; materi_segi_empat.show; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end.

11. Program Materi Bangun Ruang

procedure TMateri_bangun_ruang.BelahKetupat1Click(Sender: TObject); begin materi_bangun_ruang.Hide; [Link]; end; procedure TMateri_bangun_ruang.JajarGenjang1Click(Sender: TObject); begin materi_bangun_ruang.Hide; [Link]; end; procedure TMateri_bangun_ruang.Layanglayang1Click(Sender: TObject); begin materi_bangun_ruang.Hide; [Link]; end; procedure TMateri_bangun_ruang.Menu1Click(Sender: TObject); begin materi_bangun_ruang.Hide; [Link]; end; procedure TMateri_bangun_ruang.Menu2Click(Sender: TObject); begin materi_bangun_ruang.hide; [Link]; end; procedure TMateri_bangun_ruang.Persegi1Click(Sender: TObject);

begin materi_bangun_ruang.hide; [Link] end; procedure TMateri_bangun_ruang.Persegi2Click(Sender: TObject); begin materi_bangun_ruang.Hide; [Link]; end; procedure TMateri_bangun_ruang.rapesium1Click(Sender: TObject); begin materi_bangun_ruang.Hide; [Link]; end; end. 12. Program Balok

procedure Tbalok.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:= strtoint([Link]); c:= strtoint([Link]); d:= a*b*c; e:= 2*((a*b)+(a*c)+(b*c)); [Link]:=true; [Link]('Volume balok Tersebut Adalah' +floattostr(d)); [Link]('Luas selimut Balok Tersebut Adalah' +floattostr(e));

end; procedure Tbalok.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link]; [Link]:=false; [Link]; end; procedure Tbalok.Button1Click(Sender: TObject); begin [Link]; materi_bangun_ruang.show; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end. 13. Program Kubus

procedure Tkubus.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]);

b:=a*a*a; c:=6*a*a; [Link]:=true; [Link]('Volume Kubus Tersebut Adalah' +floattostr(b)); [Link]('Luas Permukaan Kubus Tersebut Adalah' +floattostr(c)); end; procedure Tkubus.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]:=false; [Link]; end; procedure Tkubus.Button1Click(Sender: TObject); begin [Link]; materi_bangun_ruang.show; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end. 14. Program Prisma

procedure Tprisma.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:= strtoint([Link]); c:= strtoint([Link]); d:= strtoint([Link]);; e:= 1/2*a*c; f:=a+b+c; [Link]:=floattostr(e); [Link]:=floattostr(f); g:= d*e; h:=(2*e)+f*d; [Link]:=true; [Link]('Volume Prisma Tersebut Adalah' +floattostr(g)); [Link]('Luas Permukaan Prisma Tersebut Adalah' +floattostr(h)); end; procedure Tprisma.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link]; [Link]; [Link]; [Link]; [Link]:=false; [Link]; end; procedure Tprisma.Button1Click(Sender: TObject); begin [Link]; materi_bangun_ruang.show; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end.

15. Program Limas

procedure Tlimas.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:=strtoint([Link]); c:=strtoint([Link]); d:=1/2*a*b*c; e:=((a+b)*c)+(a*b); [Link]:=true; [Link]('Volume Kubus Tersebut Adalah' +floattostr(d)); [Link]('Luas Permukaan Kubus Tersebut Adalah' +floattostr(e)); end; procedure Tlimas.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]:=false; [Link]; end; procedure Tlimas.Button1Click(Sender: TObject); begin [Link]; materi_bangun_ruang.show; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then

if [Link] < Top + 1000 then [Link] := htCaption; end; end. 16. Program Kerucut

procedure Tkerucut.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:= strtoint([Link]); c:= strtoint([Link]); d:=22/7; e:= d*a*a; f:=d*a*c; [Link]:=floattostr(e); [Link]:=floattostr(f); g:= 1/3*d*a*a*b; h:=e+f; [Link]:=true; [Link]('Volume Kerucut Tersebut Adalah' +floattostr(g)); [Link]('Luas Permukaan Kerucut Tersebut Adalah' +floattostr(h)); end; procedure Tkerucut.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link];

[Link]; [Link]; [Link]; [Link]:=false; [Link]; end; procedure Tkerucut.Button1Click(Sender: TObject); begin [Link]; materi_bangun_ruang.show; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end. 17. Program Tabung

procedure Ttabung.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:= strtoint([Link]); d:=22/7; e:= d*a*a;

f:=2*d*a*b; [Link]:=floattostr(e); [Link]:=floattostr(f); g:= 1/4*d*a*a*b; h:=(2*e)+f; [Link]:=true; [Link]('Volum Tabung Tersebut Adalah' +floattostr(g)); [Link]('Luas Permukaan Tabung Tersebut Adalah' +floattostr(h)); end; procedure Ttabung.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link]:=false; [Link]; end; procedure Ttabung.Button1Click(Sender: TObject); begin [Link]; materi_bangun_ruang.show; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end.

18. Program bola

procedure Tbola.BitBtn1Click(Sender: TObject); begin a:= strtoint([Link]); b:= 22/7; c:=4/3*b*a*a*a; d:=4*b*a*a; [Link]:=true; [Link]('Volume Bola Tersebut Adalah' +floattostr(b)); [Link]('Luas Selimut Bola Tersebut Adalah' +floattostr(c)); end; procedure Tbola.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]:=false; [Link]; end; procedure Tbola.Button1Click(Sender: TObject); begin [Link]; materi_bangun_ruang.show; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then

if [Link] < Top + 1000 then [Link] := htCaption; end; end. 19. Program Peluang

a. Permutasi

b. Kombinasi

procedure TPeluang.BitBtn1Click(Sender: TObject); begin if [Link] then begin n := strtoint([Link]); fakt1:=1; for a := 2 to n do fakt1:=fakt1*a; [Link]:=inttostr(fakt1); k := strtoint([Link]); fakt2:=1; for b := 2 to k do fakt2:=fakt2*b; [Link]:=inttostr(fakt2); if n>k then begin nminusk:=n-k; fakt3:=1; for c := 2 to NminusK do fakt3:=fakt3*c; [Link]:=inttostr(fakt3); d:=fakt1/fakt3; [Link](inttostr(n)+' Permutasi '+inttostr(K)+ ' = ' +floattostr(d)); end else if n<k then begin e:=n-k;; [Link]:='Tidak Terdefinisi'; [Link]('banyaknya permutasi tidak terdefinisi'); [Link]('karena ( '+inttostr(n)+'-'+inttostr(K)+ ') = '+floattostr(e)+ ' maka tidak terdefinisikan'); end end else if [Link] then begin n := strtoint([Link]); fakt1:=1; for a := 2 to n do fakt1:=fakt1*a; [Link]:=inttostr(fakt1); r := strtoint([Link]);

fakt2:=1; for b := 2 to r do fakt2:=fakt2*b; [Link]:=inttostr(fakt2); if n>r then begin nminusR:=n-r; fakt3:=1; for c := 2 to NminusR do fakt3:=fakt3*c; [Link]:=inttostr(fakt3); d:=fakt1/(fakt3*fakt2); [Link](inttostr(n)+' kombinasi '+inttostr(r)+ ' = ' +floattostr(d)); end end else if n<r then begin e:=n-r;; [Link]:='Tidak Terdefinisi'; [Link]('banyaknya kombinasi tidak terdefinisi'); [Link]('karena ('+inttostr(n)+'-'+inttostr(r)+ ') = '+floattostr(e)+ 'maka tidak terdefinisikan'); end end; procedure TPeluang.BitBtn2Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link]; [Link]; [Link]; [Link]; end; procedure TPeluang.Button1Click(Sender: TObject); begin [Link]; [Link]; [Link]; [Link]; [Link]; [Link];

[Link]; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]:=false; [Link]; [Link]; end; procedure [Link](Sender: TObject); begin [Link]; [Link]; end; procedure [Link](Sender: TObject); begin [Link]; [Link]; [Link]:=cllime; [Link]:='KOMBINASI'; [Link]:='Bilangan Pertama atau n'; [Link]:='Bilangan Kedua atau r'; [Link]:='Faktorial n atau n!'; [Link]:='Faktorial r atau r!'; [Link]:='Faktorial (n-r) atau (n-r)!'; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true;

[Link]; [Link]; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; end; procedure [Link](Sender: TObject); begin [Link]; [Link]; [Link]:=clinactivecaption; [Link]:='PERMUTASI'; [Link]:='Bilangan Pertama atau N'; [Link]:='Bilangan Kedua atau K'; [Link]:='Faktorial N atau N!'; [Link]:='Faktorial K atau K!'; [Link]:='Faktorial (N-K) atau (N-K)!'; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]; [Link]; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true; [Link]:=true;

end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end. 20. Program Kalkulator

procedure Tkalkulator.Button1Click(Sender: TObject); begin [Link]:='0'; end; procedure Tkalkulator.Button20Click(Sender: TObject); begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link]));

if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemAngka:=[Link]; MemLogic:='0'; end;

procedure Tkalkulator.Button21Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then if MemLogic='0' then MemOperator:='x' else if (MemOperator='') then begin MemOperator:='sin'; MemLogic:='0'; MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180)));

if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemOperator:='sin'; MemLogic:='0'; end; end; procedure Tkalkulator.Button22Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then if MemLogic='0' then MemOperator:='x' else if (MemOperator='') then begin MemOperator:='cos'; MemLogic:='0'; MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemOperator:='cos'; MemLogic:='0'; end; end;

procedure Tkalkulator.Button23Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then if MemLogic='0' then MemOperator:='x' else if (MemOperator='') then begin MemOperator:='tan'; MemLogic:='0'; MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemOperator:='tan'; MemLogic:='0'; end; end; procedure Tkalkulator.Button2Click(Sender: TObject); begin [Link]; [Link]; end; procedure Tkalkulator.Button3Click(Sender: TObject); begin if [Link]='0' then

[Link]:=''; if [Link]<>' ' then if MemLogic='0' then begin MemLogic:='1'; if MemOperator<>'' then [Link]:='1' else [Link]:='1'; end else [Link]:=[Link]+'1'; end; procedure Tkalkulator.Button4Click(Sender: TObject); begin if [Link]='0' then [Link]:=''; if [Link]<>' ' then if MemLogic='0' then begin MemLogic:='2'; if MemOperator<>'' then [Link]:='2' else [Link]:='2'; end else [Link]:=[Link]+'2'; end; procedure Tkalkulator.Button5Click(Sender: TObject); begin if [Link]='0' then [Link]:=''; if [Link]<>' ' then if MemLogic='0' then begin MemLogic:='3'; if MemOperator<>'' then [Link]:='3' else [Link]:='3'; end else [Link]:=[Link]+'3'; end; procedure Tkalkulator.Button6Click(Sender: TObject); begin if [Link]='0' then [Link]:='';

if [Link]<>' ' then if MemLogic='0' then begin MemLogic:='4'; if MemOperator<>'' then [Link]:='4' else [Link]:='4'; end else [Link]:=[Link]+'4'; end; procedure Tkalkulator.Button7Click(Sender: TObject); begin if [Link]='0' then [Link]:=''; if [Link]<>' ' then if MemLogic='0' then begin MemLogic:='5'; if MemOperator<>'' then [Link]:='5' else [Link]:='5'; end else [Link]:=[Link]+'5'; end; procedure Tkalkulator.Button8Click(Sender: TObject); begin if [Link]='0' then [Link]:=''; if [Link]<>' ' then if MemLogic='0' then begin MemLogic:='6'; if MemOperator<>'' then [Link]:='6' else [Link]:='6'; end else [Link]:=[Link]+'6'; end; procedure Tkalkulator.Button9Click(Sender: TObject); begin if [Link]='0' then [Link]:=''; if [Link]<>' ' then

if MemLogic='0' then begin MemLogic:='7'; if MemOperator<>'' then [Link]:='7' else [Link]:='7'; end else [Link]:=[Link]+'7'; end; procedure Tkalkulator.ColorBox1Change(Sender: TObject); begin [Link]:=[Link]; end; procedure Tkalkulator.BitBtn1Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then if MemLogic='0' then MemOperator:='x' else if (MemOperator='') then begin MemOperator:='akar'; MemLogic:='0'; MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka))));

MemOperator:='akar'; MemLogic:='0'; end; end; procedure Tkalkulator.BitBtn2Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then if MemLogic='0' then MemOperator:='x' else if (MemOperator='') then begin MemOperator:='kuadrat'; MemLogic:='0'; MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemOperator:='kuadrat'; MemLogic:='0'; end; end; procedure Tkalkulator.BitBtn3Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then

if MemLogic='0' then MemOperator:='x' else if (MemOperator='') then begin MemOperator:='pangkat'; MemLogic:='0'; MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemOperator:='pangkat'; MemLogic:='0'; end; end; procedure Tkalkulator.Button10Click(Sender: TObject); begin if [Link]='0' then [Link]:=''; if [Link]<>' ' then if MemLogic='0' then begin MemLogic:='8'; if MemOperator<>'' then [Link]:='8' else [Link]:='8'; end else [Link]:=[Link]+'8';

end; procedure Tkalkulator.Button11Click(Sender: TObject); begin if [Link]='0' then [Link]:=''; if [Link]<>' ' then if MemLogic='0' then begin MemLogic:='9'; if MemOperator<>'' then [Link]:='9' else [Link]:='9'; end else [Link]:=[Link]+'9'; end; procedure Tkalkulator.Button12Click(Sender: TObject); begin if [Link]='0' then [Link]:=''; if [Link]<>' ' then if MemLogic='0' then begin MemLogic:='0'; if MemOperator<>'' then [Link]:='0' else [Link]:='0'; end else [Link]:=[Link]+'0'; end; procedure Tkalkulator.Button13Click(Sender: TObject); begin if [Link]='0' then [Link]:=''; if [Link]<>' ' then if MemLogic=',' then begin MemLogic:=','; if MemOperator<>'' then [Link]:=',' else [Link]:=','; end else [Link]:=[Link]+','; end; procedure TKalkulator.Button14Click(Sender: TObject);

begin [Link]:=floattostr(strtofloat([Link])*(-1)); end; procedure Tkalkulator.Button15Click(Sender: TObject); begin [Link]:='0'; end; procedure Tkalkulator.Button16Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then if MemLogic='0' then MemOperator:='+' else if (MemOperator='') then begin MemOperator:='+'; MemLogic:='0'; MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemOperator:='+'; MemLogic:='0'; end; end;

procedure Tkalkulator.Button17Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then if MemLogic='0' then MemOperator:='-' else if (MemOperator='') then begin MemOperator:='-'; MemLogic:='0'; MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemOperator:='-'; MemLogic:='0'; end; end; procedure Tkalkulator.Button18Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then if MemLogic='0' then MemOperator:='x' else if (MemOperator='') then begin MemOperator:='x'; MemLogic:='0';

MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link])); if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka)));if MemOperator='akar' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemOperator:='x'; MemLogic:='0'; end; end; procedure Tkalkulator.Button19Click(Sender: TObject); begin MemOperator:=''; if ([Link]<>'') then if MemLogic='0' then MemOperator:='/' else if (MemOperator='') then begin MemOperator:='/'; MemLogic:='0'; MemAngka:=[Link]; end else begin if MemOperator='+' then [Link]:=floattostr(strtofloat(MemAngka)+strtofloat([Link]));

if MemOperator='-' then [Link]:=floattostr(strtofloat(MemAngka)strtofloat([Link])); if MemOperator='x' then [Link]:=floattostr(strtofloat(MemAngka)*strtofloat([Link])); if MemOperator='/' then [Link]:=floattostr(strtofloat(MemAngka)/strtofloat([Link])); if MemOperator='sin' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))); if MemOperator='cos' then [Link]:=floattostr(cos(strtofloat(MemAngka)*(pi/180))); if MemOperator='tan' then [Link]:=floattostr(sin(strtofloat(MemAngka)*(pi/180))/cos(strtofloat(MemAngka)*( pi/180))); if MemOperator='kuadrat' then [Link]:=floattostr(sqr(strtofloat(MemAngka))); if MemOperator='akar' then [Link]:=floattostr(sqrt(strtofloat(MemAngka))); if MemOperator='pangkat' then [Link]:=floattostr(exp(strtofloat([Link])*ln(strtofloat(MemAngka)))); MemOperator:='/'; MemLogic:='0'; end; end;

procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end.

21. Program Data Mahasiswa

procedure Tdata_mahasiswa.Cari1Click(Sender: TObject); begin Data_mahasiswa.Hide; [Link]; end; procedure Tdata_mahasiswa.Exi1Click(Sender: TObject); begin data_mahasiswa.Hide; [Link]; end; procedure Tdata_mahasiswa.InputData1Click(Sender: TObject); begin data_mahasiswa.hide; [Link]; [Link]; end; procedure TData_mahasiswa.WMNCHitTest(var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption;

end; 22. Program Input

procedure Ttambah.BitBtn1Click(Sender: TObject); var foto,fotopengguna,msql:string; begin data_mahasiswa.[Link]:=true; foto:=[Link]; if length(trim(foto))<>0 then fotopengguna:=[Link] else fotopengguna:=''; //end; [Link]; Data_mahasiswa.[Link]:=False; [Link]:=False; [Link]:=False; Data_mahasiswa.[Link]:=True; mSql:='insert into bio values('+ '"'+[Link]+'",'+ '"'+[Link]+'",'+ '"'+[Link]+'",'+ '"'+[Link]+'",'+ '"'+[Link]+'",'+ '"'+[Link]+'",'+ '"'+foto+'")'; [Link]:=msql; [Link]; [Link]:=True; [Link]:=''; [Link]:=''; [Link]:=''; [Link]:=''; [Link]:='';

[Link]; [Link]; data_mahasiswa.show; Data_mahasiswa.[Link]:=True; data_mahasiswa.[Link]:=true; end; procedure Ttambah.BitBtn2Click(Sender: TObject); begin [Link]:=''; [Link]:=''; [Link]:=''; [Link]:=''; [Link]:=''; [Link]; [Link]; data_mahasiswa.show; end; procedure Ttambah.BitBtn3Click(Sender: TObject); begin if [Link] then begin [Link]:=true; [Link]([Link]); end; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end.

23. Program Search

procedure Tindividu.BitBtn1Click(Sender: TObject); begin N[i]:=inputbox('ID','NIM',''); [Link]:= N[i]; If data=0 Then data_mahasiswa.[Link] Else data_mahasiswa.[Link]; While Not data_mahasiswa.[Link] Do begin data:= Pos(UpperCase([Link]), UpperCase(data_mahasiswa.[Link]('NIM').AsString)); If data > 0 Then break; data_mahasiswa.[Link]; end; if data_mahasiswa.[Link]('NIM').AsString=[Link] then begin [Link]:=data_mahasiswa.ADOQuery1['No']; [Link]:=data_mahasiswa.ADOQuery1['NIM']; [Link]:=data_mahasiswa.aDOQuery1['Nama']; [Link]:=data_mahasiswa.ADOQuery1['Tempat,Tanggal Lahir']; [Link]:=data_mahasiswa.ADOQuery1['Alamat']; [Link]:=data_mahasiswa.ADOQuery1['No,tlp/Hp'];

[Link]:=data_mahasiswa.ADOQuery1['foto'];

[Link]:=True; end; end; procedure Tindividu.BitBtn2Click(Sender: TObject); begin [Link]; Data_mahasiswa.Show; end; procedure Tindividu.Timer1Timer(Sender: TObject); begin if [Link]>'0' then begin [Link]:=true; [Link]:=True; [Link](data_mahasiswa.[Link][6].AsString); end else begin [Link]:=false; if [Link]='' then begin [Link]:=true; [Link]:=true; end; end; end; procedure [Link](var msg : TWMNCHitTest); begin inherited; if ([Link] = htClient) then if [Link] < Top + 1000 then [Link] := htCaption; end; end.