Cara Melatih Pernafasan

TEKNIK PERNAFASAN DASAR:

1. NAFAS PERUT

Mulailah menarik nafas dan biarkan udara masuk sedalam mungkin ke dalam perut, sehingga perut menjadi menggembung. Perhatikan perut anda. Saat menarik nafas, perut akan menggembung dan saat menghembuskan nafas, perut mengempis.
Kebiasaan yang sering tidak kita sadari adalah pada saat menarik nafas, justru perut mengempis. Sebaliknya pada saat menghembuskan nafas, perut menggembung. Pada gilirannya cara bernafas yang salah seperti ini akan membebani banyak sekali organ dalam tubuh, sehingga kita lebih rentan terhadap penyakit.
Lakukan teknik ini dengan posisi duduk tegak, bukan berdiri atau tiduran. Anda bisa melakukannya dengan duduk di atas kursi atau duduk bersila di lantai. Lakukan teknik ini beberapa kali sampai Anda terbiasa.

2. NAFAS DADA

Caranya sama dengan Nafas Utama Perut. Hanya perhatian Anda arahkan ke bagian dada. Pada saat menarik nafas, dada mengembang dan saat menghembuskan, dada mengempis.

Perhatikan bahwa posisi latihan dan istirahat tetap sama, yaitu duduk tegak, bukan berdiri atau lainnya. Lakukan teknik ini beberapa kali sampai Anda terbiasa.

3. NAFAS PUNDAK

Caranya sama seperti Nafas Perut & Dada. Kali ini arahkan perhatian Anda ke pundak.
Saat menarik nafas, bawalah udara sampai ke bagian pundak atau dada atas; sehingga pundak akan naik. Saat menghembuskan nafas, pundak turun kembali ke posisi biasa.
Posisi latihan ini juga sama dengan latihan nafas perut dan dada. Anda boleh duduk di kursi atau duduk bersila di lantai. Yang penting Anda melakukannya dengan duduk tegak, bukan dengan berdiri. Lakukan teknik ini beberapa kali sampai Anda terbiasa.

TEKNIK PERNAFASAN GABUNGAN: Nafas Perut, Nafas Dada & Nafas Pundak

Tariklah nafas sedalam mungkin, perut menggembung, dada mengembang dan pundak naik—tanpa ditahan. Kemudian hembuskan nafas, perut mengempis, dada & pundak kembali ke posisi semula.
Lakukan teknik ini terus berulang-ulang sampai anda sudah terbiasa & wajar. Ingat, posisi saat latihan adalah sama dengan posisi di ketiga teknik sebelumnya.
Anda harus membiasakan teknik bernafas dengan cara pernafasan gabungan ini sehari-hari, menggantikan kebiasaan bernafas yang seenaknya sendiri dan salah caranya. Mungkin pada awalnya Anda merasa agak sulit, tetapi kalau anda sudah terbiasa maka hal itu akan berlangsung secara otomatis dan wajar.

Sumber : http://wuryanano.wordpress.com

Tips Cara Memberi Sugesti Orang Lain

Cara mensugesti orang lain yang bakal saya kasih ini mungkin beda dengan yang di lakukan pesulap2 yang ada di tipi2 (hipnotis dan lain2), karna saya bukan pesulap. saya cuma bisa berkonsentrasi, dan mengirimkan kata2 kepada orang lain melalui konsentrasi dan tatapan mata. Jika berhasil, maka orang yang di sugesti akan memberitahukan apa yang dipikirkan oleh dia, tepat seperti apa yang anda sugestikan.
Langkah-Langkah ato cara mensugesti orang lain seperti berikut ini :
1. Posisi yang pas
Posisi anda dengan lawan main harus pas, yaitu saling berhadapan, di usahakan pandangan mata menjadi 1 garis lurus.2. Konsentrasi
Konsentrasikan pikiran anda, pikirkan kata apa yang akan di sugesti / di kirimkan kepada orang yang ada di depan anda. Anda harus tenang dan YAKIN kan diri kalo anda bisa mensugesti orang yang ada di depan, biasa nya kalo gak yakin, pasti berujung gagal.
3. Persiapan Pemberian Sugesti
Sebelum anda memberikan sugesti, suruh lawan main untuk rileks, berkonsentrasi, menatap mata anda, dan kosongkan pikiran.
YAKIN kan agar dia tidak menolak apa yang keluar di pikirannya setelah dia mengkosongkan pikiran, karena itu adalah kata yang telah di sugestikan.
4. Pemberian Sugesti
Tatap mata sebelah kiri dari lawan main anda, sambil menatap, anda mulai menyebutkan kata yang akan di sugestikan di dalam hati, dan bayangkan sedang mengirimkan kata tersebut ke otak lawan main anda melalui mata kiri.
Kenapa menggunakan mata kiri, karena mata kiri dapat merangsang otak sebelah kanan. Otak kanan adalah otak yang berfungsi untuk berimajenasi, kreatifitas.
kalau sudah melakukan 4 langkah di atas, silakan anda tanyakan kepada lawan main, kata apa yang ada di pikiran dia.Jika sama dengan apa yang agan sugestikan, artinya agan berhasil dengan tips Cara Mensugesti Orang Lain yang telah saya paparkan di atas.

sumber : memed-al-fayed.blogspot.com, http://radensomad.com

Cara Melatih Konsentrasi

Sebenarnya tidak ada rahasia khusus dalam melatih konsentrasi anda, karena pada dasarnya melatih konsentrasi adalah dilakukan dengan MEMPERHATIKAN (secara seksama). Jika selama ini anda merasa bahwa anda sangat sulit untuk berkonsentrasi dan selalu mengalami konsentrasi yang terpecah, mungkin hal itu disebabkan karena anda terbiasa untuk tidak pernah memperhatikan segala sesuatunya dengan seksama.
Bagaimana anda tahu bahwa anda tidak pernah memperhatikan dengan seksama?. Mari kita lihat latihan berikut ini:
Coba ambil benda apapun di sekitar anda. (sambil anda menikmati tulisan ini, mungkin anda bisa mengambil secangkir kopi di depan meja anda).
Kami asumsikan bahwa anda sekarang memegang cangkir. Sekarang lakukanlah hal-hal berikut:

1. Perhatikan gelas tersebut beberapa saat (2 menit saja cukup)
2. Setelah 2 (dua) menit berlalu, maka segera letakkan lagi gelas/cangkir tersebut ke tempat asalnya (anda minum dulu juga tidak apa-apa, karena permainan ini tidak ada pantangan makan dan minum).
3. Setelah anda letakkan (tentunya tidak ada acara intip mengintip lagi), lakukanlah kegiatan yang lain (membaca-baca beberapa postingan diblog ini, misalnya). Lakukanlah selama 2 menit.
4. Setelah semuanya sudah, coba jawab pertanyaan di bawah ini:

• Apa warna dasar cangkir tadi?
• Apakah ada gambar di cangkir itu? (jika ada, gambar apa itu?)
• Jika tidak ada gambar, apakah cangkir tersebut ada motif atau semacamnya? (motif bunga, misalnya….?)
• Selain warna dasar yang tadi anda sebutkan (jika anda berhasil menyebutkan). Ada berapa warna lagi di cangkir tersebut? (sebutkan secara lengkap).

Sekarang anda bisa mencocokan jawaban anda dengan kembali melihat cangkir/gelas tersebut. Coba hitung dengan jujur kesalahan anda. Jika ada pertanyaan yang tidak terjawab dengan lengkap, maka hal itu membuktikan bahwa anda belum benar-benar memperhatikan dengan baik. Jika anda sudah mampu menjawab semua pertanyaan di atas dengan baik, maka kami ucapkan selamat. Karena artinya anda cukup memiliki pengamatan yang baik.
Inti dari melatih konsentrasi adalah melatih perhatian anda. Semakin anda sering memperhatikan sesuatu secara mendetil/seksama, maka semakin baik konsentrasi anda. Anda boleh memilih untuk menertawakan permainan sederhana ini. Namun Anda juga boleh memilih untuk percaya pada permainan ini. Latihan ini memang tampak biasa- biasa saja. Namun Jika anda benar-benar berkeinginan kuat untuk mengubah kemampuan konsentrasi anda, maka cobalah mulai berlatih dengan latihan-latihan dasar semacam itu.

Sumber : digg.com

ARRAY PADA PASCAL

ARRAY

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.
Contoh:
Var
Untai : array[1..50] of Integer;
Pada contoh Array dengan nama untai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 50 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.

Contoh Program :
Program Contoh_Array_Input;
Uses Crt;
Var
Bilangan : array[1..50] of Integer;
Begin
ClrScr;
Bilangan[1]:=3;
Bilangan[2]:=29;
Bilangan[3]:=30;
Bilangan[4]:=31;
Bilangan[5]:=23;
Writeln('nilai varibel bilangan ke 3 =',Bilangan[3]);
Readln;
End.

