Program menentukan Wujud Air menggunakan Delphi 7

Pseudo Code:


var a : real;
begin
  a:=strtofloat(Edit1.Text);
  if (a>0) and (a<100) then Edit2.Text:='cair';
  if a=100 then edit2.Text:='cair';
  if (a>100) then Edit2.Text:='gas';
  if (a<0) then Edit2.Text:='es';
  if a=0 then edit2.Text:='es';
end;

Semoga Bermanfaat :)

Program Statistika menggunakan Delphi 7

Pseudo Code:


BUTTON PROSES
var m,i,z,max,min:integer;
    a:array[1..100] of integer;
begin
  z:=listbox1.items.Count;
  edit2.Text:=inttostr(z);

  for i:= 1 to z do
  a[i]:= strtoint(listbox1.items[i-1]);
  m:=0;

  for i:= 1 to z do
  m:=m+a[i];
  edit3.text:=inttostr(m);
  edit4.text:=floattostr(m/z);

  max:=-2147483647;
  for i:=1 to z do
    if max<a[i] then max:=a[i];
  Edit5.Text:=IntToStr(max);

  min:=2147483647;
  for i:=1 to z do
    if min>a[i] then min:=a[i];
  edit6.text:=inttostr(min);
end;


BUTTON URUTAN DATA
var A:array[0..100] of Integer;
    i,j,k:Integer;
begin
    for i:=0 to ListBox1.Items.Count-1 do
    A[i]:=StrToInt(ListBox1.Items[i]);
    for i:=0 to ListBox1.Items.Count-1 do
    for j:=0 to i do
    if A[i]<A[j]
    then begin
    k:=A[i];
    A[i]:=A[j];
    A[j]:=k;
    end;
    for i:=0 to ListBox1.Items.Count-1 do
    ListBox2.Items.Add(IntToStr(A[i]));
end;

BUTTON MEAN
var A:array[0..100] of Integer;
    i,Jumlah,n:Integer;
    z:Real;
begin
    for i:=0 to ListBox1.Items.Count-1 do
    A[i]:=StrToInt(ListBox1.Items[i]);
    Jumlah:=0;
    for i:=0 to ListBox1.Items.Count-1 do
    Jumlah:=Jumlah+A[i];
    n:=ListBox1.Items.Count;
    z:=Jumlah/n;
    Edit9.Text:=FloatToStr(z);

end;

BUTTON MEDIAN
var a,b,c,m:Integer;
    n:Real;
begin
    a:=StrToInt(Edit2.Text)div 2;
    b:=StrToInt(Edit2.Text)mod 2;
    if b=0 then
    begin
    m:=a;
    n:=(StrToFloat(ListBox2.Items[m])+StrToInt(ListBox2.Items[a-1]))/2;
    Edit10.Text:=FloatToStr(n);
    end
    else
    begin
    c:=StrToInt(Listbox2.Items[a]);
    Edit10.Text:=IntToStr(c);
    end;
end;

BUTTON JANGKAUAN
Var A:array[0..100] of Integer;
    i,M,N,O:Integer;
begin
for i:=0 to ListBox1.Items.Count-1 do
    A[i]:=StrToInt(ListBox1.Items[i]);
    M:=A[0];
    N:=A[0];
    for i:=0 to ListBox1.Items.Count-1 do
    If M<A[i] then M:=A[i];
    If N>A[i] then N:=A[i];
    O:=M-N;
    Edit11.Text:=IntToStr(O);
end;

Semoga Bermanfaat :)

Program Tripel Phytagoras menggunakan Delphi 7

Pseudo Code:


var p,n,k,l,m : integer;
begin
  p:=StrToInt(edit1.text);
  k:=3;
  l:=4;
  m:=5;
  n:=0;

  while n < p do
  begin
    n:=n+1;
    k:=k*n;
    l:=l*n;
    m:=m*n;
    listbox1.items.add(IntToStr(k)+' , '+IntToStr(l)+' , '+IntToStr(m));
  end;
end;

Semoga Bermanfaat :)

Program Persamaan Akar Kuadrat menggunakan Delphi 7

Pseudo Code:


var a,b,c,d,x1,x2,e,f:real;
begin
  //memasukkan nilai vaiabel
  a:=StrToFloat(editA.Text);
  b:=StrToFloat(editB.Text);
  c:=StrToFloat(editC.Text);

  //menghitung nilai akar b^2-4ac
  d:=(b*b)-(4*a*c);

  if d=0 then
    begin
      label5.caption:='Mempunyai Satu Akar Real, x1 = x2';
      x1:=(-b)/2*a;
      x2:=(-b)/2*a;
      editx1.text:=FloatToStr(x1);
      editx2.text:=FloatToStr(x2);
    end
  else

  if d>0 then
    begin
      label5.caption:='Mempunyai Dua Akar Real yang Berlainan';
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      editx1.text:=FloatToStr(x1);
      editx2.text:=FloatToStr(x2);
    end
  else

  if d<0 then
    begin
      label5.Caption:='Mempunyai Akar-akar Imajiner';
      e:=(-b/2*a);
      f:=(sqrt(-1*d)/2*a);
      editx1.text:=FloatToStr(e)+'+'+FloatToStr(f)+'i';
      editx2.text:=FloatToStr(e)+'-'+FloatToStr(f)+'i';
    end;
