Konsep Kamar Minimalis

Posted by Rozaq D' Acewell™

Desain kamar yang Anda miliki saat ini secara tidak langsung mewakili kepribadian Anda pada umumnya. Bagi Anda yang suka menata atau mendesain kamar dengan konsep minimal atau simple, berikut ini saya berikan referensi yang bisa menginspirasi Anda untuk mulai mengganti suasana kamar Anda. Semoga Bermanfaat.

Konsep 1

Konsep 2

Konsep 3

Konsep 4

Konsep 5

Konsep 6

Konsep 7

Konsep 8

Konsep 9

Konsep 10

Konsep 11

Konsep 12

Konsep 13

Konsep 14

Konsep 15

Konsep 16

Konsep 17
[...]

Tips Desain Interior Rumah Minimalis

Posted by Rozaq D' Acewell™

Mempunyai desain rumah ( desain interior & eksterior) minimalis, ataupun minimalis modern rupanya untuk sebagian orang masih digandrungi. Pengembang apartemen maupun rumah hunian masih menawarkan tipe design (termasuk design art) minimalis dalam tahun ini maupun tahun mendatang.

Anda, yang menjatuhkan pilihan pada design rumah minimalis, sebaiknya memperhatikan desain interior yang cocok dengan rumah minimalis juga.

Ada 7 tips mengenai desain interior minimalis yang sebaiknya Anda perhatikan ketika mulai mengisi rumah minimalist Anda adalah sebagai berikut :

1. Perhatikan bentuk asesoris ruang yang uncluttered (bersih, tegas, tanpa profil, bentuk geometris yang minimal). Ingatlah bahwa interior desain & eksterior minimalis, prinsipnya adalah pas, perfect, tidak berlebihan.

2. Korden/penutup jendela gunakan roller type, basic blinds (vertical atau horizontal).

3. Kalau Anda mau memasang karpet gunakan karpet dengan warna solid tanpa motif.

4. Selalu upayakan permukaan meja, permukaan credensa atau cabinet dalam keaadaan bersih dan kosong. Letakkan buku dan barang-barang lain dalam laci. Asesoris yang ideal adalah vas bunga dari gelas artistik, piring simple berisi buah dan/atau tempat lilin. Sehingga Anda bisa mendapatkan art desain interior yang bagus.

5. Gunakan satu warna yang simple (plain) untuk bantal sofa.

6. Cover bed, sprei dan sarung bantal gunakan corak yang simple. Kombinasi warna batasi pada dua warna tanpa motif.

7. Gantunglah lukisan dengan komposisi dan frame yang simple, tanpa profil atau ukiran. Jangan terlalu banyak lukisan, pilih yang besar dari koleksi Anda. Gambar disamping adalah contoh interior minimalis ruang tidur.Cat tembok pilihlah warna pastel/pucat yang netral seperti abu-abu, beige atau krem.



















[...]

Super Komputer

Posted by Rozaq D' Acewell™

Super Komputer Canggih Milik NASA [ Full Pic]

