Sistem Informasi Billing Perubahan Daya Berbasis Sms Geteway Over GPRS di PT. PLN (Persero) UPJ Lawang

Narotama Collection http://ejournal.narotama.ac.id

Sistem Informasi Billing Perubahan Daya Berbasis Sms Geteway Over GPRS di PT. PLN (Persero) UPJ Lawang Imam Muflichul Rifki, [email protected] Program Studi Sistem Informasi, Fakultas Ilmu Komputer Universitas Narotama, Surabaya

Abstrak PT. PLN Unit Pelayanan & Jaringan Lawang terbentuk berdasarkan SK General Manager PT. PLN (Persero) Distribusi Jawa Timur No.025.K/021/DISTJATIM/2003 tertanggal 7 April 2003 yang mengatur bagan struktur organisasi Jenjang ketiga dimana tujuan dibentuknya Unit-unit ini adalah untuk lebih mempersiapkan diri agar dapat lebih berkompetitif dengan perusahaan-perusahaan lain berskala Nasional dan Internasional pada masa-masa yang akan datang. PT. PLN(Persero) APJ Malang UPJ Lawang terus berbenah dengan tujuan untuk lebih meningkatkan pelayanan yang terbaik pada pelanggan, dalam perkembangannya di Pelayanan Pelangan informasi biaya perubahan daya masih dalam bentuk konvesional. Namun dengan adanya kemajuan teknologi sistem informasi maka informasi biaya perubahan daya dapat dilakukan dalam bentuk SMS (Sort Messages Service) untuk memberikan nilai tambah terhadap proses informasi, perbaikan kerja, kualitas, manajemen, pengambilan keputusan, dan pemecahan masalah serta keunggulan kompetitif yang tentu saja sangat berguna bagi Pelayanan Pelanggan itu sendiri. Kata Kunci : SMS Geteway, Pelayanan Pelanggan, Management

1.

Pendahuluan •

Latar Belakang

PT. PLN Unit Pelayanan & Jaringan Lawang terbentuk berdasarkan SK General Manager PT. PLN (Persero) Distribusi Jawa Timur No.025.K/021/DISTJATIM/2003 tertanggal 7 April 2003 yang mengatur bagan struktur organisasi Jenjang ketiga dimana tujuan dibentuknya Unit-unit ini adalah untuk lebih mempersiapkan diri agar dapat lebih berkompetitif dengan perusahaanperusahaan lain berskala Nasional dan Internasional pada masa-masa yang akan datang. Secara tidak langsung letak geografis kota Lawang yang dikelilingi Pegunungan dan Perbukitan. PT. PLN(Persero) APJ Malang UPJ Lawang terus berbenah dengan tujuan untuk lebih meningkatkan pelayanan yang terbaik pada pelanggan, dalam perkembangannya di Pelayanan Pelangan informasi biaya perubahan daya masih dalam bentuk konvesional. Namun dengan adanya kemajuan teknologi sistem informasi maka informasi biaya perubahan daya dapat dilakukan dalam bentuk SMS (Sort Messages Service) untuk memberikan nilai tambah terhadap proses informasi, perbaikan kerja, kualitas, manajemen, pengambilan keputusan, dan pemecahan masalah serta keunggulan kompetitif yang tentu saja sangat berguna bagi Pelayanan Pelanggan itu sendiri.

•

Perumusan Masalah

Berdasarkan latar belakang masalah yang telah diuraikan diatas, maka rumusan masalah yang diangkat adalah : 1. Informasi billing perubahan daya masih secara konvensional. 2. Pelayanan pelanggan dituntut secara cepat dan efisien. 3. Pelanggan datang ke kantor PLN, hanya untuk mendapatkan informasi biaya perubahan daya, secara tidak langsung letak geografis kota Lawang yang dikelilingi pegunungan dan perbukitan. •

Ruang Lingkup

Dengan keterbatasan waktu dan agar pembahasan tidak menyimpang dari tujuan, maka penulis memberi ruang lingkup dari yang dikerjakan aplikasi Sistem Informasi Billing Perubahan Daya ini meliputi : 1. Pelayanan Informasi Biaya Perubahan Daya. 2. Untuk Biaya Perubahan Daya di bawah 2200 VA •

Tujuan dan Manfaat

