Source Code Kirim SMS dengan Delphi

Posted: August 31, 2010 in SMS

Program ini berfungsi untuk mengirim pesan SMS ke berbagai no.tujuan yang bisa diatur dan dengan settingan yang bisa di atur sendiri, sehingga memudahkan dalam penggunaan. Sangat cocok bagi anda yang sedang mempelajarai koneksi HP dengan Komputer. Program ini bisa dikembang menjadi Program Server Pulsa, System Pengendalian jarak jauh, System Auto Responder, dll.

Program di buat menggunakan Delphi 5, dan Varian Assyn32 sebagai komponen penghubungnya.  HP yang digunakan Siemens C55.

Script kirim sms :                                                                                                                           vacomm1.WriteText(‘AT+CMGS=’+inttostr(lkirim) + #13#10);                                                         vacomm1.WriteText(PDU1+#$1A);

Tampilan awal

Proses Kirim SMS

Untuk menggunakannya bisa di download :

Free Download

Bagi yang berminat untuk dikembangkan atau untuk mempelajarinya, source code bisa saya kirimkan via email dengan uraian penjelasan programnya juga tentunya, dengan biaya  lelah dan bergadangnya sebesar Rp. 100.000  (Seratus Ribu Rupiah) saja. Bisa Dikirim ke:

1. Bank BCA Cab Yogyakarta,  No. Rek : 0372469631, a.n EDHI HERIYAMAN

2. Bank Muamalat, No.Rek : 9199518199, a.n EDHI HERIYAMAN

Silahkan  konfirmasikan ke email :  edhiheriyaman@yahoo.co.id , dengan format: NAMA spasi EMAIL spasi BANK spasi NAMA PROGRAM

Untuk informasi lebih lanjut, bisa hubungi di email saya, edhiheriyaman@yahoo.co.id.

Semoga Bermanfaat.

Terima Kasih..

Program terima SMS ini, berfungsi untuk menampilkan pesan SMS yang diterima Handphone ke layar program. Setelah pesan diterima, pesan akan terhapus secara otomatis di HP nya. Program dibuat dengan sederhana, dengan menerjemahkan PDU code dari HP menjadi ASCI Code, sehingga  bisa kita baca. Sangat cocok bagi anda yang sedang belajar koneksi antara  HP dan Komputer. Program ini bisa juga di kembangkan untuk menjadi program Server Pulsa, System Pengendalian jarak jauh, System Auto Responder, dll.

Script inisialiasasi                                                                                                                        vacomm1.writeText(‘AT+CNMI=1,1,0,2,1′+#13#10);

Inisialisasi

Script cek pesan masuk                                                                                                     vacomm1.WriteText(‘AT+CMGL=4′+#13#10);

Pesan SMS Diterima.

Di buat menggunakan Delphi 5, dan Varian Assyn32 sebagai komponen penghubungnya.  HP yang digunakan Siemens C55.

Untuk memakainya silahkan download :

Free Download

Bagi yang berminat untuk dikembangkan atau untuk mempelajarinya, source code bisa saya kirimkan via email dengan uraian penjelasan programnya juga tentunya, dengan biaya  lelah dan bergadangnya sebesar Rp. 100.000  (Seratus Ribu Rupiah) saja. Bisa Dikirim ke:

1. Bank BCA Cab Yogyakarta,  No. Rek : 0372469631, a.n EDHI HERIYAMAN

2. Bank Muamalat, No.Rek : 9199518199, a.n EDHI HERIYAMAN

Silahkan  konfirmasikan ke email :  edhiheriyaman@yahoo.co.id , dengan format: NAMA spasi EMAIL spasi BANK spasi NAMA PROGRAM

Untuk informasi lebih lanjut, bisa hubungi di email saya, edhiheriyaman@yahoo.co.id.

Semoga Bermanfaat.

Terima Kasih..