Superkomputer yang dibuat di Naval Oceanographic Office Major Shares Resource Center, Mississippi ini menggunakan 3.000 mikroprosesor 64 bit dengan kemampuan setara 368 buah komputer desktop yang digabung menjadi satu.
“Kalau sudah selesai, superkomputer yang menggunakan operating system (OS) Unix IBM alias AIX ini akan memiliki kecepatan 20 teraflop atau setara dengan 20 triliun penghitungan matematik per detik,” terang Debra Goldfard, wakil presiden produk IBM. “Kemampuannya itu seperti kuda yang sedang berlari kencang,” imbuhnya. Dengan kecepatan itu, kita bisa menghitung deretan angka yang bila dilakukan dengan kalkulator makan waktu 1,2 juta tahun. Sedangkan dengan superkomputer ini, hanya butuh waktu 1 detik.
Sementara itu, para ilmuwan NASA menggandeng perusahaan dari Lembah Silikon untuk menciptakan superkomputer dengan OS Linux. Kalau sudah selesai nanti, superkomputer berjulukan Space Exploration Simulator itu akan mempunyai kemampuan mengolah informasi 10 kali lebih cepat dibanding superkomputer yang saat ini dimiliki oleh NASA.
“Superkomputer baru ini nantinya memungkinkan para ilmuwan menjalankan simulasi model komputer yang rumit. Seperti penelitian formasi planet atau fisika matahari, atau perhitungan pesawat ulang-alik yang kembali ke bumi,” terang Walter Brooks, kepala divisi NASA Advanced Supercomputing (NAS).
Ames Research Center NASA di Mountain View, California yang menjadi markas besar NAS tengah membuat superkomputer baru sebagai bagian kerjasama Project Columbia yang dibantu Silicon Graphics, Inc. (SGI) dan produsen ternama prosesor komputer Intel.
Superkomputer ini akan menghubungkan 20 komputer canggih SGI Altix, yang masing-masing memiliki 512 prosesor, dilengkapi dengan 500 terabyte media penyimpan (storage) lokal. Setelah semua komputer tersebut dihubungkan, sejumlah 10.240 prosesor Intel Itanium 2 akan mentenagai superkomputer Space Exploration Simulator ini untuk melakukan berbagai penelitian. Seperti pemodelan pesawat ulang-alik, perubahan iklim, keselamatan penerbangan luar angkasa dan aeronautika.
“Ini memungkinkan NASA memproses misi kritis penerbangan yang kembali ke bumi atau pergi, sembari membangun pondasi kokoh eksplorasi ruang angkasa masa depan,” terang Administrator NASA Sean O’Keefe.
Saat menyelidiki penyebab kecelakaan pesawat ruang angkasa Columbia misalnya. Aktivitas tersebut hampir mengambil sebagian besar kemampuan pemrosesan superkomputer NASA sehingga penelitian sains luar angkasa dan bumi sempat terpinggirkan.
Dengan superkomputer baru ini, tugas penanganan keselamatan pesawat ulang-alik dan riset sains bisa dilakukan sekaligus oleh superkomputer. Bahkan, NASA merencanakan memberi porsi akses tertentu kepada komunitas ilmuwan dan insinyur di luar NASA untuk melakukan penelitian mereka sendiri dengan menggunakan superkomputer Space Exploration Simulator.
Spesifikasi:
Manufacturer – SGI
Nodes Type Speed Cache
1 Altix 4700 (512 cores) Montecito 1.6 GHz 9MB
1 Altix 4700 (2048 cores) Montecito 1.6 GHz 9MB
2 Altix 4700 (1024 cores) Montvale 1.6 GHz 9MB
4 Total Compute Nodes (4,608 Total Cores)
System Architecture
* 40 compute node cabinets
* 30 teraflop/s theoretical peak (Original 10,240 system – 63 Tflop/s)
Subsystems
* 2 front-end nodes
Memory
* Type – double data rate synchronous dynamic random access memory (DDR SDRAM)
* Per Processor (core) – 2GB
* Total Memory – 9TB
Interconnects
* NUMALink interconnected single-system image compute nodes
* Internode
o InfiniBand – 4x (Single Data Rate, Double Data Rate)
o 10Gb Ethernet LAN/WAN interconnect
o 1Gb Ethernet LAN/WAN interconnect
Storage
* Online – DataDirect Networks & LSI RAID, 1PB (raw)
o 1 SGI CXFS domains
o Local SGI XFS fileystems
* Archival – Attached to high-end computing SGI CXFS SAN filesystem
Operating Environment
* Operating system – SUSE Linux Enterprise
* Job Scheduler – PBS
* Compilers – Intel Fortran, C, SGI MPT



[...]

membuat database pada pascal

Posted by Rozaq D' Acewell™

program penjualan;
uses crt ;

 type
 data=record
 no,jumlah:integer;
 nama_barang:string;
 harga,harga_barang:real;
 end;

 var
 rdata:array[1..100]of data;
 filedata:file of data;
 f:data;
 nomor:integer;
 datacari:string;

procedure judul;
begin
writeln('       KOPERASI MAHASISWA "KHARISMA KARAWANG"');
writeln('        jl. Pangkal Perjuangan KM.1 By Pass');
writeln('                    KARAWANG');
writeln('******************************************************************');
writeln;

end;