Array juga dapat dideklarasikan bersama dengan tipe yang beragam seperti contoh dibawah ini :
Program Contoh_Deklarasi_Array_Beragam;
Uses Crt;
Var
NPM : array[1..20] of string[10];
Nama : array[1..20] of string[25];
Nilai : array[1..20] of real;
Umur : array[1..20] of byte;
banyak,i : integer;
Begin
ClrScr;
Write('Isi berapa data array yang diperlukan :');Readln(banyak);
For i := 1 to banyak Do
Begin
Write('NPM =');Readln(NPM[i]);
Write('Nama =');readln(Nama[i]);
Write('Nilai=');readln(Nilai[i]);
Write('Umur =');readln(Umur[i]);
End;
{cetak varibel array}
Writeln('NPM NAMA NILAI UMUR ');
For i:= 1 to banyak Do
Begin
Writeln(Npm[i]:10,Nama[i]:25,Nilai[i]:3:2,' ',Umur[i]:3);
End;
Readln;
End.

Untuk deklarasi array dapat digunakan beberapa cara seperti berikut ini :
Type
Angka = String[20];
Var
Nama : Array [1..50] of Angka;
Begin
.
.
End.

Deklarasi tipe indeks subrange integer Indeks pada array dapat tipe skalar atau subrange, tetapi tidak bisa real.
Contoh:
Var
Nilai : Array[1..10] of Integer;
pada contoh ini array nilai mempunyai 10 buah elemen yaitu dari 1 sampai 10. Array tersebut dapat dideklarasikan dengan type seperti berikut ini :

Type
Skala = 1..10;
Var
Nilai : Array [skala] of Integer;
atau :
Type
Skala = 1..10;
Y = Array[skala] of Integer;
Var
Nilai : Y;
atau :
Type
Y = Array[1..10] of Integer;
Var
Nilai : Y;
atau :
Const
Atas =1;
Bawah = 5;
type
Y = Array[Atas..Bawah] of Integer;
Var
Nilai : Y;

I. Deklarasi Type Indeks Skalar
Indeks dari larik dapat berupa tipe skalar.
Contoh. :
Program Deklarasi_Indeks_Array_Skalar;
Uses Crt;
Var
Jum : Array[(jan,feb,mar,apr,mei)] of Integer;
Begin
Jum[jan]:=25;
Jum[feb]:=45;
Jum[mar]:=21;
Jum[apr]:=23;
Jum[mei]:=50;
Writeln('Jumlah nilai bulan maret =',Jum[mar]);
Readln;
End.
dapat juga ditulis :
type
Bln = (jan,feb,mar,apr,mei);
Var
Jum : Array[bln] of Integer;
atau :
type
Bln =(jan,feb,mar,apr,mei);
Var
Jum : Array[jan..mei] of Integer;

II. Deklarasi Konstanta Array
Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi variabel, tetapi dapat juga berupa konstanta (const).
Contoh Program :
Program Contoh_Deklarasi_Array_Konstan;
Uses Crt;
Const
Tetap : Array[1..4] of Integer=(7,10,21,20);
Var
i : Integer;
Begin
For i:= 1 to 4 Do
Writeln('Nilai Konstan array ke ',i:2,' =',Tetap[i]);
Readln;
End.
konstanta array dapat juga berupa ketetapan dalam bentuk karakter seperti berikut.
Contoh Program :
Program Contoh_Konstan_Array_Char_;
Uses Crt;
Const
Huruf : Array[0..5] of Char=('A','B','C','D','E','F');
Var
i : Integer;
Begin
For i:= 0 to 5 Do
Writeln('Nilai konstan array ke',i:2,' = ',Huruf[i]);
Readln;
End.
Konstanta array dapat juga berupa string seperti berikut ini.
Contoh Program :
Program Constanta_Array_String;
Uses Crt;
Type
A = Array [1..5] of String;
Const
Nama : A = ('basic','pascal','cobol','paradox','dbase');
Var
i : Integer;
Begin
For i:= 1 to 5 Do
Writeln('Nilai Array ke-',i:2,'= ',Nama[i]);
readln;
end.

Dalam pascal string merupakan array dari elemen- elemen karakter seperti berikut :
Contoh Program :
Program String_Adalah_Array_Tipe_Char;
Uses Crt;
Var
Nama : string;
i : Integer;
Begin
Nama:='Turbo Pascal';
For i:= 1 to Length(nama) Do
Writeln('Elemen ',i,' dari ',Nama,'= ',Nama[i]);
Readln;
End.

contoh program bilangan prima dengan menggunakan bantuan array.
Contoh program :
Program Mencari_Bilangan_Prima_Dengan_Array;
Uses Crt;
Var
Prima : Array[1..100] of Integer;
i,j : Integer;
bil : Integer;
Begin
ClrScr;
For i := 2 to 100 Do
Begin
Prima[i]:=i;
For j:= 2 to i-1 Do
Begin
bil := (i mod j); {* i dibagi j dicek apakah 0*}
If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*}
End;
If Prima[i]<> 0 Then Write(Prima[i],' '); {*cetak array yg prima*}
End;
Readln;
End.

Contoh pengurutan data dengan metode buble sort, yaitu dengan cara penukaran, dapat dilihat pada contoh dibawah ini :
Contoh Program :
Program Penggunaan_Array_Untuk_Sortir_Buble_Sort;
Uses Crt;
Var
nil1 : Array[1..100] of Integer;
n,i,j,dum : Integer;
Begin
ClrScr;
Write('mau isi berapa data acak (integer) ='); readln(n);
For i := 1 to n Do
Begin
Write('Data Ke ',i,':');Readln(nil1[i]);
End;
{* penyapuan proses}
for i:= 1 to n-1 do
begin
for j:= i to n do
begin
if nil1[j]begin
dum:=nil1[j];
nil1[j]:=nil1[i];
nil1[i]:=dum;
end;
end;
end;
writeln;
writeln('Hasil Sortir');
for i := 1 to n do
write(nil1[i]:3);
readln;
end.


III. Array Dua Dimensi
Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.
1 2
1 2 3
Untuk mengetahui cara mendeklarasikan dari penggunaan aray dua dimensi dapat dilihat pada listing program dibawah ini .

Contoh Program:
Program Deklarasi_Array_Dua_Dimensi;
Uses Crt;
Var Tabel : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
Tabel[1,1]:=1;
Tabel[1,2]:=2;
Tabel[2,1]:=3;
Tabel[2,2]:=4;
Tabel[3,1]:=5;
Tabel[3,2]:=6;
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]);
End;
End;
Readln;
End.


IV. Alternatif Deklarasi Array Dua Dimensi.
Ada beberapa cara dalam mendeklarasikan array dua dimensi, beberapa cara tersebut dapat dilihat dibawah ini :
Contoh :
Var
Tabel : Array[1..3] of Array[1..2] of Byte;
atau :
Type
Matrik = Array[1..3,1..2] of Byte;
Var
Tabel : Matrik;
atau :
Type
Baris = 1..3;
Kolom = 1..2;
Matrik = Array[Baris,Kolom] of Byte;
Var
Tabel : Matrik;
atau :
Type
Baris = 1..3;
Kolom=1..2;
Matrik= Array[Baris] of Array[Kolom] of Byte;
Var
Tabel : Matrik;
Dibawah ini akan diberikan listing program penggunaan array dua dimensi dalam aplikasi penjumlahan matrik :
Contoh Prorgam:
Program Penjumlahan_Matrik;
Uses Crt;
Var
Matrik1,Matrik2, Hasil : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
{ input matrik ke satu }
Writeln(' Elemen matrik satu');
For i := 1 to 3 Do
Begin
For j := 1 to 2 Do
Begin
Write('Elemen baris -',i,' Kolom -',j,'= ');
Readln(matrik1[i,j]);
End;
End;
{input matrik ke dua}
Writeln('input elemen matrik dua');
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write('Elemen baris -',i,' kolom -',j,'= ');
Readln(matrik2[i,j]);
End;
End;
{proses penjumlahan tiap elemen}
For i := 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Hasil[i,j]:=Matrik1[i,j]+Matrik2[i,j];
End;
End;
{proses cetak hasil}
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write(Hasil[i,j]:6);
End;
Writeln;
End;
Readln;
End.


V. Array Sebagai Parameter
Array dapat digunakan sebagai parameter yang dikirimkan baik secara nilai (by value) atau secara acuan (by reference) ke procedure atau ke function. Procedure yang menggunakan parameter berupa array harus dideklarasikan di dalam judul procedure yang menyebutkan parameternya bertipe array.

