Edit-editan

Volume Balok, Volume Kerucut, dan Volume limas segitiga ( C++ )

Volume Balok

#include
#include

void main ()
{
int p, l, t, v;
cout<<" Masukkan Panjang : ";
cin>>p ;
cout<<" Masukkan Lebar : ";
cin>>l;
cout<<" Masukkan Tinggi : ";
cin>>t;
v=p*l*t;
cout<<"Volume= ";
cout<}


VOLUME LIMAS SEGITIGA
#include
#include

void main ()
{
double a, ts, t, v;
cout<<" alas segitiga : ";
cin>>a ;
cout<<" tinggi segitiga : ";
cin>>ts;
cout<<" tinggi limas : ";
cin>>t;
v=0.33*(a*ts*0.5)*t;
cout<<"Volume= ";
cout<}


VOLUME KERUCUT
#include
#include

void main ()
{
double r, ts, t, v;
cout<<" jari-jari lingkaran : ";
cin>>r ;
cout<<" tinggi kerucut : ";
cin>>t;
v=0.33*(3.14*r*r)*t;
cout<<"Volume= ";
cout<}

PROGRAM OPERASI ARITMATIKA (VISUAL BASIC)

Dim a1 As Single, a2 As Single
Dim hasil As Single

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Label3.Caption = ""
Option1 = False
Option2 = False
Option3 = False
Option4 = False
Option5 = False
Option6 = False
Option7 = False
Option8 = False
End Sub

Private Sub Option1_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option1 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 ^ a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option2_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option2 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 - a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option3_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option3 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 * a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option4_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option4 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 / a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option5_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option6 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 \ a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option6_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option6 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 Mod a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option7_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option7 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 + a2
Label3.Caption = hasil
End If
End Sub

Private Sub Option8_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Anda belum mengisi inputnya", vbInformation, "KESALAHAN!"
Option8 = False
Else
a1 = Text1.Text
a2 = Text2.Text
hasil = a1 & a2
Label3.Caption = hasil
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

End If
If (KeyAscii = 48 Or KeyAscii = 49 Or KeyAscii = 50 Or KeyAscii = 51 Or KeyAscii = 52 Or KeyAscii = 53 Or KeyAscii = 54 Or KeyAscii = 55 Or KeyAscii = 56 Or KeyAscii = 57) Then
ElseIf (KeyAscii = vbKeyReturn Or KeyAscii = vbKeyDelete) Then
KeyAscii = 0
ElseIf KeyAscii = vbKeyBack Then
Else
KeyAscii = 0
MsgBox "Maaf, anda hanya bisa input angka saja!", vbInformation, "KESALAHAN"
Exit Sub
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

End If
If (KeyAscii = 48 Or KeyAscii = 49 Or KeyAscii = 50 Or KeyAscii = 51 Or KeyAscii = 52 Or KeyAscii = 53 Or KeyAscii = 54 Or KeyAscii = 55 Or KeyAscii = 56 Or KeyAscii = 57) Then
ElseIf (KeyAscii = vbKeyReturn Or KeyAscii = vbKeyDelete) Then
KeyAscii = 0
ElseIf KeyAscii = vbKeyBack Then
Else
KeyAscii = 0
MsgBox "Maaf, anda hanya bisa input angka saja!", vbInformation, "KESALAHAN"
Exit Sub
End If
End Sub

program lengkap download disini :
aritmatika2.rar

Perulangan While ( C++ )

Masih mempelajari perulangan dengan program C++, tapi kali ini kita pakai while.
nah berikut adalah program perulangan sederhana dengan menggunakan while. selamat mencoba

#include
#include

void main()
{
char abjad;
clrscr();
cout<< "PROGRAM PERULANGAN WHILE A-Z \n" ;
cout<< "---------------------------- \n" ;
abjad='A';
while(abjad<='Z')
{
cout<<<("\n");
abjad++;
}
}

Kalau di Run hasilnya :