procedure tambah;
var
i:integer;
lagi:char;
begin
clrscr;
judul;
writeln('Masukan data tambahan');
assign(filedata,'jual.dat');
 reset(filedata);
 seek(filedata,filesize(filedata));
  write('Nama barang : ');
  readln(f.nama_barang);
  write('harga:');
  readln(f.harga);
  write('jumlah :');
  readln(f.jumlah);
  f.harga_barang:=f.harga*f.jumlah;
  write(filedata,f);
  close(filedata);
end;

procedure hapus;
var
i,j:integer;
nm:string;
begin

assign(filedata,'jual.dat');
 reset(filedata);
 j:=0;
 while not Eof(filedata) do
  begin
     inc(j);
     read(filedata,rdata[j]);
  end;

 writeln('Masukan nama barang yang di hapus :');
 readln(nm);
 i:=1;
while(i<=j)and (rdata[i].nama_barang<>nm) do
inc(i);
  if nm=rdata[i].nama_barang then
   begin
   dec(j);
    for i:=i to j do
     rdata[i]:=rdata[i+1];
     rewrite(filedata);
     for i:=1 to j do
     write(filedata,rdata[i]);
     writeln(' Tekan enter untuk memulai menghapus');
     readln;
     writeln(' S U K S E S ');
   end
   else
   writeln('MAAF data tidak di temukan ');
   readln;
   close(filedata);
  end;

procedure edit_data;
var
i,p:integer;
lagi:char;
dataedit:string;

begin


assign(filedata,'jual.dat');
reset(filedata);
writeln('masukan nama data yang akan di edit [tulis dengan huruf kecil] : ');
readln(dataedit);
i:=1;
while not Eof(filedata) do
begin
read(filedata,rdata[i]);
begin
if dataedit = rdata[i].nama_barang then
 begin

  p:=filepos(filedata);writeln(p);
  p:=p-1;
  seek(filedata,p);
  writeln('input data pengganti :');
   writeln('no ',i:2);
   write('nama barang :');read(rdata[p].nama_barang);
   write('harga       :');read(rdata[p].harga);
   write('jumlah      :');read(rdata[p].jumlah);
   rdata[p].harga_barang:=rdata[p].harga*rdata[p].jumlah;
   write(filedata,rdata[p]);
 end ;
end;
i:=i+1;
end;
close(filedata);
end;




procedure in_data_barang;
var i:integer;
    lagi:char;
begin
i:=1;
assign(filedata,'jual.dat');
 rewrite(filedata);
 reset(filedata);
 begin
repeat
 begin
   clrscr;
   judul;
   writeln('input dengan huruf kecil');
   writeln('no ',i);
   write('nama barang :');readln(rdata[i].nama_barang);
   write('harga       :');readln(rdata[i].harga);
   write('jumlah      :');readln(rdata[i].jumlah);
   rdata[i].harga_barang:=rdata[i].harga*rdata[i].jumlah;
   write(filedata,rdata[i]);
   writeln;
   writeln('ingin masukan data lagi [y/t] : ');
   readln(lagi);
   i:=i+1;
 end;
 until ((lagi='t') or (lagi='T'));
 close(filedata);

 end;

 end;


procedure tampil_daftar_barang;
var i:integer;

begin
assign(filedata,'jual.dat');
reset(filedata);
      writeln('DAFTAR BARANG DI ATAS Rp 1.000.000 ');
  writeln('=============================================================');
  writeln('NO   NAMA BARANG                          HARGA/S   JUMLAH   ');
  writeln('=============================================================');

i:=1;
while not Eof(filedata) do
begin
 read(filedata,rdata[i]);

 if (rdata[i].harga)>=1000000 then
    begin
  write(i);
  write('    ',rdata[i].nama_barang:10);
  write('                       ',rdata[i].harga:10:0);
  write('     ',rdata[i].jumlah:2);
  writeln;
 i:=i+1;
 end;
 end;writeln;
 end;



procedure cetak_daftar_barang;
var i,pilih:integer;
    total:real;
begin
repeat
clrscr;
assign(filedata,'jual.dat');
reset(filedata);
 total:=0;
 begin
judul;
writeln('DAFTAR PENJUALAN ');
writeln('==========================================================================');
writeln('NO   NAMA BARANG                          HARGA/S   JUMLAH    HARGA BARANG');
writeln('==========================================================================');
i:=1;

