Senin, 05 Januari 2015

TUGAS III ILMU SOSIAL DASAR



PERMASALAHAN MASYARAKAT DAN KEBUDAYAAN

                Apa itu masyarakat dan apa itu budaya? masyarakat adalah sekelompok orang yang membentuk sebuah sistem semi tertutup (atau semi terbuka), dimana sebagian besar interaksi adalah antara individu-individu yang berada dalam kelompok tersebut. Kata "masyarakat" sendiri berakar dari kata dalam bahasa Arab, musyarak. Lebih abstraknya, sebuah masyarakat adalah suatu jaringan hubungan-hubungan antar entitas-entitas. Masyarakat adalah sebuah komunitas yang interdependen (saling tergantung satu sama lain). Umumnya, istilah masyarakat digunakan untuk mengacu sekelompok orang yang hidup bersama dalam satu komunitas yang teratur. dan Budaya atau kebudayaan berasal dari bahasa Sanskerta yaitu buddhayah, yang merupakan bentuk jamak dari buddhi (budi atau akal) diartikan sebagai hal-hal yang berkaitan dengan budi dan akal manusia.
                Adapun beberapa faktor menurut Soerjono Soekanto yang mempengaruhi kebudayaan terbagi menjadi 2, yaitu faktor intern dan faktor ekstern.
     Faktor intern merupakan faktor yang berasal dari masyarakat itu sendiri yang menyebabkan perubahan kebudayaan, yang diantaranya:
  1. Perubahan penduduk, seperti: Kelahiran, Kematian, dan Migrasi. 
  2. Adanya penemuan baru, seperti: Adanya ide atau alat baru yang sebelumnya belum pernah ada (Discovery), Penyempurnaan penemuan baru (Invention), dan Proses pembaharuan atau melengkapi atau mengganti yang telah ada (Innovation).
  3. Konflik yang terjadi di dalam masyarakat. Konflik dapat merubah kepribadian orang-orang yang terlibat di dalamnya, misalnya menjadi pendiam, murung, tidak mau bergaul, atau bahkan berusaha memperbaiki keadaan tersebut supaya menjadi lebih baik.
  4. Pemberontakan atau revolusi. Hal ini menyebabkan perubahan pada struktur pemerintahan pada suatu negara.
     Faktor ekstern merupakan faktor yang berasal dari luar masyarakat melalui interaksi sosial yang mendorong terjadinya suatu perubahan kebudayaan, yang diantaranya:
  1. Peperangan. Hal ini dapat menyebabkan perubahan yang mendasar pada suatu negara baik seluruh wujud budaya (sistem budaya, sistem sosial, dan unsur-unsur budaya fisik) maupun seluruh unsur budaya (sistem pengetahuan, teknologi, ekonomi, bahasa, kesenian, sistem religi, dan kemasyarakatan). Biasanya akibat ini lebih berpengaruh kepada negara yang kalah.
  2. Perubahan alam. Pada zaman sekarang sebagian besar hal ini disebabkan oleh tindakan manusia sendiri yang menyebabkan kerusakan alam, seperti mebuang sampah sembarangan, penebangan liar, pembangunan terus menerus di lahan pertanian, dan masih banyak lagi. Hal ini dapat merugikan manusia sendiri seperti kehilangan keluarga, tempat tinggal, harta benda, dan sarana umum lainnya.
  3. Pengaruh budaya lain, seperti: Penyebaran kebudayaan (Difusi), Pembauran antar budaya yang masih terlihat masing-masing sifat khasnya (Akulturasi), dan Pembauran antar budaya yang menghasilkan budaya yang baru tanpa terlihat budaya yang lama sama sekali (Asimilasi).
                Adapun permasalahan yang terjadi tenttang kebudayaan di dalam masyarakat khususnya di indonesia pada saat sekarang ini yaitu hampir lunturnya kebudayaan dan kebudayaan di masyarakat indonesia yang mana dari faktor penyebab nya bisa karena faktor internal dan faktor eksternal. Sebagai contoh faktor internal yaitu mengenai kelahiran dimana setiap penerus penerus dalam setiap masyarakat yang memiliki kebudayaan lebih cenderung enggan untuk mengetahui dan menjalankan kebudayaan yang turun temurun dari nenek moyangnya, hal ini terjadi karena mereka merasa kebudayaan itu kuno dan sekarang zaman modern sehingga tidak perlu untuk mempelajari tentang kebudayaan. Padahal seharusnya para penerus mempunyai rasa cinta akan kebudayaan yang telah ada dalam masyarakat tersebut.
                Kemudian contoh dari faktor exsternal yaitu salah satunya teknologi , masuknya teknologi kemasyarakat cenderung para penerus melupakan kebudayaannya karena mereka lebih asik dengan teknologi yang ada pada saat sekarang ini. sebagai contohnya yaitu game online atau PS dan lain sebagainya, permainan - permainan kebudayaan atau tarian tarian kebudayaan lebih enggan mereka ajari karena mereka lebih happy atau senang dengan teknologi jaman sekarang.
                Sehingga untuk sekarang ini banyaklah kebudayaan - kebudayaan kita yang telah di clam oleh negara lain dan kita tidak bisa untuk mengambilnya kembali karena tidak adanya bukti atau hal lain yang bisa menunjukan itu adalah kebudayaan milik kita.
