Program Cek Pulsa Dengan Delphi

Ada kalanya kita ingin mengecek seberapa banyak pulsa yang tersisa di nomor simcard kita atau sekedar ingin tahu masa aktifnya. Jika Anda menggunakan handphone, ini sangat mudah dilakukan. Jika misalnya Anda adalah pelanggan XL, Anda hanya perlu men-dial nomor 123, nantinya Anda akan dituntun mesin penjawab telepon untuk mengetahui jumlah pulsa dan masa aktif nomor seluler Anda. Cara lain adalah dengan  mengetikkan kode *123# [enter/OK] melalui keypad handphone, maka Anda akan mendapat balasan berupa teks di layar handphone yang berisi informasi jumlah pulsa dan masa aktif nomor Anda.

Cara yang kedua ini disebut juga dengan  shorcode USSD (Unstructured Supplementary Service Data). USSD ini merupakan salah fitur yang dimiliki teknologi GSM yang memungkinkan user/customer untuk berinteraksi dengan USSD gateway di sisi operator melalui kanal (channel) signaling (SDCCH), jadi tidak mempengaruhi/mengurangi kapasitas TCH (Traffic Channel) yang digunakan untuk kanal suara (voice attempt). Berbeda pula dengan SMS yang menduduki dedicated channel  dan bersifat transaksional, USSD ini bersifat session oriented yang dibatasi oleh waktu. Jadi jika anda menggunakan fitur ini, waktu Anda akan dibatasi dan akan diputus oleh sistem jika Anda terlalu lama memberi respon. Jika Anda penasaran dengan fitur USSD, cobalah untuk mengakses tiap-tiap menu jika Anda menekan kode *123# (jika Anda pelanggan XL).

Nah, bagaimana dengan program yang akan kita buat? Kita tahu bahwa sebagian besar modem 3G (atau modem GPRS) yang beredar tidak memiliki fitur mendukung panggilan suara (telepon). Jadi satu-satunya cara bagi modem tipe ini adalah dengan menggunakan teknologi USSD untuk mengetahui sisa pulsa dan masa aktif nomor. Berikut ini adalah contoh program sederhana untuk melakukan pengecekan pulsa melaiui USSD. Inti dari program yang akan kita buat adalah memanfaatkan at command AT+CUSD. Command ini berfungsi untuk mengirimkan shorcode USSD kepada operator dengan syntax :

Dengan parameter-parameter sebagai berikut :

Setelah Anda mengirim command USSD ke operator, Anda akan mendapat salah satu ‘jawaban’ (result code) sebagai berikut :

Dengan opsi  dari nilai <m> adalah sebagai berikut

Setelah kita mengetahhui sintaks penggunaan command AT+CUSD, marilah kita mulai pemrogramannya dengan Delphi. Penting untuk Anda ketahui bahwa akan lebih memudahkan Anda dalam mengolah jawaban/result code dari USSD, jika Anda menginisialisasi modem dalam mode teks, yakni dengan command AT+CMGF=1

Seperti biasa buatlah program Delphi baru, dan aturlah komponen-komponen berikut dalam sebuah form. Kemudian settinglah properties  tiap-tiap komponen seperti pada contoh berikut ini:

Kemudian isikan source code berikut ke masing-masing Button1, Button2 sebagai berikut

procedure TForm1.Button1Click(Sender: TObject); 
begin
 comport1.ShowSetupDialog; 
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if ComPort1.Connected then
 begin
  ComPort1.Close;
  button2.Caption:='Open';
 end
  else
  begin
   ComPort1.Open;
   button2.Caption:='Close';
   ComPort1.WriteStr('at+cmgf=1'+#13#10);
   ComPort1.WriteStr('at+cscs="GSM"'+#13#10);
  end;
end;

Button1 digunakan untuk memanggil jendela pengaturan comport, sedangkan button2 digunakan untuk membuka koneksi dengan comport.

Selanjutnya, isikan button3 (‘Cek pulsa’) dengan source code sebagai berikut:

procedure TForm1.Button3Click(Sender: TObject);
begin
 memo1.Clear;
 edit1.clear;
 ComPort1.WriteStr('at+cusd=1,"*123#",15'+#13#10);
end;

Button3 ini digunakan untuk mengirimkan shortcode USSD ke operator untuk melakukan pengecekan pulsa. Perhatikan pemakaian command ‘AT+CUSD’ di atas.

Dan berikut adalah baris program untuk handling result code dari USSD yang kita kirimkan. Baris program ini kita simpan di event ‘OnChange’ milik komponen Memo1.

procedure TForm1.Memo1Change(Sender: TObject);
var a,b:integer; s:string;
begin
if (pos ('+CUSD',memo1.Text) <> 0) and (pos ('Pulsa',memo1.Text) <> 0) then
 begin
  a:=pos ('P',memo1.Text);
  b:=pos ('.',memo1.Text);
  s:=copy (memo1.Text,a,b-a+1);
  edit1.Text:=s;
 end;
end;

Jangan lupa untuk menyisipakan program handling data serial yang masuk ke komponen Comport1 (melalui phisycal serial port/virtual serial port over USB) dengan baris program berikut di event ‘OnRxChar’ milik komponen comport1 sebagai berikut:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Str: String;

begin
 ComPort1.ReadStr(Str, Count);
 Memo1.Text := Memo1.Text + Str;
end;

Sekarang mari kita coba program yang sudah kita buat tadi, beginilah hasilnya.

Selamat mencoba dan happy programming.

Catatan : Cara menentukan virtual serial port untuk modem 3G, silahkan dibaca di sini. Jika Anda membutuhkan modem 3G yang support AT Command, silahkan belanja disini