tanGgal le Qoe ok,............

Sabtu, 19 November 2011

Cara Pembuatan Kalender sederhana DI software CorelDRAW X4

Assalamualaikum wr, wb

Mungkin pembaca ada yang ingin membuat kalender dengan gambar-gambar selera masing-masing jangan khawatir anda bisa membuatnya sendiri loh gampang bikinnya juga Di Corel DRAW ko. pertama yang kita lakukan adalah pencarian letak corel Draw tersebut.........!

Caranya


klik Star, All Programs, CorelDRAW Graphics Suite X4, CorelDRAW X4
kebetulan di koputer saya corelnya X4 jdi itu yang di gunakan bagi teman-teman bebes mau pake yang mana ada X1, X2, X3, X5




Maka akan tampil gambar seperti di bawah ini



setelah selsesai tampilan corel X4 maka kita mulai dengan pembuatan kalender sederhana dengan cara menggunakan software corelDRAW X4 dengan langkah seperti gambar di bawah ini


Pilih menu Tools lalu pilih submenu Macros, Run Macros.
atau ALT + o, CTRL + M, CTRL + u

maka akan tampil gambar seperti di bawah ini


dan setelah di klik calender wizard maka akan tampil seperti gambar di bawah ini


setelah tampil seperti di atas maka kita klik Run maka, akan tampil gambar seperti di bawah ini


setelah tampil gambar seperti di atas kita dapat mengetur bentuk yang kita inginkan banyak pilihannya jadi itu terserah kalian dengan selera masing-masing, contohnya pada layout kita bisa pilih bentuk-bentuk yang siap di sajikan.
Dan saya mengedit kalendernya seperti di bawah ini :
pilih year : image + 12 small [3x4] :
dan kita lanjutkan Klik Expand, maka akan tampil gambar seperti di bawah ini


setelah tampil gambar seperti di atas ini maka kita lanjutkan klik collapse, maka akan tampil gambar seperti di bawah ini

dan setelah tampil seperti gambar di atas kita lanjutkan dengan meng klik Generate
dan akan tampil gambar seperti di bawah ini


setelah tampil seperti ini maka ita dapat mengeditnya dengan sebaik mungkin dengan warna, gambar yang menurut kita baik maka ini lah hasil yang saya buat yang sesederhana mungkin maka hasilnya di bawah ini

ini lah hasilnya masih jauh dari sempurna,....................................!
dan di bawah ini bagian-bagiannya,..



selamat mencoba ya pembaca moga kalian juga bisa seperti saya sedikit Bisa hehehe,..................!

Rabu, 03 November 2010

http://resep-jitu.blogspot.com/2009/02/cara-memasukan-lagu-ke-dalam-blog.html
http://blog.fastncheap.com/search/cara+memasukan+winamp+ke+asesoris/

Tugas pa udin smester II

program mata_pelajaran;

uses wincrt;

type

mahasiswa=record

No:integer;

Hari:string;

MataKuliah:string;

NamaDosen:string;

end;

var

i:integer;

Mhs:array[1..3] of mahasiswa;

begin

for i:=1 to 3 do

begin

write ('masukan No mahasiswa =');readln(Mhs[i].no);

write ('masukan Hari mahasiswa =');readln(Mhs[i].hari);

write ('masukan Mata Kuliah mahasiswa =');readln(Mhs[i].matakuliah);

write ('masukan Nama Dosen =');readln(Mhs[i].namadosen);

writeln ('---------------------------------------------');

end;

writeln;

writeln;

writeln (' MATA PELAJARAN ');

writeln ('-----------------------------------------------------------------------');

writeln (' No ! Hari ! Mata Kuliah ! Nama Dosen !');

writeln ('-----------------------------------------------------------------------');

for i:=1 to 3 do

begin

write (' ',Mhs[i].No);

write (' ',Mhs[i].Hari);

write (' ',Mhs[i].MataKuliah);

writeln (' ',Mhs[i].NamaDosen);

end;

writeln ('-------------------------------');

end.

program mata_pelajaran;

uses wincrt;

type

mahasiswa=record

No:integer;

Hari:string;

MataKuliah:string;

NamaDosen:string;

end;

var

i:integer;

Mhs:array[1..3] of mahasiswa;

begin

for i:=1 to 3 do

begin

write ('masukan No mahasiswa =');readln(Mhs[i].no);

write ('masukan Hari mahasiswa =');readln(Mhs[i].hari);

write ('masukan Mata Kuliah mahasiswa =');readln(Mhs[i].matakuliah);

write ('masukan Nama Dosen =');readln(Mhs[i].namadosen);

writeln ('---------------------------------------------');

end;

writeln;

writeln;

writeln (' MATA PELAJARAN ');

writeln ('-----------------------------------------------------------------------');