Adapun solusi untuk permasalahan dalam kebudayaan ini :
1. Masyarakat dan generasi penerus harus lebih cinta akan kebudayaannya
2. Tak henti - hentinya generasi tua mengajak dan memberikan pengajaran kepada generasi muda agar generasi muda cinta terhadap kebudayaannya
3. dan untuk pmerintah alangkah baiknya jika kebudayaan di dalam masyarakat di kumpulkan dan di satukan dan di clam langsung bahwa kebudayaan ini adalah kebudayaan milik indonesia sehingga tidak ada lagi yang dapat mengclam ke budayaan kita. 

sumber :
http://id.wikipedia.org/wiki/Budaya
http://id.wikipedia.org/wiki/Masyarakat
http://atikkaa.blogspot.com/2012/03/faktor-faktor-yang-menyebabkan.html

Sabtu, 20 Desember 2014

SOAL UTS ALGORITMA TENTANG QBASIC

uts algoritma 1c

CLS
n = 0: no = 0: h = 1: u = 0: tp = 0: tw = 0
INPUT "TAHUN SEKARANG : ", TS: CLS
20 PRINT
PRINT TAB(30); "PT. MAVINDO"
PRINT TAB(59); "HAL : "; h
PRINT "------------------------------------------------------------------"
PRINT "NO", "NOMOR INDUK", "NAMA", "UMUR", "KETERANGAN"
PRINT "------------------------------------------------------------------"
30 READ NIK$, NAMA$, TL, JK$
IF NIK$ = "0" THEN PRINT "------------------------------------------------------------------": PRINT TAB(36); "TOTAL SELURUH PRIA   : "; tp; "ORANG": PRINT TAB(36); "TOTAL SELURUH WANITA : "; tw; "ORANG": END
u = TS - TL
IF u <= 56 THEN GOTO 30
IF JK$ = "0" THEN Ket$ = "PRIA": tp = tp + 1: GOTO 60
IF JK$ = "1" THEN Ket$ = "WANITA": tw = tw + 1: GOTO 60
JK$ = "SALAH"
60 n = n + 1: no = no + 1
PRINT no, NIK$, NAMA$, u, Ket$
IF n = 5 THEN PRINT "------------------------------------------------------------------": INPUT "NEXT HAL (TEKAN ENTER)"; Y: CLS: n = 0: h = h + 1: GOTO 20
GOTO 30

DATA 54123,ACEP,1951,0,54122,LIEN,1941,1,54233,AMELIA,1958,1
DATA 54321,FUAD,1950,0,54222,NAUVAL,1935,0,54333,HAMDA,1940,0
DATA 53244,EGA,1948,0,56233,IRMA,1930,1,57345,RINA,1952,1
DATA 0,0,0,0

Jumat, 19 Desember 2014

PROGRAM QBASIC SEDERHANA


AGAR LEBIH JELAS LIHAT DULU GAMBAR DI ATAS