end;

Semoga Bermanfaat :)

Program Penghitung Hari Menggunakan Delphi 7

Pseudo Code:


var a,b,c : integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit3.Text);
  c:=(a+b)mod 7;
  case a of
    1:edit2.text:='senin';
    2:edit2.text:='selasa';
    3:edit2.text:='rabu';
    4:edit2.text:='kamis';
    5:edit2.text:='jumat';
    6:edit2.text:='sabtu';
    7:edit2.text:='minggu';
  end;
  case c of
    1:edit4.text:='senin';
    2:edit4.text:='selasa';
    3:edit4.text:='rabu';
    4:edit4.text:='kamis';
    5:edit4.text:='jumat';
    6:edit4.text:='sabtu';
    0:edit4.text:='minggu';
    end;
end;

Semoga Bermanfaat :)

Program N Bilangan Bulat Kelipatan K menggunakan Delphi 7

Pseudo Code:


var n,k,i : integer;
begin
  n:=strtoint(edit1.Text);
  k:=strtoint(edit2.Text);
  for i:=1 to n do
  listbox1.Items.Add(inttostr(i*k));
end;

Semoga Bermanfaat :)

Program Luas Segitiga: Alas dan Tinggi menggunakan Delphi 7

Pseudo Code:


var a,t,l : real;
begin
  a:=StrToFloat(edit1.text);
  t:=StrToFloat(edit2.text);

  l:=(a*t)/2;

  edit4.Text:=FloatToStr(l);
end;

Semoga Bermanfaat :)

Program Luas Segitiga: 3 sisi menggunakan Delphi 7

Pseudo Code:


var a,b,c,s,l : real;
begin
  a:=StrToFloat(edit1.Text);
  b:=StrToFloat(edit2.Text);
  c:=StrToFloat(edit3.Text);

  s:=(a+b+c)/2;

  l:=sqrt(s*(s-a)*(s-b)*(s-c));

  edit4.Text:=FloatToStr(l);
end;

Semoga Bermanfaat :)

Program Luas Sgitiga: 2 Sisi 1 Sudut menggunakan Delphi7

Pseudo Code:


var a,b,c,d,l :real;
begin
  a:=StrToFloat(edit1.Text);
  b:=StrToFloat(edit2.Text);
  c:=StrToFloat(edit3.Text);

  c:= c * pi /180;

  l:=((a*b*(sin(c)))/2);

  edit4.Text:=FloatToStr(l);
end;

Semoga Bermanfaat :)

Program Konversi Suhu menggunakan Delphi 7

Pseudo Code:


var c,r,f,k:real;
begin
  c:=StrToFloat(Edit1.Text);
  r:=c/5*4;
  f:=c/5*9+32;
  k:=c+273;
  Edit2.Text:=FloatToStr(r);
  Edit3.Text:=FloatToStr(f);
  Edit4.Text:=FloatToStr(k);
end;

Semoga Bermanfaat :)

Program Kelipatan Bilangan Bulat K antara a sampai b menggunakan Delphi 7

Pseudo Code:


var a,b,k,i : integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  k:=strtoint(edit3.Text);

  for i:=a to b do
  if i mod k = 0 then
  begin
     listbox1.Items.add(inttostr(i));
  end;
end;

Semoga Bermanfaat :)

Membuat Grafik Sin dan Cos menggunakan Delphi 7

Pseudo Code:


BUTTON SUMBU KOORDINAT
Function SumbuX(LojikX:Double):Integer;
  begin
    result:=Round(LojikX + 400);
  end;

Function SumbuY(LojikY:Double):Integer;
  begin
    result:=Round(160 - LojikY);
  end;

begin
with image2.Canvas do
  begin
    pen.Width:=3;
    font.Size:=12;

    //sumbu x
    moveto(sumbuX(-300),sumbuY(0));
    lineto(sumbuX(300),sumbuY(0));
    textout(sumbuX(305),sumbuY(0),'sumbu x');

    //sumbu y
    moveto(sumbuX(0),sumbuY(-150));
    lineto(sumbuX(0),sumbuY(150));
    textout(sumbuX(0),sumbuY(150),'sumbu y');

    //keterangan
    font.Size:=9;
    textout(sumbuX(100),sumbuy(-5),'phi');
    textout(sumbuX(200),sumbuY(-5),'2phi');
    textout(sumbuX(-100),sumbuy(-5),'-phi');
    textout(sumbuX(-200),sumbuY(-5),'-2phi');
    textout(sumbuX(-10),sumbuY(80),'1');
    textout(sumbuX(-15),sumbuY(-75),'-1');
  end;
end;

BUTTON COS X
Function SumbuX(LojikX:Double):Integer;
  begin
    result:=Round(LojikX + 400);
  end;

Function SumbuY(LojikY:Double):Integer;
  begin
    result:=Round(160 - LojikY);
  end;

var i:real;
begin
with image2.Canvas do
  begin
     pen.Width:=3;
     font.size:=9;
     font.Color:=clred;

     i:=-200;
     while i<=200 do
        begin
          Pixels[sumbuX(i),sumbuY(80*Cos(i*2*3.14/200))]:=clred;
          i:=i+0.03;
          TextOut(sumbuX(200),sumbuY(80),'y = cos x');
        end;
     end;
  end;