PROGRAM PERULANGAN WHILE A-Z
----------------------------
A
B
C
...
Z
Berikut contoh untuk Program Perulangan While-Do,

#include
#include

void main()
{
char abjad;
clrscr();
cout<<"PROGRAM PERULANGAN WHILE-DO Z-A \n";
cout<<"------------------------------- \n";
abjad='Z'; do { cout<<<("\n"); abjad-=1; } while(abjad>='A');
}
Kalau di Run Hasilnya :

PROGRAM PERULANGAN WHILE-DO Z-A
-------------------------------
z
y
x
...
A

Program Perulangan For (C++)

Lagi belajar pemrograman C++ neh, baru bisa buat script2 seperti in
Program berikut menggunakan Turbo C++ 4.5

#include
main()
{
printf (" PROGRAM LOOPING For \n");
printf ("-------------------------------\n");
printf ("\n");

{
int baris=1;
int maks=6;
int kolom=1;
int hasil_kali;
for (baris=1; baris<=maks; baris++)
{
hasil_kali=kolom*baris+(baris-1);
printf("%2d \n",hasil_kali);
}
}

}

kalau di Run hasilnya :

PROGRAM LOOPING FOR
-----------------------------

1
3
5
9
7
11

Bagi yang sudah master mohon bimbingannya, saran dan kritik pastinya
Thanks

Program Konversi Bilangan Biner ke Desimal (Visual Basic)

Download :
KOnversiBiner.rar

Program Rangkaian Kombinasional (Visual Basic)

Untuk Program Rangkaian Kombinasional saat ini hanya program Half Adder, Full Adder, Decoder 3-8



Download :
R_Kombinasional.rar

PROGRAM ANGKA DIGITAL SEDERHANA (Visual Basic)

Download :
Program Sederhana Angka Digital.rar
-->

PROGRAM MENGHITUNG JUMLAH KARAKTER DALAM KALIMAT (PASCAL)

Program Hitung_Karakter_dalam_Kalimat;
uses crt;
var kalimat:string;
i,p,karakter:integer;
begin
clrscr;
writeln(' ------------------------------------------------ ');
writeln(' PROGRAM MENGHITUNG JUMLAH KARAKTER DALAM KALIMAT ');
writeln(' ------------------------------------------------ ');
writeln;
writeln(' Ketikkan sebuah kalimat : ');
writeln;
write(' ');readln(kalimat);
p:=length(kalimat); karakter:= 0;
for i:=1 to p do
begin
if kalimat[i]in['a'..'z',' '] then karakter := karakter+1;
end;
writeln;
writeln(' Jumlah karakter yang anda ketik ada : ',karakter,' karakter ');
readkey;
end.

PROGRAM BINTANG BERBENTUK PIRAMID (PASCAL)

Program Bintang1;
uses crt;
var i,j,n:integer;
begin
clrscr;
writeln('-----------------------------------------------');
writeln(' PROGRAM BINTANG BERBENTUK PIRAMID ');
writeln('-----------------------------------------------');
write('masukkan nilai = '); readln (n);
for i:=1 to n do
begin
if (i mod 2 = 1) then
begin
for j:=1 to ((n-i) div 2) do write(' ');
for j:=1 to i do write('*');
writeln;
end;
end;
readln;
readkey;
end.

Program Hitung Kata dalam Kalimat (PASCAL)

Program Hitung_Kata_dalam_Kalimat;
uses crt;

var kalimat:string;
jumlah:integer;

procedure jumlah_kata(kata:String; var jumlah:integer);
var i:integer;
begin
if(kata[1]='') then jumlah:=0
else jumlah:=1;
for i:=1 to length(kata) do
begin
if (kata[i]='') and (kata[i+1]<>'') and (kata[i+2]<>'') then inc(jumlah)
Else if (kata[i]=' ') and (kata[i-1]<>'') and (kata[i+1]<>'') then inc(jumlah);
end;
end;

