Jumat, 27 Februari 2009

Efek Retro Foto

Jumat, 27 Februari 2009 0
by Shinichi Ryan (Email : ryan20shinichi@gmail.com ) - Manajemen Informatika
Situs Pribadi Ryan : www.shinichi20ryan.co.cc




Gambar. Hasil Akhir Manipulasi



Anda pasti sering melihat poster-poster yang menampilkan kumpulan titik-titik pada seluruh gambar / foto, bahkan apabila dilihat secara dekat kumpuilan titik-titik tersebut ada yang berupa kumpulan gambaran kecil yang membentuk muka seseorang. Tapi kali ini kita akan membuat Retro Foto yang sederhana dengan cara yang sangat sederhana sekali.


Langkah-langkahnya :


1. Buka file gambar Artis pada area kerja Photoshop Anda (Atau bisa juga Anda menggunakan gambar lain seperti: Foto Artis lain atau foto Anda sendiri).


2. Lalu Anda duplikat dengan menekan Ctrl+J.




Gambar 3.1 Foto Artis Jepang




Gambar 3.2 Duplikat foto



3. Kemudian Anda pilih menu Filter > Artistic > Film Grain…lau atur nilai Grain: 6, Highlight Area:0 dan Intensity:10.



Gambar 3.3 Setting Nilai Film Grain


4. Selanjutnya Anda duplikat lagi Layer 1 dengan menekan tombol Ctrl+J.



Gambar 3.4 Duplikat Layer 1


5. Anda pilih lagi menu Filter > Pixelate > Color Halftone… lalu atur nilai Max. Radius: 6 pixels.




Gambar 3.5 Setting Nilai Halftone


6. Langkah terakhir Anda ubah Blending Mode: Darken.



Gambar 3.6 Ubah Blending Mode




**** Selamat Mencoba ^-^ ****






Kamis, 26 Februari 2009

10 Hal yang Dapat Dilakukan Untuk Mengurangi Risiko Kanker

Kamis, 26 Februari 2009 0
Kanker, tentu orang sudah sering mendengar salah satu penyakit paling populer yang bisa menyebabkan kematian si penderitanya. Dalam waktu yang sangat singkat dan relatif sering tidak terduga. Sedangkan pada umumnya orang berasumsi bahwa penyakit kanker disebabkan karena faktor genetik dan tidak bisa dihindari. Padahal, menurut the American Cancer Society, perilaku hidup yang sehat ternyata dapat mencegah sekitar separuh dari kematian akibat kanker. Berikut ini disampaikan daftar 10 hal yang dapat anda lakukan yang dapat mencegah atau mendeteksi dini kanker, berdasarkan penelitian – penelitian terbaru. (baca : semoga bermanfaat dan dapat kita terapkan dalam kehidupan sehari-hari)

1. Hindari merokok / mengkonsumsi produk tembakau
Tembakau meningkatkan risiko berbagai jenis kanker, termasuk kanker paru, bronkhus, kepala dan leher, usus besar, dan kandung kemih. Oleh sebab itu, langkah pertama, hindari atau berhenti merokok.

2. Lakukan skrining deteksi dini kanker secara rutin
Deteksi dini kanker secara bermakna sangat meningkatkan angka kesembuhan dan sangat menurunkan risiko kematian akibat kanker. Berikut adalah daftar pemeriksaan skrining kanker yang telah tersedia :

  • Usus besar : Mulai usia 50 tahun, dianjurkan pemeriksaan kolonoskopi tiap 10 tahun bagi yang tidak mempunyai risiko (tidak mempunyai riwayat keluarga menderita kanker ini / tidak mempunyai polip risiko tinggi). Bagi yang berisiko, diperlukan frekuensi pemeriksaan yang lebih sering. Pemeriksaan alternatif lainnya bagi yang tidak mempunyai risiko, yaitu flexible sigmoidoscopy, CT-scan, dan pemeriksaan darah samar pada tinja.
  • Kanker payudara : Mulai usia 40 tahun, para perempuan dianjurkan menjalani pemeriksaan mammogram dan pemeriksaan fisik oleh dokter tiap tahunnya.
  • Kanker prostat : Mulai usia 50 tahun, tiap tahun, pria dianjurkan menjalani pemeriksaan fisik oleh dokter (termasuk pemeriksaan colok dubur) dan pemeriksaan laboratorium (prostate specific antigen / PSA)
  • Kanker serviks : Skrining untuk kanker serviks dimulai saat seorang perempuan aktif secara seksual dan dilakukan berkala tergantung risiko dan usia. Pemeriksaan skrining berupa Pap smear dan pemeriksaan human papillomavirus.
  • Kanker kulit : Dianjurkan pemeriksaan kulit tiap tahun oleh dokter bagi orang dewasa.