CLS
n = o: no = 0: h = 1: th = 0: tk = 0
10 PRINT
PRINT TAB(17); "DATA REKAP GAJI KARYAWAN"
PRINT
PRINT TAB(40); "HAL "; h
PRINT "-------------------------------------------------"
PRINT "NO", "NIK", "NAMA", "GAJI"
PRINT "-------------------------------------------------"
30 READ NIK$, NAMA$, JK
IF NIK$ = "0" THEN PRINT "------------------------------------------------": PRINT TAB(26); "TOTAL GAJI : Rp. "; th: PRINT TAB(19); "JUMLAH TOTAL GAJI : Rp. "; tk: END
G = JK * 100000 + 50000
n = n + 1
no = no + 1
th = th + G
tk = tk + th
PRINT no, NIK$, NAMA$, G
IF n = 2 THEN PRINT "------------------------------------------------": PRINT TAB(26); "TOTAL GAJI : Rp. "; th: INPUT "NEXT HAL (TEKAN ENTER) "; Y: CLS: n = 0: h = h + 1: th = 0: GOTO 10
GOTO 30

DATA 001,ACEP,12,002,DEWI,10,003,SRI,12
DATA 004,AMEL,14,005,MELA,20,0,000,00

Selasa, 16 Desember 2014

Q-BASIC MENULIS, MENAMBAH, MENGEDIT, MENGHAPUS DATA PADA NOTEPAD



BELAJAR OPEN FILE DAN MANIFULASI STRING
 
"I" (Input) – file dibuka hanya untuk dibaca.
"O" (Output) – file dibuka hanya untuk ditulisi.
"A" (Append) – file dibuka untuk menambah record.

untuk melakukan penulisan, penambahan dan membaca ada 2 macam source code yang dapat di gunakan :
Pertama :
OPEN "I", #1, "MAHASISWA.TXT"
OPEN "O", #1, " MAHASISWA.TXT"
OPEN "A", #1, " MAHASISWA.TXT"
Kedua :
OPEN " MAHASISWA.TXT" FOR OUTPUT AS # 1
OPEN " MAHASISWA.TXT" FOR INPUT AS # 1
OPEN " MAHASISWA.TXT" FOR APPEND AS # 1
LANGSUNG UNTUK MENULIS DATA :
10 ' *** PROGRAM ISI DATA ***
15 OPEN "O", #1, "D:\DATA\SISWA.TXT"
20 CLS
30 INPUT "Nomor Induk Mahasiswa : ", NIM$
40 INPUT "Nama Mahasiswa        : ", NAMA$
50 INPUT "Nilai Mahasiswa       : ", NILAI
60 WRITE #1, NIM$, NAMA$, NILAI
70 INPUT " ISI DATA LAGI [Y/T] : ", JAWAB$
80 IF JAWAB$ = "Y" OR JAWAB$ = "y" THEN GOTO 20
90 CLOSE #1
100 END
MENAMBAH DATA :
10 ' *** PROGRAM TAMBAH DATA ***
15 OPEN "A", #1, "D:\DATA\SISWA.TXT"
20 CLS
30 INPUT "Nomor Induk Mahasiswa : ", NIM$
40 INPUT "Nama Mahasiswa        : ", NAMA$
50 INPUT "Nilai Mahasiswa       : ", NILAI
60 WRITE #1, NIM$, NAMA$, NILAI
70 INPUT " ISI DATA LAGI [Y/T] : ", JAWAB$
80 IF JAWAB$ = "Y" OR JAWAB$ = "y" THEN GOTO 20
90 CLOSE #1
100 END

MENGEDIT DATA :
10 CLS
20 OPEN "I", #1, "D:\DATA\SISWA.TXT"
30 OPEN "O", #2, "D:\DATA\BARU.TXT"
40 INPUT "NIM YANG AKAN DIKOREKSI NILAINYA : ", NIMCARI$
50 PRINT
60 SWITCH = 0
70 WHILE NOT EOF(1)
80 INPUT #1, NIM$, NAMA$, NILAI
90 IF NIM$ <> NIMCARI$ THEN GOTO 170
100 PRINT " NOMOR INDUK MAHASISWA : "; NIM$
110 PRINT " NAMA MAHASISWA : "; NAMA$
120 PRINT " NILAI MAHASISWA : "; NILAI
 130 PRINT
 140 INPUT " NILAI YANG BARU : ", B$
 150 SWITCH = 1
 160 IF B$ <> "" THEN NILAI = VAL(B$)
 170 WRITE #2, NIM$, NAMA$, NILAI