Contoh Program :
Program Contoh_Pengiriman_Parameter_Array_Di_Procedure;
Uses Crt;
Const
Garis ='---------------------------------------------------';
Type
Untai = Array[1..10] of String[15];
Bulat = Array[1..10] of Integer;
Huruf = Array[1..10] of Char;
Var
i,Banyak : Integer;
Procedure Proses(Nama:Untai;Nilai:Bulat);
Var
Ket : String;
Abjad : Char;
Begin
Writeln(Garis);
Writeln('Nama Nilai Abjad Keterangan');
Writeln(Garis);
For i := 1 to Banyak Do
Begin
If Nilai[i] > 90 Then
Begin
Abjad:='A';
Ket :='Istimewa';
End;
If (Nilai[i]<90) And (Nilai[i]>70) Then
Begin
Abjad:='B';
Ket :='Memuaskan';
End;
If (Nilai[i]<70) And (Nilai[i]>60) Then
Begin
Abjad:='C';
Ket :='Cukup';
End;
If (Nilai[i]<60) And (Nilai[i]>45) Then
Begin
Abjad:='D';
Ket :='Kurang';
End;
If Nilai[i]< 45 Then
Begin
Abjad:='E';
Ket :='Sangat kurang';
End;
Writeln(Nama[i]:15,' ',Nilai[i]:4,' ',Abjad,' ',Ket:15);
End;
Writeln(Garis);
End;
Procedure Masuk_Data;
Var
Nama : Untai;
Nilai : Bulat;
Begin
Write('Banyak data =');Readln(Banyak);
For i:= 1 to Banyak Do
Begin
ClrScr;
Writeln('Data ke - ',i);
Write('Nama =');readln(Nama[i]);
Write('Nilai =');readln(Nilai[i]);
End;
Proses(Nama,Nilai);
End;
{modul Utama}
Begin
Masuk_Data;
Readln;
End.
Referensi :
# Lepkom Universitas Gunadarma.
# Dasar-dasar Pemrograman Pascal, Teori dan Program terapan , Ir.P. Insap Santosa, M.Sc.

PROGRAM SEDERHANA PADA VISUAL BASIC 6.0

Program Sederhana Pada Visual Basic

Visual Basic adalah suatu bahasa pemrogramman yang mudah dan efisien.Visual basic sangat mudah dipelajari. Salah satu contoh aplikasi visual basic paling sederhana:

Aplikasi perhitungan melalui Visual Basic Sebagai contoh Kalkulator

1. Pastikan  PC anda telah  terinstal Microsoft Visual basic 6.0 
2. Lalu buka Start-Progam-Microsoft Visual Studio 6.0 Microsoft Visual Basic 6.0

3. Akan ada Tampilan utama, pilih standard EXE untuk memulai membuat aplikasi baru. Klik open untuk memulainya.

4. Setelah klik open, akan tampak tampilan form1 untuk memulai aplikasi. Jika ingin membuat tulisan, klik Label pada toolbox. Caption untuk mengganti tulisan pada form.

5. Jika kita akan membuat aplikasi kalkulator, maka membuat desainnya terlebih dahulu. Tambahkan textbox, untuk memasukkan bilangan.

6. Susun semua desain utama untuk mempermudah memasukkan rumus atau kode pada tombol command button.

7. Tambahkan empat command button untuk tombol penambahan,pengurangan,pembagian,dan perkalian.

8. Tambahkan label bertuliskan “hasil” dan texbox untuk tempat pengisian hasil perhitungan.

9.Tambahkan command botton bertuliskan hapus,untuk menghapus bilangan yang telah diproses.

10. Pada command button berlambang (+),untuk tombol penambahan.
      - Klik dua kali
      - Masukkan rumus atau kode:
      Text3.Text = Val(Text1) + Val(Text2)
11. Pada command button berlambang (-)untuk tombol pengurangan.
      - Klik dua kali
      - Masukkan rumus atau kode:
      Text3.Text = Val(Text1) – Val(Text2)
12. Pada command button berlambang (*),untuk tombol perkalian.
      - Klik dua kali
      -Masukkan rumus atau kode:
      Text3.Text = Val(Text1) * Val(Text2)
13. Pada command button berlambang (/),untuk tombol pembagian.
      - Klik dua kali
      - Masukkan rumus atau kode :
      Text3.Text = Val(Text1) / Val(Text2)
14. Pada command button bertuliskan “hapus”(tombol untuk menghapus bilangan yang ada pada textbox)
      - Klik dua kali pada command button tersebut,
      - Masukkan rumus atau kode :
      text1.text = clear
      text2.text = clear
      text3.text = clear
Jika dilihat pada daftar kode akan tampil seperti pada gambar berikut :

15. Jika seluruh kode telah dimasukkan,untuk menjalankan aplikasinya adalah dengan cara :
      -Klik tombol Start pada toolbar,atau langsung tekan F5.
      -Maka aplikasi akan berjalan seperti contoh berikut :

16. Berikan bilangan pertama dan kedua,untuk memulai perhitungan. Klik tombol penambahan untuk memprosesnya.

17. Berikan bilangan pertama dan kedua, untuk memulai perhitungan. Klik tombol pengurangan untuk memprosesnya.

18. Berikan bilangan pertama dan kedua,untuk memulai perhitungan. Klik tombol perkalian untuk memprosesnya.

19. Berikan bilangan pertama dan kedua,untuk memulai perhitungan. Klik tombol pembagian untuk memprosesnya.

Selamat mencoba,aplikasi ini adalah Sebagian kecil dari aplikasi pemrograman Visual Basic.

sumber : http://54ll1.wordpress.com

PROGRAM SEDERHANA COBOL

contoh program cobol sederhana yang mengeluarkan output gaji dan sebagainya

A. Coding Program Level Number :
IDENTIFICATION DIVISION.
PROGRAM-ID. LEVEL-NUMBER.
AUTHOR. KELOMPOKMAMAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUKAN.
02 NAMA PIC A(20).
02 GAJI.
03 GAJI-POKOK PIC 9(8).
03 TUNJANGAN PIC 9(8).
03 TOTAL-GAJI PIC Z(8).
01 TANYA PIC A.
88 LAGI VALUE IS 'Y', 'y'.
88 TIDAK VALUE IS 'T', 't'.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
MASUKKAN-DATA.
DISPLAY HAPUS-LAYAR.
DISPLAY (1,1)'NAMA ANDA :'.
ACCEPT NAMA.
DISPLAY (2,1) 'GAJI POKOK :Rp.'.
ACCEPT GAJI-POKOK.
DISPLAY (3,1) 'BESARNYA TUNJANGAN :Rp.'.
ACCEPT TUNJANGAN.
HITUNG-GAJI.
COMPUTE TOTAL-GAJI = GAJI-POKOK + TUNJANGAN.
CETAK-HASIL.
DISPLAY HAPUS-LAYAR.
DISPLAY'xxxxxxxx GAJI ANDA UNTUK BULAN INI xxxxxxxxx'.
DISPLAY ''.
DISPLAY 'NAMA :', NAMA.
DISPLAY 'GAJI POKOK :Rp.', GAJI-POKOK.
DISPLAY 'BESARNYA TUNJANGAN :Rp.', TUNJANGAN.
DISPLAY 'TOTAL GAJI :Rp.', TOTAL-GAJI.
TANYAKAN.
DISPLAY SPACE.
DISPLAY 'INGIN MENGHITUNG GAJI YANG LAIN (Y/T) ?'.
ACCEPT TANYA.
IF LAGI GO TO MASUKKAN-DATA.
SELESAI.
STOP RUN.








B. OUTPUT PROGRAM LEVEL NUMBER




Setelah kita selesai mengisi Data tersebut , tekan enter, dan program akan memunculkan Hasilnya Seperti dibawah ini.



Jika Kita ingin menghitung gaji yang lain, tekan Y pada keyboard.



C. LOGIKA PROGRAM
IDENTIFICATION DIVISION adalah merupakan divisi yang pertama dalam program COBOL dan yang paling sederhana. Pada divisi ini berisi keterangan mengenai AUTHOR (nama programmer),AUTHOR pada program ini adalah KELOMPOKMAMAN.

PROGRAM-ID. LEVEL NUMBER adalah merupakan divisi yang menjelaskan Program apa yang sedang dijalankan, disini Program yang digunakan adalah LEVEL NUMBER.

ENVIRONMENT DIVISION dalam program cobol sebagai divisi ke-2. Berisi dokumentasi informasi mengenai peralatan yang dipergunakan.

DATA DIVISON, divisi ini menjelaskan tentang input & output data yang digunakan serta semua keterangan tentang file, record, nama data serta bentuk format yg akan digunakan dalam PROCEDURE DIVISION.