while not Eof(filedata) do

 begin
 read(filedata,rdata[i]);

  write(i);
  write('    ',rdata[i].nama_barang:10);
  write('                       ',rdata[i].harga:10:0);
  write('     ',rdata[i].jumlah:2);
  write('      ',rdata[i].harga_barang:8:0);
  writeln;
  total:=total+rdata[i].harga_barang;
  i:=i+1;
 end;


writeln('---------------------------------------------------------------------');
writeln('                                         TOTAL PENJUALAN   ; ',total:3:0);
writeln;
writeln;
tampil_daftar_barang;
end;
writeln('-- Pilihan --');
writeln('**************************');
writeln('1. Tambah data penjualan');
writeln('2. Hapus data penjualan');
writeln('3. Edit data penjualan');
writeln('4. Ke MENU Utama');
writeln('**************************');
readln(pilih);
case pilih of
 1:tambah;
 2:hapus;
 3:edit_data;
 end;
 until(pilih =4);
end;

procedure cari;
var
i,jumlah:integer;
cocok,nama:string;
harga,harga_barang:real;
begin
 assign(filedata,'jual.dat');
 reset(filedata);
  cocok:=datacari;

   begin
   i:=1;
   while not Eof(filedata)do
    begin
    read(filedata,rdata[i]);
    if cocok=rdata[i].nama_barang then
     begin
     nama:=rdata[i].nama_barang;
     harga:=rdata[i].harga;
     jumlah:=rdata[i].jumlah;
     harga_barang:=rdata[i].harga_barang;
    end;
     end;
     i:=i+1;
     end;
if(nama='')then
 begin
  writeln(' MAAF DATA TIDAK TERSEDIA')
  end
  else
  begin
  judul;
  writeln('DAFTAR PENCARIAN ');
writeln('======================================================================');
writeln(' NAMA BARANG                          HARGA/S   JUMLAH    HARGA BARANG');
writeln('======================================================================');
  writeln;
  write(nama:10);
  write(                   harga:35:0);
  write(jumlah:8);
  write(harga_barang:12:0);
  writeln;
  writeln('-------------------------------------------------------------------------');
  writeln;
  end;
nama:='';
harga:=0;
jumlah:=0;
harga_barang:=0;
end;


procedure cek_data_barang;
var
lagi:char;
begin
 repeat
 clrscr;
judul;
writeln('Masukan Nama Data yang di cari [tulis dengan huruf kecil] : ');
readln(datacari);
clrscr;
cari;

writeln('Apakah ingin mencari data lagi ? [y/ t] ');
readln(lagi);
writeln;
until (lagi='T')or (lagi='t');
end;


begin

repeat
clrscr;
judul;
  writeln('-- MENU --');
  writeln('************************');
  writeln('1. IN DATA BARANG');
  writeln('2. CEK DATA BARANG');
  writeln('3. CETAK DAFTAR BARANG');
  writeln('4. E X I T');
  writeln('************************');
  writeln;
writeln('Pilih Jenis Transaksi = ');
readln(nomor);
  clrscr;
case nomor of
  1:in_data_barang;
  2:cek_data_barang;
  3:cetak_daftar_barang;

end;
until nomor=4;
end.
[...]

Program Menghitung Gaji Pegawai pada Pascal

Posted by Rozaq D' Acewell™

Program Menghitung Gaji Pegawai pada Pascal
uses crt;
type data=record
gol : string[3];
status : string[7];
j_anak : byte;
ta,ti,gaber,ppn:real;
gapok : longint;
id,nama:string;
end;
var d:array [1..100] of data;
p,a,b,c,e,i,f,j_anak:byte;
status : string;
gol : string[3];
ta,ti,gaber,ppn :real;
gapok : longint;
x,mau:char;
id :string[5];