180 WEND
190 CLOSE
310 KILL "D:\DATA\SISWA.TXT"
320 NAME "D:\DATA\BARU.TXT" AS "D:\DATA\SISWA.TXT"
330 IF SWITCH = 0 THEN PRINT "MAAF, NIM TERSEBUT TIDAK ADA DALAM FILE!"
340 PRINT
350 INPUT "ADA KOREKSI LAGI [Y/T] : ", KOREKSI$
360 IF KOREKSI$ = "y" OR KOREKSI$ = "Y" THEN GOTO 10
370 END

MENGHAPUS DATA :
10 CLS
20 OPEN "I", #1, "D:\DATA\SISWA.TXT"
30 OPEN "O", #2, "D:\DATA\BARU.TXT"
40 INPUT "NIM YANG AKAN DIKOREKSI NILAINYA : ", NIMCARI$
50 PRINT
60 SWITCH = 0
70 WHILE NOT EOF(1)
    INPUT #1, NIM$, NAMA$, NILAI
    IF NIM$ <> NIMCARI$ THEN GOTO 171
    PRINT " NOMOR INDUK MAHASISWA : "; NIM$
    110 PRINT " NAMA MAHASISWA : "; NAMA$
    120 PRINT " NILAI MAHASISWA : "; NILAI
    PRINT
    140 SWITCH = 1
    INPUT "INGIN DIHAPUS DARI FILE [Y/T] : ", HAPUSOK$
    IF HAPUSOK$ = "Y" OR HAPUSOK$ = "y" THEN GOTO 180
    171 WRITE #2, NIM$, NAMA$, NILAI
180 WEND
190 CLOSE
310 KILL "D:\DATA\SISWA.TXT"
320 NAME "D:\DATA\BARU.TXT" AS "D:\DATA\SISWA.TXT"
330 IF SWITCH <> 1 THEN PRINT "MAAF, NIM TERSEBUT TIDAK ADA DALAM FILE!"
340 PRINT
350 INPUT "ADA RECORD YANG AKAN DIHAPUS LAGI [Y/T] : ", HAPUS$
360 IF HAPUS$ = "y" OR HAPUS$ = "Y" THEN GOTO 10
370 END

CARA NGEPRINT DATA :
10 ' *** PROGRAM CETAK DATA ***
15 CLS
20 OPEN "I", #1, "D:\DATA\SISWA.TXT"
30 IF EOF(1) THEN CLOSE #1: END
40 INPUT #1, NIM$, NAMA$, NILAI
PRINT NIM$, NAMA$, NILAI
60 GOTO 30

MANIPULASI STRING :
DIM Y AS STRING * 31
DIM Z AS LONG

HURUP$ = " AKU INGIN BELAJAR MENCINTAI MU"
GABHUR = LEN(HURUP$)
X = 0

DO
    CLS
    LOCATE 12, 21
    X = X + 1
    IF X = GABHUR + 1 THEN X = 0
    Y = MID$(HURUP$, X) + HURUP$
    COLOR 10
    PRINT Y
    Z = 0
    DO
        Z = Z + 1
    LOOP UNTIL Z = 100000000
LOOP UNTIL CEP$ <> ""
END

Selasa, 02 Desember 2014

MEMBUWAT TEXT BERJALAN PADA QBASIC

YUK KITA BELAJAR MANIFULASI STRING UNTUKTEXT BERJALAN

NIE SOURCE CODE NYA
DIM Y AS STRING * 31
DIM Z AS LONG

HURUP$ = " AKU INGIN BELAJAR MENCINTAI MU"
GABHUR = LEN(HURUP$)
X = 0

DO
    CLS
    LOCATE 12, 21
    X = X + 1
    IF X = GABHUR + 1 THEN X = 0
    Y = MID$(HURUP$, X) + HURUP$
    COLOR 10
    PRINT Y
    Z = 0
    DO
        Z = Z + 1
    LOOP UNTIL Z = 100000000
LOOP UNTIL CEP$ <> ""
END

OKE SEKARANG PENJELASANNYA:
DISINI SAYA MENDEFINISIKAN PROGRAM DALAM 3 VARIABEL X, Y, Z
X = DIGUNAKAN UNTUK MENAMBAH 1 HURUP TIAP SESUDAH MENGHILANG
Y= DIGUNAKAN UNTUK MENJALANKAN HURUP DENGAN CARA MENGHILANGKAN HURUP SATU PERSATU
Z= DIGUNAKAN UNTUK CEPAT ATAU LAMBATNYA HURUP BERJALAN

