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

CARA MEMBUAT ROUTING IP ADDRESS WINDOWS DI DELPHI

Tulisan ini merupakan kasus pribadi pada saat saya pertama belajar mengenai jaringan. Kasus nya adalah pada kantor tempat dulu saya bekerja sudah terdapat jaringan internal MPLS yang menghubungkan satu kantor dengan kantor lain di kota dan area yang berbeda. Misalkan saja, kantor di kota A memiliki topologi jaringan dengan basis IP Gateway Router 10.240.10.254, dan kantor di kota B memiliki topologi jaringan dengan basis IP Gateway Router 10.240.20.254. Saya akan mengambil data dari satu komputer di kota A dengan IP 10.240.10.1 ke satu computer di kota B dengan IP 10.240.20.1.

Jika pada kondisi normal maka transfer data antar computer tidak ada masalah, karena sudah di desain menjadi satu network oleh router dengan desain MPLS tersebut. Namun permasalahannya adalah pada PC di kota B dimana data dari kota A akan diambil terdapat modem GSM untuk akses internet diluar akses internet internal.  Maka pada PC kota B harus dilakukan routing lagi agar data dari PC kota A dapat diambil dan akses internet yang berada pada PC kota B juga tidak perlu dimatikan. Berikut cara untuk routing dari PC kota B yang terdapat pada kasus tadi.

1. Buka Command Promp, dapat juga diketik CMD pada RUN di start Windows

2. Ketik perintah berikut :

 route add 10.240.10.1 mask 255.255.255.255 10.240.20.254 -p      

3. Tekan Enter

Penjelasannya :

Route add                                : Menambahkan Routing IP Address pada Windows

10.240.10.1                             : Adalah IP Address yang dituju, dalam hal ini adalah computer yang    datanya akan diambil

Mask 255.255.255.255           : Subnet mask

10.240.20.254                         : IP Address Gateway pada jaringan di kota B

-p                                             : Konfigurasi dibuat permanent, jadi pada saat windows start kembali  konfigurasi tidak hilang.

Dari konfigurasi ini, yang sebelumnya saya tidak bisa melakukan PING dari computer kota B ke computer kota A, maka sekarang sudah bisa. Bila ingin melihat routing apa saja yang terdapat pada windows, anda bisa ketik perintah route print pada command promp.

Tulisan ini dibuat bukan tidak ada hubungannya dengan Delphi, melainkan kasus ini terjadi pada saat saya membuat program sederhana pertukaran data dengan Delphi 7.

Semoga Bermanfaat…. 

Happy Coding & Programing

CARA MEMBUAT INSTALASI QUICKREPORT DI DELPHI 7

Delphi 7 memang sudah agak tertinggal kalau dibanding dengan versi yang terbaru, seperti Delphi Versi XE yang terbaru, sampai saat saya menulis ini setahu saya sudah sampai versi XE 8 yang sudah dapat membuat aplikasi android, IOS dan juga Windows IoT dalam info nya di website resmi Embarcadero. Namun demikian tidak ada yang ketinggalan dalam bahasa pemrograman, hanya saja bagaimana kita sebagai developer atau programmer menggunakannya sebagai senjata perang yang baik dan dapat disesuaikan dengan kondisi dan permintaan client untuk membuat suatu aplikasi yang sesuai dengan kebutuhan.

Postingan sederhana dan yang sangat mendasar ini mudah-mudahan berguna bagi saya khususnya untuk menyimpan atau menuliskan Ilmu walaupun sedikit.

Langsung saja...Delphi 7 tidak menyertakan langsung komponen QuickReport (sudah familiar dari Delphi sebelumnya), namun tersedia saat kita selesai melakukan instalasi, namun ada pula versi QuickReport versi 5 yang bisa di download di www.quickreport.co.uk . 

namun biasanya versi trial, nanti kalau sudah habis masanya kita harus instal ulang lagi komponen QuickReport.

Baiknya langsung gunakan saja bawaan standard quickreport yang sudah disertakan pada saat kita melakukan instalasi. Ini caranya :

1. Jalankan Delphi 7
2. Pilih menu Component -> Install Packages
3. Pada dialog yg muncul klik tombol Add
4. Arahkan ke direktori \bin\
   maksudnya, jika install Delphi 7 di C:\Program Files\Borland\Delphi7\, berarti diarahkan ke C:\Program Files\Borland\Delphi7\bin\
5. Pilih paket dclqrt70
6. Klik Open
7. Kemudian OK

Selanjutnya komponen atau VCL quickreport sudah terinstal di tab komponen. Berikut screenshoot nya, semoga bermanfaat.

Happy Coding & Programing

Apa itu pemrograman Delphi.?

       Delphi adalah Suatu bahasa pemrograman yang menggunakan visualisasi sama seperti bahasa pemrograman Visual Basic ( VB ) . Namun Delphi menggunakan bahasa yang hampir sama dengan pascal (sering disebut objeck pascal ) . Sehingga lebih mudah untuk digunakan . Bahasa pemrograman Delphi dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik embarcadero . Divisi tersebut awalnya milik borland , sehingga bahasa ini memiliki versi Borland Delphi . 

     Delphi juga menggunakan konsep yang berorientasi objek ( OOP ) , maksudnya pemrograman dengan membantu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya . Hal itu bisa dilakukan dengan cara mendesign objek untuk menyelesaikan masalah . OOP ini memiliki beberapa unsur yaitu ; Encapsulation ( pemodelan ) , Inheritance ( Penurunan ) , Polymorphism ( Polimorfisme ) .

     Awalnya bahasa pemrograman delphi hanya dapat digunakan di Microsoft Windows, namun saat ini telah dikembangkan sehingga dapat digunakan juga di Linux dan di Microsoft .NET . Dengan menggunakan free pascal yang merupakan proyek OpenSource, bahasa pemrograman ini dapat membuat program di sistem operasi Mac OS X dan Windows CE .

     Umumnya delphi hanya digunakan untuk pengembangan aplikasi dekstop, enterprise berbasis database dan program - program kecil . Namun karena pengembangan delphi yang semakin pesat dan bersifat general purpose bahasa pemrograman ini mampu digunakan untuk berbagai jenis pengembangan software . Dan Delphi juga disebut sebagai pelopor perkembangan RadTool ( Rapid Apllication Development ) tahun 1995 . Sehinnga banyak orang yang mulai mengenal dan menyukai bahasa pemrograman yang bersifat VCL ( Visual Component Library ) ini .

Sumber : http://belajar-pemrograman2.blogspot.com/2010/08/pengertian-delphi.html