begin
clrscr;
writeln(' ------------------------------------------------ ');
writeln(' PROGRAM MENGHITUNG JUMLAH KATA DALAM KALIMAT ');
writeln(' ------------------------------------------------ ');
writeln;
write(' Ketikkan sebuah kalimat : ');readln(kalimat);
jumlah_kata(kalimat,jumlah);
writeln(' Jumlah kata yang anda ketik : ',jumlah,' buah kata');
readkey;
end.

Editing foto instant secara online

Ternyata untuk mengedit foto, kita tidak diharuskan menguasai beberapa software editing, kalau cuma untuk memberi bingkai dan menambah beberapa efek image pada foto ada beberapa cara instant, salah satunya pada website photofunia.com, tentu saja komputer harus terkoneksi dengan internet.

langkah-langkahnya sebagai berikut :

• Coba buka web berikut : http://photofunia.com

• Pilih salah satu Efek dengan di klik :

• Kemudian pilih satu file foto yang akan di edit :

• Tunggu beberapa saat, hasilnya seperti berikut :

• Kemudian pilih save to disk :

cukup mudah untuk pemula, ditambahkan efek font akan lebih bagus. selamat mencoba dan semoga bermanfaat.

Bener-bener Cinta, apa Kecanduan Cinta??

Istilah kecanduan cinta mungkin bukan istilah yang umum terdengar. Istilah yang sudah umum beredar seperti kecanduan minum, alkohol, narkoba, rokok, kerja, dan lain sebagainya. Meski pun “barang” nya cinta, bukan berarti aman-aman saja bagi pecandunya dan tidak membawa dampak apapun juga. Justru, dampak dari kecanduan cinta ini sama buruknya untuk kesehatan jiwa seseorang. Buktinya, sudah banyak kasus bunuh diri atau pembunuhan yang terjadi akibat kecanduan cinta meski korban maupun pelaku sama-sama tidak menyadarinya...Nah, artikel di bawah ini akan mengulas sekelumit hal-hal yang berkaitan dengan kecanduan cinta.

KECANDUAN PSIKOLOGIS

Di dalam masyarakat sudah banyak sekali kesalahan dalam mempersepsi atau mengartikan cinta sejati dengan cinta yang bersifat candu. Berbagai film, sinetron, atau pun lagu-lagu turut andil dalam menyaru-kan kondisi kecanduan cinta dengan cinta sejati. Akibatnya, banyak orang terjebak dalam pengertian yang keliru antara kecanduan cinta dengan cinta sejati. Contoh ekstrimnya, ada orang yang bunuh diri karena ditinggal pergi kekasih dan orang menilai bahwa cerita ini mencerminkan kisah cinta sejati.

Tanda-tanda :

Pada umumnya individu yang mengalami kecanduan cinta menunjukkan tanda-tanda:

Adanya pikiran obsesif, misalnya terus-menerus curiga akan kesetiaan pasangan, terus- menerus takut ditinggalkan pasangan sehingga selalu ikut ke mana pun perginya sang kekasih/pasangan. Selalu menuntut perhatian dari waktu ke waktu, tanpa ada toleransi dan pengertian Manipulatif, berbuat sesuatu agar pasangan mengikuti kehendaknya/memenuhi kebutuhannya, misalnya : mengancam akan memutuskan hubungan jika mementingkan hobi-nya.

Selalu bergantung pada pasangan dalam segala hal, apapun juga, mulai dari minta pendapat, mengambil keputusan sampai dengan memilih warna pakaian Menuntut waktu, perhatian, pengabdian dan pelayanan total sang kekasih/pasangan. Jadi, pasangan tidak bisa menekuni hobi-nya, jalan-jalan dengan teman-teman kelompoknya, atau bahkan memberikan sebagian waktunya untuk orang tua/keluarga.

Menggunakan sex sebagai alat untuk mengendalikan pasangan Menganggap sex adalah cinta dan sarana untuk mengekspresikan cinta Tidak bisa memutuskan hubungan, meski merasa amat tertekan karena “berharap” pada janji-janji surga pasangan.