BUTTON SIN X
Function SumbuX(LojikX:Double):Integer;
  begin
    result:=Round(LojikX + 400);
  end;

Function SumbuY(LojikY:Double):Integer;
  begin
    result:=Round(160 - LojikY);
  end;

var i:real;
begin
  with image2.Canvas do
  begin
  pen.Width:=4;
  font.Size:=9;
  font.Color:=clblue;

  i:=-200;
    while i<=200 do
      begin
        Pixels[sumbuX(i),sumbuY(80*Sin(i*2*3.14/200))]:=clblue;
        i:=i+0.03;
        TextOut(sumbuX(185),sumbuY(-40),'y = sin x');
      end;
    end;
end;

Semoga Bermanfaat :)

Contoh Membuat Gambar menggunakan Delphi 7

ketika di tekan button di atas maka akan berubah menjadi seperti ini:

Bagaimanakah caranya? Hanya menambahkan Pseudo Code di bawah ini ke dalam button:

begin

  label1.Caption:='Fuji Mountain with Shinkanshen';

  with image2.Canvas do

  begin

    //langit

    brush.color:=clhighlight;

    pen.Color:=clhighlight;

    rectangle(0,0,401,200);

    //matahari

    brush.color:=clyellow;

    ellipse(10,10,80,80);

    //gunung

    brush.Color:=clhotlight;

 polygon([point(0,200),point(170,50),point(230,50),point(401,200),point(290,205),point(300,195),point(190,205),point(200,195),point(90,205),point(100,195)]);

    //puncak gunung

    brush.Color:=clwindow;

 polygon([point(230,50),point(170,50),point(135,80),point(175,65),point(185,95),point(200,70),point(220,90),point(230,65),point(265,80)]);

    //sakura

    brush.Color:=clfuchsia;

    pen.Color:=clfuchsia;

 polygon([point(0,200),point(100,195),point(90,205),point(200,195),point(190,205),point(300,195),point(290,205),point(400,200),point(400,225),point(0,225)]);

    pen.Color:=clblack;

    pen.Width:=2;

    ellipse(-10,200,15,225);

    ellipse(5,200,30,225);

    ellipse(20,200,45,225);

    ellipse(35,200,60,225);

    ellipse(50,200,75,225);

    ellipse(65,200,90,225);

    ellipse(80,200,105,225);

    ellipse(95,200,120,225);

    ellipse(110,200,135,225);

    ellipse(125,200,150,225);

    ellipse(140,200,165,225);

    ellipse(155,200,180,225);

    ellipse(170,200,195,225);

    ellipse(185,200,210,225);

    ellipse(200,200,225,225);

    ellipse(215,200,240,225);

    ellipse(230,200,255,225);

    ellipse(245,200,270,225);

    ellipse(260,200,285,225);

    ellipse(275,200,300,225);

    ellipse(290,200,315,225);

    ellipse(305,200,330,225);

    ellipse(320,200,345,225);

    ellipse(335,200,360,225);

    ellipse(350,200,375,225);

    ellipse(365,200,390,225);

    ellipse(380,200,405,225);

    //rumput

    brush.color:=cllime;

    pen.Color:=cllime;

    rectangle(0,225,401,350);

    //batang pohon

    brush.color:=clolive;

    pen.Color:=clolive;

    rectangle(0,225,5,250);

    rectangle(15,225,20,250);

    rectangle(30,225,35,250);

    rectangle(45,225,50,250);

    rectangle(60,225,65,250);

    rectangle(75,225,80,250);

    rectangle(90,225,95,250);

    rectangle(105,225,110,250);

    rectangle(120,225,125,250);

    rectangle(135,225,140,250);

    rectangle(150,225,155,250);

    rectangle(165,225,170,250);

    rectangle(180,225,185,250);

    rectangle(195,225,200,250);

    rectangle(210,225,215,250);

    rectangle(225,225,230,250);

    rectangle(240,225,245,250);

    rectangle(255,225,260,250);

    rectangle(270,225,275,250);

    rectangle(285,225,290,250);

    rectangle(300,225,305,250);

    rectangle(315,225,320,250);

    rectangle(330,225,335,250);

    rectangle(345,225,350,250);

    rectangle(360,225,365,250);

    rectangle(375,225,380,250);

    rectangle(390,225,395,250);

    //semak-semak

    brush.color:=clgreen;

    pen.Color:=clgreen;

    pen.Width:=1;

    rectangle(310,350,405,395);

    ellipse(280,320,340,390);

    ellipse(300,300,360,390);

    ellipse(340,320,400,390);

    //buah di semak-semak

    brush.Color:=clyellow;

    pen.Color:=clyellow;

    ellipse(340,340,345,345);

    ellipse(320,320,325,325);

    ellipse(370,370,375,375);

    ellipse(340,360,345,365);

    ellipse(360,350,365,355);

    ellipse(315,345,320,350);

    ellipse(380,335,385,340);

    //batu di rel

    brush.Color:=clgray;

    pen.Color:=clgray;

    pen.Width:=1;

    rectangle(0,385,405,465);

    //rel

    brush.Color:=clmaroon;

    pen.Color:=clblack;

    pen.Width:=1;

    polygon([point(0,455),point(20,455),point(70,395),point(90,395)]);

    polygon([point(60,455),point(80,455),point(130,395),point(110,395)]);

    polygon([point(120,455),point(140,455),point(190,395),point(170,395)]);

    polygon([point(180,455),point(200,455),point(250,395),point(230,395)]);

    polygon([point(240,455),point(260,455),point(310,395),point(290,395)]);

    polygon([point(300,455),point(320,455),point(370,395),point(350,395)]);

    polygon([point(360,455),point(380,455),point(430,395),point(410,395)]);

    rectangle(0,445,405,455);

    rectangle(0,385,405,395);

    //ban

    pen.Width:=1;

    brush.color:=clblack;

    pen.Color:=clblack;

    ellipse(180,405,220,445);

    ellipse(140,405,180,445);

    ellipse(100,405,140,445);

    ellipse(20,405,60,445);

    ellipse(-20,405,20,445);

    brush.Color:=clsilver;

    pen.color:=clblack;

    rectangle(120,430,200,435);

    rectangle(0,430,40,435);

    //shinkansen

    begin

    brush.Color:=clsilver;

    pen.Color:=clblack;

    pen.Width:=3;

    polygon([point(0,275),point(270,275),point(200,325),point(0,325)]);

    polygon([point(200,325),point(270,275),point(320,370),point(250,425)]);

    polygon([point(0,325),point(200,325),point(250,423),point(0,423)]);

    polygon([point(250,425),point(320,370),point(320,385),point(250,440)]);

    end;

    //garis merah di shinkansen

    pen.Width:=1;

    brush.color:=clred;

    pen.color:=clblack;

    polygon([point(0,390),point(0,400),point(240,400),point(235,390)]);

    polygon([point(235,390),point(240,400),point(310,350),point(305,340)]);

    //kaca

    pen.Width:=1;

    brush.Color:=claqua;

    polygon([point(215,335),point(270,295),point(290,330),point(235,371)]);

    polygon([point(190,330),point(205,385),point(100,385),point(100,330)]);

    rectangle(0,330,90,385);

    //garis di atas shinkanshen

    moveto(0,285); lineto(240,285);

    moveto(0,300); lineto(180,300);

    moveto(0,315); lineto(200,315);

    //frame

    pen.Color:=clwhite;

    pen.Width:=15;

    moveto(0,0);

    lineto(401,0);

    moveto(401,0);

    lineto(401,465);

    moveto(401,465);

    lineto(0,465);

    moveto(0,465);

    lineto(0,0);

    end;

