Tuesday, 11 August 2015

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 : ,, 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

1 comment:

  1. Mengecek Signal Strength (Kuat Sinyal) Operator Dengan At Command Dan Delphi ~ Data File >>>>> Download Now

    >>>>> 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

    ReplyDelete