3. Hindari banyak mengkonsumsi alkohol
Konsumsi alkohol berhubungan dengan peningkatan risiko beberapa jenis kanker, termasuk kanker payudara, esofagus, usus besar, pankreas, dan kanker kepala dan leher. Konsumsi alkohol hendaknya dibatasi 2 gelas untuk pria dan 1 gelas untuk perempuan.

4. Lindungi kulit anda dari sinar matahari
Gunakan krim pelindung sinar matahari tiap kali beraktivitas di luar ruangan (dianjurkan dengan jenis SPF 30 atau lebih tinggi yang dapat melindungi dari cahaya ultraviolet A dan B). Selain itu, lindungi kulit dengan topi dan kacamata, serta sebisa mungkin hindari terpajan sinar matahari pada jam 10 pagi hingga jam 4 sore.

5. Jaga pola hidup aktif secara fisik
Hasil penelitian mengatakan bahwa latihan fisik 3 – 4 jam tiap minggu (misalnya jalan cepat, bersepeda, atau dansa) dapat menurunkan risiko beberapa jenis kanker sekitar 30 % - 50 %. Berbagai penelitian menemukan bahwa latihan fisik yang teratur dapat menurunkan risiko terkenanya kanker payudara, usus besar, endometrium, dan paru.

6. Jaga berat badan normal
Orang dengan berat badan lebih atau obes, memiliki peningkatan risiko untuk timbulnya beberapa jenis kanker, misalnya kanker usus besar, payudara, pankreas, hati, ginjal, dan endometrium, dan juga leukemia atau limfoma. Cara terbaik untuk mempertahankan berat badan normal adalah dengan banyak mengkonsumsi sayur dan buah – buahan segar, dan kurangi makanan tinggi kalori seperti minuman mengandung gula dan makanan berlemak.

7. Hindari menggunakan terapi hormonal menopause
Terapi sulih hormon menopause meningkatkan risiko kanker payudara, endometrium dan kemungkinan kanker ovarium (indung telur).

8. Pertimbangkan mengkonsumsi obat untuk mengurangi risiko kanker
Terdapat beberapa obat yang telah terbukti efektif dalam menurunkan risiko kanker bagi yang mempunyai risiko tinggi. Misalnya, tamoksifen dan raloxifen untuk menurunkan risiko kanker payudara pada perempuan usia > 60 tahun dan memiliki faktor risiko. Penggunaan obat ini harus dengan konsultasi ke dokter.

9. Hindari pajanan terhadap bahan penyebab kanker
Pajanan terhadap radioaktif dan bahan kimia tertentu telah terbukti meningkatkan risiko kanker. Bagi karyawan yang bekerja di industri yang berhubungan dengan radioaktif ataupun bahan kimia berbahaya tertentu, wajib mengikuti prosedur keselamatan yang berlaku.

10. Konsumsi makanan penurun risiko kanker
Beberapa penelitian mengatakan bahwa makanan dari tumbuh–tumbuhan berhubungan dengan penurunan risiko beberapa kanker, terutama kanker usus besar. Anjuran tentang makanan yaitu :

  • Kurangi konsumsi daging merah (red meat). Batasi hingga tidak lebih dari 4 ons/ hari (rerata). Hindari pula mengkinsumsi daging yang telah diproses, sebab bahan kimia yang digunakan dapat menyebabkan timbulnya beberapa jenis kanker.
  • Konsumsilah berbagai jenis sayuran dan buah tiap hari. Direkomendasikan oleh the National Cancer Institute, sebanyak minimal 5 porsi sayur dan buah tiap hari.
  • Kurangi konsumsi makanan tinggi kalori, seperti minuman mengandung gula, dessert, permen, dsb.
  • Konsumsilah makanan tinggi kalsium dan vitamin D, seperti susu rendah lemak, dan yogurt.

POST DATE: 26 Februari 2009

Sumber : www.benih.net

Senin, 09 Februari 2009

Mempertajam Foto

Senin, 09 Februari 2009 0
by Shinichi Ryan (Email : ryan20shinichi@gmail.com ) - Manajemen Informatika
Situs Pribadi Ryan : www.shinichi20ryan.co.cc


Gambar. Hasil Akhir Manipulasi


Anda sering melihat foto-foto dengan gambar yang tajam, pasti Anda mengira tajamnya gambar pada foto tersebut dikarenakan menggunakan Kamera yang mahal dan canggih, dengan Photoshop Anda bisa melakukannya…! ^-^

Langkah-langkahnya :

1. Buka file gambar kupu-kupu pada area kerja Photoshop Anda (Atau bisa juga Anda menggunakan gambar lain seperti: Foto Anda dsb), lalu Anda Duplikat file kupu-kupu tadi dengan menekan Ctrl+J seperti dibawah ini.


Gambar 2.1 Duplikat gambar

2. Kemudian pada Layer 1 tekan tombol Ctrl+Shift+U pada keyboard agar, lalu pilih menu Filter > Blur > Gaussian Blur.. dengan Radius : 4.0 pixels.