DIM Y AS STRING * 31 , ANGKA 31 ITU DI DAPAT DARI PERHITUNGAN BANYAK HURUP+SPASI ( " AKU INGIN BELAJAR MENCINTAI MU" )

LOCATE 12, 21 , DIGUNAKAN UNTUK MENENTUKAN POSISI HURUP ITU BERADA

X = X + 1, DIGUNAKAN UNTUK MENAMBAH 1 HURUP SETELAH MENGHILANG JIKA INGIN 2 ATAU 3 ATAU SESUAI DENGAN KEINGINAN KITA MAKA RUBAH ANGKA +1 SESUAI DENGAN YANG KITA INGINKAN

Y = MID$(HURUP$, X) + HURUP$ , UNTUK VARIABEL Y BISA KITA RUBAH-RUBAH
SILAHKAN TENTUKAN MANA YANG KITA SUKAI
Y=LEFT$(HURUP$,X)
Y=LEFT$(HURUP$,X)+HURUP$
Y=RIGHT$(HURUP$,X)
 Y=RIGHT$(HURUP$,X)+HURUP$
Y=MID$(HURUP$,X)
SILAHKAN PILIH SALAH SATU :)

 LOOP UNTIL Z = 100000000, JUMLAH NOL MENENTUKAN CEPAT LAMBATNYA


SEKIAN MOGA BERMANFAAT :)


CARA MEMBUWAT FILE .TXT PADA QBASIC

1.MEMBUWAT FILE .TXT

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR OUTPUT AS #1
150 CLS
PRINT TAB(10); "DATA NILAI MAHASISWA"
PRINT
INPUT "NPM         : ", NPM
INPUT "NAMA        : ", NAMA
INPUT "KELAS       : ", KELAS
INPUT "MATEMATIKA  : ", MATEMATIKA
INPUT "B.INGGRIS   : ", B.ENGGLIS
INPUT "B.INDONESIA : ", B.INDONESIA
INPUT "PEMROGRAMAN : ", PEMROGRAMAN
PRINT

NPMO$ = NPM
NMO$ = NAMA
KLO$ = KELAS
MTKO = MATEMATIKA
BEO = B.ENGGLIS
BIO = B.INDONESIA
PMO = PEMROGRAMAN

WRITE #1, NPMO$, NMO$, KLO$, MTKO, BEO, BIO, PMO

INPUT "MAHASISWA SELANJUTNYA (Y/T) : ", MAHASISWA$
IF MAHASISWA$ = "Y" THEN GOTO 150
CLOSE #1
END

2. MENAMBAHKAN DATA KE FILE YANG TELAH DIBUWAT
 200 DIM NPM1 AS STRING
DIM NAMA1 AS STRING
DIM KELAS1 AS STRING
DIM MATEMATIKA1 AS INTEGER
DIM B.INGGRIS1 AS INTEGER
DIM B.INDONESIA1 AS INTEGER
DIM PEMROGRAMAN1 AS INTEGER

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR APPEND AS #1
250 CLS
PRINT TAB(10); "DATA NILAI MAHASISWA"
PRINT
INPUT "NPM         : ", NPM1
INPUT "NAMA        : ", NAMA1
INPUT "KELAS       : ", KELAS1
INPUT "MATEMATIKA  : ", MATEMATIKA1
INPUT "B.INGGRIS   : ", B.ENGGLIS1
INPUT "B.INDONESIA : ", B.INDONESIA1
INPUT "PEMROGRAMAN : ", PEMROGRAMAN1
PRINT

NPMO$ = NPM1
NMO$ = NAMA1
KLO$ = KELAS1
MTKO = MATEMATIKA1
BEO = B.ENGGLIS1
BIO = B.INDONESIA1
PMO = PEMROGRAMAN1

WRITE #1, NPMO$, NMO$, KLO$, MTKO, BEO, BIO, PMO

INPUT "MAHASISWA SELANJUTNYA (Y/T) : ", MAHASISWA$
IF MAHASISWA$ = "Y" THEN GOTO 250
CLOSE #1
END

3. UNTUK PRINT DATA DARI FILE .TXT
CLS
N = 0: P = 0
PRINT TAB(15); "HASIL UTS MAHASISWA"
PRINT
PRINT "NO", "NPM", "NAMA", "PRESTASI"
OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR INPUT AS #1
30 INPUT #1, NPMO$, NMO$, KLO$, MTKO, BEO, BIO, PMO
IF NPMO$ = "0" THEN CLOSE #1: END
P = (MTKO + BEO + BIO + PMO) / 4
N = N + 1
PRINT N, NPMO$, NMO$, P
GOTO 30