WORKING-STORAGE SECTION. Merupakan section yang berisi tentang record-description-entri yaitu penjelasan tentang record program yang digunakan ,

01 DATA-MASUKAN.
02 NAMA PIC A(20).
02 GAJI.
03 GAJI-POKOK PIC 9(8).
03 TUNJANGAN PIC 9(8). record-description-entri
03 TOTAL-GAJI PIC Z(8).
01 TANYA PIC A.
88 LAGI VALUE IS 'Y', 'y'.
88 TIDAK VALUE IS 'T', 't'.


SCREEN SECTION. Merupakan salah satu Section dalam Data division, yang berfungsi sebagai penghapus, ataupun pembersih layar
01 HAPUS-LAYAR.
02 BLANK SCREEN. Screen-description-entri

PROCEDURE DIVISION merupakan gambaran logika yg digunakan untuk menyelesaikan masalah, sehingga divisi ini merupakan inti dari program COBOL. Di dalam PROCEDURE DIVISION ini terdapat keterangan :
MASUKKAN-DATA.
DISPLAY HAPUS-LAYAR. Untuk menghapus layar/membersihkan layar
DISPLAY (1,1)'NAMA ANDA :'. Menambahkan statement “NAMA ANDA”
ACCEPT NAMA. Untuk menginput nama
DISPLAY (2,1) 'GAJI POKOK :Rp.'. Menambahkan statement “GAJI POKOK”
ACCEPT GAJI-POKOK. menginput GAJI-POKOK
DISPLAY (3,1) 'BESARNYA TUNJANGAN :Rp.'. statement “BESARNYA TUNJANGAN”
ACCEPT TUNJANGAN. menginput tunjangan
HITUNG-GAJI. statement yang digunakan untuk mendeklarasian perhitungan
COMPUTE TOTAL-GAJI = GAJI-POKOK + TUNJANGAN. menhitung data yang telah diinput
CETAK-HASIL.
DISPLAY HAPUS-LAYAR.
DISPLAY'xxxxxxxx GAJI ANDA UNTUK BULAN INI xxxxxxxxx'.
DISPLAY ''.
DISPLAY 'NAMA :', NAMA. Paragraf ini adalah untuk
DISPLAY 'GAJI POKOK :Rp.', GAJI-POKOK. membuat output yang akan
DISPLAY 'BESARNYA TUNJANGAN :Rp.', TUNJANGAN. muncul di layar
DISPLAY 'TOTAL GAJI :Rp.', TOTAL-GAJI.
TANYAKAN.
DISPLAY SPACE.
DISPLAY 'INGIN MENGHITUNG GAJI YANG LAIN (Y/T) ?'. paragraf ini adalah
ACCEPT TANYA. pertanyaan yang mengunakan
IF LAGI GO TO MASUKKAN-DATA. fungsi logika
SELESAI.
STOP RUN. Untuk memberhentikan program



Setelah program di save as pada hardisk lalu di compiler dengan menekan F8 pada keyboard selanjutnya program ini di jalankan dengan menekan F9,

Program ini akan menyuruh kita untuk menginput Nama, Gaji pokok, tunjangan, Setelah kita menginput semuanya , program akan menjumlahkan total gaji, dan menanyakan kembali apakah kita ingin menghitung gaji lainnya.

sumber : http://dwibayu.blogspot.com

MEMBUAT LINK UNTUK DOWNLOAD DI BLOG

Membuat Link Untuk Download

Sobat Saiman beberapa waktu yang lalu mengajukan sebuah pertanyaan yang di tulis pada shoutbox, beliau menanyakan tentang cara memasang artikel atau file exe di blog agar bisa di download orang lain. Sepengetahuan saya yang terbatas ini, di dalam blog tidak bisa untuk menyimpan file exe kemudian bisa di download oleh orang lain, akan tetapi walaupun begitu ada cara lain yang bisa kita tempuh yakni menggunakan jasa situs-situs yang ada di internet yang menyediakan space untuk upload file yang kita punyai dan kemudian bisa di download lagi oleh orang lain.

Secara sederhana saya jabarkan cara kerjanya, pertama tentu saja kita harus mempunyai account pada situs tersebut, kemudian setelah mempunyai account, baru kita upload data yang ingin kita simpan, lalu setelah proses upload berhasil kita akan di beri URL address file yang kita upload. Nah langkah terakhir agar pengunjung dari blog kita bisa mendownload file tersebut adalah memasang tulisan yang mempunyai link terhadap URL address file yang kita upload tadi, jadi tentu saja orang lain bisa mendownload file yang kita pasang melalui blog kita. Kira-kira begitu bos .

Agar tidak terlalu bingung, penyedia layanan ini salah satunya adalah www.SnapDrive.net. dengan menggunakan situs ini kita bisa upload file kemudian file tersebut bisa di download lagi oleh orang lain. Untuk caranya silahkan ikuti langkah-langkah berikut ini :

1. Silahkan menuju http://www.SnapDrive.net


2. Klik tulisan Register


3. Isi formulir yang disediakan dengan data diri sobat


• Username --> isi dengan nama yang ingin sobat gunakan, boleh apa saja yang penting mudah di ingat. contoh : Unyil


• Password --> isi dengan password yang di inginkan. contoh : pakraden


• Confirm password --> isi kembali dengan password yang tadi di tuliskan.contoh : pakraden


• Email address --> isi dengan alamat email sobat, tentunya yang masih valid. contoh : amn_tea@yahoo.co.id


• First name -->isi dengan nama depan sobat


• Last name --> isi dengan nama belakang sobat


• Country --> pilih nama negara dimana sobat tinggal. contoh : indonesia


• Postcode --> isi dengan kode post daerah sobat


• Gender --> pilih sesuai dengan jenis kelamin sobat. male(pria), female(wanita)


• Date of birth --> pilih tanggal kelahiran sobat


• Preferances isi dengan tulisan yang tertera di situ


4. Klik tombol Register


5. Ada konfirmasi bahwa account yang baru di buat harus di aktifkan melalui email yang kita tulis tadi


6. Cek email milik sobat yang tadi ditulis, periksa apakah email dari Snapdrive sudah sampai atau belum


7. Jika email sudah sampai, silahkan buka email tersebut. Isi di dalam email tersebut ada yang berupa link untuk aktifasi, klik saja link tersebut


8. Secara otomatis sobat akan dibawa kehalaman yang berisi ucapan terima kasih


9. Klik tombol OK


10. Silahkan Login dengan username serta password yang tadi di tuliskan saat register


11. Setelah berada di halaman account sobat, klik tulisan Upload


12. Klik tombol Add Files


13. Pilih file yang ada dikomputer sobat yang mau di upload


14. Klik tombol Upload. tunggu beberapa saat ketika proses upload file sedang berlangsung


15. Jika proses upload selesai, sobat akan diperlihatkan file yang di upload tadi. Klik tulisan details yang ada disebelahnya


16. Klik tulisan HTML Code


17. Copy kode yang di berikan lalu paste pada program notepad


18. Klik tulisan Logout untuk keluar dari situs tersebut


19. Silahkan tutup layar browser sobat

Langkah selanjutnya adalah memasukan kode tadi ke dalam blog kita, saya ambil contoh kode yang sudah di upload seperti ini :


<a href="http://www.snapdrive.net/files/452250/billing%20internet.zip">billing internet.zip</a>


Kode ini merupakan kode link biasa, jadi tentunya tidak mutlak. Kata billing internet.zip, bisa kita ganti dengan kata apa saja sekehendak kita. saya ambil contoh kata billing internet.zip di rubah menjadi kata download, maka kode diatas menjadi seperti di bawah ini :


<a href="http://www.snapdrive.net/files/452250/billing%20internet.zip">download</a>


Bagaimana cara memasukan kode diatas? tentu saja terserah sobat mau di tempatkan dimana saja, mau di sidebar, footer, atau bahkan di dalam postingan pun bisa. Saya ambil contoh didalam postingan isinya seperti ini :

Untuk men download program billing internet, silahkan anda klik link di bawah ini :
<br/><br/>
<a href="http://www.snapdrive.net/files/452250/billing%20internet.zip">download</a>


Contoh link yang saya buat diatas adalah link yang benar-benar nyata untuk mendownload program billing internet, silahkan sobat klik untuk membuktikannya!


Saya kira sudah cukup pembahasan tentang cara membuat link download, mudah-mudahan dapat di mengerti. Selamat mencoba !

sumber : kolom-tutorial.blogspot.com 

BAHAYA MEROKOK BAGI KESEHATAN

Bahaya Merokok Bagi Kesehatan

Perilaku Hidup Bersih dan Sehat, yang menjadi kebutuhan dasar derajat kesehatan masyarakat, salah satu aspeknya adalah “tidak ada anggota keluarga yang merokok“. Sedangkan PHBS harus menjadi kewajiban saya dan para kader kesehatan untuk mensosialisasikannya.