procedure menu;
begin
writeln(' menu');
writeln('------------------------');
writeln(' 1.input');
writeln(' 2.edit');
writeln(' 3.hapus');
writeln(' 4.cetak');
writeln(' 5.keluar');
writeln('-----------------------');
write (' Masukkan Pilih Memu :');readln(p);
end;
procedure input;
begin
clrscr;
repeat
write('masukkan id anda :');readln(d[i].id);
if pos('1',d[i].id)=3 then
begin
d[i].gol:='1A';
end
else if pos('2',d[i].id)=3 then
begin
d[i].gol:='2B';
end
else
begin
d[i].gol:='3D';
end;
write('masukkan nama : ');readln(d[i].nama);
write('masukkan Status : ');readln(d[i].status);
write('masukkan Jumlah Anak : ');readln(d[i].j_anak);
if d[i].j_anak <= 3 then
begin
d[i].j_anak := d[i].j_anak;
end
else if d[i].j_anak > 3 then
begin
d[i].j_anak := 3;
end;
write('masih mau input [y/t]:');readln(mau);
inc(i)
until mau ='t';
end;
procedure edit;
begin
clrscr;
for a:=0 to i do
writeln(d[a].id ,' ',d[a].nama );
repeat
write('masukkan id :');readln(id);
for a:=0 to i do
begin
if (id=d[a].id) then
begin
d[a].nama:='';
write('masukkan nama:');readln(d[a].nama);
write('masukkan Status:');readln(d[a].status);
write('masukkan Jumlah Anak :');readln(d[a].j_anak);
end;
end;
write('masih mau edit [y/t]:');readln(mau);
until mau ='t';

end;
PROCEDURE hasil;
begin
for e:= 0 to i do
begin
if d[e].gol = '1A' then
begin
d[e].gapok := 750000;
end
else if d[e].gol = '2B' then
begin
d[e].gapok := 1256700;
end
else if d[e].gol = '3D' then
begin
d[e].gapok := 1669200;
end;
d[e].ti:=0.15 * d[e].gapok;
d[e].ta:=0.10 * d[e].gapok ;
d[e].ppn:=0.05 * d[e].gapok;
d[e].gaber:=d[e].gapok+d[e].ti+d[e].ta-d[e].ppn;
end;
inc(e)
end;

procedure hapus;
begin
clrscr;
for b:=0 to i do
writeln(d[b].id ,' ',d[b].nama );
repeat
write('masukkan id :');readln(id);
for b:=0 to i do
begin
if id=d[b].id then
begin
d[b].id:='';
d[b].nama:='';
d[b].gol:='';
d[b].status:='';
d[b].j_anak:=0;
d[b].gapok:=0;
d[b].ti:=0;
d[b].ta:=0;
d[b].ppn:=0;
d[b].gaber:=0;
writeln('data telah di hapus');
end;
end;
write('masih mau hapus [y/t]:');readln(mau);
until mau ='t';
end;
procedure cetak;
begin
for c := 0 to i do
clrscr;
hasil;
writeln('Perusahaan : PT.NAWAR (081158),Tbk. ');
writeln(' Jl.Merdeka No.45 ');
writeln(' Makassar_90245 ');
writeln('Tabel : Data Karyawan ');
writeln(' _____________________________________________________________________________');
writeln('| id | nama |gol| Status|nak| Gapok | T_istri | T_anak | PPn | Gaber |');
writeln('|-----------------------------------------------------------------------------');
for c:=0 to i-1 do
begin
gotoxy(1,8+c) ;writeln('|');
gotoxy(3,8+c);write( d[c].id);
gotoxy(8,8+c);write('|');
gotoxy(10,8+c);write(d[c].nama);
gotoxy(16,8+c);write('|');
gotoxy(18,8+c);write(d[c].gol );
gotoxy(20,8+c);write('|');
gotoxy(22,8+c);write( d[c].status );
gotoxy(28,8+c);write('|');
gotoxy(30,8+c);write( d[c].j_anak );
gotoxy(32,8+c);write('|');
gotoxy(34,8+c);write( d[c].gapok);
gotoxy(41,8+c);write('|');
gotoxy(43,8+c);write( d[c].ti:0:0 );
gotoxy(51,8+c);write('|');
gotoxy(53,8+c);write(d[c].ta:0:0);
gotoxy(61,8+c);write('|');
gotoxy(63,8+c);write(d[c].ppn:0:0);
gotoxy(69,8+c);write('|');
gotoxy(71,8+c);write(d[c].gaber:0:0);
gotoxy(79,8+c);writeln('|');
end;
writeln('|_____________________________________________________________________________|');
writeln
end;

begin
clrscr;
i:=0;
repeat
clrscr;
menu;
if p=1 then
input
else if p=2 then
edit
else if p=3 then
hapus
else if p=4 then
cetak
else
exit;
write('tekan x ke menu :');readln(x);
until x <>'x';
end.
[...]