3. Foto kupu-kupu berubah warna menjadi Hitam Putih dan Blur. Selanjutnya pilih Blending Mode : Hard light sehingga Hasilnya Foto akan terlihat Tajam dibandingkan sebelumnya warna-warna terlihat menyebar.




Gambar 2.3 Pilih Blending Mode : Hard Light




Gambar 2.4 Hasil Akhir mempertajam Foto


**** Selamat Mencoba ^-^ ****

Sabtu, 07 Februari 2009

Menghilangkan Jerawat pada Wajah

Sabtu, 07 Februari 2009 0
by Shinichi Ryan (Email : ryan20shinichi@gmail.com ) - Manajemen Informatika
Situs Pribadi Ryan :
www.shinichi20ryan.co.cc

This e-mail address is being protected from spambots. You need JavaScript enabled to view it

Gambar.
Hasil Akhir Manipulasi

Anda tidak PeDe dengan Foto Anda yang berjerawat?? Jangan kuatir, selain Anda rajin merawat kulit wajah Anda dengan pembersih wajah, dengan Photoshop Anda bisa menghilangkan jerawat tersebut hanya beberapa langkah cepat, gak percaya? Anda buktikan saja sendiri ^0^…!

Langkah-langkahnya :

1. Buka file gambar Wajah pada area kerja Photoshop Anda (gambar Wajah berjerawat bisa Anda cari di Internet), lalu pada ToolBox pilih Clone Stamp Tool.

Gambar 1.1 Clone Stamp Tool (S)

2. Kemudian Anda Duplikat file Wajah tadi dengan menekan Ctrl+J.

Gambar 1.2 Duplikat Gambar Wajah

3. Masih pada Clone Stamp Tool dan pada Layer 1, pilih area wajah yang terlihat bersih seperti gambar dibawah ini dengan menekat tombol Alt+Klik Kiri yang fungsinya untuk mengambil sampel agar ditempatkan pada area yang berjerawat.

Gambar 1.3 Ambil sampel area bersih pada wajah

4. Setelah itu klik pada area yang berjerawat, jangan lupa untuk selalu menekan tombol Alt+Klik Kiri pada area bersih wajah karena sampel yang Anda klik tadi akan mengikuti gerakan mengcloning pada area berjerawat sehingga Anda akan mendapatkan hasil gambarnya seperti ini.

Gambar 1.4 Jerawat sudah dibersihkan

5. Untuk hasill yang maksimal supaya wajah terlihat segar dan cerah. Anda pilih menu image > Adjustments > Levels.. Atur nilainya seperti dibawah ini.


Gambar 1.5 Setting pengaturan cahayanya




Gambar 1.6 Hasil Akhirnya Wajah terlihat bersih


**** Selamat Mencoba ^-^ ****

Minggu, 01 Februari 2009

Program Sederhana "APOTEK" with Pascal

Minggu, 01 Februari 2009 0
program Apotek;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
nmobat,sat,hrg_sat: Array[1..100] of String;
hrgsat,jumobat,jumbyr: Array[1..100] of Real;
tothrg:Real;
X,N:Integer;
lagi:char;

begin
lagi:='Y';
While lagi='Y' Do
begin
Writeln('==========================================');
Writeln('Apotek Indonesia Persada - Dr.Bari Ul Azmi');
Writeln('==========================================');
Writeln;
Write('Jumlah Data Yang di Input? ');Readln(N);
Writeln;
For X:=1 To N do
begin
Writeln('Data Pembelian Obat ke-', X);
Write(' - Nama Obat : ');Readln(nmobat[X]);
Write(' - Satuan : ');Readln(sat[X]);
Write(' - Harga Satuan : ');Readln(hrgsat[X]);
Write(' - Jumlah Obat : ');Readln(jumobat[X]);
Writeln;
end;
Writeln('--------------------------------------------------------------------');
Writeln(':: Data Obat Yang dibeli Konsumen ::');
Writeln('--------------------------------------------------------------------');
Writeln(' No ',' Nama Obat ','Satuan',' Hrg Satuan ','Jum Obat',' Jum Bayar ');
Writeln('--------------------------------------------------------------------');
tothrg:=0;
For X:=1 To N do
begin
jumbyr[X]:=hrgsat[X]*jumobat[X];
tothrg:=tothrg+jumbyr[X];
Writeln(' ',X,' ',nmobat[X],' ',sat[X],' ',hrgsat[X]:4:0,' ',jumobat[X]:4:0,' ',jumbyr[X]:4:0);
end;
Writeln('--------------------------------------------------------------------');
Writeln(' TOTAL = ',tothrg:4:0);
Writeln('--------------------------------------------------------------------');
Writeln;
Writeln;
Write('Tambah Data lagi ? Y / N -->');Readln(lagi);
Writeln;
Writeln;
lagi:=upcase(lagi);
end;
end.




Gambar Tampilan Program Apotek Sederhana


 
Welcome To Shinichi Ryan ◄Design by Pocket, BlogBulk Blogger Templates