Setiap kali menghirup asap rokok, entah sengaja atau tidak, berarti juga mengisap lebih dari 4.000 macam racun! Karena itulah, merokok sama dengan memasukkan racun-racun tadi ke dalam rongga mulut dan tentunya paru-paru. Merokok mengganggu kesehatan, kenyataan ini tidak dapat kita mungkiri. Banyak penyakit telah terbukti menjadi akibat buruk merokok, baik secara langsung maupun tidak langsung. Kebiasaan merokok bukan saja merugikan si perokok, tetapi juga bagi orang di sekitarnya.

Saat ini jumlah perokok, terutama perokok remaja terus bertambah, khususnya di negara-negara berkembang. Keadaan ini merupakan tantangan berat bagi upaya peningkatan derajat kesehatan masyarakat. Bahkan organisasi kesehatan sedunia (WHO) telah memberikan peringatan bahwa dalam dekade 2020-2030 tembakau akan membunuh 10 juta orang per tahun, 70% di antaranya terjadi di negara-negara berkembang.

Melalui resolusi tahun 1983, Organisasi Kesehatan Dunia (WHO) telah menetapkan tanggal 31 Mei sebagai Hari Bebas Tembakau Sedunia setiap tahun.

Bahaya merokok terhadap kesehatan tubuh telah diteliti dan dibuktikan oleh banyak orang. Efek-efek yang merugikan akibat merokok pun sudah diketahui dengan jelas. Banyak penelitian membuktikan bahwa kebiasaan merokok meningkatkan risiko timbulnya berbagai penyakit. Seperti penyakit jantung dan gangguan pembuluh darah, kanker paru-paru, kanker rongga mulut, kanker laring, kanker osefagus, bronkhitis, tekanan darah tinggi, impotensi, serta gangguan kehamilan dan cacat pada janin.

Penelitian terbaru juga menunjukkan adanya bahaya dari secondhand-smoke, yaitu asap rokok yang terhirup oleh orang-orang bukan perokok karena berada di sekitar perokok, atau biasa disebut juga dengan perokok pasif.

ZAT KIMIA

Rokok tentu tidak dapat dipisahkan dari bahan baku pembuatannya, yakni tembakau. Di Indonesia, tembakau ditambah cengkih dan bahan-bahan lain dicampur untuk dibuat rokok kretek. Selain kretek, tembakau juga dapat digunakan sebagai rokok linting, rokok putih, cerutu, rokok pipa, dan tembakau tanpa asap (chewing tobacco atau tembakau kunyah).

Komponen gas asap rokok adalah karbon monoksida, amoniak, asam hidrosianat, nitrogen oksida, dan formaldehid. Partikelnya berupa tar, indol, nikotin, karbarzol, dan kresol. Zat-zat ini beracun, mengiritasi, dan menimbulkan kanker (karsinogen).

NIKOTIN

Zat yang paling sering dibicarakan dan diteliti orang, meracuni saraf tubuh, meningkatkan tekanan darah, menimbulkan penyempitan pembuluh darah tepi, dan menyebabkan ketagihan dan ketergantungan pada pemakainya. Kadar nikotin 4-6 mg yang diisap oleh orang dewasa setiap hari sudah bisa membuat seseorang ketagihan. Di Amerika Serikat, rokok putih yang beredar di pasaran memiliki kadar 8-10 mg nikotin per batang, sementara di Indonesia berkadar nikotin 17 mg per batang.

TIMAH HITAM (Pb)

Timah hitam yang dihasilkan oleh sebatang rokok sebanyak 0,5 ug. Sebungkus rokok (isi 20 batang) yang habis diisap dalam satu hari akan menghasilkan 10 ug. Sementara ambang batas bahaya timah hitam yang masuk ke dalam tubuh adalah 20 ug per hari. Bisa dibayangkan, bila seorang perokok berat menghisap rata-rata 2 bungkus rokok per hari, berapa banyak zat berbahaya ini masuk ke dalam tubuh!

GAS KARBONMONOKSIDA (CO)

Karbon Monoksida memiliki kecenderungan yang kuat untuk berikatan dengan hemoglobin dalam sel-sel darah merah. Seharusnya, hemoglobin ini berikatan dengan oksigen yang sangat penting untuk pernapasan sel-sel tubuh, tapi karena gas CO lebih kuat daripada oksigen, maka gas CO ini merebut tempatnya “di sisi” hemoglobin. Jadilah, hemoglobin bergandengan dengan gas CO. Kadar gas CO dalam darah bukan perokok kurang dari 1 persen, sementara dalam darah perokok mencapai 4 – 15 persen. Berlipat-lipat!

TAR

Tar adalah kumpulan dari beribu-ribu bahan kimia dalam komponen padat asap rokok, dan bersifat karsinogen. Pada saat rokok dihisap, tar masuk ke dalam rongga mulut sebagai uap padat. Setelah dingin, akan menjadi padat dan membentuk endapan berwarna cokelat pada permukaan gigi, saluran pernapasan, dan paru-paru. Pengendapan ini bervariasi antara 3-40 mg per batang rokok, sementara kadar tar dalam rokok berkisar 24 – 45 mg.

DAMPAK PARU-PARU

Merokok dapat menyebabkan perubahan struktur dan fungsi saluran napas dan jaringan paru-paru. Pada saluran napas besar, sel mukosa membesar (hipertrofi) dan kelenjar mucus bertambah banyak (hiperplasia). Pada saluran napas kecil, terjadi radang ringan hingga penyempitan akibat bertambahnya sel dan penumpukan lendir. Pada jaringan paru-paru, terjadi peningkatan jumlah sel radang dan kerusakan alveoli.

Akibat perubahan anatomi saluran napas, pada perokok akan timbul perubahan pada fungsi paru-paru dengan segala macam gejala klinisnya. Hal ini menjadi dasar utama terjadinya penyakit obstruksi paru menahun (PPOM). Dikatakan merokok merupakan penyebab utama timbulnya PPOM, termasuk emfisema paru-paru, bronkitis kronis, dan asma.

Hubungan antara merokok dan kanker paru-paru telah diteliti dalam 4-5 dekade terakhir ini. Didapatkan hubungan erat antara kebiasaan merokok, terutama sigaret, dengan timbulnya kanker paru-paru. Bahkan ada yang secara tegas menyatakan bahwa rokok sebagai penyebab utama terjadinya kanker paru-paru.

Partikel asap rokok, seperti benzopiren, dibenzopiren, dan uretan, dikenal sebagai bahan karsinogen. Juga tar berhubungan dengan risiko terjadinya kanker. Dibandingkan dengan bukan perokok, kemungkinan timbul kanker paru-paru pada perokok mencapai 10-30 kali lebih sering.

DAMPAK TERHADAP JANTUNG

Banyak penelitian telah membuktikan adanya hubungan merokok dengan penyakit jantung koroner (PJK). Dari 11 juta kematian per tahun di negara industri maju, WHO melaporkan lebih dari setengah (6 juta) disebabkan gangguan sirkulasi darah, di mana 2,5 juta adalah penyakit jantung koroner dan 1,5 juta adalah stroke. Survei Depkes RI tahun 1986 dan 1992, mendapatkan peningkatan kematian akibat penyakit jantung dari 9,7 persen (peringkat ketiga) menjadi 16 persen (peringkat pertama).

Merokok menjadi faktor utama penyebab penyakit pembuluh darah jantung tersebut. Bukan hanya menyebabkan penyakit jantung koroner, merokok juga berakibat buruk bagi pembuluh darah otak dan perifer.

Asap yang diembuskan para perokok dapat dibagi atas asap utama (main stream smoke) dan asap samping (side stream smoke). Asap utama merupakan asap tembakau yang dihirup langsung oleh perokok, sedangkan asap samping merupakan asap tembakau yang disebarkan ke udara bebas, yang akan dihirup oleh orang lain atau perokok pasif.

Telah ditemukan 4.000 jenis bahan kimia dalam rokok, dengan 40 jenis di antaranya bersifat karsinogenik (dapat menyebabkan kanker), di mana bahan racun ini lebih banyak didapatkan pada asap samping, misalnya karbon monoksida (CO) 5 kali lipat lebih banyak ditemukan pada asap samping daripada asap utama, benzopiren 3 kali, dan amoniak 50 kali. Bahan-bahan ini dapat bertahan sampai beberapa jam lamanya dalam ruang setelah rokok berhenti.

Umumnya fokus penelitian ditujukan pada peranan nikotin dan CO. Kedua bahan ini, selain meningkatkan kebutuhan oksigen, juga mengganggu suplai oksigen ke otot jantung (miokard) sehingga merugikan kerja miokard.

