Wy22’s Weblog

Just another WordPress.com weblog

Foto Perkembangan Pribadi

untuk memudahkan kelompok PP melihat hasil foto, saya tampilkan semua fotonya silahkan di ambil

DOWNLOAD Foto

Advertisements

January 22, 2009 Posted by | 1 to all | Leave a comment

Buat Grafik Dengan Pascal

Anda bisa menggunakan pascal versi 6.0, 7.0, 7.1

sebelum menjalankan sourcecode berikut anda harus menyeting pascal anda untuk memperoleh hasil grafik yang di inginkan.

– copy file graph di folder unit ke folder bin

– pastikan semua file yang ada pada folder bin read only tidak terconteng

sourcecodenya :

program tugas_komgrap;
uses Crt,Graph;
var
Radius: Integer;
GraphDriver, GraphMode: Integer;
X1, Y1, X2, Y2: Integer;
Gd, Gm: Integer;
pil:integer;
begin
clrscr;
writeln(‘PILIHAN :’);
writeln(‘1 line’);
writeln(‘2 line to’);
writeln(‘3 Rectangle’);
writeln(‘4 Circle’);
write(‘Masukan Pilihan anda : ‘);readln(pil);
if pil =1 then
begin
Gd := Detect;
InitGraph(Gd, Gm, ”);
if GraphResult <> grOk then
Halt(1);
Randomize;
repeat
Line(Random(200), Random(200), Random(200), Random(200));
until KeyPressed;
Readln;
CloseGraph;
end
else
if pil= 2 then
begin
Gd := Detect;
InitGraph(Gd, Gm, ”);
if GraphResult <> grOk then
Halt(1);
Randomize;
repeat
LineTo(Random(200), Random(200));
until KeyPressed;
Readln;
CloseGraph;
end
else
if pil=3 then
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, ”);
if GraphResult<> grOk then
Halt(1);
Randomize;
repeat
X1 := Random(GetMaxX);
Y1 := Random(GetMaxY);
X2 := Random(GetMaxX – X1) + X1;
Y2 := Random(GetMaxY – Y1) + Y1;
Rectangle(X1, Y1, X2, Y2);
until KeyPressed;
CloseGraph;
end
else
if pil=4 then
begin
Gd := Detect;
InitGraph(Gd, Gm, ”);
if GraphResult <> grOk then
Halt(1);
for Radius := 1 to 5 do
Circle(100, 100, Radius * 10);
Readln;
CloseGraph;
end;
readln;
end.

Slamat mencoba !!!!!!!!!!!!!!!!!!!!!

“DAIER”

January 22, 2009 Posted by | 1 to all | Leave a comment

Master AVG

He Brooo…
Ingin komputer anda aman dari virus ya….. pake…. antivirus dunk he he..
kalau ingin, anda bisa download kok.
aQ baik kan pokoknya dijamin Diblog ini enak downloadtanya
yup….
DOWNLOAD avg

September 11, 2008 Posted by | 1 to all | Leave a comment

Master Firefox 3.0

Mungkin disaat internet yang ga ada firefoxnya anda bisa memakai master ini

dengan mendownloadnya di sini

he he…

yup
AQ baik..kan….

mau???

DOWNLOAD

September 11, 2008 Posted by | 1 to all | Leave a comment