end;

Program Penghitungan Volume Kolam dengan Ember menggunakan Delphi 7

Pseudo Code:


var i,e,k,m:integer;
begin
  k:=StrToInt(edit1.Text);
  e:=StrToInt(edit2.Text);
  i:=0;
  m:=0;
  while i < k do
    begin
    i:=e+i;
    m:=m+1;
    end;
  edit3.Text:=IntToStr(m);
end;

Semoga Bermanfaat :)

Program Daftar N! menggunakan Delphi 7

Pseudo Code:

var a,b,i: real;
begin
   a:=StrToFloat(edit1.Text);
   b:=1;
   i:=1;

   while i <= a do
   begin
     b:=(b*i);
     ListBox1.Items.Add(FloatToStr(i)+'! = '+FloatToStr(b));
     i:=i+1;
  end;
end;

Semoga Bermanfaat :)

Program Menentukan Bilangan Prima atau Komposit menggunakan Delphi 7

Pseudo Code:


var n,i,s:integer;
    p:boolean;
begin
    n:=StrToInt(Edit1.Text);
    i:=2;
    P:=True ;
    while (i<=n-1) and p do
    begin
    s:=n mod i;
    if s=0 then p:=false;
    i:=i+1;
    end;

    if p=true
    then Edit2.Text:='  Bilangan Prima'
    else Edit2.Text:='  Bilangan Komposit';
    if n=1
    then Edit2.Text:='  Bilangan Komposit';
    if n=0
    then Edit2.Text:='  Bilangan Komposit';
end;

Semoga Bermanfaat :)

Program untuk Menentukan Bilangan Ganjil atau Genap Menggunakan Delphi 7

Pseudo Code:


var p:integer;
begin
  p:=StrToInt(edit1.Text);

  if p mod 2 = 0 then edit2.Text:='genap';
  if p mod 2 = 1 then edit2.Text:='ganjil';
end;

Semoga Bermanfaat :)

Program Deret Bilangan Fibonacci menggunakan Delphi 7

Pseudo Code:


var  p,c,d,b,g,e : integer;
begin
  p:=StrToInt(edit1.Text);
  g:=0;
  c:=1;
  d:=0;
  e:=1;
  while d < p do
  begin
     g:=g+c;
     listbox1.Items.Add('bilangan fibonacci ke '+ IntToSTr(e)+' = '+IntToStr(g));
     c:=g-c;
     d:=d+1;
     e:=e+1;
  end;
end;

Contoh Animasi Gerak Menggunakan Delphi