Nikotin mengganggu sistem saraf simpatis dengan akibat meningkatnya kebutuhan oksigen miokard. Selain menyebabkan ketagihan merokok, nikotin juga merangsang pelepasan adrenalin, meningkatkan frekuensi denyut jantung, tekanan darah, kebutuhan oksigen jantung, serta menyebabkan gangguan irama jantung. Nikotin juga mengganggu kerja saraf, otak, dan banyak bagian tubuh lainnya. Nikotin mengaktifkan trombosit dengan akibat timbulnya adhesi trombosit (penggumpalan) ke dinding pembuluh darah.

Karbon monoksida menimbulkan desaturasi hemoglobin, menurunkan langsung persediaan oksigen untuk jaringan seluruh tubuh termasuk miokard. CO menggantikan tempat oksigen di hemoglobin, mengganggu pelepasan oksigen, dan mempercepat aterosklerosis (pengapuran/penebalan dinding pembuluh darah). Dengan demikian, CO menurunkan kapasitas latihan fisik, meningkatkan viskositas darah, sehingga mempermudah penggumpalan darah.

Nikotin, CO, dan bahan-bahan lain dalam asap rokok terbukti merusak endotel (dinding dalam pembuluh darah), dan mempermudah timbulnya penggumpalan darah. Di samping itu, asap rokok mempengaruhi profil lemak. Dibandingkan dengan bukan perokok, kadar kolesterol total, kolesterol LDL, dan trigliserida darah perokok lebih tinggi, sedangkan kolesterol HDL lebih rendah.

PENYAKIT JANTUNG KORONER

Merokok terbukti merupakan faktor risiko terbesar untuk mati mendadak.

Risiko terjadinya penyakit jantung koroner meningkat 2-4 kali pada perokok dibandingkan dengan bukan perokok. Risiko ini meningkat dengan bertambahnya usia dan jumlah rokok yang diisap. Penelitian menunjukkan bahwa faktor risiko merokok bekerja sinergis dengan faktor-faktor lain, seperti hipertensi, kadar lemak atau gula darah yang tinggi, terhadap tercetusnya PJK.

Perlu diketahui bahwa risiko kematian akibat penyakit jantung koroner berkurang dengan 50 persen pada tahun pertama sesudah rokok dihentikan. Akibat penggumpalan (trombosis) dan pengapuran (aterosklerosis) dinding pembuluh darah, merokok jelas akan merusak pembuluh darah perifer.

PPDP yang melibatkan pembuluh darah arteri dan vena di tungkai bawah atau tangan sering ditemukan pada dewasa muda perokok berat, sering akan berakhir dengan amputasi.

PENYAKIT (STROKE)

Penyumbatan pembuluh darah otak yang bersifat mendadak atau stroke banyak dikaitkan dengan merokok. Risiko stroke dan risiko kematian lebih tinggi pada perokok dibandingkan dengan bukan perokok.

Dalam penelitian yang dilakukan di Amerika Serikat dan Inggris, didapatkan kebiasaan merokok memperbesar kemungkinan timbulnya AIDS pada pengidap HIV. Pada kelompok perokok, AIDS timbul rata-rata dalam 8,17 bulan, sedangkan pada kelompok bukan perokok timbul setelah 14,5 bulan. Penurunan kekebalan tubuh pada perokok menjadi pencetus lebih mudahnya terkena AIDS sehingga berhenti merokok penting sekali dalam langkah pertahanan melawan AIDS.

Kini makin banyak diteliti dan dilaporkan pengaruh buruk merokok pada ibu hamil, impotensi, menurunnya kekebalan individu, termasuk pada pengidap virus hepatitis, kanker saluran cerna, dan lain-lain. Dari sudut ekonomi kesehatan, dampak penyakit yang timbul akibat merokok jelas akan menambah biaya yang dikeluarkan, baik bagi individu, keluarga, perusahaan, bahkan negara.

Penyakit-penyakit yang timbul akibat merokok mempengaruhi penyediaan tenaga kerja, terutama tenaga terampil atau tenaga eksekutif, dengan kematian mendadak atau kelumpuhan yang timbul jelas menimbulkan kerugian besar bagi perusahaan. Penurunan produktivitas tenaga kerja menimbulkan penurunan pendapatan perusahaan, juga beban ekonomi yang tidak sedikit bagi individu dan keluarga. Pengeluaran untuk biaya kesehatan meningkat, bagi keluarga, perusahaan, maupun pemerintah.

KEBIASAAN MEROKOK

Sudah seharusnya upaya menghentikan kebiasaan merokok menjadi tugas dan tanggung jawab dari segenap lapisan masyarakat. Usaha penerangan dan penyuluhan, khususnya di kalangan generasi muda, dapat pula dikaitkan dengan usaha penanggulangan bahaya narkotika, usaha kesehatan sekolah, dan penyuluhan kesehatan masyarakat pada umumnya.

Tokoh-tokoh panutan masyarakat, termasuk para pejabat, pemimpin agama, guru, petugas kesehatan, artis, dan olahragawan, sudah sepatutnya menjadi teladan dengan tidak merokok. Perlu pula pembatasan kesempatan merokok di tempat-tempat umum, sekolah, kendaraan umum, dan tempat kerja; pengaturan dan penertiban iklan promosi rokok; memasang peringatan kesehatan pada bungkus rokok dan iklan rokok.

Iklim tidak merokok harus diciptakan. Ini harus dilaksanakan serempak oleh kita semua, yang menginginkan tercapainya negara dan bangsa Indonesia yang sehat dan makmur.

GERBANG NARKOBA

Akibat kronik yang paling gawat dari penggunaan nikotin adalah ketergantungan. Sekali seseorang menjadi perokok, akan sulit mengakhiri kebiasaan itu baik secara fisik maupun psikologis. Merokok menjadi sebuah kebiasaan yang kompulsif, dimulai dengan upacara menyalakan rokok dan menghembuskan asap yang dilakukan berulang-ulang.

Karena sifat adiktifnya (membuat seseorang menjadi ketagihan) rokok dalam Diagnostic and Statistical Manual of Mental Disorders (DSM IV) dikelompokkan menjadi Nicotine Related Disorders. Sedangkan WHO menggolongkannya sebagai bentuk ketagihan. Proses farmakologis dan perilaku yang menentukan ketagihan tembakau sama dengan proses yang menimbulkan ketagihan pada obat, seperti heroin dan kokain.

Nikotin mempunyai sifat mempengaruhi dopamin otak dengan proses yang sama seperti obat-obatan tersebut. Dalam urutan sifat ketagihan zat psikoaktif, nikotin lebih menimbulkan ketagihan dibanding heroin, kokain, alkohol, kafein dan marijuana. Menurut Flemming, Glyn dan Ershler merokok merupakan tingkatan awal untuk menjadi penyalahguna obat-obatan (drug abuse). Mencoba merokok secara signifikan membuka peluang penggunaan obat-obatan terlarang di masa yang akan datang.

Berdasarkan data epidemiologi diketahui kurang lebih 20% dari perokok memiliki risiko delapan kali menjadi penyalahguna NAPZA, dan berisiko sebelas kali untuk menjadi peminum berat dibandingkan dengan mereka yang tidak merokok. Perhatian khusus mengenai masalah ini dikaitkan dengan meningkatnya jumlah perokok remaja.

Menangani masalah kebiasaan merokok pada remaja diharapkan dapat mencegah masalah yang akan timbul dikemudian hari berkaitan kebiasaan tersebut, salah satunya adalah pencegahan penyalahgunaan narkoba. Menurut Teddy Hidayat, Spesialis Kedokteran Jiwa, Remaja yang berisiko tinggi adalah remaja-remaja yang memiliki sifat pemuasaan segera, kurang mampu menunda keinginan, merasa kosong dan mudah bosan, mudah cemas, gelisah, dan depresif.

Pemahaman tentang kebiasaan merokok dan kecenderungan sifat kepribadian seseorang akan sangat membantu upaya menghentikan kebiasaan yang merugikan tersebut. Untuk pencegahan kebiasaan merokok pada anak-anak dan remaja. Orang tua serta guru memegang peranan besar untuk mengawasi, memberikan informasi yang benar dan yang terpenting tidak menjadi contoh perilaku individu yang ketagihan kebiasaan merokok.

GANGGU KESEHATAN JIWA

Merokok berkaitan erat dengan disabilitas dan penurunan kualitas hidup. Dalam sebuah penelitian di Jerman sejak tahun 1997-1999 yang melibatkan 4.181 responden, disimpulkan bahwa responden yang memilki ketergantungan nikotin memiliki kualitas hidup yang lebih buruk, dan hampir 50% dari responden perokok memiliki setidaknya satu jenis gangguan kejiwaan. Selain itu diketahui pula bahwa pasien gangguan jiwa cenderung lebih sering menjadi perokok, yaitu pada 50% penderita gangguan jiwa, 70% pasien maniakal yang berobat rawat jalan dan 90% dari pasien-pasien skizrofen yang berobat jalan.

