MTronik

MTronik dibuat dengan menggunakan bahasa pemrograman Delphi 7, tujuan dari membuat aplikasi ini adalah untuk mempermudah konter pulsa/ pribadi menangani pembelian pulsa. aplikasi ini sangat mudah digunakan. berikut adalah spesifikasi aplikasi:

• Modul SMS, dapat digunakan untuk mengirim sms
• Modul Pulsa, dapat digunakan untuk mengirim pulsa
• Modul Telepon, dapat digunakan untuk menelpon (*tergantung modem yang digunakan)
• Laporan Harian, dapat dgunakan untuk mencetak transaksi pengiriman pulsa harian,
• Laporan Mingguan, dapat dgunakan untuk mencetak transaksi pengiriman pulsa mingguan,
• Laporan Bulanan, dapat dgunakan untuk mencetak transaksi pengiriman pulsa bulanan,
• Laporan Tahunan, dapat dgunakan untuk mencetak transaksi pengiriman pulsa tahunan, 
• Laporan Voucher, berisi harga pulsa
• Laporan SMS, berisi perincian sms masuk dan keluar
• Laporan Daftar Telepon, berisi daftar telepon

Berikut ini adalah printscreen aplikasi:

Tampilan depan aplikasi

untuk aplikasi trialnya akan segera di upload:

Bagi yang berminat Silahkan hubungi kami di:
HP. 085755613388
e-Mail: jaya.bukitsoft@gmail.com


Terima Kasih.

Mengetahui jenis koneksi dengan Delphi

Kali ini saya akan ngebahas tentang koneksi, kelihatan hal yang sepele tapi bisa berarti penting jika kita membuat aplikasi berbasis client server, nah ini ada sedikit tips untuk membaca koneksi internet dengan menggunakan delphi.

source code ini bisa dicoba:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
  function Koneksi: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses wininet;
{$R *.dfm}


Function TForm1.Koneksi :boolean;
var
flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
Edit1.Text := 'Modem';
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
Edit1.Text := 'LAN';
end;


if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
begin
Edit1.Text := 'Proxy';
end;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
begin
Edit1.Text := 'Modem Busy';
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Koneksi;
end;

berikut saya print screen aplikasinya :

 

tinggal klik button koneksi maka koneksi yang anda gunakan akan terbaca, seperti pada gambar dibawah ini:

SMS Gateway Menggunakan AT Command dan Delphi

Hallo gan..

lama ga nge-post nih, nah kali ini ane mo ngajak ente sekalian untuk membuat aplikasi SMS Gateway menggunakan AT Command dan Delphi.

nah, sebelum kelangkah berikunya yg perlu dipersiapin adalah:

1. Handphone atau modem.. yg ane gunakan modem huawei e220

2. Kabel data handphone kalo agan menggunakan handphone

3. Komponen Ouxcom

4. Extract ouxcom.zip, jalankan ouxcom/source/ouxcom.dpk dengan cara klik dua kali.

5. Delphi otomatis akan berjalan dan membuka ouxcom.dpk, pilih install, seperti gambar dibawah ini

 

Setelah komponen terinstall, tutup Delphi dan Save Project, klik Yes.

6. Copy file *.res dan *.dcu dari folder ouxcom/source ke Program Files/Borland/Delphi/Lib. Komponen selesai diinstall.

7. Buka Delphi, tambahkan komponen Xcomm dari tab XComDrv dari Component Pallete.

8. Pilih properti BaudRate, DeviceName, dan FlowControl sesuai dengan piranti yang digunakan.

9. Tambahkan komponen Button dan Memo ke dalam Form1. Ubah properti Caption dari Button1 menjadi Connect’.

Sampai disini dulu gan... nanti ane post lagi..