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;