Tujuan dari pembuatan sistem ini adalah merancang dan membangun suatu program (Software) yang berfungsi untuk membantu atau mendukung transaksi biaya perubahan daya secara otomatisasi dengan SMS (Sort Messages Service), sehingga penyampaian informasi biaya perubahan

Narotama Collection http://ejournal.narotama.ac.id

daya kepada pelanggan dan manajeman unit dapat di lakukan secara cepat dan lebih efisien. Manfaat dari pembuatan Sistem Informasi ini bagi manajemen unit pelayanan adalah : 1. Proses pelayanan kepada pelanggan dapat dilakukan dengan lebih cepat dan efisien. 2. Informasi dapat dihasilkan dengan lebih cepat, karena selama ini pelanggan untuk mendapatkan informasi biaya perubahan daya secara manual, tetapi setelah semuanya dijalankan secara otomatis maka informasi yang dihasilkan lebih cepat dari pada biasanya. 3. Pelanggan tidak di repotkan untuk datang ke kantor PLN untuk mendapatkan informasi biaya perubahan daya. 2.

Sistem yang di rancang adalah salah satu tugas yang diberikan kepada penulis sejauh mana kemampuan penulis untuk memahami suatu masalah. Masalah tersebut kemudian akan di analisa dan di berikan solusi terbaik. Penulis pada Tugas Akhir ini membahas desain dan pembuatan sistem informasi billing perubahan daya pada pelanggan PLN. Di harapkan bisa menjadi masukan terhadap manajemen untuk kepuasan pelanggan itu sendiri. Sistem yang diangkat oleh penulis adalah Sistem berbasis SMS Geteway over GPRS yang mana sistem ini menggunakan fasilitas ponsel untuk media transaksinya. Jadi pelanggan untuk mendapatkan informasi biaya tagihan Perubahan Daya diharuskan mengirim SMS dengan format : ID Pelanggan [spasi] Daya yang di minta kirim ke server operator yang ada di PLN setempat. •

TDL FK1 IDPelanggan CHAR(12) CHAR(5) PK Tarif Daya CHAR(20) BP CHAR(50) UJL CHAR(50)

Diagram Proses Mobile Network Operator

Sistem Informasi Billing Perubahan Daya

SMS

DIL (Data Induk Pelanggan) PK

IDPelanggan Nama Alamat FK1 Tarif Daya

Spesifikasi Komputer

Prosesor

: Intel Pentium 4 1,24 GHz

Motherboard

: Asus P2BF

Monitor 17”

: IBM

Memory

: Visipro 1 GB

VGA Card

: S3 Trio 3D 512 MB

SoundCard

: Yamaha XG

Ethernet Card

: IBM 10/100 MB

Keyboard, Mouse, Headset,

: IBM

Cassing 4.

Rancangan Input dan Output

Dengan adanya desain ini diharapkan user / pemakai sistem tersebut dapat dengan mudah mengimplementasikan alur-alur sebuah sistem, sehingga mampu menjalankan proses input maupun output dengan benar.

SMS SMS Center

Mobile User

GSM Modem

CHAR(12) CHAR(30) CHAR(50) CHAR(5) CHAR(20)

Gambar 3.7 PDM (Physical Data Model) Gambar diatas menggambarkan konsep data model yang mana Tabel TDL [Tarif] Primary key relasionship dengan Tabel DIL [Tarif] Child dan Tabel DIL [ID Pelanggan] Primary key relasionship dengan Tabel TDL [Id Pelanggan] Child. 3.

Sistem Kerja

Basis Data

•

Server Aplikasi dan Offline User

Mobile User

Gambar 3.8 Diagram Proses Gambar diatas menggambarkan konsep diagram proses yang mana Mobile user mengirim Sms ke Sms Center di teruskan menuju Modem GSM dan akan di olah menjadi informasi oleh Aplikasi Server dan di balas/replay dengan Sms menuju dan kembali ke Mobile user. Gambar 4.1.1 Form Monitoring Sms

Narotama Collection http://ejournal.narotama.ac.id

Pada form ini sistem akan monitoring dan memproses masuk keluarnya SMS yang dikirim oleh pelanggan.

Gambar 4.2.4 Print Screen Output Data / SMS dari Aplikasi ke Ponsel.