writeln (' No ! Hari ! Mata Kuliah ! Nama Dosen !');

writeln ('-----------------------------------------------------------------------');

for i:=1 to 3 do

begin

write (' ',Mhs[i]. No);

write (' ',Mhs[i]. Hari);

write (' ',Mhs[i]. MataKuliah);

writeln (' ',Mhs[i]. NamaDosen);

end;

writeln ('-------------------------------');

end.

Soal

  1. konversi dari suhu farenheit-celcius

input : suhu awal celcius

rumus : suhu=5/9*(suhu awal celcius-32)

jawab=

program konversi_suhu;

uses wincrt;

var

awal:real;

suhu:real;

begin

write('masukan suhu awal celcius=');readln(awal);

suhu:=5/9*(awal-32);

writeln('jadi suhu akhirnya adalah=',suhu:2:2);

end.

soal

2.menentukan gaji bersih

Input=gaji pokok

Rumus pajak=0,15*gaji pokok

Gaji bersih=gaji pokok – pajak

Jawab=

program gaji_bersih;

uses wincrt;

var

gajipokok:real;

pajak:real;

gajibersih:real;

begin

write('masukan gaji pokok=');readln(gajipokok);

pajak:=0.15*gajipokok;

gajibersih:=gajipokok-pajak;

writeln('jadi gaji bersihnya adalah=',gajibersih:2:0);

end.

program nama_karyawn_dan_gaji_pokok;

uses wincrt;

var

karyawan:string;

gp,gb,t,p:real;

begin

write('masukan nama karyawan=');readln(karyawan);

write('masukan gaji pokoknya=');readln(gp);

t:=0.3*gp;

p:=0.25*(gp+t);

gb:=gp+t-p;

writeln('jadi tunjangannya adalah=',t:2:0);

writeln('jadi pajaknya adalah=',p:2:0);

writeln('jadi gaji bersihnya adalah',gb:2:0);

end.

program rerata_tanpalarik;

uses wincrt;

var x1,x2,x3,x4,x5:integer;

u :real;

begin

write('masukan nilai 1=');readln(x1);

write('masukan nilai 2=');readln(x2);

write('masukan nilai 3=');readln(x3);

write('masukan nilai 4=');readln(x4);

write('masukan nilai 5=');readln(x5);

writeln('nilai ke-1=',x1);

writeln('nilai ke-2=',x2);

writeln('nilai ke-3=',x3);

writeln('nilai ke-4=',x4);

writeln('nilai ke-5=',x5);

u:=(x1+x2+x3+4+5)/5;

writeln('masukan rata-ratanya adalah =',u:2:2);

end.

program rerata_tanpalarik;

uses wincrt;

var

x:array [1..3] of integer;

i:integer;

jumlah,u:real;

begin

for i:=1 to 3 do

begin

writeln ('masukan nilai=');readln(x[i]);

end;

for i:=1 to 3 do

begin

write('nilai ke.=',x[i]);

end;

jumlah:=0;

for i:=1 to 3 do

begin

jumlah :=jumlah+ x[i];

end;

u:=jumlah/3;

writeln('maka rata-ratanya adalah=', u:2:2);

end.

program data_mahasiswa;

uses wincrt;

type

mahasiswa=record

NIM :integer;

NamaMhs:string;

IPK:real;

end;

var

i:integer;

Mhs : array[1..3] of mahasiswa;

begin

for i:=1 to 3 do

begin

write('masukan NIM mahasiswa =');readln(Mhs[i].NIM);

write('masukan Nama mahasiswa =');readln(Mhs[i].NamaMhs);

write('masukan IPK mahasiswa =');readln(Mhs[i].IPK);

write('........................................');

writeln;

writeln;

writeln(' tabel mahasiswa' );

writeln('...............................');

writeln('! NIM ! nama ! ipk !');

writeln('...............................');

writeln('! ! ! !');

writeln('...............................');

for i:=1 to 3 do

begin

write(' ',Mhs[i].NIM);

write(' ',Mhs[i].NamaMhs);

writeln(' ',Mhs[i].IPK:2:2);

end;

writeln('...............................');

end.

program jadwal_mata_kuliah;

uses wincrt;

type

mahasiswa=record

NO :integer;

Hari:real;

matakuliah:string;

namadosen:real;

end;

var

i:integer;

Mhs : array[1..5] of mahasiswa;

begin

for i:=1 to 5 do

begin

write('masukan no =');readln(Mhs[i].no);

write('masukan hari =');readln(Mhs[i].hari);

write('masukan mata kuliah =');readln(Mhs[i].matakuliah);

write('masukan nama dosen =');readln(Mhs[i].namadosen);

write('........................................');

end;

writeln;

writeln;

writeln(' jadwal mata kuliah' );

writeln('...............................');

