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 :
,, dengan parameter menunjukkan signal strength dan 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 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 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 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 + ( x 2)
dengan 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
Komponen
Properti
Nilai
Button1 Caption open
Button2 Caption setting
Button3 Caption cek signal
Label1 Caption rssi
Label2 Caption Signal strength
Label3 Caption dBm
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
Sumber Post >>Blognya Saptaji
Mengecek Signal Strength (Kuat Sinyal) Operator Dengan At Command Dan Delphi ~ Data File >>>>> Download Now
ReplyDelete>>>>> Download Full
Mengecek Signal Strength (Kuat Sinyal) Operator Dengan At Command Dan Delphi ~ Data File >>>>> Download LINK
>>>>> Download Now
Mengecek Signal Strength (Kuat Sinyal) Operator Dengan At Command Dan Delphi ~ Data File >>>>> Download Full
>>>>> Download LINK Xa