Gambar 4.2.2 Form Setting Aplikasi Pada Form ini user diharuskan memasukan data / setting aplikasi.

Pada menu ini pelanggan menerima SMS dari Aplikasi dengan format pada Gambar di atas. 5.

Kesimpulan

Dari hasil pembahasan mengenai perancangan dan pembuatan Sistem ini, dapat ditarik kesimpulan bahwa Sistem Informasi Billing Perubahan Daya dengan menggunakan Sms ini merupakan program komputer yang dirancang khusus untuk Pelayanan Pelanggan. Dengan adanya sistem baru ini diharapakan dalam pelayanan pelanggan bisa terlaksanakan dengan cepat dan akurat serta dapat dihasilkan informasi yang lebih mudah dan transparan kepada pelanggan. Dan tujuan yang ingin dicapai dari managemen itu sendiri yaitu untuk kepuasan pelanggan. 6.

Gambar 4.2.3 Print Screen Input Data / SMS dari Ponsel. Pada Print Screen Ponsel ini pelanggan melakukan SMS dengan format : Id Pelanggan [Spasi] Daya yang di minta kirim ke server operator yang ada di PLN setempat. Untuk di proses menjadi informasi biaya perubahan daya.

Saran Disadari bahwa masih banyak hal-hal yang menjadi perhatian penulis namun masih belum dapat dituangkan dalam rancangan dan pembuatan aplikasi ini karena keterbatasan yang ada, untuk itu dapat dicatat sebagai saran dari penulis terhadap kemungkinan pengembangan dari Sistem Informasi Billing Perubahan Daya Berbasis SMS Geteway Over GPRS. Adapun saran yang dapat diberikan oleh penulis adalah sebagai berikut ; 1.

2.

Mengingat masih banyak kekurangan pada proses-proses yang harus dilakukan pada aplikasi ini diharapkan pada pengembangan selanjutnya dapat dikembangkan menjadi sistem informasi berbasis WEB. Dari segi keamanan database nantinya diharapkan untuk ditingkatkan, sehingga keakuratan data benar-benar terjaga dan sistem operasi dan sitem koneksinya dapat

Narotama Collection http://ejournal.narotama.ac.id

di ganti dengan sistem yang lebih canggih. Misalnya menggunakan sistem operasi LINUX dan menggunakan koneksi dengan USB. 6.

Daftar Pustaka

Diakses pada 15 April 2009 dari : http://qt.nokia.com/doc/qtopia4.1/atcommands.htm l Diakses pada 8 April 2010 dari http://linmodems.technion.ac.il/pctellinux/Pctel.ATCommand.Guide.6.23.00.pdf

FlatFile = "D:\LogInbox-" & Format(Now, "DDMMYYYY-HH,MM") & ".txt" Open FlatFile For Output As #1 For i = 1 To LstvwInbox.ListItems.Count LstvwInbox.SelectedItem = LstvwInbox.ListItems(i) Print #1, LstvwInbox.ListItems(i).SubItems(1), LstvwInbox.ListItems(i).SubItems(2), LstvwInbox.ListItems(i).SubItems(3), LstvwInbox.ListItems(i).SubItems(4) Next

Asmara, T. F. (2008). Perancangan dan Implementasi Server SMS Over GPRS. Yogyakarta: Universitas Ahmad Dahlan. Jasman, J. M. (2006). Potensi Pasar Siber dan Niat Beli Via Internet. Diakses pada 15 Januari 2009 dari : http://mm-usk.com/jasmanjm/buku/potensipasarsiber-dan-niat-beli-via-internet.

Close #1 MsgBox "Data sudah di Export ke " & FlatFile, , "xXx" End Sub Sub MulaiProses() pgbrInbox.Max = txtTimerSetting.Text waktujedah = txtTimerSetting.Text tmrInbox.Enabled = True

Nugraha, S. (2008). Perancangan dan Implementasi Gateway SMS Over GPRS. Yogyakarta: Universitas Ahmad Dahlan.

End Sub

Private Sub cmdKonek_Click()

Rudianta (2005). Animo Pelanggan di IndonesiaMasih Tinggi. Diakses pada 15 April 2009 dari http://www.suarakaryaonline.com/news.html?i d=116456 Wijaya, A. (2008). Aplikasi Mobile SMS Gateway Over GPRS. Yogyakarta: Universitas Ahmad Dahlan.