Kehilangan salah satu hal terpenting dalam hidup, misalnya pekerjaan atau /keluarga inti demi mempertahankan hubungan Jadi, tidak ada istilah “puas” dalam setiap hubungan yang terjalin antara orang yang kecanduan cinta dengan pasangannya; ibaratnya seperti mengisi gelas bocor yang tidak pernah bisa penuh jika diisi, karena begitu airnya dituang lantas langsung keluar lagi dan airnya tidak pernah luber.

Demikian juga orang kecanduan cinta, mereka tidak pernah mampu membagikan cinta secara tulus pada orang lain karena selalu merasa kehausan cinta. Oleh sebab itu, banyak di antara mereka yang sering berganti pasangan karena merasa harapan mereka tidak dapat dipenuhi sang kekasih. Padahal, meski puluhan kali mereka berganti pasangan, individu yang kecanduan cinta akan sulit membangun hubungan yang stabil dan abadi. Sayangnya, banyak dari mereka yang tidak sadar, bahwa sumber masalah justru ada pada diri sendiri. Mereka lebih sering menyalahkan mantan-mantan kekasihnya/pasangannya.

Penyebab :

Sebenarnya, kecanduan cinta itu adalah kecanduan yang bersifat psikologis karena tidak terpenuhinya kebutuhan psikologis (seperti kasih sayang, perhatian, kehangatan dan penerimaan seutuhnya) di masa kecil. Menurut Erik Erikson - seorang pakar perkembangan psikososial, orang yang pada masa batita-nya tidak mengalami hubungan kelekatan emosional yang stabil, positif dan hangat dengan lingkungannya (baca : orang tua dan keluarga), akan sulit mempercayai orang lain – bahkan sulit mempercayai dirinya sendiri. Selain itu, trauma psikologis yang pernah dialami seperti penyiksaan emosional dan fisik pada usia dini, atau menyaksikan sikap dan tindakan salah satu orang tua yang agresif dan kasar terhadap pasangan, dapat menghambat proses kematangan identitas kepribadian dan kestabilan emosinya. Pemandangan dan pengalaman tersebut kelak berpotensi mempengaruhi pola interaksinya dengan orang lain.

Keterbatasan respon/perhatian dari lingkungan pada waktu itu, dipersepsi olehnya sebagai suatu bentuk penolakan dan penolakan itu (menurut pemahaman seorang anak) disebabkan kekurangan dirinya. Nah, pada banyak orang, masalah ini rupanya tidak terselesaikan dan akibatnya, sepanjang hidup ia berjuang untuk mengendalikanlingkungan atau orang-orang terdekat supaya selalu memperhatikannya. Orang demikian berusaha membuat dirinya diterima dan dimiliki oleh orang lain – meski harus “mengorbankan” diri. Orang ini begitu cemas dan takut jika kehilangan orang yang selama ini memilikinya karena perasaan “dimiliki” ini identik dengan harga dirinya – dan sebaliknya ia akan kehilangan harga diri jika kehilangan pemilik.

DAMPAK

Akibat kecanduan cinta bisa dirasakan secara langsung oleh yang bersangkutan, karena orang itu tidak dapat menikmati hubungan yang terjalin karena pikiran dan perasaannya selalu diliputi ketakutan. Dan tidak jarang ketakutan tersebut makin tidak rasional dan melahirkan tindakan yang tidak rasional pula, misalnya tidak memperbolehkan pasangannya pergi kerja karena takut direbut orang.

Bagi Individu Bersangkutan

