Cara Mengganti Icon/Gambar Address Bar Di Blog

Jika kita membuka suatu website atau blog maka seringkali kita menjumpai ada sebuah gambar atau icon kecil pada address bar (kotak untuk menetikkan alamat web),terus anda kepingen blog anda dikasih foto anda caranya gampangggg ,kalau belum bisa membuat gambarnya ikut langkah langkah berikut:

1.pertama buatlah sebuah gambar yang akan dijadikan sebagai favicon
2.setelah itu anda harus mengubah gambar tersebut kedalam bentuk gambar icon,untuk hal tersebut anda bisa tool favicon generator ,silahkan kunjungi situs berikut :
http://www.favicon.cc/

3.klik import image,choose file,upluad

4.lalu download favicon disebuah kotak priview

5.lalu masuk ke blog anda klik disaen dikanan atas

6.cari tata letak

7.lalu klik letak tulisan favicon ,cari gambar yang anda download tadi dan masukkan,,jadi dechhhh

SELAMAT MENCOBA

Cara Mengurutkan Tulisan di Ms Word

Pengurutan teks atau tulisan dengan cepat kadang kita perlukan dalam penyusunan dokumen, seperti untuk pembuatan daftar pustaka, daftar tabel (secara manual) dan lain sebagainya. Untuk mengurutkan / menyortir teks dan tulisan di microsoft word kita bisa memanfaatkan fasilitas Sort.

1. Blok teks yang akan diurutkan, misalkan ketikan pada daftar pustaka
2. Klik ribbon Home lalu klik tombol toolbar Sort yang ada pada grup paragraph
3. atau tekan tombol ALT+H lalu tekan tombol huruf SO
4. Pada dialog Sort Text, pastikan di bagian sebelah kanan anda memilih item :
   • Ascending untuk mengurutkan dari A-Z,
   • atau memilih descending untuk mengurutkan teks dengan urutan Z-A
5. Klik Tombol OK atau tekan Enter
6. Tulisan tersebut kini telah tersusun berdasarkan urutan yang anda pilih.

merubah kalimat terbalik dengan DELPHI

uses crt;

type
    stack1 = record
        kalimat:string[255];
        top:integer;
        end;

var data : stack1;
    tampung:string;
    j:integer;


procedure push (kar: char; idx: byte);
begin;
        data.kalimat[idx]:=kar;
        data.top := idx;
end;

function pop : char;
var s:char;
    i:byte;
begin
     s := data.kalimat[data.top];
     data.kalimat[data.top] := ' ';
     i := data.top;
     data.top := i - 1;
     pop := s;
end;

begin
     clrscr;
     write('masukkan suatu kalimat :'); readln (tampung);

     for j := 1 to length(tampung) do
     begin
          push (tampung[j],j);
     end;

     for j := 1 to length(tampung) do
     begin
          write(pop);
     end;

     readln;
end.

kesimpulan ARRAY DAN RECORD

Array&Record

MEMBUAT KALKULATOR DENGAN DELPHI

unit Kakulator;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button15: TButton;
    Button18: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    hasil: TPanel;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 MemAngka,MemLogic,MemOperator,MemSimpan:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='1' else
Hasil.Caption:='1';
 end
else
 Hasil.Caption:=Hasil.Caption+'1';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 if MemOperator<>'' then Hasil.Caption:='0' else
 if Hasil.Caption='0' then Hasil.Caption:='0' else
   begin
   Hasil.Caption:=Hasil.Caption+'0';
   MemLogic:='1';
   end;
 end
else
Hasil.Caption:=Hasil.Caption+'0';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='2';
 if MemOperator<>'' then Hasil.Caption:='2' else
 Hasil.Caption:='2';
 end
else
 Hasil.Caption:=Hasil.Caption+'2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>' ' then Hasil.Caption:='3' else
 Hasil.Caption:='3';
 end
else
 Hasil.Caption:=Hasil.Caption+'3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='4' else
 Hasil.Caption:='4';
 end
else
 Hasil.Caption:=Hasil.Caption+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='5' else
 Hasil.Caption:='5';
 end
else
 Hasil.Caption:=Hasil.Caption+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='6' else
 Hasil.Caption:='6';
 end
else
 Hasil.Caption:=Hasil.Caption+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='7' else
 Hasil.Caption:='7';
 end
else
 Hasil.Caption:=Hasil.Caption+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='8' else
 Hasil.Caption:='8';
 end
else
 Hasil.Caption:=Hasil.Caption+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='9' else
 Hasil.Caption:='9';
 end
else
 Hasil.Caption:=Hasil.Caption+'9';
end;

procedure TForm1.Button11Click(Sender: TObject);
var sudut : real;
begin
if Hasil.Caption<>' ' then
 begin
 sudut:=strtofloat(Hasil.Caption);
 sudut:=sudut*pi/180;
 Hasil.Caption := floattostr(sin(sudut));
 end;
end;


procedure TForm1.Button25Click(Sender: TObject);
begin
MemOperator:='';
if (hasil.Caption<>'') then
  if MemLogic='0' then MemOperator:='-' else
  if (MemOperator='')  then
    begin
    MemOperator:='-';
    MemLogic:='0';
    MemAngka:=hasil.Caption;
    end
  else
    begin
    if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
    if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
    if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
    if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
  //  if MemOperator='mod' then hasil.Caption:=inttostr(strtoint(MemAngka) mod strtoint(hasil.Caption));
    if MemOperator='div' then hasil.Caption:=inttostr(strtoint(MemAngka)div strtoint(hasil.Caption));
    if MemOperator='^' then hasil.Caption:=floattostr(exp(strtofloat(hasil.Caption)*ln(strtofloat(MemAngka))));
    MemAngka:=hasil.Caption;
    MemOperator:='-';
    MemLogic:='0';
    end;
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
MemAngka:=hasil.Caption;
MemLogic:='0';
end;