writeln('! No ! hari ! mata kulaih ! nama dosen! ');

writeln('.....................................................');

writeln('! 1 ! rabu ! struktur data ! udin ! ');

writeln('! 2 ! rabu !perkmbngan psrta didik! ali ! ');

writeln('! 3 ! rabu ! pemrograman visual ! nanang ! ');

writeln('! ! ! ! ! ');

writeln('.....................................................');

for i:=1 to 5 do

begin

write(' ',Mhs[i].no);

write(' ',Mhs[i].hari );

write(' ',Mhs[i].matakuliah );

writeln(' ',Mhs[i].namadosen:2:2);

program keren;

uses wincrt;

Var nama:string;

Urutan, posisi:integer;

begin

nama:=('drjas keren');

Writeln('yang ini di dellete');

For urutan:=1 to 11 do

Begin

Posisi:=13-urutan;

delete (nama,posisi,1);

writeln(nama);

end;

writeln;

nama:='dijas keren';

writeln('yang ini lewat');

writeln('sebelum di insert:','nama');

insert('-',nama,6);

writeln('setelah di insert','nama');

readln;

end.

program pembalik_kata;

uses wincrt;

var kata,hasil,tmp:string;i:integer;

begin

write('kata:');readln(kata);

hasil:='';

for i:=length(kata) downto 1 do

begin

tmp:=copy(kata,i,1);

hasil:=hasil+tmp;

end;

write('dibalik',hasil);

readln;

end.

Tugas Bu sri

program pemilihan_huruf_vokal;

uses wincrt;

var

huruf:char;

begin

write('masukan huruf');readln(huruf);

if(huruf='a') or (huruf='i') or (huruf='u') or (huruf='e') or (huruf='o') then

write('huruftertersebut merupakan huruf vokal')

else

write('huruf tersebut bukan merupakan huruf vokal')

end.

program bilangan_terbesar;

uses wincrt;

var

bilangan1,bilangan2:integer;

begin

write('masukan bilangan ke-1=');readln(bilangan1);

write('masukan bilangan ke-2=');readln(bilangan2);

if bilangan1>bilangan2 then

write('bilangan terbesar =',bilangan1)

else

write('bilangan terbesar =',bilangan1)

end.

Word kurang dari 65.000

Longint 65.000 sampai 2.000.000.000

program cetak_angka;

uses wincrt;

var

N, i:integer;

begin

write('tulis berapa angkanya?');readln(N);{isi dengan angka}

for i:=1 to N do

begin

write(i);

writeln;

end;

end.

program cetak_angka;

uses wincrt;

var

N, i:integer;

begin

write('tulis berapa angkanya sih?');readln(N);{isi dengan angka}

for i:=N downto 1 do

begin

write(i);

writeln;

end;

end.

program cetak_segitiga_bintang;

uses wincrt;

var

N,i,j:integer;

begin

write('tulis segitiga bintang?');readln(N);{isi dengan angka}

for i:=1 to N do

begin

write('*');

writeln;

end;

end.

program cetak_segitiga_bintang;

uses wincrt;

var

N,i,j:integer;

begin

write('tulis segitiga bintang?');readln(N);{isi dengan angka}

for i:=1 to N do

begin

for j:=1to i do

write('*');

writeln;

end;

end

program cetak_segitiga_bintang;

uses wincrt;

var

N,i,j:integer;

begin

write('tulis segitiga bintang?');readln(N);{isi dengan angka}

for i:=N downto 1 do

begin

for j:=1 to i do

write('*');

writeln;

end;

end..

program luas;

uses wincrt;

var

nomor_menu,panjang,lebar,alas,tinggi,jari_jari,luas_persegi_panjang:integer;

luas_segitiga,luas_lingkaran:real;

begin

writeln(' MENU LUAS ');

writeln('..........................................');

writeln(' 1.luas persegi panjang ');

writeln(' 2.luas segi tiga ');

writeln(' 3.luas lingkaran ');

writeln('..........................................');

write('masukan pilihan nomor menu (1/2/3 ?');readln(nomor_menu);

writeln('..........................................');

if (nomor_menu=1) then

begin

writeln(' masukan luas persegi panjang ');

writeln('.....................................');

write('masukan nilai panjang =');readln(panjang);

write('masukan nilai lebar =');readln(lebar);

luas_persegi_panjang:=panjang*lebar;

writeln('luas persegi paNJANG =-',LUAS_PERSEGI_PANJANG);

writeln('.....................................');

end

else if (nomor_menu=2) then

begin

writeln(' masukan luas segi tiga ');

writeln('.....................................');

write('masukan nilai alas =');readln(alas);

write('masukan nilai tinggi =');readln(tinggi);

luas_segitiga:=0.5*alas*tinggi;