Bagian yang bergerak dalam program ini adalah: mata keduanya, rok, peci, dan kancing yang keluar satu per satu. berikut adalah Pseudo Codenya:

procedure Tunda(Detik,MiliDetik:word);

var

  TimeOut: TDateTime;

  begin

    TimeOut:=Now+EncodeTime(0,Detik div 60, Detik mod 60, MiliDetik);

    while Now<TimeOut do

      Application.ProcessMessages;

    end;

var i:integer;

begin

  with image2.Canvas do

  begin

  //girl

    pen.Width:=3;

    Arc(60,10,150,150,60,50,150,50); //face

    moveto(60,52);

    lineto(150,52);

    brush.Color:=clblack;

    for i:=1 to 3 do

    begin

      ellipse(80-i,70-i,90+i,80+i); //left eye

      tunda(0,150);

    end;

    for i:=1 to 3 do

    begin

      ellipse(120-i,70-i,130+i,80+i); //right eye

      tunda(0,150);

    end;

    pen.Color:=clred;

    arc(90,100,120,116,90,108,120,108); //lips

    pen.Color:=clblack;

    Arc(30,10,180,350,180,170,30,170); //jilbab

    moveto(30,170);

    lineto(110,200);

    moveto(180,170);

    lineto(110,200);

    moveto(30,170); //left hand

    lineto(10,280);

    moveto(180,170); //right hand

    lineto(200,280);

    moveto(10,280); //clothes

    lineto(50,280);

    moveto(200,280);

    lineto(160,280);

    moveto(50,280);

    lineto(60,220);

    moveto(160,280);

    lineto(150,220);

    moveto(50,280);

    lineto(40,320);

    moveto(160,280);

    lineto(170,320);

    moveto(40,320);

    lineto(170,320);

    pen.Color:=clblack;

    for i:=1 to 130 do

    begin

      moveto(60,320+i);

      lineto(150,320+i); //rok

      tunda(0,30);

    end;

    brush.color:=clgreen;

    rectangle(60,320,150,450);

    moveto(20,280); //tangan kiri

    lineto(15,310);

    lineto(30,285);

    lineto(30,295);

    lineto(40,280);

    moveto(170,280); //tangan kanan

    lineto(180,295);

    lineto(180,285);

    lineto(195,310);

    lineto(190,280);

    arc(60,455,110,475,75,455,110,475); //kaki kiri

    moveto(75,455);

    lineto(75,450);

    moveto(100,470);

    lineto(100,450);

    arc(110,455,150,475,110,475,135,455); //kaki kanan

    moveto(135,455);

    lineto(135,450);

    moveto(115,470);

    lineto(115,450);

  //boy

      Arc(300,10,390,150,300,50,390,50); //face

      moveto(300,52);

      lineto(390,52);

      brush.Color:=clblack;

      for i:=1 to 3 do

      begin

        ellipse(320-i,70-i,330+i,80+i); //left eye

        tunda(0,150);

      end;

      for i:=1 to 3 do

      begin

        ellipse(360-i,70-i,370+i,80+i); //right eye

        tunda(0,150);

      end;

      pen.Color:=clred;

      arc(330,100,360,116,330,108,360,108); //lips

      pen.color:=clblack;

      brush.Color:=clgreen;

      for i:=1 to 90 do

      begin

        moveto(300+i,10);

        lineto(300+i,52);

        tunda(0,30);

      end;

      rectangle(300,10,390,52); //peci

      moveto(330,145); //neck

      lineto(330,157);

      moveto(360,145);

      lineto(360,157);

      moveto(345,160); //kerah

      lineto(315,154);

      moveto(345,160);

      lineto(375,154);

      moveto(315,154);

      lineto(330,151);

      moveto(375,154);

      lineto(360,151);

      moveto(315,154);

      lineto(315,165);

      moveto(345,160);

      lineto(345,171);

      moveto(375,154);

      lineto(375,165);

      moveto(315,165);

      lineto(345,171);

      lineto(375,165);

      moveto(315,165); //bahu kiri

      lineto(280,170);

      moveto(375,165); //bahu kanan

      lineto(410,170);

      moveto(280,170); //left hand

      lineto(250,280);

      lineto(290,280);

      lineto(300,220);

      moveto(410,170); //right hand

      lineto(440,280);

      lineto(400,280);

      lineto(390,220);

      moveto(300,220); //clothes

      lineto(300,320);

      moveto(390,220);

      lineto(390,320);

      lineto(300,320);

      moveto(300,320); //foot

      lineto(290,450);

      lineto(330,450);

      lineto(345,360);

      lineto(360,450);

      lineto(400,450);

      lineto(390,320);

      brush.Color:=clgreen;

      pen.color:=clgreen;

      for i:=1 to 2 do

      begin

        ellipse(342-i,175-i,348+i,181+i); //kancing

        tunda(0,230);

      end;

      for i:=1 to 2 do

      begin

        ellipse(342-i,190-i,348+i,196+i);

        tunda(0,230);

      end;

      for i:=1 to 2 do

      begin

        ellipse(342-i,205-i,348+i,211+i);

        tunda(0,230);

      end;

      for i:=1 to 2 do

      begin

        ellipse(342-i,220-i,348+i,226+i);

        tunda(0,230);

      end;

      pen.Color:=clblack;

      moveto(339,170);

      lineto(339,230);

      lineto(351,230);

      lineto(351,170);

      moveto(260,280); //tangan kiri

      lineto(255,310);

      lineto(270,285);

      lineto(270,295);

      lineto(280,280);

      moveto(410,280); //tangan kanan

      lineto(420,295);

      lineto(420,285);

      lineto(435,310);

      lineto(430,280);

      arc(290,455,330,475,305,455,330,475); //kaki kiri

      moveto(305,455);

      lineto(305,450);

      moveto(325,470);

      lineto(325,450);

      arc(360,455,400,475,360,475,385,455); //kaki kanan

      moveto(385,455);

      lineto(385,450);

      moveto(365,470);

      lineto(365,450);

      label1.caption:=' Assalamualaikum :) ';

  end;