PENJELASAN :
OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR OUTPUT AS #1
1. code diatas digunakan untuk menulis file baru dengan file berbentuk .txt, D:\NOTEPAD\DATA NILAI MAHASISWA itu artinya saya membuwat di partisi D Folder Notepad dan nama filenya Data Nilai Mahasiswa
2. FOR OUTPUT AS #1 saya menggunakan MODE OUTPUT yang artinya output untuk membuwat data baru

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR APPEND AS #1
1. code diatas digunakan untuk melanjutkan memasukan data tanpa menghapus data terdahulu
2.  FOR APPEND AS #1 ini artinya (Append) untuk melanjutkan data

OPEN "D:\NOTEPAD\DATA NILAI MAHASISWA.TXT" FOR INPUT AS #1
1.  FOR INPUT AS #1 , INPUT disini artinya bahwa file .txt telah ada di "D:\NOTEPAD\ sehingga input disini di artikan untuk melihat isi dari data yang telah kita buwat.
2. IF NPMO$ = "0" THEN CLOSE #1: END code ini digunakan untuk mengakhiri proses tanpa ada pesan error. "karena program tersebut digunakan untuk pembelajaran maka saya menggunanan NPM=0 untuk mengakhiri prosesprogramnya.
catatan : pada saat pembuwatan data baru jangan lupa untuk menuliskan npm =0 jika ingin menyamakan program dengan code diatas.

jangan lupa menggunakan WRITE #no_file jika program no. 3 ingin berjalan
karena jika menggunakan PRINT # no_file atau PUT #no_file suka error.

hehe cukup sekian semoga bermanfaat ya :) mohon maaf jika bnyak kesalahan

Sabtu, 29 November 2014

MATERI Q-BASIC

YANG MASIH MAU PROGRAM SOFTFILE Q-BASIC SILAHKAN DOWNLOAD sotffile.rar SELMAT BELAJAR

CARA MEMBUWAT FIBONACI PADA JAVA

NIE CARA MEMBUWAT FIBONACI DENGAN PERULANGAN FOR, WHILE, DO WHILE

SELAMAT MECOBA ^^

MANIFULASI STRING

NIE CARA MEMANIFULASI STRING DI Q-BASIC
ATAU CARA HURUF BERJALAN





SELAMAT MENCOBA

Senin, 10 November 2014

TUGAS ILMU SOSIAL DASAR 2 TENTANG CINTA

