Pengumuman tambahan untuk presentasi Tugas Akhir DDP & PBOL (1 2011-2012)

Buat teman2 sekalian yang mengambil matakuliah DDP dan PBOL yang saya ampu, Laporan pengerjaan dan file presentasi dikumpulkan :

1. DDP (IT132K) : Selasa, 29 November 2011

2. DDP (IT132L) : Kamis, 01 Desember 2011

3. PBOL (IT251H) : Senin, 28 November 2011

 

NB : Daftar kelompok untuk presentasi sudah kesepakatan bersama di kelas.

Advertisements

Membuat Chart dengan JFreeChart.

Untuk membuat chart di Java, banyak pustaka yang bisa kita gunakan. Salah satu pustaka yang cukup terkenal untuk membuat chart di Java adalah JFreeChart. Untuk menggunakan pustaka tersebut. Berikut contohnya :

1. Create Project dengan nama “JFreeChartSample”
2. Daftarkan JFreeChart ke project yang baru dibuat. JFreechart bisa didownload disini
3. Buat kelas baru misal dengan nama “JFreeChartSample.java” kemudian modifikasilah seperti berikut ini :

public class JFreeChartSampe {
public static void main(String[] arc)
{DefaultPieDataset pieDataset = new DefaultPieDataset();
pieDataset.setValue("Java", new Integer(40));
pieDataset.setValue("C#", new Integer(35));
pieDataset.setValue("Other", new Integer(25));
JFreeChart chart = ChartFactory.createPieChart("Sample Pie Chart", pieDataset, true, true, true);
ChartUtilities.saveChartAsJPEG(new File("C:\\sample.jpeg"), chart, 400, 300);

System.out.println("Selesai...");
}
}

4. Compile project tersebut kemudian jalankan. Ketika dijalankan JFreechart akan membuat chart sesuai dengan dataset yang kita buat kemudian disimpan dalam bentuk image di path directory C:\ dengan nama “sample.jpg”.

 

 

Happy Coding 🙂

 

Perkuliahan dikosongkan.

Buat teman-teman yang mengambil kelas yang saya ampu :

1. Pemrograman Berorientasi Object Lanjut (Senin, 07 & 14 November 2011, 18:00 – 20:00 WIB)

2. Dasar-Dasar Pemrograman (Selasa, 08 & 15 November 2011, 18:00 – 20:00 WIB)

3. Dasar-Dasar Pemrograman (Kamis, 10 & 17 November 2011, 17:00 – 19:00 WIB)

Dikosongkan  sesuai dengan jadwal masing-masing kelas. Demikian untuk diperhatikan, Terima Kasih

NB: JANGAN LUPA DENGAN TUGAS YANG DIBERIKAN SEBELUMNYA !!!

Contoh animasi teks sederhana dengan PASCAL

Berikut adalah contoh animasi sederhana untuk menggerakkan karakter dari teks secara vertical dengan menggunakan PASCAL.

Langsung liat contohnya saja ya :


uses crt;

var
teks : string[15];
posisiKar : integer;
x, y, temp : integer;

begin
clrscr;
teks := 'Belajar Pascal';

x := 12;
y := 3;

gotoxy(12, 1);write(':: Contoh Animasi Sederhana ::');

for posisiKar := 1 to length(teks) do
begin
gotoxy(x,3);write(teks[posisiKar]);
delay(60);
x := x + 1; { Mengapa X harus ditambah dengan 1 pada saat perulangan berjalan ?? }
end;

x := 12;

{animasi vertical}
for posisiKar := 1 to length(teks) do
begin
for y := 3 to 17 do
begin
gotoxy(x, y); write(teks[posisiKar]);
gotoxy(x, y - 1); write(' '); { Mengapa bagian ini nilai y harus dikurangi dengan 1 dan dicetak adalah spasi ?? }
delay(20);
gotoxy(1,1);
end;

x := x + 1;
delay(60);
end;

readkey;
end.

Contoh Program sederhana…

Kali ini saya akan membagikan sedikit trik untuk menampilkan output dengan kasus seperti berikut ini dengan PASCAL.

Jika angka yang dimasukkan genap (misalkan inputan 6) maka pola yang tercetak :

*
**
***
****
*****
******

Sebaliknya jika yang dimasukkan ganjil (misalkan 5) maka pola yang tercetak :

*****
*****
*****
*****
*****

🙂

Dari kasus diatas jelas kita akan membutuhkan perintah untuk mengecek kondisi inputan user genap atau ganjil. Jika genap kita buat perulangan untuk mencetak pola segitiga. kalo ganjil kita buat untuk mencetak pola persegi.

Mari kita lihat contoh berikut :


uses crt;

var
inputan : integer;
baris, kolom : integer;

begin
clrscr;
write('Masukkan Angka : '); readln(inputan);
clrscr;

if inputan mod 2 = 0 then
begin
{buat bentuk segitiga}
writeln(':: Pola yang dihasilkan adalah Segitiga ::');
writeln('');
for baris := 1 to inputan do
begin
for kolom := 1 to baris do { Mengapa perulangan kolom dari 1 sampai baris ?? }
begin
write('*');  { Mengapa bagian ini hanya menggunakan write bukan writeln ?? }
end;
writeln(''); { Mengapa ada perintah writeln kosong disini ?? }
end;
end
else
begin
{buat bentuk persegi}
writeln(':: Pola yang dihasilkan adalah Persegi ::');
writeln('');
for baris := 1 to inputan do
begin
for kolom := 1 to inputan do   { Mengapa perulangan pada kolom kondisinya = perulangan baris ?? }
begin
write('*');
end;
writeln(''); { Mengapa ada perintah writeln kosong disini ?? }
end;
end;
readky;
end.

Happy coding… 🙂 :p

Tugas Akhir MK DDP IT132L Trimester 1 2010/2011

Buat teman-teman yang mengambil MK DDP Kelas K, Tugas Akhir bisa didownload disini dan daftarkelompok bisa didownload disini

Silahkan dikerjakan dengan baik. Untuk pengumuman selanjutnya bisa dilihat di blog ini. Terima Kasih.

 

🙂 🙂 🙂

Tugas Akhir MK DDP IT132K Trimester 1 2010/2011

Buat teman-teman yang mengambil MK DDP Kelas K, Tugas Akhir bisa didownload disini dan daftarkelompok bisa didownload disini

Silahkan dikerjakan dengan baik. Untuk pengumuman selanjutnya bisa dilihat di blog ini. Terima Kasih.

 

🙂 🙂 🙂