Akibat jangka menengah dan jangka panjang adalah individu yang bersangkutan akan berada dalam kondisi emosi yang labil dan menjadi terlalu sensitif. Individu tersebut mudah curiga pada teman, sahabat, kegiatan, pekerjaan, bahkan keluarga pasangannya. Selain itu ia menjadi mudah marah, cepat tersinggung dan bagi sebagian orang bahkan ada yang bertindak agresif dan kasar demi mengendalikan keinginan dan kehidupan pasangannya. Pasangannya tidak diijinkan untuk punya agenda tersendiri; pokoknya harus mengikuti keinginannya dan 100% memperhatikannya. Individu tersebut juga mudah merasa lemah, lelah dan lemas. Pasalnya, seluruh energinya sudah dipergunakan untuk mengantisipasi ketakutan yang tidak beralasan dan melakukan tindakan untuk menjaga pertahanannya. Nah, kehidupan demikian membuat dirinya menjadi manusia tidak produktif. Sehari-hari yang dipikirkan dan diusahkan hanyalah bagaimana supaya “miliknya terjaga”.

Bagi Pasangan :

Banyak orang yang tidak sadar kalau dirinya terlibat dalam pola hubungan yang addictive sampai akhirnya ia merasa stress, tertekan namun tidak berani/takut/tidak berdaya untuk memutuskan hubungan yang sudah berjalan beberapa waktu. Bagi sebagian orang yang cukup sadar dan mempunyai kekuatan pribadi, ia akan berani mengambil sikap tegas dalam menentukan arahnya sendiri. Namun, banyak pula orang yang “memilih” untuk tetap dalam lingkaran demand-supply tersebut karena ternyata dirinya sendiri juga mengalami masalah dan kebutuhan yang sama. Jika demikian halnya, maka hubungan yang ada bukannya mengembangkan dan mendewasakan kedua belah pihak, namun malah semakin memperkuat ketergantungan cinta keduanya. Situasi ini lah yang sering dikaburkan dengan hubungan yang romantis dan cinta buta.

PENANGGULANGAN

Menurut para ahli psikologi dan kesehatan mental, salah satu syarat utama untuk dapat menjalin hubungan yang sehat dan sekaligus menjalani kehidupan yang produktif adalah mempunyai kesehatan mental yang sehat dan identitas diri yang solid. Kondisi positif demikian akan menumbuhkan rasa percaya diri yang kuat sehingga orang

tersebut tidak membutuhkan dukungan dan pengakuan orang lain untuk memperkuat sense of self-nya. Jadi, untuk mengembalikan seseorang pada bentuk hubungan yang sehat, langkah awal yang diperlukan adalah memperkuat pribadinya terlebih dahulu. Dengan meningkatkan sumber kekuatan psikologis secara internal, akan mengurangim ketergantungannya pada kekuatan eksternal. Orang itu harus merasa aman dan percaya dengan dirinya sendiri untuk bisa merasa aman dalam setiap jalinan hubungan dengan orang lain. Ada kalanya, orang-orang demikian membutuhkan bantuan para profesional untuk membimbing dan mengarahkan mereka membangun pribadi yang positif.

Copyright (c) 2000, e-psikologi.com.

Program Penjumlahan Matrik (PASCAL)

Berikut ini adalah program menampilkan dan menjumlahkan dua matrik :
Selamat mencoba

program Penjumlahan_Matrix;
uses crt;
const kolom=10;
baris=10;
type matrix=array[1..baris,1..kolom] of integer;
var matrix_A,matrix_B:matrix;
a,b:integer;
procedure InputMatrix(var x:matrix);
var i,j:integer;
begin
for i := 1 to a do
begin
for j := 1 to b do
begin
write('Masukkan Elemen[',i,',',j,']:');readln(x[i,j]);
end;
end;
end;
procedure CetakMatrix(var x:matrix);
var i,j:integer;
begin
for i := 1 to a do
begin
for j := 1 to b do
begin
write(x[i,j]:4);
end;
writeln;
end;
end;
procedure JumlahMatrix(var x,y:matrix);
var z:matrix;
i,j:integer;
begin
for i:=1 to a do
begin
for j:=1 to b do
begin
z[i,j]:=x[i,j] + y[i,j];
write(z[i,j]:4);
end;
writeln;
end;
end;
begin
clrscr;
write('Masukkan Jumlah Baris : ');readln(a);
write('Masukkan Jumlah kolom : ');readln(b);
if (a>10) or (b>10) then
begin
writeln('Max Kolom dan baris adalah 10!');
exit;
end;
clrscr;
writeln('Input Matrix A');
InputMatrix(matrix_A);
writeln;
writeln('Input Matrix B');
InputMatrix(matrix_B);
clrscr;
writeln('Matrix A');
CetakMatrix(matrix_A);
writeln;
writeln('Matrix B');
CetakMatrix(matrix_B);
writeln;
writeln('Penjumlahan Matrix A dan Matrix B');
JumlahMatrix(matrix_A,matrix_B);
readkey;
end.

