all about Me

(¯`v´¯) ♥♥°˜¨•☆
`•.¸.•´ ♥♥
¸.•´... ¸.•´¨) ¸.•*¨)♥*☀* ♥*
♥.•*´¨`*•. (`'•.¸♥ ¸.•'´) .•*´¨`*•.♥ ♥.•*´¨`*•. (`'•.¸♥ ¸.•'´) .•*´¨`*•.♥

(⁀‵⁀) ..•❤•.¸✿ ✿. ❀ Blog aku ini berisi semua tentang aku ( all about me) , tugas kuliah aku, dan tulisan2 lainNya..
`⋎´✫¸.•°*”˜˜”*°•   SOO.. selamat membaca & semoga bermanfaat buat kalian yang membaca   :) ♥❀
..✫¸.•°*”˜˜”*°•. ♥
☻/ღ˚ •。* ˚✰˚ ˛★* 。 °♥✿.❀
/▌*˛˚ღ •˚ ✰* ★
/ \ ˚. .❀¸.•❤•.❀ ..•❤•.¸✿ ✿¸.•❤.

◦☀°•˚◦♥◦˚•°◦✿¸.•❤•.❀ ✿¸.•❤•❤•.❀❀.•❤•.¸✿

PROGRAM MULTI LIST MENGGUNAKAN PASCAL

• Listing Program

Program Multilist;
uses crt;
type rdt = record
    npm : array [1..10] of string [8];
    nirm : array [1..10] of string [6];
    nama : array [1..10] of string [15];
    alamat : array [1..10] of string [15];
    end;
type rnirm = record
    nirm2 : array [1..10] of string [6];
    tglm : array [1..10] of string [11];
    tgla : array [1..10] of string [11];
    end;

var
fdt : array[1..10] of rdt;
fnirm : array[1..10] of rnirm;
file1 : text;
file2 : text;
pil : char;
i : integer;

label return;

procedure inputdata;
var j,k : integer;
begin
clrscr;
assign (file1, 'fd.txt');
rewrite (file1);
writeln;
writeln ('   >>File Biodata<<');
writeln ('  -------------------');
writeln (file1, ' >>File Biodata<<');writeln (file1);
writeln;
write ('   Banyak Data : '); readln(i);writeln (file1,'   Banyak Data : ',i);
for j := 1 to i do

begin
with fdt[j]do
begin
writeln(' '); writeln(file1);
writeln(' Data ke: ',j); writeln(file1,' Data ke: ',j);
write(' NPM    : '); readln(npm[j]);
writeln(file1, ' NPM    : ',npm[j]);
write(' NIRM   : '); readln(nirm[j]);
writeln(file1, ' NIRM   : ',nirm[j]);
write(' Nama   : '); readln(nama[j]);
writeln(file1, ' Nama   : ',nama[j]);
write(' Alamat : '); readln(alamat[j]);
writeln(file1, ' Alamat : ',alamat[j]);
end;
end;
close(file1);

clrscr;
assign(file2, 'fn.txt');
rewrite(file2);
writeln;
writeln('   >>File NIRM<<');
writeln('  ---------------');
writeln;
writeln(file2, ' >>File NIRM<<');
writeln(file2);
writeln('   Banyak Data : ',i); writeln(file2,'   Banyak Data : ',i);
for k:= 1 to i do
begin
with fnirm[k] do
begin
writeln(' '); writeln(file2);
writeln(' Data ke: ',k); writeln(file2,' Data ke: ',k);
write(' NIRM      : '); readln(nirm2[k]); writeln(file2,' NIRM : ',nirm2[k]);
write(' TGL-MASUK : '); readln(tglm[k]); writeln(file2,' TGL-MASUK : ',tglm[k]);
write(' TGL-AKHIR : '); readln(tgla[k]); writeln(file2,' TGL-AKHIR : ',tgla[k]);
end;
end;
close (file2);
end;

Procedure Garis;
var a : integer;
begin
for a:= 1 to 76 do
write('~');
end;

Procedure FileNirm;
var j,k : integer;
begin
clrscr;
for j := 1 to i do
begin
for k := 1 to i do
begin
with fdt[j]do
begin
with fnirm[k]do
begin
if nirm[j]=nirm[k] then
begin
gotoxy (10,6+j); write(tglm[j]);
gotoxy (22,6+j); write(tgla[j]);
end else
end;
end;
gotoxy (12,2); writeln('File NIRM');
gotoxy (2,4); writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
gotoxy (2,5); writeln('| NIRM | TGL-MASUK | TGL-AKHIR |');
gotoxy (2,6); writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
gotoxy (2,6+j); write('|');
gotoxy (3,6+j); write(nirm[j]);
gotoxy (9,6+j); write('|');
gotoxy (21,6+j); write('|');
gotoxy (33,6+j); write('|');
end;
end;
end;
gotoxy(2,7+j); writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
readln;
end;

Procedure FileBiodata;
var j,k : integer;
begin
clrscr;
for j := 1 to i do
begin
for k := 1 to i do
begin
with fdt[j]do
begin
with fnirm[k]do
begin
if nirm[j]=nirm[k] then
begin

end;
end;
gotoxy (19,2); writeln('File Biodata');
gotoxy (2,4); writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
gotoxy (2,5); writeln ('|   NPM  | NIRM |      NAMA     |    ALAMAT     |');
gotoxy (2,6); writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
gotoxy (2,6+j); write('|');
gotoxy (3,6+j); write(npm[j]);
gotoxy (11,6+j); write('|');
gotoxy (12,6+j); write(nirm[j]);
gotoxy (18,6+j); write('|');
gotoxy (19,6+j); write(nama[j]);
gotoxy (34,6+j); write('|');
gotoxy (35,6+j); write(alamat[j]);
gotoxy (50,6+j); write('|');
end;
end;
end;
gotoxy(2,7+j);writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
readln;
end;

Procedure DaftarMahasiswa;
var j,k : integer;
begin
clrscr;
for j := 1 to i do
begin
for k := 1 to i do
begin
with fdt[j]do
begin
with fnirm[k]do
begin
if nirm[j]=nirm[k] then
begin
gotoxy (54,6+j); write(tglm[j]);
gotoxy (66,6+j); write(tgla[j]);
end else
end;
end;
gotoxy (32,2); writeln('Data Mahasiswa');
gotoxy (2,4); garis;
gotoxy (2,5); writeln('|NO|   NPM  | NIRM |      NAMA     |    ALAMAT     | TGL-MASUK | TGL-AKHIR |');
gotoxy (2,6); garis;
gotoxy (2,6+j); write('|');
gotoxy (3,6+j); write(j:2);
gotoxy (5,6+j); write('|');
gotoxy (6,6+j); write(npm[j]);
gotoxy (14,6+j); write('|');
gotoxy (16,6+j); write(nirm[j]);
gotoxy (21,6+j); write('|');
gotoxy (22,6+j); write(nama[j]);
gotoxy (37,6+j); write('|');
gotoxy (38,6+j); write(alamat[j]);
gotoxy (53,6+j); write('|');
gotoxy (65,6+j); write('|');
gotoxy (77,6+j); write('|');
end;
end;
end;
gotoxy(2,7+j); garis;
readln;
end;

begin
repeat
return:
clrscr;
gotoxy (10,3); writeln('Pilihan');
gotoxy (5,4); writeln('===================');
gotoxy (5,6); writeln('1. Input Data');
gotoxy (5,7); writeln('2. File Biodata');
gotoxy (5,8); writeln('3. File NIRM');
gotoxy (5,9); writeln('4. Daftar Mahasiswa');
gotoxy (5,10); writeln('5. exit');
gotoxy (5,12); writeln('Masukan Pilihan : '); readln(pil);
if not ( pil in ['1'..'5']) then
begin
writeln (char (13));
gotoxy (7,13); writeln('-Ulangi Pilihan Anda-');
readln;
goto return;
end;

case pil of
'1' : inputdata;
'2' : FileBiodata;
'3' : FileNirm;
'4' : DaftarMahasiswa;
end;
until pil = '5';
end.

OutputNya sebagai berikut :

*Mata kuliah Struktur & Organisasi Data

Menambahkan WIDGET agar blog lebih menarik

Teman-teman semua, jika kalian buka Blog saya dan ingin menambahkan WIDGET wanita muslimah yang berada di sebelah kiri blog saya, caranya gampang. Mau tau caranya??

Ikuti langkah berikut :

• Pertama klik Widget (gambar wanita berkerudung pink yang ada di sebelah kiri)
• Lalu copy Link yang tersedia pada kotak
• Setelah itu, masuk ke blog kamu, lalu pilih Desain > tata letak
• Dan pilih tambahkan di gedget
• Kemudian pilih HTML/JAVAscript, lalu paste Link yang tadi kamu copy
• Lalu pilih simpan
• Maka Widget tersebut akan muncul di blog kamu.

Mudah kan caranya..

SELAMAT MENCOBA YAA...

Program Sequential menggunakan Cobol

Program Sequential menggunakan cobol ;

IDENTIFICATION DIVISION.

PROGRAM-ID. SEQUEN1.
AUTHOR.
SECURITY. PROGRAM MEMASUKKAN DATA SEQUENSIAL.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PENJUALAN ASSIGN TO DISK.
ORGANIZATION IS SEQUENTIAL.
FILE STATUS IS STATUS-SALAH.
DATA DIVISION.
FILE SECTION.
FD PENJUALAN
LABEL RECORD IS STANDARD.
VALUE OF FILE-ID ID JUAL.DAT.
DATA RECORD IS RECORD-RELASI.
01 DATA-PENJUALAN.
02 NOMER-FAKTUR PIC X(12).
02 NAMA-LANGGANAN PIC X(25).
02 KODE-JUAL PIC A.
88 TUNAI VALUE IS ‘T’.
88 KREDIT VALUE IS ‘K’.
02 NILAI-JUAL PIC 9(6).
WORKING-STORAGE SECTION.
77 STATUS-SALAH PIC XX.
01 SUDAH-BENAR PIC X.
88 BENAR VALUE ‘Y’, ‘y’.
88 BELUM VALUE ‘T’, ‘t’.
01 MASUKKAN-LAGI-TIDAK PIC X.
88 LAGI VALUE ‘Y’,’y’.
88 TIDAK VALUE ‘T’,’t’.
SCREEN SECTION
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 LAYAR-DATA.
02 LINE 4 COLUMN 5 ‘NOMOR FAKTUR :’.
02 COLUMN PLUS 1 PIC X(22) TO NOMER-FAKTUR REQUIRED.
02 LINE 6 COLUMN 5 ‘NAMA LANGGANAN :’.
COLUMN PLUS 1 PIC X(25) TO NAMA-LANGGANAN.
02 LINE 8 COLUMN 5 ‘KODE TRANSAKSI :’.
02 COLUMN PLUS 1 PIC A TO KODE-JUAL.
02 LINE 10 COLUMN 5 ‘NILAI PENJUALAN :’.
02 COLUMN PLUS 1 PIC 9(6) TO NILAI-JUAL.
PROCEDURE DIVISION.
RYTIN-UTAMA SECTION.
BIKA-FILE.
OPEN OUTPUT PENJUALAN.
MULAI.
MOVE SPACE TO SUDAH-BENAR
PERFORM MASUKKAN-DATA UNTIL BENAR
PERFORM REKAM-DATA
PERFORM ADA-LAGI-TIDAK.
SELEKSI-MASUKKAN-LAGI-TIDAK.
IF LAGI
GO TO MULAI.
SELESAI.
CLOSE PENUALAN
STOP RUN.
RUTIN-BAGIAN SECTION.
MASUKKAN-DATA.
DISPLAY HAPUS-LAYAR
DISPLAY LAYAR-DATA
ACCEPT LAYA-DATA.
DISPLAY (18,5) ‘SUDAH BENAR (Y/T)?’.
ACCEPT ( , ) SUDAH BENAR.
REKAM-DATA.
MOVE ‘ ‘ TO STATUS-SALAH
WRITE DATA-PENJUALAN
PERFORM SELEKSI REKAMAN.
ADA-LAGI-TIDAK.
DISPLAY (20,5) ‘ADA LAGI DATA LAINNYA (Y/T)?’
ACCEPT ( , ) MASUKKAN-LAGI-TIDAK.
SELEKSI-REKAMAN.
IF STATUS-SALAH = ‘34’
DISPLAY (18,5) ‘TIDAK TEREKAM, DISK PENUH’.
IF STATUS-SALAH = ‘91’
DISPLAY (18,6) ‘STURKTUR FILE RUSAK’.

MEMBUAT PROGRAM FILE MAHASISWA DENGAN PASCAL

Berikut merupakan program FILE MAHASISWA dengan PASCAL :

uses crt;

const

garis ='======================================================';

type Mahasiswa = record

  nama: string[25];

  npm: string[8];

  kelas: string[5];

  end;

type

  tipelarik= string[25];

  larikurut=array[1..100] of tipelarik;

var

file_mhs : file of Mahasiswa;

filemhs : Mahasiswa;

i,j, jumlah_data : integer;

lagi : char;

temp: string[5];

pil : integer;

gabung : larikurut;

gabung1 : larikurut;

procedure input;

begin

assign (file_mhs, 'Mhs.txt') ;

rewrite (file_mhs);

i := 0;

repeat

inc(i);

clrscr;

writeln('Mengisi data pada file "Mhs.txt"....');

writeln('------------------------------------');

writeln('Mengisi Data ke-', i);

writeln;

with filemhs do

begin

write('Nama Mahasiswa     : ');Readln(nama);

write('NPM Mahasiswa      : '); readln(npm);

write('Kelas              : '); readln(kelas);

end;

write(file_mhs,filemhs);

writeln;

write('Akan Mengisi Lagi [Y/T] : '); readln(lagi);

until Not (lagi In ['Y','y']);

close(file_mhs);

end;

procedure sortir(x:larikurut; bawah,atas :word);

var i,j :word;

sementara :tipelarik;

begin

                while atas>bawah do

                begin

                i:=bawah;

                j:=atas;

                sementara:=x[bawah];

                while i<j do

                begin

                    WHILE x[j]>sementara Do

             J:=J-1;

                     x[i]:=x[j];

             while(i<j) and (x[i]<=sementara) do

             i:=i+1;

                     x[j]:=x[i];

                     end;

                     x[i]:=sementara;

        sortir(x,bawah,i-1);

        bawah:=i+1;

        end;

        end;

procedure cetak;

begin

assign(file_mhs,'Mhs.txt');

reset(file_mhs);

clrscr;

jumlah_data := FileSize (file_mhs);

writeln(' ':20,'Daftar Absensi Mahasiswa Gunadarma');

writeln(' ':20,'==================================');

writeln; writeln (garis);

writeln('| no |      Nama Mahasiswa        | NPM      | Kelas |');

writeln (garis);

for i:= 1 to jumlah_data do

begin

read(file_mhs,filemhs);

gotoxy (1,wherey); write('| ',i:2,' |');

with filemhs Do

begin

gotoxy (8,wherey); writeln ( filemhs.nama);

gotoxy (35,wherey); write('| ', filemhs.npm);

gotoxy(46,wherey); write('| ',filemhs.kelas,'    |');

end;

writeln;

end;

writeln(garis);

readln;

close(file_mhs);

end;

procedure tampilsortir;

label empat;

var

gabung,gabung1,name,npms,class:larikurut;

i,J:integer;temp:STRING[5];

begin

clrscr;

assign(file_mhs,'Mhs.txt');

reset(file_mhs);

for i := 1 to filesize(file_mhs) do

begin

seek(file_mhs, i-1);

read (file_mhs,filemhs);

name[i] := filemhs.nama;

class[i] := filemhs.kelas;

npms[i] := filemhs.npm;

gabung[i] := concat(name[i],npms[i],class[i]);

gabung1[i] := concat(class[i], name[i], npms[i]);

end;

j := 2;

sortir(gabung1,1,filesize(file_mhs));

write('kelas : '); readln (temp);

if length(temp) <> 5 then

begin

clrscr;

gotoxy(28,100);

writeln('Kelas tidak ditemukan<ulangi[y/t]>');

clrscr;

writeln('Kelas :', temp);

writeln('daftar mahasiswa');

goto empat;

end;

clrscr;

empat:

writeln (garis);

writeln ('| no |      Nama Mahasiswa        | NPM      | Kelas |');

writeln (garis);

for i:= 1 to filesize(file_mhs) do

begin

if (name[i]<> ' ') then begin

writeln('| ', i:2,'| ', copy(gabung[i],18,8),'    ', copy(gabung[i],0,5),'   ', copy(gabung[i],6,12)); end;

end;

j:=I+10;

end;

procedure tambahdata;

begin

     assign(file_mhs,'Mhs.txt');

     reset(file_mhs);

                 if IOresult <> 0 then rewrite(file_mhs);

                 seek(file_mhs,filesize(file_mhs));

lagi := 'Y';

while upcase(lagi)='Y' do

begin

     clrscr;

     with filemhs do

     begin

     gotoxy(5,5);write('-----------------------------------------------------');

     gotoxy(5,6);write('|nama mahasiswa    :                               |');

     gotoxy(5,7);write('|npm mahasiswa      :                               |');

     gotoxy(5,8);write('|kelas mahasiswa     :                               |');

     gotoxy(5,9);write('-----------------------------------------------------');

     gotoxy(27,6);readln(kelas);

     gotoxy(27,7);readln(npm);

     gotoxy(27,8);readln(nama);

     end;

     write(file_mhs, filemhs);

     gotoxy(5,15);write('anda ingin memasukkan data lagi(Y/T)?');readln(lagi);

     end;

     close(file_mhs);

   end;

begin

repeat

clrscr;

writeln ('    Menu    ');

writeln ('1. Input data');

writeln ('2. Sort data');

writeln ('3. output data');

writeln ('4. Update data');

writeln ('5. keluar');

write ('Masukkan pilihan : '); readln(pil);

case pil of

1 : input;

2 : tampilsortir;

3 : cetak;

4 : tambahdata

end;

until pil = 5;

end.

output :

PENGERTIAN SEARCH ENGINE

Pengertian Search Engine

Mesin pencari web atau yang lebih dikenal dengan istilah web search engine merupakan program komputer yang dirancang untuk mencari informasi yang tersedia didalam dunia maya. Dengan cara menyimpan hampir semua informasi halaman web, yang diambil langsung dari www. Halaman-halaman ini diambil secara otomatis, halaman web ini disimpan dalam sebuah database indeks untuk digunakan dalam pencarian selanjutnya.

10 syntax pada search engine :

• [ intitle : ]   : Syntax ini memungkinkan kita search dari judul halaman web.
• [ intext : ]   : Syntax ini dapat kita gunakan untuk membantu kita melakukan pencarian terhadap kata-kata tertentu sesuai dengan keywoord pada website yang dituju
• [ link : ]        : Syntax ini digunakan untuk menampilkan halaman-halaman web yang memiliki link kesitus tertentu.
• [ inurl : ]      : Syntax ini membantu kita melakukan search berdasarkan url.
• [ site : ]         : Syntax ini digunakan untuk membatasi pencarian pada site ataupun domain tertentu saja.
• [ filetype : ] : Syntax ini digunakan untuk pencarian file dengan ekstensi tertentu

* [asterik] :Untuk mencari semua hurup yang mendukung dalam pencarian sebuah kalimat

* [related] : Ini berguna untuk mencari halaman yang mempunyai kesamaan atau mempunyai hubungan dengan situs tersebut.

* [define] : Kalau yang ini google akan mencari suatu definisi dari kata

* [Cache] : Google akan menampilkan versi sebuah web pada saat membukannya.

10 PETANDA DIA JODOH KITA

Jodoh adalah perkara yang sudah ditetapkan oleh Allah yang maha Esa. Tetapi bagaimana kita mengetahui dia memang ditakdirkan untuk kita? Allah SWT mengaruniakan manusia telinga untuk mendengar, mata untuk melihat dan akal untuk berfikir. Jadi gunakan sebaik-baiknya bagi mengungkapkan rahasia cinta yang ditakdirkan. Dua manusia yang rasa mereka dapat hidup bersama dan memang dijodohkan pasti memiliki ikatan emosi , spiritual dan fizikal antara keduanya. Apabila bersama, masing-masing dapat merasai kemanisan cinta dan saling memerlukan antara satu sama lain. Lalu gerak hati mengatakan, dialah insan yang ditakdirkan untuk bersama. Benarkah ia seperti yang diperkatakan?

Berikut adalah 10 petanda yang menunjukkan dia adalah jodoh kita :

1. Bersahaja

Kekasih kita itu bersikap bersahaja dan tidak berlakon. Cuba perhatikan cara dia berpakaian, cara percakapan, cara ketawa serta cara makan dan minum. Adakah ia spontan dan tidak dikawal ataupun kelihatan pelik. Kalau ia nampak kurang selesa dengan gayanya, sah dia sedang berlakon. Kadang-kadang, kita dapat mengesan yang dia sedang berlakon. Tetapi, apabila dia tampil bersahaja dan tidak dibuat-buat, maka dia adalah calon hidup kita yang sesuai. Jika tidak, dia mungkin bukan jodoh kita.

2. Senang Bersama

Walaupun kita selalu bersamanya, tidak ada sedikit pun perasaan bosan, jemu ataupun tertekan pada diri kita. Semakin hari semakin sayang kepadanya. Kita sentiasa tenang, gembira dan dia menjadi pengubat kedukaan kita. Dia juga merasainya. Rasa senang sekali apabila bersama. Apabila berjauhan, terasa sedikit tekanan dan rasa ingin berjumpa dengannya. Tidak kira siang ataupun malam, ketiadaannya terasa sedikit kehilangan.

3. Terima Kita Seadanya

Apapun kisah silam yang pernah kita lakukan, dia tidak ambil peduli. Mungkin dia tahu perpisahan dengan bekas kekasihnya sebelum ini kita yang mulakan. Dia juga tidak mengambil kisah siapa kita sebelum ini. Yang penting, siapa kita sekarang. Biarpun dia tahu yang kita pernah mempunyai kekasih sebelumnya, dia tidak ambil hati langsung. Yang dia tahu, kita adalah miliknya kini. Dia juga sedia berkongsi kisah silamnya. Tidak perlu menyimpan rahsia apabila dia sudah bersedia menjadi pasangan hidup kita.

4. Sentiasa Jujur

Dia tidak kisah apa yang kita lakukan asalkan tidak menyalahi hukum hakam agama. Sikap jujur yang dipamerkan menarik hati kita. Kejujuran bukan perkara yang boleh dilakonkan. Kita dapat mengesyaki sesuatu apabila dia menipu kita. Selagi kejujuran bertakhta di hatinya, kebahagiaan menjadi milik kita. Apabila berjauhan, kejujuran menjadi faktor paling penting bagi suatu hubungan. Apabila dia tidak jujur, sukar baginya mengelak daripada berlaku curang kepada kita. Apabila dia jujur, semakin hangat lagi hubungan cinta kita. Kejujuran yang disulami dengan kesetiaan membuahkan percintaan yang sejati. Jadi, dialah sebaik-baik pilihan.

5. Percaya Mempercayai

Setiap orang mempunyai rahsia tersendiri. Adakalanya rahsia ini perlu dikongsi supaya dapat mengurangkan beban yang ditanggung. Apabila kita mempunyai rahsia dan ingin memberitahu kekasih, adakah rahsia kita selamat di tangannya? Bagi mereka yang berjodoh, sifat saling percaya mempercayai antara satu sama lain timbul dari dalam hati nurani mereka. Mereka rasa selamat apabila memberitahu rahsia-rahsia kepada kekasihnya berbanding rakan-rakan yang lain. Satu lagi, kita tidak berahsia apa pun kepadanya dan kita pasti rahsia kita selamat. Bukti cinta sejati adalah melalui kepercayaan dan kejujuran. Bahagialah individu yang memperoleh kedua-duanya.

6. Senang Bekerjasama

Bagi kita yang inginkan hubungan cinta berjaya dan kekal dalam jangka masa yang panjang, kita dan dia perlu saling bekerjasama melalui hidup ini. Kita dan kekasih perlu memberi kerjasama melakukan suatu perkara sama ada perkara remeh ataupun sukar. Segala kerja yang dilakukan perlulah ikhlas bagi membantu pasangan dan meringankan tugas masing-masing. Perkara paling penting, kita dan dia dapat melalui semua ini dengan melakukannya bersama-sama. Kita dan dia juga dapat melakukan semuanya tanpa memerlukan orang lain dan kita senang melakukannya bersama. Ini penting kerana ia mempengaruhi kehidupan kita pada masa hadapan. Jika tiada kerjasama, sukar bagi kita hidup bersamanya. Ini kerana, kita yang memikul beban tanggungjawab seratus peratus. Bukankah ini menyusahkan?

7. Memahami Diri Kita

Bagi pasangan yang berjodoh, dia mestilah memahami diri pasangannya. Semasa kita sakit dia bawa ke klinik. Semasa kita berduka, dia menjadi penghibur. Apabila kita mengalami kesusahan, dia menjadi pembantu. Di kala kita sedang berleter, dia menjadi pendengar. Dia selalu bersama kita dalam sebarang situasi. Tidak kira kita sedang gembira ataupun berduka, dia sentiasa ada untuk kita. Dia juga bersedia mengalami pasang surut dalam percintaan. Kata orang, "lidah sendiri lagikan tergigit", inikan pula suami isteri'. Pepatah ini juga sesuai bagi pasangan kekasih. Apabila dia sentiasa bersama kita melalui hidup ini di kala suka dan duka, di saat senang dan susah, dialah calon yang sesuai menjadi pasangan hidup kita.

8. Tampilkan Kelemahan

Tiada siapa yang sempurna di dunia ini. Tipulah jika ada orang yang mengaku dia insan yang sempurna daripada segala sudut. Pasti di kalangan kita memiliki kelemahan dan keburukan tertentu. Bagi dia yang bersedia menjadi teman hidup kita, dia tidak terlalu menyimpan rahsia kelemahannya dan bersedia memberitahu kita. Sudah tentu bukan senang untuk memberitahu dan mengakui kelemahan di hadapan kekasihnya. Malah, dia tidak segan mempamerkan keburukannya kepada kita. Misalnya, apabila dia bangun tidur ataupun sakit dan tidak mandi dua hari, dia tidak menghalang kita daripada melawatnya.Apabila kita dan dia saling menerima kelemahan dan sifat buruk masing-masing, memang ditakdirkan kita hidup bersamanya.

9. Kata Hati

Dengarlah kata hati. Kadangkala, manusia dikurniakan Allah deria keenam yang dapat mengetahui dan memahami perasaan pasangannya. Dengan deria batin ini juga kita dapat saling tahu perasaan masing-masing. Kita dan dia juga dapat membaca fikiran antara satu sama lain dan dapat menduga reaksi dan tindakbalas pada situasi tertentu. Apabila kita yakin dengan pilihan hidup kita, tanyalah sekali lagi. Adakah dia ditakdirkan untuk kita? Dengarlah kata hati dan buatlah pilihan. Serahlah segalanya pada ketentuan yang maha berkuasa.

10. Solat Istikharah dan Tawakkal

Jodoh dan pertemuan semuanya di tangan Allah SWT. Manusia hanya perancang di pentas dunia ini dan skripnya ditulis oleh yang maha esa. Adakalanya, dalam memainkan peranan sebagai pelakon, diberi petunjuk melalui mimpi atau gerak hati. Mimpi memang mainan tidur, tetapi apabila kita melakukan sembahyang Istikharah dan memohon supaya Allah memberikan petunjuk, insya-Allah dengan izinnya kita mendapat petunjukNya. Jika dia pilihan kita, buatlah keputusan sebaiknya. Jika tidak, tolaklah dia dengan baik. Semua yang kita lakukan ini adalah bagi mendapatkan kebahagiaan hidup di dunia. Setelah semuanya diusahakan, berserahlah kepadaNya dan terus berdoa. Ingatlah, nikmat di dunia ini hanya sementara.Nikmat di akhirat adalah kekal selamanya.