procedure TForm1.Button27Click(Sender: TObject);
begin
hasil.Caption:='0';
MemLogic:='';
MemAngka:='';
MemOperator:='';
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
if hasil.Caption<>'' then
 hasil.Caption:=hasil.Caption + ',';
end;


procedure TForm1.Button15Click(Sender: TObject);
begin
MemOperator:='';
if (hasil.Caption<>'') then
  if MemLogic='0' then MemOperator:='+' else
  if (MemOperator='')  then
    begin
    MemOperator:='+';
    MemLogic:='0';
    MemAngka:=hasil.Caption;
    end
  else
    begin
    if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
    if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
    if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
    if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
 //   if MemOperator='mod' then hasil.Caption:=inttostr(strtoint(MemAngka) mod strtoint(hasil.Caption));
    if MemOperator='div' then hasil.Caption:=inttostr(strtoint(MemAngka)div strtoint(hasil.Caption));
    if MemOperator='^' then hasil.Caption:=floattostr(exp(strtofloat(hasil.Caption)*ln(strtofloat(MemAngka))));
    MemAngka:=hasil.Caption;
    MemOperator:='+';
    MemLogic:='0';
    end;
end;



procedure TForm1.Button29Click(Sender: TObject);
begin
MemOperator:='';
if (hasil.Caption<>'') then
  if MemLogic='0' then MemOperator:='x' else
  if (MemOperator='')  then
    begin
    MemOperator:='x';
    MemLogic:='0';
    MemAngka:=hasil.Caption;
    end
  else
    begin
    if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
    if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
    if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
    if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
//    if MemOperator='mod' then hasil.Caption:=inttostr(strtoint(MemAngka) mod strtoint(hasil.Caption));
    if MemOperator='div' then hasil.Caption:=inttostr(strtoint(MemAngka)div strtoint(hasil.Caption));
    if MemOperator='^' then hasil.Caption:=floattostr(exp(strtofloat(hasil.Caption)*ln(strtofloat(MemAngka))));
    MemAngka:=hasil.Caption;
    MemOperator:='x';
    MemLogic:='0';
    end;
end;


procedure TForm1.Button23Click(Sender: TObject);
begin
MemOperator:='';
if (hasil.Caption<>'') then
  if MemLogic='0' then MemOperator:='/' else
  if (MemOperator='')  then
    begin
    MemOperator:='/';
    MemLogic:='0';
    MemAngka:=hasil.Caption;
    end
  else
    begin
    if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
    if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
    if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
    if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
//    if MemOperator='mod' then hasil.Caption:=inttostr(strtoint(MemAngka) mod strtoint(hasil.Caption));
    if MemOperator='div' then hasil.Caption:=inttostr(strtoint(MemAngka)div strtoint(hasil.Caption));
    if MemOperator='^' then hasil.Caption:=floattostr(exp(strtofloat(hasil.Caption)*ln(strtofloat(MemAngka))));
    MemAngka:=hasil.Caption;
    MemOperator:='/';
    MemLogic:='0';
    end;
end;


procedure TForm1.Button12Click(Sender: TObject);
var sudut:real;
begin
if hasil.Caption<>'' then
 begin
 sudut:=strtofloat(hasil.Caption);
 sudut:=sudut*pi/180;
 hasil.Caption := floattostr(cos(sudut));
 MemLogic :='0';
 end;
end;


procedure TForm1.Button13Click(Sender: TObject);
var sudut,a,b:real;
begin
if hasil.Caption<>'' then
 begin
 sudut:=strtofloat(hasil.Caption);
 sudut:=sudut*pi/180;
 a:=sin(sudut);
 b:=cos(sudut);
 sudut:=a/b;
 hasil.Caption := floattostr((sudut));
 MemLogic :='0';
 end;
end;

procedure TForm1.Button28Click(Sender: TObject);
var angka:real;
begin
angka:=StrToFloat(hasil.Caption);
if (angka>0) then
angka:=(-angka)
else
angka:=angka+(-angka)+(-angka);
hasil.Caption:=FloatToStr(angka);
end;

procedure TForm1.Button26Click(Sender: TObject);
var angka:real;
begin
angka:=StrToFloat(hasil.Caption);
angka:=ln(10)/ln(angka);
hasil.Caption:=FloatToStr(angka);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[2].Text:= TimeToStr(time);
end;

end.

INSERTION SORT

Seleksition Sort

insertion sort menggunakan DELPHI

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  tblint:array[1..100] of integer;

  i, datasisip, j, n: integer;



begin
  { TODO -oUser -cConsole Main : Insert code here }


  write('masukkan jumlah data: '); readln(n);

  for i:=1 to n do
  begin
    write('data[',i,'] = '); readln(tblint[i]);
  end;


  for i :=2 to n do
  begin
    datasisip:=tblint[i];

    j:= i-1;

    while (datasisip < tblint[j]) do
    begin
      tblint[j+1]:= tblint[j];
      j:=j-1;
      end;

      tblint[j+1]:= datasisip;
      end;

  writeln;
  writeln('Hasil Sortir');
  for i := 1 to n do
    write(tblint[i]:5);
    readln;

end.