Pascal Konversi Bilangan Desimal ke Biner (PASCAL)

-->Perhitungan secara manual :

Step 1. 17 dibagi 2 mendapatkan 8 sisa 1
Step 2. 8 dibagi 2 mendapatkan 4 sisa 0
Step 3. 4 dibagi 2 mendapatkan 2 sisa 0
Step 4. 2 dibagi 2 mendapatkan 1 sisa 0

Berikut adalah program konversi bilangan desimal ke biner dengan menggunakan program Pascal,

Program konversi_Desimal_to_Biner;
uses crt;
var bilangan:integer;

function decToBin(desimal:integer):string;
var hasilbagi, sisa:integer;
bin:char;
bilBiner:string;
begin
hasilBagi := desimal div 2;
bilBiner := '';

while (hasilBagi >= 1) do
begin
sisa := desimal mod 2;
if (sisa = 0)then bin := '0'
else if (sisa = 1) then bin := '1';

bilBiner:=bin + bilBiner;

desimal := hasilBagi;
hasilBagi := desimal div 2;
end;
decToBin:='1' + bilBiner;
end;

begin
clrscr;
writeln('KONVERSI BILANGAN DESIMAL KE BINER');
writeln;
write('masukkan bilangan : ');readln(bilangan);
write('Bilangan Binernya : ', decToBin(bilangan));
readkey;
end.



Sekarang kebalikannya dari bilangan biner ke bilangan desimal -->
(10110)₂ = 1×2⁴ + 0×2³ + 1×2² + 1×2¹ + 0×2⁰
(10110)₂ = 16 + 0 + 4 + 2 + 0 = 22
Bila di aplikasikan dalam program Pascal :



Program konversi_Biner_to_Dec;
uses crt;
var bilBiner : String;

function pangkat(a, b : integer): integer;
var i, hasil : integer;
begin
hasil := 1;
for i:=1 to b do
begin
hasil := hasil * a;
end;
pangkat := hasil;
end;

function bin2Dec(biner : string) : integer;
var n, sum, i : integer;
begin
n := length(biner);
sum := 0;
for i := n-1 downto 0 do
begin
if (biner [n-1] = '0') then sum := sum + 0 * pangkat (2, i)
else if (biner [n-1] = '1') then sum := sum + 1 * pangkat (2, i);
end;
bin2Dec := sum;
end;

begin
clrscr;
writeln('KONVERSI BILANGAN BINER KE DESIMAL');
writeln;
write('Masukkan bilangan Biner : ');readln(bilBiner);
write ('Bilangan Desimalnya : ', bin2Dec(bilBiner));
readkey;
end.

Be - Te . . . ! ! !

Wah gue lagi Be-Te! Jangan ganggu gue! Atau gue lagi Be-Te dengan pelajaran fisika dengan pekerjaan, dengan cewek/cowok gue… de …es…be….

Penulis jadi penasaran nih denger istilah kaya gitu, yang sering di ucapkan para pelajar, para mahasiswa, karyawan dan beberapa orang yang penulis temui di warung-warung tempat cangkru’an. Tergeraklah untuk membuka KBBI (Kamus Besar Bahasa Indonesia) dan ternyata…. Tidak ada istilah seperti itu.

