Cara Membuat Teks Berjalan (Unfull Version)

Untuk membuat teks berjalan pada program delphi, klik button timer yang ada pada menu system seperti gambar di bawah ini lalu simpan pada form yang dimaksud..

lal double klik pada button timer tersebut, dan masukkan koding ini:

   if Label3.Left=-1000 then label3.Left:=700;
   Label3.Left:=Label3.Left-10;

nama label disesuaikan yah..
catatan: untuk angka 1000 dan 700 itu saya belum paham , jadi teman-teman utak-atik sendiri, kalau sudah tahu, komen yah :) berbagi ilmu juga kan ya, terima kasih semoga bermanfaat :)

Gimana caranya bikin program untuk memasukkan username dan password?

Misal program yang akan kalian buat seperti gambar ini:

FormMasuk

Rencananya, kalau kita memasukkan username dan passwordnya benar, maka form tersebut akan close, sedangkan apabila salah, masuk ke FormSorry.

Catatan: Formnya bebas, mau pake form lainnya atau engga itu pilihan teman-teman, ini salah satu alternative saja. (punya saya)

Nah, pertanyaannya gimana caranya membuat lebih dari satu form dalam satu aplikasi?

Caranya:

1.       Klik menubar file -> New -> Form

2.       Beri nama form tersebut untuk memudahkan pemrogaman gabungan

Kemudian, psedo code untuk form utama gimana yah?

Berdasarkan contoh tugas besar prokom, form selanjutnya akan terbuka ketika username sama dengan passwordnya, maka:

procedure TFormMasuk.Button1Click(Sender: TObject);

var a,b:string;

begin

    a:=edit1.text;

    b:=edit2.text;

    if a=b then FormMasuk.close

    else FormSorry.Show;

end;

Perhatikan:

Untuk membuka form baru ketika kita mengklik button, rumusnya adalah FormXXX.Show serta ketika kita ingin mengclose form tsb, rumusnya FormXXX.Close

Nah biasanya setelah kita memasukkan rumus tersebut lalu mengklik RUN, ada pesan jendela yg muncul mengenai ‘using unit’ yg terkait, klik ok saja ya.

Kemudian, gimana nih biar input ke passwordnya jadi hiden gitu, alias jadi symbol bintang gitu yah?

Caranya:

1.       Klik 1x saja pada item edit yg dijadikan input password

2.       Masuk ke menu properties yang ada di sebelah kiri layar anda

3.       Cari PasswordChar lalu isi dengan tanda bintang ‘*’

Cara untuk insert gambar ke form kita:

1.       Buat canvas di form kita

2.       Lalu masuk ke menu properties yang ada di sebelah kiri layar anda

3.       Cari picture , klik, lalu load gambar yg ada inginkan, lalu klik ok

Semoga bermanfaat.

Kalo kurang jelas komen aja yaaaah J

Cara Membuat Grafik Trigonometri

Sharing bikin grafik trigonometri: sin x dan cos x

Yang jadi amsalah kan yaaa gimana caranya bikin grafik yang besar.. kalo skalanya sama kaya ukuran pixel canvasnya pasti grafiknya bakalan mini banget, nah ini caranya.. kalian bisa utak atik sendiri:

Yang pertama adalah menyesuaikan titik pusat (0,0) jadi di tengah, dengan cara:

Function Absis(LojikX:Double):Integer;

begin

      result:=Round(LojikX + 300);

end;

Function Ordinat(LojikY:Double):Integer;

begin

      result:=Round(200 - LojikY);

end;

untuk kata absis dan ordinat di atas, bisa disesuaikan dengan kainginan kalian J

untuk angka 200 dan 300, kenapa harus segitu yaaaa?

Nah karena ukuran canvas saya adalah 600x400, maka untuk mencapai tengah-tengahnya kan x nya 300, dan y nya 200.. ini berarti disesuaikan ukuran canvas kalian yah.

nah, selanjutnya adalah membuat sumbu koordinat cartesius..

Diskusi PROKOM - Animasi !

Kebetulan tadi sempet copas materi yang didiskusikan di lab ke blog ini, tapi maaf ga semuanya ada. Perhatikan cara penulisannya yaaa, karna ini belum tentu benar, tapi secara garis besar rumus yang dikasih ibu itu seperti ini..

Ini tugas pertama yang bikin persegi panjang warna biru dari himpunan-garis-garis:

begin
with Image1.Canvas do
begin
Pen.Width:=10;
Pen.Color:=clBlack;
Brush.Color:=ClBlack;
Rectangle(0,0,500,250);
Pen.Color:=ClBlue;
for i:=1 to 240 do
begin
MoveTo(250-i,10);
LineTo(250-i,250);
MoveTo(250+i,10);
LineTo(250+i,250);
Tunda(0,10);
end;
end;

Teman-teman, ini adalah cara menyetting agar pusat koordinatnya menjadi di tengah:

PROGRAM STATISTIKA MENGGUNAKAN DELPHI (ARRAY)

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
  Edit1.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
var n,i:integer; a:array[1..10]of integer;
begin
  i:=1;
  for i:=1 to ListBox1.Items.Count do
  begin
    a[i]:=strtoint(ListBox1.Items[i-1]);
  end;
  n:=strtoint(Edit2.Text);
  Edit3.Text:=inttostr(a[n]);
end;

PROGRAM KOMBINASI MENGGUNAKAN SUBPROGRAM (DELPHI)

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f:integer;
    g:real;
  procedure faktorisasi (x:integer; var y:integer);
  var i:integer;
  begin
    y:=1;
    for i:=1 to x do
    y:=y*i;
  end;