MulaiProses If cmdKonek.Caption = "&Putus" Then tmrInbox.Enabled = False lblField(20).Caption = "Sms Perubahan Daya..." pgbrInbox.Value = 0 cmdKonek.Caption = "&Konek" Exit Sub

Bunafit Nugroho, 2005, Pengembangan Program Visual Basic 6.0 dengan Oracle 10g, Gava Media, Yogyakarta.

End If cmdKonek.Caption = "&Putus" End Sub

7.

Lampiran

A. Listing Program Form SMS

Private Sub cmdSetting_Click() frmMain.Visible = False

'Option Explicit Dim waktujedah As Integer Dim waktu As Date

Private Sub cmbBRate_LostFocus() If IsNumeric(cmbBRate.Text) = False Then cmbBRate.SetFocus

frmSetting.Visible = True tmrAbout.Enabled = True End Sub

Private Sub cmdSimpanSetting_Click() Dim FlatFile As String

End Sub FlatFile = App.Path & "\SettingAplikasi.Sett" Private Sub cmdExportText_Click() Dim FlatFile As String Dim lstmain1 As ListItem

Open FlatFile For Output As #1 '========= Tulis di Flat File Print #1, cmbPort.Text

Narotama Collection http://ejournal.narotama.ac.id

Print #1, cmbBRate.Text Print #1, txtTimerSetting.Text Print #1, txtSMSCenter.Text

waktu = Now() Do

Print #1, txtArea.Text

myComm.Output = "ATE1" & Chr$(13)

Print #1, txtUnit.Text

Do DoEvents

Print #1, txtManager.Text Print #1, txtSID.Text Close #1 MsgBox "Setting Aplikasi terSimpan !!", , "xXx"

buffer$ = buffer$ & myComm.Input Loop Until InStr(buffer$, "OK") Or InStr(buffer$, "ERROR") Or Now > _ DateAdd("s", 10, waktu)

frmMain.Visible = True frmSetting.Visible = False End Sub

Loop Until InStr(buffer$, "OK") Or Now > DateAdd("s", 10, waktu) myComm.PortOpen = False Set myComm = Nothing

Private Sub cmdTesOFF_Click() CloseCommPort NoPort = cmbPort.Text BRate = cmbBRate.Text OpenCommPort

waktu = Now() Do

If InStr(buffer$, "OK") Then MsgBox "Mode echo is ACTIVE" & vbCrLf & "Kondisi Koneksi Port OK.", , "xXx" Else MsgBox "Port tidak dapat digunakan saat ini.", , "xXx" End If End Sub

myComm.Output = "ATE0" & Chr$(13) Sleep 360

Private Sub cmdTutupSetting_Click()

Do

frmMain.Visible = True DoEvents

frmSetting.Visible = False

buffer$ = buffer$ & myComm.Input

tmrAbout.Enabled = False

Loop Until InStr(buffer$, "OK") Or InStr(buffer$, "ERROR") Or Now > _ DateAdd("s", 10, waktu) Loop Until InStr(buffer$, "OK") Or Now > DateAdd("s", 10, waktu)

picAbout.Top = 4035 picAbout.Top = 5145 End Sub Sub ContohInsertListView() Dim lstmain1 As ListItem

If InStr(buffer$, "OK") Then

Dim a As String

MsgBox "Mode echo OFF (Respon Only)" & vbCrLf & "Kondisi Koneksi Port OK.", , "xXx"

a = LstvwInbox.ListItems.Count

Else MsgBox "Port tidak dapat digunakan saat ini.", , "xXx" End If

For i = 1 To 1 If a = 0 Then Set lstmain1 = LstvwInbox.ListItems.Add(, , 1) Else

End Sub

Set lstmain1 = LstvwInbox.ListItems.Add(, , a + 1) End If

Private Sub cmdTesON_Click() CloseCommPort NoPort = cmbPort.Text BRate = cmbBRate.Text OpenCommPort

lstmain1.SubItems(1) = Format(Now, "DDDD, DD/MM/YYYY HH:MM:SS") lstmain1.SubItems(2) = "6285755652954"

Narotama Collection http://ejournal.narotama.ac.id

