PERINTAH UMUM PADA AT-COMMANDS

PERINTAH UMUM INI SEBAGAI PENDUKUNG UNTUK PEMROGRAMAN SMS GATEWAY YANG DIBUAT DENGAN BORLAND DELPHI. KENAPA DELPHI ? YUPS...KARENA DIDALAM BLOG INI SEMUA BERKAITAN DENGAN PEMROGRAMAN BORLAND DELPHI TENTUNYA DAN KHUSUSNYA UNTUK PEMROGRAMAN DASAR INI SAYA MENGGUNAKAN BORLAND DELPHI 7.

Dibawah ini saya sajikan perintah dasar AT-Commands yang didapat dari berbagai sumber. Semoga bermanfaat dan dapat dimengerti rekan-rekan programmer newbie khususnya...seperti saya.

List untuk AT-Commands

Selecting an APN
+CGDCONT=1,”IP”,”apn name”
e.g. for Vodafone UK – AT+CGDCONT=1,”IP”,”internet”

Querying signal strength+CSQ
Returns two comma separated numbers. The first number is the signal strength (RSSI), the second number is unused. Here’s how to interpret RSSI:
0 <= -113dBm
1 -111dBm
2 – 30 -109dBm to -53dBm
31 >= -51dBm
99 Unknown

Setting operating mode+CFUN=x
0 Low power mode
1 Online
4 Offline
6 Reset device
7 Turn off radio
Get manufacturer information+CGMI
Get software version+CGMR
Get SIM IMSI number+CIMI
Get device IMEI+CGSN
Get hardware version^HWVER
Change PIN+CPWD=SC,old pin, new pin

Enable PIN+CLCK=SC,mode,pin
Mode: 0=unlock, 1=lock, 2=query state
On some modems it may be necessary to quote both SC and PIN. 

Query system information^SYSINFO
Returns: status, domain, roaming status, mode, SIM state
Status
0 No service.
1 Restricted service
2 Valid service
3 Restricted regional service.
4 Power-saving and deep sleep state
Domain
0 No service.
1 Only CS service
2 Only PS service
3 PS+CS service
4 CS and PS not registered, searching
Roaming
0 Non roaming state
1 Roaming state
Mode
0 No service.
1 AMPS mode (not in use currently)
2 CDMA mode (not in use currently)
3 GSM/GPRS mode
4 HDR mode
5 WCDMA mode
6 GPS mode
SIM state
0 Invalid USIM card state or pin code locked
1 Valid USIM card state
2 USIM is invalid in case of CS
3 USIM is invalid in case of PS
4 USIM is invalid in case of either CS or PS
255 USIM card is not existent,


Network selection+COPS=? Return a list of networks
+COPS=mode, format, operator
Mode
0 Automatic
1 Manual
4 If manual fails, try automatic
Format
1 Long alpha
2 Short alpha
3 Numeric
Operator
Either the long alpha name, the short operator alpha code or the numeric code
Status
0 unknown
1 available
2 current
3 forbidden


System Config^SYSCFG=mode, order, band, roaming, domain
Mode
2 Automatic search
13 2G ONLY
14 3G ONLY
16 No change
Order
0 Automatic search
1 2G first, then 3G
2 3G first, then 2G
3 No change
Band
80 GSM DCS systems
100 Extended GSM 900
200 Primary GSM 900
200000 GSM PCS
400000 WCDMA IMT 2000
3FFFFFFF Any band
40000000 No change of band
Roaming
0 Not supported
1 Roaming is supported
2 No change
Domain
0 CS_ONLY
1 PS_ONLY
2 CS_PS
3 ANY
4 No change


Sending USSD Commands
+CUSD=1,"USSD-Command"
e.g. AT+CUSD=1,"*100#"
for some devices you will need to attach ",15" to your AT-command, as there won't come any return otherwise:
e.g. AT+CUSD=1,"*100#",15

CARA MEMBUAT PENJUMLAHAN ISI TABLE PADA DBGRID DI DELPHI 7

Oke pada kesempatan kali ini saya akan memberikan tutorial singkat Bagaimana cara menjumlahkan atau membuat TOTAL / SUM pada suatu column table dengan Borland Delphi ?, tutorial berikut ini semoga bisa memberikan pencerahan untuk anda. Pada excel sangat mudah sekali hanya dengan perintah =SUM(CELL-CELL) dan langsung mendapatkan hasilnya. Namun bagaimana untuk di Borland Delphi khususnya untuk pemula ? Silahkan di Copy Paste Scriptnya:

procedure TForm1.Button1Click(Sender: TObject);
var
   Total : Integer;
begin
        Total := 0;
        Table1.First;
        while not Table1.Eof do
        begin
             Total := Total + Table1['Jumlah'];
             Table1.Next;
        end;
        edit1.Text := IntToStr(Total);
     end;
end;

Nah souce code di atas merupakan code untuk menjumlahkan total cell yang ada di DB Grid delphi, silahkan di coba dan di praktekan ya, semoga bermanfaat.

Happy Coding & Programming

CARA MEMBUAT ZEOS CONNECTION DELPHI TO MYSQL, POSTGRESQL, ADO ETC DI DELPHI 7

Oke, pada kesempatan kali ini saya kan memberikan tutorial singkat membuat Zeos connection, Zeos Connection merupakan komponen untuk koneksi database opensource atau gratis yang lebih saya suka dibanding harus menggunakan MyOdbc dari Mysql, dikarenakan menjad satu komponen dengan delphi jadi lebih mudah penggunaannya. Hanya di tempatkan di Form komponen ZConnection, ZTable lalu setting ipaddress, host name, user, password dan database protocol yang kita inginkan, dalam hal ini karena banyak orang yang menggunakan MySql sebagai databasenya.

Begini cara menginstal Zeos agar menjadi komponen Delphi :
1. Download ZeosDBO di sini --- http://sourceforge.net/projects/zeoslib/
2. Ekstrak file Zip nya menjadi 1 folder
3. Taruh 1 folder Zeosdbo (tergantung versinya) ke dalam folder Lib program delphi
4. Buka program delphi --> open --> ZComponent.dpk --> instal
5. Bila ada yang kurang silahkan instal file zeos di Bpl

Demikian tutorial singkat tentang cara membuat Zeos Connection Delphi ke MySQl, Portgresql, ADO ETC di Delphi 7, semoga tutorial ini bisa bermanfaat dan berguna bagi putra - putri indonesia.

Selamat Mencoba

TUTORIAL CARA MEMBUAT FILE .INI UNTUK MENYIMPAN SETTING DAN KONFIGURASI APLIKASI

Pada tulisan ini saya bermaksud akan membuat penyimpanan hasil konfigurasi suatu aplikasi, namun bukan didalam database, melainkan kita akan membuat file *.ini yang biasa digunakan oleh suatu aplikasi program untuk menyimpan setting konfigurasi program tanpa harus dengan database. Jadi disaat kita merubah maka konfigurasi terakhir akan tersimpan dan akan dipanggil lagi saat program dijalankan.

Langsung saja, hanya kali ini saya hanya akan membahas cara menyimpan konfigurasi suatu aplikasi. Langkah yang harus disiapkan di delphi yaitu : Siapkan 2 TEdit (beri nama APPNAME dan  APPVERSION) dan 1 Button.

•  Tambahkan INIFiles pada bagian uses program

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, INIFiles, StdCtrls;

• Coding di Button1 :

procedure TForm1.Button1Click(Sender: TObject);
var
  myINI : TINIFile;
begin
   myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'APP.ini');
   myINI.WriteString('APLIKASIKU','Application Name',APPNAME.Text);
   myINI.WriteString(' APLIKASIKU','Version', APPVERSION.Text);
end;

• Untuk tampilan formnya seperti berikut :

• Coding lengkapnya seperti ini jika belum bisa di Run :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, INIFiles, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    APPNAME: TEdit;
    APPVERSION: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  myINI : TINIFile;
begin
   myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'APP.ini');
   myINI.WriteString('APLIKASIKU','Application Name',APPNAME.Text);
   myINI.WriteString(' APLIKASIKU','Version', APPVERSION.Text);
end;
end. 

• Maka kita akan mendapatkan tampilan setelah di run seperti berikut ini :

• Setelah button SIMPAN di Klik maka akan dihasilkan File APP.ini di satu Folder aplikasi tersebut, lihat gambar di bawah ini :

• Hasil dari aplikasi tersebut dibuka dengan notepad adalah seperti gambar di bawah ini :

Demikian tutorial singkat ini semoga bisa bermanfaat bagi anda yang sedang belajar delphi maupun mendalami pemrograman delphi.

Selamat Mencoba