writeln('luas persegi paNJANG =-',LUAS_segitiga:2:2);

writeln('.....................................');

end

else if (nomor_menu=3) then

begin

writeln(' masukan luas lingkaran ');

writeln('.....................................');

write('masukan nilai jari_jari =');readln(jari_jari);

luas_lingkaran:=3.14*jari_jari*jari_jari;

writeln('.....................................');

writeln('luas lingkaran =',luas_lingkaran:2:2);

writeln('.....................................');

end

else

begin

writeln('nomer menu yang anda pilih tidak ada !!!!!');

write('silahkan pilih nomer menu!!!!!');

end

end.

program luas_persegi_panjang; (1)

uses wincrt;

var

p,l,luas:integer;

begin

write('masukan nilai panjang=');readln(p);

write('masukan nilai lebar=');readln(l);

luas:=p*l;

writeln('maka luas persegi panjang adalah =',luas);

end.

program luas_persegi_panjang; (2)

uses wincrt;

var

p,l,luas:integer;

procedure hitung_luas;

begin

luas:=p*l;

writeln('maka luas persegi panjang adalah =',luas);

end;

{program utama}

begin

write('masukan nilai panjang=');readln(p);

write('masukan nilai lebar=');readln(l);

hitung_luas;

end.

program luas_persegi_panjang; (3)

uses wincrt;

var

p,l,luas:integer;

function

luas_(p,l:integer):integer;

begin

luas:=p*l;

end;

{program utama}

begin

write('masukan nilai panjang=');readln(p);

write('masukan nilai lebar=');readln(l);

write('masukan nilai persegi panjang adalah=',luas_(p,l));

end.

SoaL…………

Tuliskan program yang membaca tahanan (ohm) dan asus(amphere), kemudan kemudian menghitung tegangan yang di hasilkan dan menuliskan hasilnya perhitungan tegangan harus di tuliskan menjadi sebuah procedure bernama proses (infut-proses_autput)

Input : R:integer,tahanan(ohm)dan A:Integer, arus (amphere)

Proses menghitung V=R*A

outputV : Integer, tegangan (Volt).

  1. buat program dengan procedure
  2. buat program dengan Fungsi

JAWAB:

a. PROCEDURE

program menghitung_tegangan;
uses wincrt;
var
R,A,V:integer;
procedure hitung_tegang;

begin
V:=R*A;

writeln('Maka besarnya tegangan adalah =',V);

end;

begin
write('Masukan nilai Hambatan = ');readln(R);
write('Masukan Nilai Arus = ');readln(A);

hitung_tegang;

end.

procedure hitung_volume;
begin
volume:=p*l*t;
writeln('Maka Volume Balok adalah = ',volume);
end;

begin
write('Masukan nilai panjang = ');readln(p);
write('Masukan Nilai panjang = ');readln(l);
write('Masukan Nilai tinggi = ');readln(t);
hitung_volume;
end.

b. FUNCTION

program menghitung_tegangan;
uses wincrt;
var
R,A:integer;
Function tegangan(R,A:integer):integer;
begin
tegangan:=R*A;
end;
begin
write('Masukan nilai Hambatan = ');readln(R);
write('Masukan Nilai Arus = ');readln(A);
write('Maka besarnya tegangan adalah = ',tegangan(R,A));
end.

program anak_ayam;

uses wincrt;

var

a,b:integer;

begin

writeln('PROGRAM ANAK AYAM');

writeln('Tek Kotek Kotek Kojing ada ketek digigit anjing');

writeln('Tek Kotek Kotek Kojing anak ayam berkotek kotek');

write('Anak Ayam ada : ');read(a);

writeln;

for b:=a downto 2 do

writeln(' Anak ayam turun ',b,' Mati satu tinggal ',b-1);

writeln(' Anak ayam turun ',1,' Mati satu tinggal induknya');

writeln (' Anak Ayam mati semua mati satu mati semua ');

end.

Sabtu, 23 Januari 2010

cinta di kota

Tetaplah Disisiku

Ya Allah…
Dimanakah ku harus berlabuh…
Saat semua dermaga menutup pintu,
Dan berkata “ ini bukan untukmu…”
“Segara menjauh karna disini bukan tempatmu….!!!”

Ya Allah…
Katakan padaku, dermaga untukku berlabuh…???
Agar ku segera menghela nafas kehidupan yang baru.
Sampai kapan ku harus arungi waktu,..
Ku lelah Menunggu suatu yang tak pasti walau hanya Satu,..

Ya Allah …
Beri aku penerang jalan-Mu
Agar tak tersesat saat ku melaju,..
Kuatkan awak kapalku,
Saat badai menghalangi jalanku

Ya Allah …
Tetaplah disisiku,
Jangan Engkau menjauh dariku…
Karna ku mati tanpa hadir-Mu