Mengecek Signal Strength (Kuat Sinyal) Operator dengan AT Command dan Delphi

Mengecek signal strength operator menggunakan modem atau handphone dapat dilakukan secara terprogram menggunakan Delphi melalui at command. Untuk mengecek sinyal Anda dapat menggunakan perintah at command ‘AT+CSQ’, dengan keterangan sebagai berikut :

Perintah : AT+CSQ

Deskripsi : mengecek signal strength (rssi) dan BER (Bit Error Rate)

Respons: +CSQ : <rssi>,<ber>, dengan parameter <rssi> menunjukkan signal strength dan <ber> menunjukkan bit error rate modem/phone relative terhadap BTS terdekat.

Tes command : AT+CSQ? (untuk mengecek apakah command at+csq didukung oleh modem/handphone

Parameter <rssi> memiliki range nilai sebagai berikut :

0                      : 113 dBm atau kurang

1                       : 111 dBm

2-30              : 109 dBm to -53 dBm

31 -51            : dBm atau lebih besar

99                   : tidak diketahui atau tidak mendapat sinyal

Sedangkan nilai <ber> memiliki range nilai sebagai berikut :

0-7                    : nilai RXQUAL

99                     : tidak diketahui atau tidak mendapat sinyal

Seperti yang Anda lihat pada respon modem di atas, bahwa nilai <rssi> akan bernilai 0 – 99 sedangkan satuan daya (power) standar yang digunakan untuk mengukur kekuatan sinyal adalah dBm. Untuk mengubah nilai yang yang merupakan respon modem ketika mendapat perintah AT+CSQ (0-99), maka dapat digunakan rumus sebagai berikut :

dBm = -113 + (<rssi> x 2)

dengan <rssi> adalah nilai rssi yang merupakan ‘jawaban’ modem setelah diberi perintah AT+CSQ.

Berikut ini adalah source code Delphi untuk membuat program cek signal-strength. Sebelumnya siapkan modem (USB modem 3G) dan SDK Delphi tentunya. Buka program Delphi, buat project baru dengan nama terserah Anda. Ambil komponen TButton (3 bh), TMemo (1 bh), TLabel (3 bh), TEdit (2 bh) dan TComPort (1 bh) dari Component Pallete. TComPort merupakan komponen yang dapat melakukan komunikasi data melalui port serial (COM port) komputer/laptop. Anda dapat mengunduh komponen ini di sourceforge.net jika Anda belum memilikinya. Atur peletakan komponen-komponen di atas seperti pada gambar di bawah.

Atur properti tiap komponen seperti pada tabel di bawah

 Double click tombol yang bertuliskan ‘open’ dan isikan source code di bawah

procedure TForm1.Button1Click(Sender: TObject);
begin
 comport1.Open;
 comport1.WriteStr('ate1'+#13);
end;

Double click tombol yang bertuliskan ‘setting’ dan isikan source code di bawah

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

Double click tombol ‘cek signal’ dan isikan script di bawah

procedure TForm1.Button3Click(Sender: TObject);
begin
 memo1.Clear;
 comport1.WriteStr('at+csq'+#13);
end;

Dan terakhir, double click komponen TMemo dan isikan source code di bawah

procedure TForm1.Memo1Change(Sender: TObject);
var a,b:integer;
    rssi:string;
begin
if pos ('OK',memo1.Text)<>0 then
begin
  a:=pos ('+CSQ:',memo1.Text);
 if a<>0 then
 begin
  b:= pos (',',memo1.Text);
  rssi:=copy (memo1.Text,a+6,b-a-6);
  edit1.Text:=rssi;
  edit2.Text:=inttostr(-113+(strtoint(rssi)*2));
 end;
end;
end;

Ohya, jangan lupa menambahkan event handler untuk menangani interupsi dari port serial. Dari Object Inspector, pilih komponen comport1, pilih tab ‘Events’ kemudian double click pada event OnRxChar untuk mengisikan source code sbb:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
memo1.clear;
ComPort1.ReadStr(Str, Count);
Memo1.Text := Memo1.Text + Str;
end;

Jalankan program di atas dengan menekan tombol F9 dan lihat hasilnya seperti gambar di bawah

Untuk mengecek signal, sebelumnya pilih COM port modem (setiap modem selalu menciptakan port serial/port COM virtual) melalui tombol ‘setting’ dan tekan tombol ‘open’ untuk melakukan koneksi ke modem. Sebagai catatan, COM port modem dapat Anda lihat di Control Panel | Device Manager. Kemudian untuk mulai mengecek signal, Anda dapat mengklik tombol ‘cek signal’ dan lihatlah hasilnya di kotak Edit1 dan Edit2

NB : artikel ini untuk menjawab pertanyaan salah satu pembeli buku saya (Membuat SMS Gateway dengan Delphi 7) yang menanyakan tentang prosedur pengecekan sinyal sebelum melakukan proses pengiriman SMS.