end;

Program Aljabar Himpunan Menggunakan Delphi 7

Bagaimana membuat program di atas?
Cukup sediakan entri entri seperti contoh pada gambar. berikut adalah Pseudo Codenya:


Button A irisan B
Var x,y:Integer;
    a,b:Array[0..10] of String;
begin
    For x:=0 to ListBox1.Items.Count-1 do
    a[x]:=ListBox1.Items[x];
    For y:=0 to ListBox2.Items.Count-1 do
    b[y]:=ListBox2.Items[y];
    For x:=0 to ListBox1.Items.Count-1 do
    begin
      For y:=0 to ListBox2.Items.Count-1 do
      if a[x]=b[y] then ListBox3.Items.Add(A[x]);
    end;
end;


Button A gabungan B
Var x,y:Integer;
    a,b:Array[0..100] of String;
    p:Boolean;
begin
    For x:=0 to ListBox1.Items.Count-1 do
    a[x]:=ListBox1.Items[x];
    For y:=0 to ListBox2.Items.Count-1 do
    b[y]:=ListBox2.Items[y];
    For x:=0 to ListBox1.Items.Count-1 do
    ListBox4.Items.Add(A[x]);
    For y:=0 to ListBox2.Items.Count-1 do
    begin
      p:=false;
      For x:=0 to ListBox1.Items.Count-1 do
      if a[x]=b[y] then p:=true;
      if p=false then ListBox4.Items.Add(b[y]);
    end;
end;


Button A+B
Var x,y:Integer;
    a,b:Array[0..100] of String;
    p:Boolean;
begin
    For x:=0 to ListBox1.Items.Count-1 do
    a[x]:=ListBox1.Items[x];
    For y:=0 to ListBox2.Items.Count-1 do
    b[y]:=ListBox2.Items[y];
    For x:=0 to ListBox1.Items.Count-1 do
    begin
      p:=false;
      For y:=0 to ListBox2.Items.Count-1 do
      if a[x]=b[y] then p:=true;
      if p=false then ListBox5.Items.Add(a[x]);
    end;
    For y:=0 to ListBox2.Items.Count-1 do
    begin
      p:=false;
      For x:=0 to ListBox1.Items.Count-1 do
      if a[x]=b[y] then p:=true;
      if p=false then ListBox5.Items.Add(b[y]);
    end;
end;


Button A-B
Var x,y:Integer;
    a,b:Array[0..100] of String;
    p:Boolean;
begin
    For x:=0 to ListBox1.Items.Count-1 do
    a[x]:=ListBox1.Items[x];
    For y:=0 to ListBox2.Items.Count-1 do
    b[y]:=ListBox2.Items[y];
    For x:=0 to ListBox1.Items.Count-1 do
    begin
    p:=false;
    For y:=0 to ListBox2.Items.Count-1 do
    if a[x]=b[y] then p:=true;
    if p=false then ListBox6.Items.add(A[x]);
    end;
end;

Semoga Bermanfaat :)

LUCID DREAM

Setelah mendiskusikan mengenai dunia mimpi, saya jadi tertarik dengan hal-hal berbau pengendalian mimpi, meskipun terlalu takut untuk mempelajarinya, tapi, let's try it :)

Lucid Dream, dalam istilah yang sederhana, bisa diartikan sebagai keadaan dimana seseorang menyadari bahwasanya ia sedang bermimpi. Istilah ini diciptakan oleh Frederik Willem van Eden, seorang psikiater dan penulis berkebangsaan Belanda. Kesadaran ini dapat berkisar dari kesadaran yang sangat samar bahwa mimpi tersebut bukanlah kenyataan sampai kesadaran sebagai perluasan kesadaran ketika seorang tersebut terjaga.

Anda dapat mengendalikan mimpi anda menggunakan metode Lucid Dream berikut. 

1. Pada Siang Hari, Berulang Kali Bertanya “Apakah Aku Bermimpi?”

Dan lakukan hal ini kapanpun anda ingat. Dengan latihan yang cukup, secara otomatis anda akan mengingatnya selama impian anda dan anda akan melakukannya dalam mimpi anda tersebut.

2. Buatlah Sebuah Buku Catatan (Jurnal) Mimpi

