PENGERTIAN KOMUNIKASI ANTARA PRIBADI (KAP) DAN FAKTOR-FAKTOR YANG MEMPENGARUHI KAP
Pengertian KAP Secara umum komunikasi antar pribadi (KAP) dapat diartikan sebagai suatu proses pertukaran makna antara orang-orang yang saling berkomunikasi. Komunikasi terjadi secara tatap muka (face to face) antara dua individu. . Dalam pengertian tersebut mengandung 3 aspek: - Pengertian proses, yaitu mengacu pada perubahan dan tindakan yang berlangsung terus menerus. - KAP merupakan suatu pertukaran, yaitu tindakan menyampaikan dan menerima pesan secara timbal balik. - Mengandung makna, yaitu sesuatu yang dipertukarkan dalam proses tersebut, adalah kesamaan pemahaman diantara orang-orang yang berkomunikasi terhadap pesan-pesan yang digunakan dalam proses komunikasi. Dari ketiga aspek tersebut maka KAP menurut Judy C. Pearson memiliki karakteristik sebagai berikut: 1. KAP dimulai dengan diri pribadi (self). Berbagai persepsi komunikasi yang menyangkut pemaknaan berpusat pada diri kita, artinya dipengaruhi oleh pengalaman dan pengamatan kita. 2. KAP bersifat transaksional. Anggapan ini mengacu pada pihak-pihak yang berkomunikasi secara serempak dan bersifat sejajar, menyampaikan dan menerima pesan. 3. KAP mencakup aspek-aspek isi pesan dan hubungan antarpribadi. Artinya isi pesan dipengaruhi oleh hubungan antar pihak yang berkomunikasi. 4. Komunikasi antarpribadi mensyaratkan kedekatan fisik antar pihak yang berkomunikasi. 5. KAP melibatkan pihak-pihak yang saling bergantung satu sama lainnya dalam proses komunikasi. 6. KAP tidak dapat diubah maupun diulang. Jika kita salah mengucapkan sesuatu pada pasangan maka tidak dapat diubah. Bisa memaafkan tapi tidak bisa melupakan atau menghapus yang sudah dikatakan. KAP berlangsung antar dua individu, karenanya pemahaman komunikasi dan hubungan antar pribadi menempatkan pemahaman mengenai komunikasi dalam proses psikologis. Setiap individu dalam tindakan komunikasi memiliki pemahaman dan makna pribadi terhadap setiap hubungan dimana dia terlibat di dalamnya. Hal terpenting dari aspek psikologis dalam komunikasi adalah asumsi bahwa diri pribadi individu terletak dalam diri individu dan tidak mungkin diamati secara langsung.
Organisasi adalah kesatuan (entity) sosial yang di koordinasikan secara sadar, dengan sebuah batasan yang relatif dapat diidentifikasi, yang bekerja secara terus menerus untuk mencapai tujuan bersama.
Definisi Tersebut mengandung arti:
1. Dikoordinasikan secara sadar secara manajemen. 2. Kesatuan sosial terdiri dari orang –orang yang berinteraksi satu sama lain. 3. Batasan yang relatif dapat diidentifikasi batasan dapat berubah dalam kurun waktu tertentu. 4. Bekerja relatif terus menerus keterikatan terus menerus tapi tidak seumur hidup. 5. Tujuan bersama tidak dapat dicapai secara individu.
Organisasi menurut James D. Money Organisasi adalah Bentuk setiap perserikatan manusia untuk pencapaian suatu tujuan bersama.
Jika kita mendefinisikan record sama seperti pada suatu table (seperti contoh diatas), maka penulisannya dapat disederhanakan menjadi :
record_name RECORD LIKE table_name.*
Define
rec_mk RECORD LIKE t_mk.*
main
………………….
end main
PERINTAH SELECT DENGAN CURSOR
·Mendeklarasikan cursor untuk mewakili perintah SELECT
·Mendapatkan row dengan FOREACH
·Mendapatkan row dengan OPEN , FETCH dan CLOSE
Mendeklarasikan cursor untuk select
sintaks :DECLARE nama_cursor [scroll] CURSOR FOR
SELECT statement
DECLARE k1 CURSOR FOR
Select * from t_master
Where kelas[1,2] = ‘4K’
DECLARE kur CURSOR FOR
Select npm,nama from t_master
Where nama[1]=’R’
Mendapatkan row dengan FOREACH
Statement ‘foreach’ menyebabkan urut-urutan statement dikerjakan satu persatu.
sintaks :FOREACH nama_kursor [INTO var]
………statement………
……………………………….
[CONTINUE FOREACH]
…………………………….
[EXIT FOREACH]
………………………
END FOREACH
·Nama kursor di FOREACH harus sudah pernah didefinisikan pada statement DECLARE
·INTO digunakan untuk menampung hasil query setiap row
·CONTINUE FOREACH atau EXIT FOREACH digunakan untuk interupsi pada kondisi tertentu
·Diakhiri dengan END FOREACH
# contoh penggunaan FOREACH
database filkom
main
define rec_mk RECORD LIKE t_matakuliah.*
declare k1 cursor for
select * from t_matakuliah where kd_mk[1,2]=’DU”
foreach k1 INTO rec_mk.*
display ‘Kode Matakuliah: ‘,rec_mk.kd_mk
display ‘Nama Matakuliah: ‘,rec_mk.nm_mk
display ‘Sks: ‘,rec_mk.sks
end foreach
end main
CONTINUE FOREACH
Statement IF dapat digunakan bersama statement CONTINUE FOREACH untuk menghentikan urutan statement yang ada pada FOREACH loop, dan melanjutkan pembacaan baris berikutnya.
#contoh penggunaan statement ‘continue foreach’
database filkom
main
define rec_mhs RECORD LIKE t_master.*
declare k2 cursor for
select * from t_master
foreach k2 into rec_mhs.*
if rec_mhs.kota = ‘Jakarta’ then
continue foreach
end if
display ‘N P M: ‘,rec_mhs.npm
display ‘Nama: ‘,rec_mhs.nama
display ‘Kota: ‘,rec_mhs.kota
display ‘‘
end foreach
end main
EXIT FOREACH
Statement IF dapat digunakan bersama statement EXIT FOREACH untuk menghentikan urutan statement yang ada pada ‘foreach loop’ , serta keluar dari ‘foreach loop’
# contoh penggunaan ‘exit foreach’
database filkom
main
define rec_mhs RECORD LIKE t_master.*,jw char(1)
declare k3 cursor for
select * from t_master
foreach k3 into rec_mhs.*
display ‘N P M: ‘,rec_mhs.npm
display ‘Nama: ‘,rec_mhs.nama
display ‘Alamat: ‘,rec_mhs.alamat
prompt ‘Ingin lihat data berikutnya ?[y/t] : ‘ for jw
if jw matches’[Tt]’ then
exit foreach
end if
end foreach
end main
Mendapatkan row dengan OPEN , FETCH dan CLOSE
Statement foreach diatas, sebenarnya mengkombinasikan beberapa fungsi statement tunggal :
·melakukan OPEN cursor yang terkait dengan statement SELECT
·Secara berulang melakukan FETCH (mengambil) baris, dan menjalankan sejumlah statement yang ada pada FOREACH loop.
·Melakukan CLOSE cursor, setelah seluruh baris terbaca seluruhnya.
OPEN
Untuk melakukan aktif set dari statement SELECT yang dikaitkan dengan suatu cursor.
DECLARE kur CURSOR FOR
SELECT * FROMt_matakuliah
WHERE jenis = ‘P’
OPEN kur
Informix-4GL akan mencari baris sesuai statement diatas dan meletakkan cursor pada posisi awal, sebelum baris pertama.
DK-14301Pemrog.Gene.43P
TI-17204Sistem Pakar2P
TI-18201Automata2P
FETCH
Untuk menggerakkan cursor pada baris berikutnya dalam suatu aktif set, dan mengambil informasi pada baris tersebut.
#contoh penggunaan statement fetch
FETCH kur INTO rec_mk.*
Output dari statement di atas, sbb.
DK-14301
Pemrog.Gene.4
3
Pcursor
TI-17204
Sistem Pakar
2
P
TI-18201
Automata
2
P
Jika FETCH dijalankan sekali lagi, maka cursor akan berpindah ke baris kedua. Bila cursor berada setelah baris terakhir, maka tidak ada lagi informasi yang akan diambil. Pada saat yang sama Informix akan mengisi variabel status dengan informasi NOT FOUND, sebagai tanda bahwa cursor sudah berada di ‘luar batas’.
DK-14301
Pemrog.Gene.4
3
P
TI-17204
Sistem Pakar
2
P
TI-18201
Automata
2
P
Status = NOT FOUNDcursor
Karena kita tidak dapat memperkirakan berapa jumlah baris dalam aktif set, maka kita harus selalu memeriksa isi variabel status, segera setelah statement FETCH.
Contoh :
FETCH kur INTO rec_mk.*
IF status = notfound then
Message ‘Tidak ada data’
ELSE
display ‘Kode Matakuliah:,rec_mk.kd_mk
Display ‘Nama Matakuliah :,rec_mk.nm_mk
END IF
CLOSE
Jika sudah tidak membutuhkan informasi atas baris-baris yang diperoleh dari statement SELECT, maka gunakan statement CLOSE atas kursor yang terkait.
#contoh penggunaan statement Close
CLOSE kur
Dapat menggunakan WHILE loop untuk pengulangan pembacaan (FETCH) suatu baris dan memeriksa variabel status selama seluruh baris yang ada dalam aktif set diproses.
Sintaks :
WHILE ekspresi Boolean
…………………………….
…………………………….
[ CONTINUE WHILE ]
…………………………….
…………………………….
[ EXIT WHILE ]
END WHILE
#contoh 1
Database filkom
Define r_mk RECORD LIKE t_mk.*,jawab char(1)
Main
DECLARE kurs CURSOR FOR
Select * from t_mk where nm_mk[1]=’A’
OPEN kurs
Let jawab=’y’
WHILE jawab matches’[Yy]’
FETCH kurs INTO r_mk.*
IF status = notfound then
Message ‘Data tidak ada’
EXIT WHILE
END IF
Display ‘Nama Matakuliah : ‘,r_mk.nm_mk
Display ‘Kode Matakuliah: ‘,r_mk.kd_mk
Prompt ‘Lihat data selanjutnya ? [y/t]’ for jawab
ENDWHILE
CLOSE kurs
End main
#contoh 2, untuk memastikan suatu aktif set itu kosong
Database filkom
Define r_mk RECORD LIKE t_mk.*,jawab char(1)
Main
DECLARE kurs SCROLL CURSOR FOR
Select * from t_mk where nm_mk[1]=’B’
OPEN kurs
FETCH FIRST kurs INTO r_mk.*
If status = notfound then
Message ‘Tidak ada data pada aktif set’
Else
Message ‘Minimal ada satu data pada aktif set’
End if
CLOSE kurs
End main
NEXT:menandakan baris berikutnya setelah baris aktif (active set)
PREVIOUS:menandakan baris sebelumnya dari baris aktif
PRIOR
FIRST:menandakan baris pertama pada baris aktif
LAST:menandakan baris terakhir pada baris aktif
CURRENT: menandakan pada baris yg aktif pada active list
RELATIVE m: menandakan baris ke-m relatif pada kursor yg aktif
ABSOLUTE n: menandakan baris ke-n, n bias integer atau variabel dari
program
ARRAY
Array merupakan kumpulan record dengan tipe yang sama
Sintaks:array_nameARRAY[n] OF RECORD
Var_listdata_type[..,…..]
END RECORD
n = bilangan integer, merupakan jumlah record yg dapat ditampung
oleh array tersebut.
#contoh
ar_krs ARRAY[12] OF RECORD
npm1like t_nilai.npm,
nama1like t_nilai.nama,
kd_mk1like t_nilai.kd_mk,
nm_mk1like t_nilai.nm_mk
END RECORD
#contoh
ar_mhs ARRAY[150] OF RECORD LIKE t_master.*
#contoh program lengkap tentang ARRAY
Database filkom
Main
Define ar_mhs ARRAY[150] OF RECORD LIKE t_master.*,
i,j smallint
DECLAREk1CURSOR FOR
SELECT * from t_master where kelas[1]=’4’
Let i=1
FOREACHk1INTO ar_mhs[i].*
Let i = i + 1
END FOREACH
Let j = i – 1
FOR i = 1 to j
Display ‘Data ke-‘,i,’ ‘,ar_mhs[i].*
END FOR
End main
Pembuatan FORM dengan 4GL
Screen FORM adalah media yg digunakan untuk input & output variabel pada program 4GL , juga digunakan sebagai penghubung data secara interaktif untuk menghapus , mencari & memodifikasi data .
Sebelum digunakan pada program, screen form harus dibuat & dicompile terlebih dahulu.
Spesifikasi file FORM
File FORM pada Informix-4GL terdiri atas 5 bagian (section) yaitu :
·DATABASE
Untuk mengidentifikasi database (jika digunakan)
·SCREEN
Untuk mengidentifikasi ukuran (dimensi), field tags, & tampilan dari form
·TABLE (bersifat optional)
Untuk mengidentifikasi table (jika digunakan) yg berhubungan dengan field yg digunakan dalam form
·ATTRIBUTE
Untuk mengidentifikasi spesifikasi & kegunaan setiap field pada setiap form seperti tampilan pada layar, komentar dsb.
·INSTRUCTION (bersifat optional)
Mengidentifikasi field delimiter, screen record & screen array.
Untuk menampilkan screen form pada program, maka harus ditulis statement pembuka & penutup, yaitu : OPEN FORM & CLOSE FORM
Sintaks :OPEN FORM var_nm_form FROM “form_file”
DISPLAY FORM var_nm_form
CLOSE FORM var_nm_formform yg sdh dicompile
#contoh
OPEN FORMform_cust FROM “f_cust”
Display FORM form_cust
CLOSE FORM form_cust
INPUT statement
Digunakan untuk mengisi nilaipd prog.variabel dgn data dimasukkan melalui screen field
Sintaks :INPUT var_list FROM field_list
Contoh:
·Definerec_cust RECORD LIKE customer.*
INPUT rec_cust.nama,rec_cust.kota FROM nama,kota
·Input rec_cust.nama THRU rec_cust.tagihan
From nama,alamat,kota,tagihan
·Input rec_cust.nama THRU rec_cust.tagihan from r_cust.*
·Kalau semua nama var sama dgn nama field, dpt digunakan :
INPUT BY NAME rec_cust.nama THRU rec_cust.tagihan
DISPLAY statement
Untuk menampilkan nilai variabel melalui screen field
Sintaks :DISPLAY display_list TO field_list
Contoh :
Let rec_cust.nama =’Didi’
Let rec_cust.kota = ‘Jakarta’
Display rec_cust.nama,rec_cust.kota TO nama,kota
{program ini utk melihat data customer berdasarkan nomor customer dgn menggunakan screen form}
database pelanggan
define rec_cust RECORD LIKE customer.*,
in_no LIKE customer.no
main
OPEN FORM form_cust from ‘f_cust’
Display FORM form_cust
Prompt ‘masukkan nomor customer yg dicari :’ form in_no
Select * into rec_cust.*
from customer
where no=in_no
Display by name rec_cust.*
CLOSE FORM form_cust
End main
REPORT Pada R4GL
Cara membuat REPORT
·Routine report berada diluar main routine.
Dengan menggunakan routine report, kita dapat mengatur informasi sebagai suatu laporan dengan menentukan judul laporan, perhitungan, margin, ukuran kertas dan elemen-elemen lainnya.
·Data yg akan ditampilkan dalam report diperoleh dari main routine atau dari function routine.
·Gunakan looping (seperti FOREACH atau WHILE) bersama dengan START REPORT, OUTPUT TO REPORT dan FINISH REPORT, untuk mengirim data ke report.
STRUKTUR REPORT
MAIN
START REPORT report_name
begin loop
statement yg memberikan nilai a,b,c
OUTPUT TO REPORT report_name
……….
End loop
FINISH REPORT report_name
END MAIN
REPORT report_name(x,y,z)
…………….
END REPORT
FORMAT REPORT ROUTINE
REPORT report_name (argument list)
[DEFINEdefine statement]
[OUTPUT output statement]
[ORDER BY sort list]
FORMAT
control block
……….statement…….
………………………………
END REPORT
STATEMENT REPORT
·Report didefinisikan diluar blok MAIN program (main routine)
·Semua variabel yg dikirim ke report diletakkan pada argument_list
·Argument_list tidak boleh terdiri dari array atau record yg mengandung nilai array. (satu argument hanya boleh mempunyai satu nilau yg unik)
DEFINE SECTION
Semua argument_list pada report harus didefinisikan
Report cust_report (no,nama,kota)
Define no smallint,
nama char(25),
kota char(15)
Report cust_daf (r_cust)
Define r_cust record like cust.*
OUTPUT SECTION
·Untuk mengubah margin
·Untuk menentukan panjang kertas
·Mengirim output ke printer atau ke file
·Default margin :
Left margin 5 spaces
Top margin 3 lines
Bottom margin 3 lines
Page length 66 lines
ORDER BY SECTION
·Untuk mengurutkan data melalui report
·Dapat dilakukan berdasarkan argument_list
Report cust_daf (no,nama,kota)
Define no smallint, nama char(25), kota char(15)
order by nama
FORMAT SECTION
Pada bagian ini ditulis control block dan statement² untuk :
·Membuat page header and trailers
·Mencetak informasi dengan format tertentu
·Mengelompokkan informasi
·Perhitungan seperti total atau rata².
END REPORT
Ditulis untuk mengakhiri suatu report, setelah format section.
J MENJALANKAN REPORT J
Data dikirim ke report dari MAIN routine ataufunction dengan menggunakan loop seperti : WHILE atau FOREACH dgn statement
START REPORT report_name
OUTPUT TO REPORT report_name (variable_list)
FINISH REPORT report_name
#contoh penggunaan looping foreach utk mengirim data ke report
database pelanggan
main
define rec_cust record like cust.*
declare kur cursor for
select * from cust
start report cust_daf
foreach kur into rec_cust.*
output to report cust_daf (rec_cust.*)
end foreach
finish report cust_daf
end main
report cust_daf(r_cust)
define r_cust record like cust.*
format
on every row
end report
Space/spaces
Untuk menyisipkan space diantara 2 ekspresi pada statement
Contoh : print nomor clipped,”,”,2 spaces,nama
Skip
Untuk menyisipkan baris kosong
Contoh :skip 2 lines
Pageno
Penomoran halaman secara otomatis
Cth : Print ‘Laporan Keuangan’,column 50,’Hal : ‘,pageno using ‘##”
03.57
HADI SUCIPTO
