PROGRAM PERCABANGAN
DELPHI
Gue minggu kemaren dapet tugas Dhelphi untuk membuat program "Percabangan". Awalnya sedikit membingungkan karena memang baru berkenalan. Tapi syukurlah gue ada sedikit dasar Pemprograman Pascal. Karena memang Listingnya gak jauh beda antara Pascal dengan Dhelphi.
Untuk lebih jelasnya coba liat kodingnya dibawah ini :
Listing Program
procedure TForm1.btn1Click(Sender: TObject);
varnilai:Integer;
keterangan:string;
begin
nilai:=StrToInt(edt2.text);
if nilai>50 then
begin
keterangan:='Lulus';
end
else
begin
keterangan:='Tidak Lulus';
end;
edt3.Text:=keterangan;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
edt1.Text:='';
edt2.Text:='';
edt3.Text:='';
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
if messagedlg('Anda Ingin Keluar Aplikasi ini?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
application.Terminate;
end
end;
procedure TForm1.edt3Change(Sender: TObject);
begin
end;
procedure TForm1.edt2Change(Sender: TObject);
begin
end;
Download Program DISINI end. http://www.4shared.com/account/file/SU663SRh/Project1.html
PROGRAM UNTIL LOOP
Until-loop Listing Program
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
{ Crear the edit & memo box }
Edit1.Text:='1';
Edit2.Text:='20';
Memo1.Lines.Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Close the form . . . }
Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
V1, V2 : Variant;
N1, N2, Count : Integer;
begin
{ Clear the memo before adding numbers }
Memo1.Lines.Clear;
V1:=Edit1.Text;
V2:=Edit2.Text;
{ Convert variant to integers }
N1:=Integer(V1);
N2:=Integer(V2);
{ Set Count to a starting No. }
Count:=N1;
{ Use Repeat - Until loop to add no.s to memo }
Repeat
Memo1.Lines.Add(IntToStr(Count));
{ Increase the count variable 1 by 1 }
Inc(Count);
Until Count>N2
end;
end.
Progrm Until-loop Download DISINI http://www.4shared.com/file/HpN9ZASM/pro03.html
Hy Brader.........
Brader liat donk gambar di atas???wkwkwkw
gambar itu sebuah simbol dari aplikasi sebuah folder, biasanya brader punya data penting dan tidak mau di lihat teman atau arang lain, pas skalini dengan aplikasi ini apa lagi di dalam folder ada sebua file vidio yang??????
brader gunakan aja aplikasi ini untuk menkidylock folder Brader!!!!
Bagi anda pengguna antivirus AVG, kini AVG versi 9.0 yang baru-baru ini dirilis sudah bisa anda download secara gratis maupun berbayar. Khusus bagi anda yang doyan gratisan 
, AVG Free Edition 9.0
ini sepertinya layak untuk dicoba yang kehandalannya tidak jauh beda
dengan AVG 9 yang berbayar (premium). Pada AVG 9.0 ini juga kompatibel
untuk 3 system operasi windows terbaru yakni Windows XP, Windows Vista
and Windows 7. Untuk mendapatkan AVG Anti Virus 9.0 versi gratisan, anda bisa mendownloadnya melalui link berikut ini :
, AVG Free Edition 9.0
ini sepertinya layak untuk dicoba yang kehandalannya tidak jauh beda
dengan AVG 9 yang berbayar (premium). Pada AVG 9.0 ini juga kompatibel
untuk 3 system operasi windows terbaru yakni Windows XP, Windows Vista
and Windows 7. Untuk mendapatkan AVG Anti Virus 9.0 versi gratisan, anda bisa mendownloadnya melalui link berikut ini : 
Partisi harddisk, kadang sering kita dengar kata itu, tapi apa sih
maksud dari partisi harddsik itu? Secara umum partisi harddisk ialah
proses memberi bagian atau memecah ruang harddisk yang tersedia menjadi
beberapa bagian. Contoh, jika kita mempunyai harddisk sebesar 40 GB yang belum di partisi, maka jika kita membuka windows explorer maka akan terbaca sebagai Local Disk (C:) namun terkadang kita melihat di komputer lain dengan besar harddisk yang sama tetapi terbaca 2 bagian yaitu Local Disk (C:) dan Local Disk (D:), inilah yang dimaksud harddisk di partisi menjadi 2 bagian yang besarnya masing-masing bagian itu bisa kita sesuaikan.
Cara menginstall Partitio
- Buka folder Partition Magic.
- Tunggu sampai proses persiapan installasi selesai
- Setelah proses persiapan selesai, maka akan tampil window PartitionMagic 8.0 Setup. Silahkan pilih Next
- Isikan User Name, Company Name dan Serial Number yang anda miliki ( Untuk user name dan company name bebas ), kemudian pilih Next
- Setelah itu pilih Yes untuk memberi persetujuan terhadap Licence Agreement yang tampil.
- Kemudian pilih Next ( 3 kali ) sampai proses installasi berjalan secara automatis
- Setelah proses installasi selesai, maka akan ditanyakan apakah anda ingin membuat Rescue Disket ? untuk contoh ini kita abaikan saja penawaran itu dengan memilih No
- Buanglah 2 kotak yang ter-ceklist / tercentang pada window yang tampil, lalu pilih Finish
- Silahkan anda aktifkan software PartitionMagic
- Setelah tampil window PartitionMagic 8.0, klik nama harddisk anda ( Disk 1 ) pada bagian sebelah kanan atas window PartitionMagic 8.0
- Pada bagian pick a task… ( lihat sebelah kiri atas window PartitionMagic ) pilih Create an new partition
- Silahkan pilih Next untuk melanjutkan
- Pilih harddisk yang akan kita paritisi, lalu Next
- Kemudian silahkan pilih lokasi partisi, untuk contoh ini silahkan pilih After C: (Recommended)
- Sekarang tentukanlah besarnya partisi yang diinginkan di bagian size dengan berpedoman pada informasi di sebelah kanan kotak tersebut ( Maximum Size & Minimum Size ), setelah itu pilih Next
- Setelah kita menentukan besarnya partisi, maka akan ditampilkan perkiraan partisi harddisk sesuai data yang anda masukkan tadi. Jika sudah yakin dengan besarnya partisi harddisk anda silahkan pilih Finish
- Sekarang silahkan anda klik tombol Apply yang ada di bagian kiri bawah window PartitionMagic
- Jika tampil window konfirmasi, silahkan anda pilih Yes atau OK, untuk memulai proses mempartisi harddisk