Ini mungkin langkah yang paling penting menuju Lucid Dream. Letakkanlah jurnal mimpi dekat dengan tempat tidur anda di malam hari, dan tuliskan mimpi anda di dalamnya segera setelah anda bangun. Atau anda dapat menggunakan alat perekam jika anda lebih mudah untuk mengulangi menceritakan impian anda dengan suara anda. Hal ini membantu anda mengenali elemen umum mimpi anda (orang-orang dari masa lalu anda, tempat-tempat tertentu, dan lain-lain), dan juga memberitahu otak anda bahwa anda benar-benar ingin untuk mengingat mimpi anda.

3. Pelajari Waktu Terbaik Untuk Mendapatkan Lucid Dream 

Dengan menjadi sadar akan jadwal tidur anda, anda dapat mengatur pola tidur anda untuk membantu memicu Lucid Dream.

• Studi sangat menyarankan bahwa tidur  beberapa jam setelah anda bangun di pagi hari adalah waktu yang paling umum untuk mendapatkanLucid Dream.

• Lucid Dream berkaitan erat dengan tidur REM. Tidur REM lebih banyak dijumpai sebelum seseorang benar-benar terbangun dari tidurnya. Hal ini berarti Lucid Dream paling sering terjadi tepat sebelum anda bangun.

• Mimpi biasanya berlangsung dalam siklus 60 menit selama tidur. Jika anda berusaha mengingat mimpi anda, mungkin akan sangat membantu jika anda mencoba untuk membangunkan diri selama salah satu siklus ini (mimpi terputus biasanya lebih sering kita ingat).

4. Cobalah Teknik MILD (Mnemonic Induction Of Lucid Dreaming)

• Atur alarm untuk membangunkan Anda 4.5, 6, atau 7.5 jam setelah anda tertidur.

• Ketika anda dibangunkan oleh alarm anda, cobalah untuk mengingat mimpi anda sebanyak mungkin yang anda bisa.

• Bila anda pikir anda telah mengingat sebanyak mungkin yang anda bisa, kembalilah ke tempat tidur anda, bayangkanlah bahwa anda berada dalam mimpi anda sebelumnya, dan menjadi sadar bahwa anda sedang bermimpi. Katakan pada diri sendiri, “aku akan menyadari bahwa aku bermimpi”, atau kata-kata yang lain yang serupa. Lakukan ini sampai anda berpikir bahwa ia telah ‘meresap masuk’ ke dalam pikiran anda. Lalu segera pergi tidur.

• Jika pikiran-pikiran lain mucul ketika anda mencoba untuk tertidur kembali, ulangi membayangkan mimpi anda. Jangan khawatir jika hal itu menghabiskan waktu yang lama. Semakin lama waktu yang dibutuhkan, semakin besar bayangan tersebut akan ‘meresap’, dan semakin besar kemungkinan anda akan mendapatkan Lucid Dream.

5. Lakukan Teknik WBTB (Wake Back To Bed)

Ini adalah teknik yang biasanya paling berhasil dibandingkan teknik yang lainya.

• Pergi tidur.

• Atur alarm sampai 5 jam setelah anda tertidur.

• Setelah anda bangun, tetaplah terjaga selama kira-kira satu jam dengan pikiran anda terfokus pada Lucid Dream dan Lucid Dream saja.

• Tidurlah kembali menggunakan teknik MILD.

6. Cobalah Teknik WILD (Wake Initiated Lucid Dream) 

Pada dasarnya adalah bahwa ketika anda tertidur anda membawa kesadaran anda dari saat anda bangun langsung menuju tidur REM dan anda memulainya sebagai sebuah Lucid Dream.

• Cara termudah untuk mencoba teknik ini adalah jika anda mengambil tidur siang atau anda hanya tidur selama 3-7 jam.

• Cobalah untuk bermeditasi dalam keadaan tenang tapi terfokus. Anda dapat mencoba menghitung napas, membayangkan anda tengah naik / turun tangga, terjatuh kedalam sistem tata surya, berada di daerah yang kedap suara yang tenang, dan lain-lain.

• Mendengarkan Theta binaural beats untuk jumlah waktu tertentu akan dengan mudah akan menempatkan anda ke tidur REM.

7. Lakukan Teknik Diamond Method Of Meditation 

Ketika seseorang bermeditasi, mencoba untuk membayangkan hidup anda, baik kehidupan terjaga maupun mimpi sebagai sisi pada berlian. Maksudnya di sini adalah mulai untuk mengenali kehidupan yang terjadi sekaligus. Hal ini hanya ‘persepsi’ kita yang mengatur drama kita menjadi linier atau ‘waktu’. Jadi seperti sebuah berlian, masing-masing sisi jika dilihat sebagai pengalaman individu, masih terjadi pada saat yang sama juga. Metode ini juga dikenal sebagai Penglihatan Jarak Jauh. 

8. Melibatkan Diri Ke Dalam Subjek Lucid Dream

Sebagai contoh, anda dapat melihat di situs web tentang Lucid Dream (termasuk ketika anda membaca artikel BerbagaiHal ini), menonton film dengan tema Lucid Dream (misalnya Waking Life, Vanilla Sky, Inception), membaca buku tentangnya, dan lain-lain.

9. Coba Menandai "B" (Yang Berarti "Bangun") Di Telapak Tangan

Setiap kali Anda melihat "B" selama anda terjaga, tentukan apakah anda bangun atau tertidur. Akhirnya, ketika anda melihat "B" dalam tidur anda dan anda mendapatkanLucid Dream.