begin
  a:=strtoint(Edit1.Text);
  b:=strtoint(Edit2.Text);
  c:=a-b;
  faktorisasi(a,d);
  faktorisasi(b,e);
  faktorisasi(c,f);
  g:=d/(e*f);
  Edit3.Text:=floattostr(g);
end;

HAK ASASI MANUSIA DAN HAK & KEWAJIBAN WARGA NEGARA

A.   PENDAHULUAN

Makalah ini membahas tentang materi dan pembelajaran Hak Asasi Manusia (HAM) serta Hak dan Kewajiban Warga Negara dalam mata pelajaran PKn sebagai salah satu Mata Kuliah Dasar Umum yang perlu dikenalkan kepada semua mahasiswa.

Dalam bab ini pembaca khususnya mahasiswa diajak mengenal, memahami dan menganalisis pengertian, karakteristik serta berbagai permasalahan yang berkaitan dengan konsep serta pelaksanaan Hak Asasi Manusia (HAM) serta Hak dan Kewajiban Warga Negara Indonesia. Sehingga dengan mempelajari materi dalam bab ini mahasiswa diharapkan memiliki kemampuan sebagai berikut:

1.      Dapat memahami materi tentang HAM.

2.      Dapat memahamai materi Hak dan Kewajiban Warga Negara.

3.      Dapat memahami dan menjelaskan pelaksanaan HAM di Indonesia.

Sebagai makhluk bermartabat, manusia memiliki sejumlah hak dasar yang wajib dilindungi, seperti hak hidup, hak beropini, hak berkumpul, serta hak beragama dan hak berkepercayaan. Nilai-nilai HAM mengajarkan agar hak-hak dasar yang asasi tersebut dilindungi dan dimuliakan. HAM mengajarkan prinsip persamaan dan kebebasan manusia sehingga tidak boleh ada diskriminasi, eksploitasi dan kekerasan terhadap manusia dalam bentuk apapun dan juga tidak ada pembatasan dan pengekangan apa pun terhadap kebebasan dasar manusia. Oleh karena masalah Hak Asasi Manusia telah merambah di dalam kehidupan masyarakat dan merupakan persoalan bersama, maka masyarakat atau siswa, seyogyanya dikenalkan pada masalah HAM, agar mereka mengetahui dan menyadari akan hak dan kewajiban asasi dirinya dan hak asasi orang lain sehingga mereka akan terbiasa untuk menghormati diri dan hak-hak asasi orang lain.

PSEDO CODE GAMBAR (DELPHI)

PSEDO CODE GAMBAR IKHWAN
begin
  with image1.canvas do
  begin
    pen.Width:=2;
    arc(100,30,300,330,100,130,300,130); {kepala}
    arc(280,180,305,230,295,230,305,180); {telinga}
    arc(95,180,120,230,100,180,105,230);
    moveto(140,145); lineto(175,160); {alis}
    moveto(220,160); lineto(255,145);
    arc(150,220,250,290,150,260,250,260); {bibir}
    moveto(150,260); lineto(250,260);
    moveto(160,275); lineto(240,275);   {gigi}
    arc(190,230,210,250,200,250,200,150); {hidung}
    brush.color:=clblack; {peci}
    polygon([point(100,130),point(300,130),point(290,40),point(110,40)]);
    brush.color:=clwhite;   {mata}
    ellipse(140,160,170,210); ellipse(220,160,250,210);
    brush.color:=clblack;
    ellipse(150,170,168,210); ellipse(230,170,248,210);
    moveto(155,315); lineto(150,360); {leher}
    moveto(245,315); lineto(250,360);
    arc(115,310,285,405,115,355,285,355); {kerah}
    arc(105,300,295,415,118,360,282,360);
    moveto(150,350); lineto(50,365); {pundak}
    moveto(250,350); lineto(350,365);
    moveto(50,365); lineto(20,480); {lengan}
    moveto(350,365); lineto(380,480);
    moveto(200,415); lineto(200,480); {baju}
    ellipse(190,425,210,445);
  end;
end;

PSEDO CODE GAMBAR AKKHWAT

begin

  with image1.canvas do
  begin
    pen.Width:=2;
    arc(500,30,700,330,500,130,700,130); {kepala}
    moveto(540,160); lineto(575,145); {alis}
    moveto(620,145); lineto(655,160);
    moveto(500,130); lineto(700,130); {garis atas kepala}
    arc(470,30,720,150,720,90,470,90); {kerudungatas}
    moveto(470,90); lineto(420,390);
    moveto(720,90); lineto(770,390);
    arc(420,350,770,430,470,390,720,390); {kerudungbawah}
    arc(420,340,770,420,470,380,720,380);
    arc(590,230,610,250,600,150,600,250); {hidung}
    arc(550,220,650,290,550,260,650,260); {garisbibirbawah}
    moveto(550,260); lineto(650,260);
    moveto(560,275); lineto(640,275); {gigi}
    brush.color:=clwhite;   {mata}
    ellipse(540,160,570,210); ellipse(620,160,650,210);
    brush.color:=clblack;
    ellipse(542,170,560,210); ellipse(622,170,640,210);
    moveto(430,405); lineto(420,480); {badan}
    moveto(760,405); lineto(770,480);
    moveto(590,430); lineto(590,480); {baju}
    ellipse(580,440,600,460);
  end;
end;