Jumat, 14 Januari 2011

Program-Program Pascal (newbie)

Ini beberapa dari program pascal yang dibuat oleh admin selama semester 1... Masih yang simpel aja... Maklum.. Masih Newbie... :)

1. PROGRAM UNTUK MENGHITUNG ARUS DAN TAHANAN

Program TahananTotal_ArusTotal;
uses crt;

var E,R1,R2,RT1,RT2,IT1,IT2:real;

Function TahananTotal (R1,R2:real):real;
begin
RT1:=R1+R2;
RT2:=(R1*R2)/(R1+R2);
writeln ('Tahanan Total Seri: ', RT1:0:2);
writeln ('Tahanan Total Paralel: ', RT2:0:2);
end;

Function ArusTotal (RT1,RT2:real):real;
begin
IT1:=E/RT1;
IT2:=E/RT2;
writeln ('Arus Total Seri: ',IT1:0:2);
writeln ('Arus Total Paralel: ', IT2:0:2);
end;

begin
clrscr;
textcolor (10);
writeln ('                =====Program Tahanan Total dan Arus Total====  '); writeln;
writeln ('Untuk memulai, tekan sembarang tombol... Asal jangan tombol di handphone anda'); readkey;
writeln; writeln;
write ('Nilai Tahanan1: '); readln (R1);
write ('Nilai Tahanan2: '); readln (R2);
write ('Nilai Tegangan: '); readln (E);
writeln;
TahananTotal(R1,R2);
writeln;
ArusTotal(RT1,RT2);
readln;
end.



2.PROGRAM UNTUK MENGHITUNG JUMLAH MASUKAN YANG BERNILAI POSITIF SAJA

Program Deretpas;

{*Menampilkan bilangan 1 sampai 10*}

uses crt;
var x,i, jumlah : integer;

begin
clrscr;
write ('tentukan banyaknya data: '); readln (x);
jumlah:=0;
For i := 1 to x do
begin
readln (x);
if x > 0 then
jumlah := jumlah+x;
end;
writeln ('jumlah= ', jumlah);
readln;
end.



3. PROGRAM UNTUK MENGHITUNG LUAS LINGKARAN DAN LUAS TRAPESIUM

program Luas_Trapesium_Luas_Lingkaran;
uses crt;
var a,b,r,t:longint;
luasling,luastrap:real;

procedure luas_lingkaran;
begin
luasling:=3.14*sqr(r);
writeln('maka luas lingkaran: ', luasling:8:2);
end;

procedure luas_trapesium;
begin
luastrap:=((a+b)*t)/2;
writeln('maka luas trapesium: ', luastrap:8:2);
end;

begin
clrscr;
textcolor (14);
writeln ('=====Program Menghitung Luas Trapesium dan Luas Lingkaran=====');writeln;writeln;writeln;
writeln ('Luas Trapesium= ((a+b)*t)/2');
writeln ('Luas Lingkaran=3,14*sqr(r)'); writeln;
writeln ('tekan sembarang tombol');writeln;
readkey;
write ('Nilai a: ');readln(a);
write ('Nilai b: ');readln(b);
write ('Nilai t: ');readln(t);
write ('Nilai r: ');readln(r);writeln;writeln;
luas_lingkaran;
luas_trapesium;
readln;
end.




SEKIAN DULU UNTUK KALI INI.
Baca Selengkapnya

Jumat, 07 Januari 2011

Tutorial Pembuatan Undangan

Ini Tugas akhir admin gan... Mata kuliah design grafis... Jangan ngetawain ya..:D
Dalam tutorial ini , photo mempelai prianya adalah photo dari admin, dan photo mempelai wanitanya adalah photo pacar teman admin... hHHe.. Sorry kawan...


MEMBUAT UNDANGAN PERNIKAHAN

Langkah pertama, buka program CorelDraw di Startmenu.
 
Lalu, atur ukuran kertas menjadi A4 dan Landscape.