10. Biasakan Melakukan Pemeriksaan Kenyataan

Lakukan setidaknya tiga pemeriksaan kenyataan setiap kali sesuatu tampak luar biasa, sangat membuat frustasi, atau tidak masuk akal, dan kebiasaan ini akan terbawa masuk ke mimpi anda. Dalam mimpi, hal ini akan memberitahu anda bahwa anda sedang tidur, dan yang paling penting, memungkinkan anda mendapatkan Lucid Dream. Dalam rangka mengingat untuk melakukan pemeriksaan kenyataan dalam mimpi, anda perlu membuat kebiasaan melakukan pemeriksaan kenyataan dalam kehidupan nyata. Salah satu cara untuk melakukan pemeriksaan kenyataan adalah untuk mencari ‘tanda-tanda mimpi’ (elemen yang sering terjadi selama impian anda, cari ini dalam jurnal mimpi anda), atau hal-hal yang biasanya tidak ada dalam kehidupan nyata, dan kemudian lakukan pemeriksaan kenyataan. Ketika tindakan-tindakan ini menjadi kebiasaan, seseorang akan mulai melakukannya dalam mimpinya, dan bisa sampai pada kesimpulan bahwa dia sedang bermimpi. Sering melakukan pemeriksaan ternyata mampu menstabilkan mimpi. Hal ini juga dikenal sebagai DILD (Dream Induced Lucid Dreams). Beberapa taktik meliputi:

• Melihat jam untuk melihat apakah ia tetap konstan

• Melihat teks, memalingkan muka, dan kemudian menoleh kembali untuk melihat apakah ia telah berubah

• Membalik sebuah tombol lampu

• Melihat di cermin (gambar anda akan paling sering muncul buram atau tidak muncul sama sekali dalam mimpi). Namun, sosok anda dapat mengerikan di dalam cermin, menakutkan anda menjadi mimpi buruk bagi anda.

• Menjepit hidung anda sampai tertutup dan mencoba untuk bernapas.

• Melirik tangan anda, dan bertanya pada diri sendiri, “apakah aku bermimpi?” (ketika bermimpi, anda akan sering melihatnya berukuran lebih besar atau terdapat kurang dari lima jari di tangan anda)

• Melompat di udara, anda biasanya dapat terbang selama mimpi.

• Menusuk diri, ketika bermimpi, "daging" anda mungkin akan lebih elastis daripada di kehidupan nyata, sebuah pemeriksaan kenyataan umum adalah mendorong jari anda melalui telapak tangan anda

• Mencubit lengan anda. Dalam mimpi, anda seharusnya tidak dapat merasakan cubitan anda tersebut. Namun, hal ini mungkin tidak bekerja karena dalam mimpi, tindakan masih dapat memiliki efek pada tubuh anda.

• Cobalah bersandar di dinding. Dalam mimpi, anda akan sering jatuh melalui dinding.

11. Memperpanjang Lucid Dream Dengan Memutar Tubuh Anda Atau Jatuh Ke Belakang Dalam Mimpi (Yang Diduga Memperpanjang REM), Dan Menggosok Tangan Anda (Mencegah Anda Merasakan Sensasi Berbaring Di Tempat Tidur)

Berhati-hatilah saat berputar. Ingatkan diri anda bahkan saat anda berputar atau jatuh bahwa anda sedang bermimpi, karena anda akan menemukan diri di lokasi yang sama sekali berbeda saat anda berhenti berputar atau menyentuh tanah. Jika anda merasa mimpi ‘bergetar’ atau akan memudar, lihatlah ke tanah dan visualisasikan sekitar anda, ingatkan diri anda sedang bermimpi.

12. Jadilah Lebih Pro-Aktif Tentang Impian Anda

Memiliki tujuan dalam pikiran dan cobalah untuk mencapainya.

13. Dengarkan Binaural Beats

Binaural Beats sering digunakan untuk menginduksi Lucid Dream, dan banyak yang menjamin bahwa metode ini secara dramatis meningkatkan tingkat keberhasilan. Secara teoritis, mendengarkan Binaural Beats menurunkan frekuensi otak, memicu efek yang berbeda seperti relaksasi dan induksi mimpi. Cari Binaural beats Theta, karena menggunakan frekuensi gelombang otak yang sama yang digunakan dalam mimpi. Anda juga mungkin ingin mendengarkan Alpha dan Delta Binaural beats karena mereka membantu Anda bersantai dan jatuh ke dalam tidur non-REM.

14. Lihatlah Mimpi Sebelumnya Dalam Jurnal Mimpi Anda 

Jika anda mulai melihat pola dalam mimpi anda, anda akan melihat tanda mimpi, atau hal-hal tertentu yang terus muncul dalam mimpi anda. Misalnya, semua mimpi anda terjadi di halaman belakang anda, atau semua impian anda memiliki kesenangan di dalamnya. Biasakan melakukan pemeriksaan setiap kali anda melihat tanda impian anda, dan akhirnya ketika anda melihat tanda impian anda dalam mimpi, anda akan melakukan pemeriksaan kenyataan dan menyadari bahwa anda sedang bermimpi.