lstmain1.SubItems(3) = "513010101997

'========== Informasi UPJ Judul

lstmain1.SubItems(4) = "PROSES >"

lblField(12).Caption = "Unit Pelayanan dan Jaringan " & txtUnit.Text

900"

Next i '========== Cek PULSA

' '

lstmain1.SubItems(1) = Now

'CekPulsa

'

lstmain1.SubItems(2) = "6285646780004"

End Sub

' lstmain1.SubItems(3) = "513010268052 1300" End Sub Private Sub Form_Load()

Private Sub Form_Unload(Cancel As Integer) cn.Close End End Sub

'====== Buat Header List Inbox HeaderLstvwInbox

Private Sub tmrAbout_Timer()

'====== Ambil Setting Koneksi Flat File

If picAbout.Top <= -2500 Then picAbout.Top = 10000

KoneksiFlatFile

picAbout.Top = picAbout.Top - 15 End Sub

'====== Masukan Data-Data Port cmbPort.AddItem "1"

Private Sub tmrInbox_Timer()

cmbPort.AddItem "2"

'====== Jedah Waktu untuk meRefresh Aplikasi

cmbPort.AddItem "3" cmbPort.AddItem "4"

If waktujedah >= 0 Then pgbrInbox.Value = waktujedah

cmbPort.AddItem "5"

waktujedah = waktujedah - 1

cmbPort.AddItem "6"

Refresh

cmbBRate.AddItem "19200" cmbBRate.AddItem "115200"

Else timer

'=== Pekerjaan tiap satuan waktu

tmrInbox.Enabled = False If BRate <> "" Then cmbBRate.Text = BRate

Refresh

If NoPort > 0 Then cmbPort.Text = NoPort

'====== Ambil Data ke List dan di Simpan

'====== Koneksi ke Database Oracle

If lblField(20).Caption = "Searching New InBOX..." Then

KoneksiSID

lblField(20).Caption = "Proses Pembacaan InBOX baru..." Refresh

'ContohInsertListView

cmdKonek.Enabled = False cmdSetting.Enabled = False

'========== Informasi Koneksi stsbrInfo.Panels(2).Text = cmbPort.Text stsbrInfo.Panels(4).Text = cmbBRate.Text stsbrInfo.Panels(6).Text = txtSMSCenter.Text

cmdExportText.Enabled = False '

BacaNewInBOX ContohInsertListView cmdKonek.Enabled = True cmdExportText.Enabled = True

'========== Informasi Aplikasi stsbrAplikasi.Panels(1).Text = "Unit : " & txtUnit.Text stsbrAplikasi.Panels(2).Text = "Manager : " & txtManager.Text

lblField(20).Caption = "Sistem Sms Perubahan Daya..." For i = 1 To LstvwInbox.ListItems.Count If LstvwInbox.ListItems(i).SubItems(4) = "< SENT" Or frmSMS.LstvwInbox.ListItems(1).SubItems(4) = "< SENT (DAYA > 2200)" Or

Narotama Collection http://ejournal.narotama.ac.id

frmSMS.LstvwInbox.ListItems(1).SubItems(4) = "GAGAL >" Then Refresh ElseIf LstvwInbox.ListItems(i).SubItems(4) = "PROSES >" Then lblField(20).Caption = "Replay sms..."

Private Sub txtTimerSetting_KeyPress(KeyAscii As Integer) Dim str As String KeyAscii = Asc(UCase(Chr(KeyAscii))) '======= Text Harus Numeric str = ".0123456789"

BalesSMS End If

If KeyAscii > 26 Then If InStr(str, Chr(KeyAscii)) = 0 Then

Next i Else '

KeyAscii = 0 End If

GetList

End If

lblField(20).Caption = "Searching New InBOX..."

End Sub

'====== Info Jumlah Data di Listview

B. Listing Program Modul SMS

frmSMS.lblField(14).Caption = frmSMS.LstvwInbox.ListItems.Count

'====== Koneksi ke Database Oracle cn.CursorLocation = adUseClient

End If

End Sub

cn.Open "Provider=MSDAORA.1;Password=PLNORAXXX;User ID=PLNORA;Data Source= " & frmSMS.txtSID.Text & ";Persist Security Info=True"

Private Sub tmrWaktu_Timer()