Katanya sih Be-Te itu BT = Boring Time(Waktu yang membosankan). Kata tersebut muncul menggantikan istilah suntuk akibat tidak puas, kecewa, jenuh, bosan, jengkel, atau kondisi yang senada dengan kata itu. Jadi Be-Te merupakan istilah yang tepat untuk menggambarkan rasa ketidakpuasan dan ketidaknyamanan perasaan.

Be-Te = Stres?

Menurut pakar psikologis dosen UNTAG Surabaya, Be-Te tidak bisa disamakan dengan stres. Kalau stres lebih jelas dan lebih lama pengaruhnya terhadap rasa ketidaknyamanan diri, sedangkan Be-Te bersifat sesaat, namun Be-Te yang berlarut-larut bisa menyebabkan stres.

Bagaimana cara Mengatasi Be-te?

Meskipun belum selevel dengan stres, kondisi seseorang yang senantiasa Be-Te dan tidak teratasi dalam waktu yang cepat, kemungkinan besar akan berakibat buruk pada kepribadian seseorang. Ada baiknya jika mencoba beberapa tips berikut ini jika itu terjadi pada kita :

1.

Be - Te

Basuh muka dengan air dingin (bagi yg muslim bisa berwudhu) atau mandi jika perlu biar kita bisa relaks kemudian berdoa mendekatkan diri kepada yang Kuasa.

2.

B E T E !!!

Jika kita dalam keadaan berdiri duduklah, lemaskan otot buat diri senyaman mungkin, atau keluarlah dari ruangan yang pengap.

3. Tenangkan pikiran dengan berbaring merebahkan badan, atur nafas sambil berdoa menurut agama dan pekerjaan masing-masing.

4. Alihkan pandangan keluar dengan melihat kebesaran Tuhan, melihat tumbuhan, tanaman, bunga, daun, dan pohon yang hijau.

5. Jangan melampiaskan perasaan dengan mendatangi tempat hiburan, diskotek, dsb. Karena itu justru malah menambah beban stress kita.

Dari beberapa tips di atas penulis dapat menyimpulkan bahwa dengan mendekatkan diri kepada Tuhan Yang Maha Esa, kita bisa mengurangi dan menghilangkan BeTe kita. Semoga kita bisa mengatasi masalah BeTe sedini mungkin.

Dikutip dengan perubahan

Majalah Aksi LA 2003

Temukan Diri Sejati

Ketergesaan dalam kehidupan modern, yang bergerak serba cepat, seringkali membuat kita melupakan diri sendiri dan kehilangan kendali. Ada banyak cara yang dapat dilakukan untuk membawa kita kembali ke diri sejati. Berikut 10 kekuatan yang dapat mengarahkan kita kembali ke diri sendiri dan menemukan sebuah kedamaian.

1. Hadir
Hiduplah untuk saat ini. Masa lalu telah berlalu. Anda tak akan pernah dapat kembali dan mengulang masa masa itu lagi, pun Anda tak akan dapat menghidupkan kembali apa yang ada di masa lalu. Kehidupan ini adalah apa yang sedang Anda jalani saat ini, tak peduli apapun yang telah terjadi. Itu semua nyata dan sempurna. Jangan menengok ke belakang ataupun terlalu memikirkan apa yang akan terjadi di masa mendatang. Pikiran kita selalu menciptakan berbagai percakapan yang mengembangkan rasa takut dan membuat kita berusaha menyelamatkan diri. Katakan pada pikiran Anda yang sibuk berbicara itu: Terima kasih telah bersedia berbagi dan yakinkan Aku di sini, aku ada untukmu. Setiap hari, kita semua harus selalu membuat pilihan dan Andalah yang paling tahu bagaimana membuat hari yang Anda jalani jadi indah.

2. Bersatu Dengan Alam
Duduklah di rerumputan atau di bawah sebuah pohon. Rasakan putaran bumi, keagungan angkasa raya, dinginnya udara yang menerpa wajah Anda, atau kehangatan sinar matahari pagi. Tersenyumlah pada langit yang luas, ucapkan salam pada lebah yang beterbangan dan semua binatang yang Anda jumpai. Berjalan jalanlah di taman atau mendaki perbukitan. Kedekatan dengan alam dapat membawa kesadaran betapa Anda bagian dari jagat raya yang maha luas ini.