Pertama kita buat amplop dari undangan. Buat Persegi dengan rectangle tool ukuran 17x17 cm.  Kemudian buat dua persegi panjang untuk membagi dua Persegi tadi sama panjang.

Supaya persegi panjang yang kita buat tadi tidak bergeser, tekan CTRL+A, kemudian klik kanan. Lalu pilih group.

Kemudian, buat 1 lingkaran sempurna. Lalu tekan CTRL+D untuk men-duplikat lingkaran tersebut. Lalu letakkan seperti pada gambar.

Kemudian, kita trim dengan menggunakan Back Minus Front. Sehingga gambar tadi menjadi seperti ini

Lalu Buat Trapesium seperti gambar dibawah dengan menggunakan basic shape tool.



Kita beri warna dari semua bidang dengan cara klik kiri pada warna seperti pada gambar.


Lalu buat Persegi panjang dengan rectangle tool. Kemudian supaya sudutnya tidak runcing, gunakan shape tool. Tarik dari sudut kedalam. Ketikkan “Undangan”. Lalu pilih effects, power clip, place inside container. Kemudian klik di persegi panjang tadi. Lalu pilih menu bitmaps, convert to bitmaps.


Untuk memberi efek seperti lipatan kertas, pilih menu bitmaps, 3d effects, kemudian pilih page curl. Akan muncul pengaturan seperti pada gambar dibawah ini. Lalu klik ok.


Buat gambar “Love” dengan menggunakan basic shape tool, beri warna pink. Lalu beri efek shadow dengan menggunakan Interactive Drop Shadow Tool.



Masukkan gambar calon mempelai, lalu berikan juga efek bayangan dengan drop shadow tool.


Untuk memasukkan gambar ke dalam lambang “Love” tersebut. Pilih Effects, Power Clip. Lalu pilih Place Insider Container. Untuk membuat amplop menjadi bercampur dengan warna pink, pilih Interactive Contour Tool, berikan warna pink seperti pada gambar.


Kemudian buat shape seperti dibawah dengan cara yang sama seperti membuat tulisan undangan.


Untuk membuat bagian isi dari undangan.. Buat persegi dengan ukuran yang sama dengan bagian amplop tadi, yaitu 17x17 cm. Untuk persegi panjang didalamnya, buat dengan ukuran lebih kecil daripada ukuran setengah dari persegi tersebut.


Buat Objek seperti bintang dengan menggunakan polygon tool.Tambah kaki dari bintang sehingga menjadi 10. Untuk membuat efek bintang seperti dibaha ini, gunakan shape tool, dan tarik ujung dari kaki bintang memutar, sehingga menjadi seperti gambar di bawah ini. Beri warna dalam dengan cara klik kiri warna ungu, dan warna garis, dengan klik kanan warna hijau. Lalu kemudian beri warna seperti pada gambar dibawah.




Kemudian masukkan gambar bintang yang telah kita edit tadi ke dalam undangan dengan cara pilih effects, powerclip, add insider container. Kemudian kita buat shape dengan bentuk persegi panjang, dan untuk mengubah sudutnya juga menggunakan shape tool.


Pada halaman sebelahnya juga diberikan shape dengan bentuk yang sama, kemudian masukkan saja teks didalamnya.




Terakhir, untuk membuat denah.. pertama buat persegi dengan ukuran 17x17 cm. Lalu kemudian buat beberapa persegi panjang, kemudian susun sehingga menjadi seperti peta yang diinginkan. Lalu diseleksi semuannya. Kemudian klik trim back minus front. Jadilah seperti gambar dibawah. Masukkan teks dan beberapa gambar bangunan. Untuk memasukkan gambar bangunan, bisa dengan mengimpor file gambar.


 

Hasil Akhir Dari Undangan
Bagian Amplopnya


Bagian isi dari undangan
Halaman depan


Halaman belakang









Baca Selengkapnya