'====== Cari User PLNORA

lblField(22).Caption = Format(Now, "DDDD, DD/MM/YYYY HH:MM:SS")

RsUSER.Open "Select * from All_Users Where Username= 'PLNORA'", cn, adOpenStatic, adLockOptimistic

MulaiProses End If

End Sub

If RsUSER.RecordCount > 0 Then Private Sub txtSID_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub

RsTABLE.Open "Select * from All_Tables where Owner='PLNORA'", cn, adOpenStatic, adLockOptimistic frmSMS.stsbrAplikasi.Panels(3).Text = "SID : " & frmSMS.txtSID.Text & " ( terSambung )" End If

Private Sub txtSMSCenter_Change() If Left(txtSMSCenter.Text, 2) <> "62" Then MsgBox "Format SMS Center harus berawalan : 62", , "xXx": txtSMSCenter.SetFocus End Sub

Public Sub BacaNewInBOX() On Error Resume Next Dim Hasil() As String, sSQL As String Dim NoHP As String, tglSMS As String

Private Sub txtSMSCenter_KeyPress(KeyAscii As Integer) Dim str As String KeyAscii = Asc(UCase(Chr(KeyAscii))) '======= Text Harus Numeric

Dim isiPesan As String Dim statusIDRespon As Integer Dim waktu As Date

str = ".0123456789"

OpenCommPort

If KeyAscii > 26 Then

On Error GoTo Ad_Err

If InStr(str, Chr(KeyAscii)) = 0 Then

waktu = Now

KeyAscii = 0 End If

myComm.Output = "AT+CPMS?" & Chr(13)

End If

Sleep 9

End Sub

isiPesan = ""

Narotama Collection http://ejournal.narotama.ac.id

Do

lstmain1.SubItems(1) = tglSMS

DoEvents

lstmain1.SubItems(2) = NoHP

isiPesan = isiPesan & myComm.Input

lstmain1.SubItems(3) = isiPesan

Loop Until InStr(isiPesan, "OK") Or InStr(isiPesan, "ERROR") Or Now > DateAdd("s", 9, waktu) Sleep 99 Hasil() = TerimaSMS(myComm, 0, True) '1 = sudah pernah dibaca/ yg tersimpan di HP, 0 =sms baru, True untuk hapus If Hasil(1, 0) = "kosong" Then If isiPesan Like "*+CPMS: ?SM*" Then myComm.Output = "AT+CPMS=ME" & Chr(13) Else myComm.Output = "AT+CPMS=SM" &

lstmain1.SubItems(4) = "GAGAL >" Else lstmain1.SubItems(4) = "PROSES >" End If Next i 'GetList Exit Sub Ad_Err: 'MsgBox Err.Description, , "xXx" 'ErrLog "Baca Inbox: "

Chr(13) End If

CloseCommPort

isiPesan = ""

End Sub

Do DoEvents isiPesan = isiPesan & myComm.Input Loop Until InStr(isiPesan, "OK") Or InStr(isiPesan, "ERROR") Or Now > DateAdd("s", 27, waktu) Sleep 99 Hasil() = TerimaSMS(myComm, 0, True) If Hasil(1, 0) = "kosong" Then Exit Sub '--lstInbox.AddItem "kosong": Exit Sub End If For i = 1 To UBound(Hasil) NoHP = Hasil(i, 0) tglSMS = Hasil(i, 1) isiPesan = Hasil(i, 2) ' LogKeFile NoHP & "->" & isiPesan & " => " & tglSMS, "c:\inBOX" & Format(Now, "ddmmyy") & ".txt" '

If UCase(Left(isiPesan, 2)) <> "51" Then

goLogging NoHP, isiPesan, tglSMS

' lstInbox.AddItem statusIDRespon & ">" & NoHP & "|" & tglSMS & "|" & isiPesan, 0 Dim lstmain1 As ListItem a = frmSMS.LstvwInbox.ListItems.Count

If a = 0 Then Set lstmain1 = frmSMS.LstvwInbox.ListItems.Add(, , 1) Else Set lstmain1 = frmSMS.LstvwInbox.ListItems.Add(, , a + 1) End If tglSMS = Format(tglSMS, "DDDD, DD/MM/YYYY HH:MM:SS")