CINTA
Cinta merupakan suatu anugerah dari tuhan yang maha kuasa kepada para hambanya, seorang manusia terlahir kedunia tiada lain karena cinta dari ayah dan ibunya. Sehingga bisa diartikan cinta merupakan awal terbentuknya suatu kehidupan.
Setiap orang pasti sudah mengetahui apa itu cinta, contoh dari cinta itu sendiri yaitu :Cintanya sang pencipta kepada para hambanya, Cintanya orang tua yang selalu melindungi anaknya. Cinta merupakan suatu anugerah yang sangat indah , saat kita merasakan cinta seakan setiap hal yang kita pandang terasa indah, seakan diri ini memiliki kekuatan yang sangat kuat untuk dapat menjalani hidup ini lebih bermakana.
Namun apa daya jika cinta yang kita rasakan ternodai, hal ini akan menyebabkan kebalikan dari cinta yang indah, karena jika cinta kita ternodai hidup serasa hamba dan diri ini menjadi semakin melemah serta kita tak mampu memilih arah yang lebih baik pula.
Maka dari sebab itu pada kesempatan kali ini saya akan membahas salah satu bagian dikalangan anak muda yang tak lain yaitu tentang PACARAN. Anak muda atau bisa kita klasifikasikan menjadi anak yang baru menginjak kedewasaan SMP, SMA, ataupun MAHASISWA terkadang salah mendifinisikan tentang cinta. Sehingga timbulah dalam pemikiran mereka tentang Cinta dalam arti pacaran. Jika kita gambarkan awal mulanya seseorang ingin melakukan pacaran ada berbagai tujuan diantara :
1. Ingin memiliki seseorang yang dapat memperhatikan kita
2. Sudah merasa bosannya sendirian sehingga ingin ada orang yang selalu menemani
3. Terbawa suasa karena kalangannya banyak yang pacaran
4. Keinginan merubah seseorang untuk lebih baik
5. Sebagai sarana sharing pembelajar
6. dll
baik apapun tujuan dari pacaran tersebut pacaran tetaplah pacaran. Terkadang saat kita pacaran ,pada awalnya setiap hari yang kita lalui serasa indah , serasa tiap waktu yang kita jalani ada yang menunggu kita, seakan diri ini semakin kuat karena cinta yang kita rasakan kepada lawan jenis sudah merubah semua hal yang biasa menjadi luar biasa. Namun terkadang keindahan tersebut menjadi sebaliknya disaat cinta tersebut menjadi luntur, hal yang biasanya terjadi kita mudah putus asa, waktu seakan berjalan lambat, mudah merasa frustasi, sakit ketika melihat orang yang kita sukai berjalan dengan yang laian bahkan yang sering terjadi dalam berita sehari-hari terjadinya pembunuhan karena pacar yang kita cintai berjalan dengan yang lain atau bunuh diri karena frustasi. Atau bahkan cinta yang diluar batas kewajaranpun menimbulkan melakukan hubungan intim yang tak senonoh sehingga menimbulkan kehamilan dll. Jadi bisa kita simpulkan cinta itu dapat memberikan efek yang positif dan negatif terhadap orang yang terkena virus cinta tersebut. Namun apakah kita tahu , apa itu cinta yang lebih baik? atau cinta yang hakiki? cinta yang hakiki yaitu cinta yang diridhai oleh Allah SWT, dimana rasa cinta tersebut akan selalu Allah jaga sehingga terjalinlah sesuatu yang harmonis dalam kehidupan kita. Lalu bagaimanakah cara menjaga cinta yang hakiki tersebut? jawabannya yaitu dengan mendekatkan diri kita kepada Allah SWT menjauhi hal -hal yang tidak ia sukai dan menjalankan setiap hal yang ia sukai, contohnya menjauhkan diri dari pacaran sehingga tidak terjalin zinah -zinah yang akan mengotori arti cinta tersebut. Kemudian apa manfaat dari cinta yang hakiki tersebut? manfaat dari cinta yang hakiki tersebut yaitu jalinan sosial yang kita lakukan akan terasa hidup, jalinan kearah vertikal atau bisa disebut jalinan Rabb dengan hambanya akan sangat kuat sehingga walawpun kita sendirian baik didalam kesendirian ataupun dalam keramaian kita serasa hidup karena Allah selalu bersama kita, Jalinan kearah Hozrizontal yaitu jalinan antara ciptaan -ciptaan Allah yang tebagi menjadi dua yaitu jalinan manusia terhadap manusia dan jalinan manusia terdahap hewan dan tumbuhan dimana jalinan manusia terhadap manusia jika kita memiliki cinta yang hakiki atau cinta yang diridhai niscaya kita akan dicintai oleh banyak orang terutama orang - orang terdekat kita baik Ibu atau Ayah sehingga memudahkan kita untuk dapat mencapai sesuatu. kemudian terhadap hewan dan tumbuhan maka kita akan lebih menyayangi mereka tidak membuang makanan dan terkadang selalu ingin memelihara pepohonan dan terhadap hewan serasa mereka selalu bersama dan menemani kita.
Jadi dapat kita ambil dari cerita diatas, apakah kita hanya ingin merasakan cinta sesaat atau cinta yang diridhai oleh sang pencipta, jawabannya hanya kita yang tau namun jika kita memilih cinta yang diridhai niscaya masa depan atau cita- cita kita yang kita ingin kan akan mudah terwujud beda halnya dengan cinta sesaat atau cinta asmara pacaran. Maka oleh sebab itu bersabarlah karena dengan sabar dan memelihara cinta kita yang senantiasa menjadi cinta yang hakiki dan dikemudian hari kita bertemu dengan jodoh kita niscaya itu akan lebih indah dibandingkan kita melakukan pacaran yang diakhirnya  hanya menimbulkan rasa sakit dan penyesalan.
Akhir kata semoga Allah selalu menjaga cinta kita menjadi cinta yang hakiki, cinta yang diridhai oleh Allah SWT.