3. Berolahrga
Berolahraga secara teratur memberi jeda pada pikiran Anda yang terus berkecamuk, membantu memperlancar peredaran darah, membersihkan racun dari tubuh, dan memberi Anda energi serta banyak keuntungan lain. Pilihlah aktivitas yang memberi Anda kesenangan dan buat perpaduan. Lakukan jalan sehat di satu hari dan latihan Yoga di hari berikutnya. Ikuti latihan erobic dan bertemu banyak orang. Banyak sekali daftar kegiatan yang dapat Anda pilih.

4. Spiritual
Kenali dan sadari Anda adalah pribadi yang penting dan unik. Lakukan meditasi, atau duduk tenang di kesunyian, dan nikmati saat saat itu. Baca buku buku keagamaan atau panduan kepribadian yang membawa pesan positif dan membuat Anda merasa kuat. Jangan lupa bersyukur atas kesehatan yang Anda miliki, rumah, orang orang yang mencintai dan Anda cintai, teman teman yang mengelilingi Anda, serta kebahagiaan dan kegembiraan yang melingkupi hidup Anda.

5. Memaafkan
Saatnya untuk melepaskan. Maafkan seluruh bagian diri Anda, atas segala kekurangan dan ketidaksempurnaan. Maafkan diri Anda untuk semua kesalahan yang pernah Anda buat di masa lalu, maafkan ketakutan masa kecil Anda, maafkan emosi dan kemarahan masa remaja Anda, maafkan masa dewasa awal Anda yang tak mau mengambil resiko. Maafkan kesalahan orang tua Anda, saudara kandung, kerabat dan orang orang di masa lalu. Lepaskan semua uneg uneg. Memaafkan membawa kedamaian dalam jiwa.

6. Bersenang Senang
Beri kesempatan pada diri Anda untuk merasa rileks dan memanjakan diri. Baca buku yang menyenangkan. Keluarkan uang sekali kali untuk membeli hal yang paling Anda inginkan. Lakukan kesenangan hanya untuk diri Anda sendiri.

7. Nutrisi
Dengarkan kebutuhan tubuh Anda. Penuhi kebutuhan tubuh akan makanan bernutrisi. Konsumsi vitamin yang bermanfaat untuk tubuh. Dengan tubuh sehat dan bugar membuat Anda selalu menghargai hidup.

8. Buang Penilaian
Berhentilah menilai dan menyalahkan. Jangan melontarkan kritikan pada orang lain ataupun diri sendiri. Ucapkan kata kata yang memberi dorongan pada diri dan semua orang yang Anda jumpai. Terima orang lain apa adanya, lengkap dengan segala perbedaan yang mereka miliki.

9. Bantu Orang Lain
Hubungi dan ulurkan tangan pada teman yang membutuhkan. Tawarkan bantuan tanpa syarat pada orang lain. Jadilah pendengar yang baik dan benar benar mendengarkan apa yang dikatakan orang lain. Temukan cara untuk membantu orang lain mengangkat beban hidup dengan mendengarkan keluh kesah mereka.

10. Cinta
Cintai diri Anda dan gunakan kata kata positif untuk memberi dorongan. Puji orang lain dengan tulus dan buat mereka tersenyum. Bicaralah dengan penuh kasih dan ketulusan dari dasar hati.
Kesepuluh kunci kekuatan yang disebutkan di atas bukanlah hal yang sulit untuk dilakukan siapapun. Pelankan sejenak laju hidup Anda yang serba cepat, dan luangkan waktu untuk melakukan kesepuluh hal tersebut. Niscaya Anda akan menemukan keindahan hidup serta kelengkapan diri saja

diambil dari : 10 Kunci Temukan Diri Sejati sarikata.com