Berdasaran penelitian dari CASA (Columbian University`s National Center On Addiction and Substance Abuse), remaja perokok memiliki risiko dua kali lipat mengalami gejala-gejala depresi dibandingkan remaja yang tidak merokok. Para perokok aktif pun tampaknya lebih sering mengalami serangan panik dari pada mereka yang tidak merokok Banyak penelitian yang membuktikan bahwa merokok dan depresi merupakan suatu hubungan yang saling berkaitan. Depresi menyebabkan seseorang merokok dan para perokok biasanya memiliki gejala-gejala depresi dan kecemasan (ansietas).

Sebagian besar penderita depresi mengaku pernah merokok di dalam hidupnya. Riwayat adanya depresi pun berkaitan dengan ada tidaknya gejala putus obat (withdrawal) terhadap nikotin saat seseorang memutuskan berhenti merokok. Sebanyak 75% penderita depresi yang mencoba berhenti merokok mengalami gejala putus obat tersebut. Hal ini tentunya berkaitan dengan meningkatnya angka kegagalan usaha berhenti merokok dan relaps pada penderita depresi.

Selain itu, gejala putus zat nikotin mirip dengan gejala depresi. Namun, dilaporkan bahwa gejala putus obat yang dialami oleh pasien depresi lebih bersifat gejala fisik misalnya berkurangnya konsentrasi, gangguan tidur, rasa lelah dan peningkatan berat badan).

Nikotin sebagai obat gangguan kejiwaan Merokok sebagai salah satu bentuk terapi untuk gangguan kejiwaan masih menjadi perdebatan yang kontroversial. Gangguan kejiwaan dapat menyebabkan seseorang untuk merokok dan merokok dapat menyebabkan gangguan kejiwaan, walau jumlahnya sangat sedikit, sekitar 70% perokok tidak memiliki gejala gangguan jiwa.

Secara umum merokok dapat menyebabkan peningkatan konsentrasi, menekan rasa lapar, menekan kecemasan, dan depresi. Dalam beberapa penelitian nikotin terbukti efektif untuk pengobatan depresi. Pada dasarnya nikotin memberikan peluang yang menjanjikan untuk digunakan sebagai obat psikoaktif. Namun nikotin memiliki terapheutic index yang sangat sempit, sehingga rentang antara dosis yang tepat untuk terapi dan dosis yang bersifat toksis sangatlah sempit.

Sehingga dipikirkan suatu bentuk pemberian nikotin tidak dalam bentuk murni tetapi dalam bentuk analognya. Namun, kerangka pemikiran pemberian nikotin sebagai obat tidaklah dalam bentuk kebiasaan merokok. Seperti halnya morfin yang digunakan sebagai obat analgesik kuat (penahan rasa sakit), pemberiannya harus dalam pengawasan dokter. Gawatnya, saat ini nikotin bisa didapatkan dengan bebas dan mudah dalam sebatang rokok, hal ini perlu diwaspadai karena kebiasaan merokok tidak lantas menjadi sebuah pembenaran untuk pengobatan gejala gangguan kejiwaan.

SISTIM REPRODUKSI

Studi tentang rokok dan reproduksi yang dilakukan sepanjang 2 dekade itu berkesimpulan bahwa merokok dapat menyebabkan rusaknya sistim reproduksi seseorang mulai dari masa pubertas sampai usia dewasa

Pada penelitian yang dilakukan Dr. Sinead Jones, direktur The British Medical Assosiation’s Tobacco Control Resource Centre, ditemukan bahwa wanita yang merokok memiliki kemungkinan relatif lebih kecil untuk mendapatkan keturunan.

pria akan mengalami 2 kali resiko terjadi infertil (tidak subur) serta mengalami resiko kerusakan DNA pada sel spermanya. Sedangkan hasil penelitian pada wanita hamil terjadi peningkatan insiden keguguran. Penelitian tersebut mengatakan dari 3000 sampai 5000 kejadian keguguran per tahun di Inggris, berhubungan erat dengan merokok.

120.000 pria di Inggris yang berusia antara 30 sampai50 tahun mengalami impotensi akibat merokok. Lebih buruk lagi, rokok berimplikasi terhadap 1200 kasus kanker rahim per tahunnya.

WANITA MEROKOK, MENOPAUSE DINI

Perempuan yang merokok sangat mungkin untuk mulai memasuki masa menopause sebelum usia 45 tahun dan juga membuat mereka menghadapi resiko osteoporosis dan serangan jantung, demikian laporan beberapa peneliti Norwegia.

“Di antara sebanyak 2.123 perempuan yang berusia 59 sampai 60 tahun, mereka yang saat ini merokok, 59% lebih mungkin mengalami menopause dini dibandingkan dengan perempuan yang tidak merokok,” kata Dr. Thea F. Mikkelsen dari University of Oslo dan rekannya.

Bagi perokok paling berat, resiko menopause dini hampir dua kali lipat. Namun, perempuan yang dulunya merokok, tapi berhenti setidaknya 10 tahun sebelum menopause, pada dasarnya kurang mungkin untuk berhenti menstruasi dibandingkan dengan perokok sebelum usia 45 tahun.

Ada bukti bahwa merokok belakangan dalam kehidupan membuat seorang perempuan lebih mungkin untuk mengalami menopause dini, sedangkan perokok yang berhenti sebelum berusia setengah baya mungkin tak terpengaruh, kata Mikkelsen dan timnya di dalam jurnal Online, BMC Public Health.

Mereka meneliti hubungan lebih lanjut dan menetapkan apakah menjadi perokok pasif juga mungkin mempengaruhi waktu menopause. Para peneliti tersebut mendapati bahwa hampir 10% perempuan memasuki menopause sebelum usia 45 tahun.

KEBIJAKAN PEMERINTAH

Menurut Menkessos, pertumbuhan yang sangat cepat ini membuat Indonesia diperkirakan akan mencapai rekor, terutama dengan berbagai masalah kesehatan yang cukup berat, di antaranya berkaitan dengan rokok. Sementara itu diakui Menkessos, larangan membatasi aktivitas merokok di tempat umum masih belum bisa dilakukan lebih tegas.

Meski PP nomor 81/1999 yang diperbarui dengan PP 38/2000 tentang Pengamanan Rokok bagi Kesehatan sudah diberlakukan, tetapi diakui pula, law enforcement-nya belum ada sehingga belum memiliki kekuatan.

detikcomTingginya target penerimaan negara dari cukai rokok yang mencapai Rp 17 triliun pada anggaran 2001 dinilai telah menyebabkan pemerintah tidak konsisten menegakkan PP No.38/2000 tentang pengamanan rokok bagi kesehatan.

Komisi VII DPR mendesak untuk mengatur masalah rokok itu dibuat dalam bentuk UU, sehingga masyarakat akan mempunyai posisi tawar yang cukup kuat. Disamping itu, DPR akan dapat melakukan pengawasan yang ketat terhadap pemerintah maupun industri rokok.

Badan Pengawasan Obat dan Makanan (BPOM) akan menindak tegas perusahaan rokok yang menayangkan iklan rokok di media elektronik di bawah pukul 21:30 waktu setempat. “Bila teguran ini tidak diindahkan, BPOM akan melakukan upaya hukum sesuai dengan peraturan perundang-undangan yang berlaku,” tegasnya. Iklan rokok yang melanggar ketentuan PP No.81 tahun 1999 tentang Pengamanan Rokok Bagi Kesehatan dan PP No.38 tahun 2000 tentang Perubahan Atas PP no 81 tahun 1999 akan dikenakan pidana penjara paling lama lima tahun dan atau pidana denda paling banyak Rp100 juta. Penerimaan cukai rokok pada tahun 2000 mencapai Rp 10,27 triliun, sedangkan belanja kesehatan akibat merokok sesuai data dari Ditjen POM Depkes pada tahun yang sama mencapai Rp 11 triliun.

BERHENTI MEROKOK

Beberapa alasan untuk berhenti merokok

1. Impotensi

Merokok akan mengurangi aliran darah yang diperlukan untuk mencapai suatu keadaan ereksi. Karena hal tersebutlah rokok dapat mempengaruhi days ereksi penis.

2. Wajah keriput

Merokok dapat mengurangi aliran oksigen dan zat gizi yang diperlukan sel kulit Anda dengan jalan menyempitkan pembuluh darah di sekitar wajah. Sehingga akan menyebabkan keriput.

3. Gigi berbercak dan nafas bau.

Partikel dari rokok sigaret dapat memberi bercak kuning hingga cokelat pada gigi Anda, dan ini juga akan memerangkap bakteri penghasil bau di mulut Anda. Kelainan gusi dan gigi tanggal juga lebih sering terjadi pada perokok.

4. Anda dan di sekitar’ menjadi bau.

Rokok sigaret memiliki bau yang tidak menyenangkan dan menempel pada segala sesuatu, dari kulit dan rambut Anda sampai pakaian dan barang-barang di sekitar Anda. Dan bau ini sama sekali bukan hal yang membangkitkan selera pasangan maupun teman-teman.

5. Tulang rapuh

Sejumlah penelitian menemukan hubungan antara merokok dengan osteoporosis pada pria dan wanita. Sebuah penelitian mengamati kasus patah tulang pinggul pada wanita lansia, dan menyimpulkan bahwa satu dari 8 kasus patah tulang itu disebabkan oleh kehilangan massa tulang yang disebabkan oleh merokok.

6. Depresi

Sebagian ilmuwan menganggap rokok mengandung zat yang mampu menyebabkan peningkatan mood. Zat inilah yang biasanya kandungannya berkurang saat seseorang menderita depresi. Itulah juga penyebabnya mengapa orang yang sedang stres atau depresi cenderung mencari ‘pelarian’ ke rokok.

7. Panutan yang buruk bagi anak.

Setiap hari, dliperkirakan 3000 anak di AS yang menjadi ketagihan merokok sigaret. Bila mereka terus merokok, 1000 diantaranya bisa dipastikan akan meninggal akibat penyakit yang berhubungan dengan merokok.

8. Kebakaran

jika Anda ceroboh, saat merokok clan membuang puntung rokok yang masih menyala ke sembarang tempat dapat menyebabkan kebakaran.

9. Sirkulasi darah yang buruk

Sel darah merah telah dirancang dari sananya untuk mengangkut oksigen ke seluruh tubuh. Pada perokok, molekul oksigen digantikan oleh komponen dari asap rokok, sehingga menghambat transportasi oksigen yang penting bagi kehidupan sel.

10. Terkesan bodoh

Jika perokok membela ketergantungannya, ada satu kebenaran yang tak mampu mereka pungkiri: Seperti kata slogan, rokok itu pembunuh. jadi, bila masih ada yang meneruskan kebiasaan itu, tentunya akan terlihat bodoh kan.

TIGA HAL UTAMA

Melihat bahaya-bahaya yang dapat ditimbulkan rokok, kiranya diantara kita perlu bahu-membahu berbuat tiga hal utama :

ü Komunikasi dan informasi tentang bahaya merokok, baik bagi si perokok langsung maupun perokok pasif.

ü Menyediakan tempat-tempat khusus bagi orang yang merokok agar yang bukan perokok tidak terkena dampak negatifnya.

ü Jangan merasa segan untuk menegur perokok, jika anda merasa terganggu.

STRATEGI BERHENTI MEROKOK

Berikut ini strategi-strategi yang dapat anda gunakan untuk berhenti merokok:

1. Rencanakan waktu berhenti

Rencanakan kapan anda akan berhenti merokok untuk selamanya. Waktunya mungkin saja beberapa hari ke depan atau 2 minggu lagi. Menjelang hari berhenti merokok itu, anda kurangi jumlah rokok yang dihisap setiap harinya.

2. Obat-obatan

Obat membantu mengurangi gejala-gejala berhenti merokok sampai efek terburuk terlewati. Anda mempunyai pilihan obat baik berdasarkan resep dokter maupun obat over-the-counter (tanpa resep dokter). Diskusikan pilihan tersebut dengan dokter anda.

3. Bantu diri anda sendiri

Dalam merencanakan dan menjaga keinginan anda untuk berhenti merokok, carilah informasi mengenai rokok dan penyakit yang ditimbulkan dari berbagai sumber terpercaya seperti American Cancer Society, American Lung Association, Centers for Disease Control and Prevention atau situs lokal seperti Yayasan Kanker Indonesia, Yayasan Jantung Indonesia ,Komite Nasional Penanggulangan Masalah Merokok. Bantulah diri anda dengan informasi yang meyakinkan anda untuk menjauh dari rokok setelah berhenti merokok.

4. Kelompok pendukung

Entah anda bertemu secara online atau sebuah kelompok pendukung. Carilah dukungan dari orang-orang yang juga berusaha untuk berhenti merokok.

5. Konseling

Konseling merupakan pertemuan tatap muka dengan dokter yang terpercaya, psikolog, perawat atau konselor. Forum ini akan membahas hal-hal apa saja yang menghalangi anda untuk berhenti merokok dan cara-cara untuk mengatasinya.

6. Cold turkey

Merupakan strategi dengan langsung berhenti merokok. Jika anda memilih cold turkey maka anda akan mengalami gejala-gejala putus rokok, seperti semua orang yang berhenti merokok seperti tidak sabar (restlessness), nafsu makan bertambah, mudah tersinggung.

Disarankan agar anda mencari bantuan saat anda berhenti merokok, baik itu berupa dukungan ataupun pengobatan.

7. Olahraga

Olahraga akan membantu anda mengatasi stres dan berat badan yang bertambah setelah anda berhenti merokok.

8. Ajak Sahabat/Keluarga Anda

Mintalah teman atau anggota keluarga yang tidak merokok untuk menyediakan waktu mereka jika anda mengalami masa-masa yang sulit.

9. Terapi alternatif

Beberapa perokok mencoba metode hipnotis atau akupuntur untuk membantu mereka berhenti merokok, meskipun tidak banyak yang terbukti berhasil. Namun, bila metode tersebut membuat anda berhenti merokok, berarti metode tersebut cocok dengan anda.

Untuk berhenti merokok, anda membutuhkan pendekatan personal. Apa yang berhasil untuk orang lain belum tentu berhasil pada anda

APA YANG HARUS ANDA LAKUKAN?

Bila anda seorang perokok dan berencana ingin memiliki anak, berhentilah merokok sekarang juga! (Para ahli merekomendasikan setidaknya anda berhenti merokok sebulan sebelum terjadinya pembuahan). Berkonsultasilah dengan dokter atau tenaga kesehatan lainnya untuk membantu menghilangkan kebiasaan merokok anda. Banyak sekali tehnik yang ditawarkan, carilah yang paling cocok untuk dilakukan.

Berikut ada 7 cara berhenti merokok yang kami anjurkan:

1. Bersihkan dan buang. Bersihkan dan buang semua rokok yang anda miliki.

2. Buat catatan dan peringatan. Tulis catatan seperti “Anda sekarang bukan perokok” dan tempelkan pada tempat-tempat yang sering anda kunjungi – di tempat tidur, atas meja dsb.

3. Lakukan terus-menerus. Tetaplah berhenti merokok pada hari yang telah anda tentukan untuk berbuat demikian. Jangan terputus-putus melakukannya.

4. Pusatkan perhatian pada pekerjaan sehari-hari untuk mengalihkan keinginan merokok.

5. Berpikir positif. Pikirkan diri anda sebagai seorang yang bukan perokok. Apabila ada tawaran merokok dari teman, katakan kepada teman anda itu dengan tegas “Saya tidak merokok”.

6. Mintalah dukungan dari keluarga, kawan dekat dan rekan sekerja untuk membantu anda membuang kebiasaan merokok ini.

7. Melawan keinginan untuk merokok:

Mengalihkan perhatian ketika anda ingin merokok. Katakan pada diri anda “Nanti!!” dan lakukan hal-hal positif lainnya.

Menarik nafas panjang. Tarik nafas panjang selama lima detik dan lepaskan perlahan-lahan.

Minum air yang banyak. Hindari minuman yang mengandung kafein seperti kopi, teh atau cola.

Sibukkan diri anda dengan aktivitas. Ini penting supaya anda tidak selalu terpikir untuk merokok. Aktivitas yang bisa dilakukan misalnya berkebun, membaca buku dsb.

Melakukan olahraga sekurang-kurangnya tiga kali seminggu selama 20 menit setiap sesi.

Membasuh tangan atau mandi ketika anda ingin merokok.

Kunyah sesuatu seperti permen karet, dsb.

Berdoa semoga anda diberi kekuatan dan keinginan yang tetap untuk berhenti merokok

Pada awalnya berhenti merokok membutuhkan perjuangan yang sangat berat. Jangan kaget bila ada tanda-tanda seperti mudah marah, sulit mengendalikan perasaan, kurang konsentrasi, gelisah, sulit tidur, batuk, penurunan denyut nadi, serta nafsu makan bertambah. Fase ini disebut fase withdrawal. Akan hilang sendiri setelah tiga sampai empat minggu.

sumber : ahyarwahyudi.wordpress.com