LAMPIRAN WAWANCARA
Berikut adalah hasil selengkapnya wawancara dengan pihak perusahaan untuk mengetahui permasalahan atau keinginan dari pihak perusahaan : Pertanyaan (P)
: Selamat pagi Bapak Junus Tjandra.
Jawab (J)
: Selamat pagi.
P
:
Kami ingin mengajukan beberapa pertanyaan tentang sistem jaringan yang berjalan diperusahaan.
J
:
Baik.
P
:
Kami melihat bahwa perusahaan ini sudah menggunakan sistem jaringan nirkabel atau wireless LAN. Apakah sistem jaringan yang sedang berjalan di perusahaan telah berjalan dengan cukup baik?
J
:
Sejauh ini saya rasa tidak ada masalah yang berarti. Bisa dikatakan semua baik-baik saja.
P
:
Apakah perusahaan mempunyai keinginan untuk melakukan penambahan atau perubahan terhadap sistem jaringan komputer yang sedang berjalan?
J
:
Untuk sistem jaringan ini sendiri sepertinya belum ada rencana penambahan atau perubahan. Tetapi, perusahaan berencana untuk
L1
menambahkan line telepon internal agar dapat mempermudah komunikasi antar karyawan.
P
:
Apa yang menjadi permasalahan dalam sistem komunikasi sehingga diperlukan penambahan line telepon internal?
J
:
Begini, tentunya kamu tahu, di perusahaan ini pastinya setiap karyawan butuh melakukan komunikasi dengan karyawan lain. Contohnya saya, yang sering kali menyuruh karyawan saya untuk melakukan pekerjaan yang saya berikan. Kalau karyawan itu ada di lantai yang sama dengan saya, tinggal saya panggil. Tapi, kalau beda lantai? Saya harus panggil karyawan lain yang berada dekat dengan saya untuk saya suruh sampaikan perintah saya ke karyawan yang saya maksud. Belum lagi kalau perintah saya terlalu banyak, saya seringkali harus membuat notes. Oleh karena itu, saya pikir penambahan line telepon ini dapat membantu saya, dan tentunya karyawan saya juga.
P
:
Apakah bapak berminat jika kami menambahkan suatu sistem jaringan komunikasi yang baru dengan menggunakan sistem jaringan komputer yang sudah ada. Dengan cara kerja yang sama dengan sistem telepon yang bapak mau, tetapi dengan biaya yang jauh lebih murah.
J
:
Memang seperti apa sistem itu? L2
P
:
Sistem ini dinamakan Voice over Internet Protocol. Dimana, sistem komunikasi ini bekerja dengan cara mengubah sinyal analog menjadi sinyal digital dan sebaliknya sehingga komunikasi dapat dilakukan dengan menggunakan sistem jaringan komputer seperti LAN atau WLAN yang sudah ada di perusahaan ini. Karena sistem ini lebih banyak menggunakan program yang gratis dan open source, tentunya akan jauh lebih murah dibandingkan dengan sistem yang bapak rencanakan. Jika bapak berminat, kami meminta izin untuk melakukan uji coba sistem komunikasi tersebut pada perusahaan bapak.
J
:
OK. Kalau emang begitu, boleh kamu coba selama tidak menggangu kegiatan kerja diperusahaan ini.
L3
LAMPIRAN KUISIONER
Berikut
adalah
daftar
pertanyaan
kuisioner
untuk
evaluasi
sistem
yang
diimplementasikan :
KUISIONER EVALUASI SISTEM KOMUNIKASI VoIP PT. MEGATIKA 1. Sudah
berapa kali
Anda
menggunakan sistem komunikasi
ini sejak
diimplementasikan pada awal bulan Desember? a. < 5 kali b. 5 – 10 kali c. > 10 kali 2. Menurut Anda, bagaimanakah penggunaan sistem komunikasi ini? a. Cukup mudah b. Biasa saja c. Terlalu sulit 3. Apakah sistem komunikasi ini memiliki manfaat dalam interaksi dan kinerja kerja Anda? a. Tidak bermanfaat b. Kurang bermanfaat c. Biasa saja d. Cukup bermanfaat e. Sangat bermanfaat
L4
4. Apakah penambahan program softphone pada komputer kantor yang Anda gunakan mengganggu aktifitas kerja Anda? a. Tidak mengganggu b. Mengganggu 5. Setujukah Anda jika jaringan dari sistem komunikasi ini diperluas sehingga memungkinkan komunikasi antara kantor pusat dengan kantor cabang? a. Tidak Setuju b. Setuju
L5
LAMPIRAN CODING
Dim sippeers As String Dim ping As String Dim logoff As String Dim login As String Dim data As String Private Sub cmdAuth_Click() If sock.State = sckConnected Then login = "Action: login" & vbCrLf & "Username: admin" & vbCrLf & "Secret: admin" & vbCrLf & vbCrLf sock.SendData login cmdPing.Enabled = True cmdShow.Enabled = True End If cmdAuth.Enabled = False End Sub Private Sub cmdClear_Click() txtReport.Text = "" End Sub Private Sub cmdConnect_Click() If sock.State = sckClosed Then sock.RemoteHost = "192.168.2.25" sock.RemotePort = 5038 sock.Connect txtReport.Text = "" txtReport.Enabled = True cmdAuth.Enabled = True cmdConnect.Caption = "&Disconnect" Timer.Enabled = True Else logoff = "Action: logoff" & vbCrLf & vbCrLf sock.SendData logoff cmdConnect.Caption = "&Connect" cmdAuth.Enabled = False cmdPing.Enabled = False cmdShow.Enabled = False Timer.Enabled = False End If End Sub
L6
Private Sub cmdPing_Click() ping = "Action: ping" & vbCrLf & vbCrLf sock.SendData ping End Sub Private Sub cmdShow_Click() sippeers = "Action: sippeers" & vbCrLf & vbCrLf sock.SendData sippeers End Sub Private Sub Form_Load() cmdConnect.Enabled = True cmdAuth.Enabled = False cmdPing.Enabled = False cmdShow.Enabled = False txtReport.Enabled = False End Sub Private Sub mnuAbout_Click() frmAbout.Show End Sub Private Sub mnuExit_Click() Unload Me End Sub Private Sub sock_Close() sock.Close End Sub Private Sub sock_DataArrival(ByVal bytesTotal As Long) sock.GetData data txtReport.Text = txtReport.Text & vbCrLf & data txtReport.SelLength = Len(txtReport.Text) End Sub Private Sub sock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) MsgBox ("Please Start The Asterisk Server First!"), vbOKOnly, "Warning" sock.Close Unload Me End Sub Private Sub Timer_Timer() If sock.State = sckClosed Then MsgBox ("Asterisk Server Disconnected!"), vbOKOnly, "Warning" L7
Unload Me End If End Sub
L8
