ComboBox Di Lazarus

Menggunakan ComboBox dilazarus.. Langsung saja Buat form dengan ComboBox didalamnya, seperti gambar dibawah.
sshot-1

Kemudian atur propertisnya, Pada Items klik.

sshot-2Isiskan Item yang akan ditampilkan

sshot-3Sebagai contoh saya isikan pilihan Gender

sshot-4Kemudian klik Ok, dan coba Run atau tekan F9

sshot-5Semoga bermanfaat.

Aplikasi SMS Center dengan Pascal

Akhirnya Sms Center V1.0 rilis… Aplikasi ini sama halnya sms gateway yang lainnya, mempunyai fitur Inbox, Outbox, Sent Item dan Phone Book…  Namun aplikasi ini mempunyai kelebihan tersendiri, ayo monggo di coba geratis….  Banyak aplikasi sejenis yang mudah di dapat geratis dengan embel-embel iklan setiap kali kirim sms, ada pula yang ngejual dengan harga yang murah… kasian banget nasib IT indonesia, kemampuannya hanya di hargai murah… Namun ini juga tak lepas dari temen-temen IT juga, setiap kali tawar-menawar gaji.. mereka iyakan aja nominal gaji yang diterima.. Katanya yang penting kerja… Ini yang bikin image IT indonesia menjadi murah… kok ngelantur..lanjut kita lihat fitur dari sms center ini.

Pertama, seperti halnya aplikasi berharga mahal.. hehehe.. Form login dimulai dari aplikasi ini.. ya selayaknya sebuah aplikasi untuk menghindari dari tangan-tangan jahil
login

Yang kedua tampilan menu utama.
main
Ini form laporan sMS terkirim

sentitemLanjut ke form SMS masuk

inboxMasuk ke form untuk mengirim sms, disini disediakan untuk mengirim sms individu maupun group.

kirimindIni tampilan sms Group, apa itu group… semisal dalam sebuah sekolah, ada kita buat group siswa kelas satu, kelas dua, group guru dan group management.

kirimgroupIni dia phone book..

phonebookAplikasi ini sudah saya bundle dengan aplikasi INNO.. so tinggal instal langsung oke… silahkan download yang mau coba..di Sini

O iya Lupa… untuk modemnya saya menggunakan Wawae… insyaallah tipe apa aja oke..untuk setingan portnya nanti tunggu tunggu tutorial selanjutnya..

Menampilkan Form dari Form di lazarus

Membuat Link Form Di Lazarus.

Subuah aplikasi akan terasa menarik ketika aplikasi tidak terdiri dari satu form, namun setiap menu mempunyai form sendiri-sendiri. Berikut saya buatkan tutorial bagaimana memangil form.

Buatkan button ataupun Label ataupun Menu ataupun Event sehingga form yang dimaksud akan tampil.

Disini saya mencoba dengan Event ClikButton, sediakan Button dan berikan nama pada caption Tampil Form2. Sebelumnya kita harus membuat form terlebihdahulu, dan ingat nama form tersebut.

Buat Form Pertama Dimana dari form ini kita akan memanggil Form lainnya.

Lazarus1

Kemudian Buat form ke 2 yang akan kita panggil. Setelah form 2 di buat, beralih ke form 1 dan posisikan tampil Source codenya, bukan tampilan designya. Disini kita harus mendaftarkan form ke 2 di form 1, sehingga form ke 2 bisa kita panggila. Untuk merubah ke tampilan source code, silahkan tekan F12. Setelah Itu Klik kombinasi Alt+F11, Kemudian akan muncul unit 2, dimana Unit 2 itu adalah form ke 2. Pilih unit 2 kemudian oke. Lihat gambar di bawah.

Lazarus2Selanjutnya kembali ke form pertama, klik 2x pada button Tampil Form 2. Pada kursor yang aktif isikan Form2.Show;

Lazarus3Tekan F9 untuk melihat hasilnya. Form pertama akan tampil, setelah itu coba klik button Tampil Form 2.

Lazarus4Form ke 2 akan tampil

Lazarus5Semoga bermanfaat.

Fungsi IF pada lazarus (Kasus Mas Rifki)

Membuat sebuah kondisi, dimana kita mengingikan suatu nilai akan menyesuaikan jika kondisi lain berubah. Lihat teks yang di cetak tebal.

procedure TForm1.Button1Click(Sender: TObject);
var
b, ts, d, fc, fy ,Ab :single;
T, C, a, d1, Mn :single;
begin
b:=StrTofloat(Edit1.Text);
ts:=StrTofloat(Edit2.Text);
d:=StrTofloat(Edit3.Text);
fc:=StrTofloat(Edit4.Text);
fy:=StrTofloat(Edit5.Text);
Ab:=StrTofloat(Edit6.Text);

T:=Ab*fy;
Edit7.Text:=FloatToStr(T);

a:=(Ab*fy)/(0.85*fc*b);
If a > 20 then //Seumpama a lebih besar dari 20
Begin

//di sini di isi kondisi yang diinginkan
Edit9.Text:=FloatToStr(a);
end;

C:=0.85*fc*a*b;
Edit8.Text:=FloatToStr(C);

d1:=((d/2)+ts-(a/2));
Edit10.Text:=FloatToStr(d1);

Mn:=C*d1;
Edit11.Text:=FloatToStr(Mn);
end;

Memasukkan Gambar Pada Form Di lazarus (For Mas Rifki )

Untuk menampilkan gambar atau logo ataupun baground bisa menggunakan TImage, persisnya ada pada Component Additional. Seperti terlihat di gambar di bawah ini. Klik untuk memasukkan ke form.
timageKemudian harus muncul di form seperti gambar di bawah ini :

timage1Selanjutnya pada propertis Picture isikan gambar yang diinginkan :

timagepropertistimagepropertis1Terakhir Klik oke :

timagepropertis2 Semoga bermanfaat.

Luas Segi Tiga Dengan Lazarus ( For Mas Rifki )

Untuk membuat aplikasi penghitung luas segitiga, siapkan Tedit, Button Dan Label. Buat seperti gambar di bawah ini (Di lingkari).

Kemudian Klik 2x pada button dan isikan kode yang dicetak tebal di bawah. Semoga berhasil.
lazarus-luas segitiga

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
alas,tinggi,kecil,sedang:integer;
luas :single;
begin
alas:=StrToInt(Edit1.Text);
tinggi:=StrToInt(Edit2.Text);
luas:=alas*tinggi/2;
Edit3.Text:=FloatToStr(luas);
end;

end.

Coming Soon Aplikasi SMS Center

sms-center

Sudah menjamur aplikasi SMS Center, ato mungkin bisa dibilang SMS Gateway, namun ada perbedaan disisi fasilitasnya. Rencana aplikasi ini saya buat dengan lazarus, tapi berhubung laptop saya di fasilitasi program delphi Original… ya saya test program delphi dengan buat aplikasi ini

KELEBIHAN

SMS Gateway biasanya hanya mempunyai fitur Terima SMS, Kirim SMS individu maupun Group dan Sent Items. Tapi beda dengan SMS center, aplikasi ini mampu terintegrasi dengan system lainnya, seperti keuangan, HRD , Manajement, marketing dll…  yang istimewa juga SMS Center ini mampu dijalankan di Network, mempunyai unlimited  user. Dan untuk Inboxnya unlimited pula, karena terintegrasi dengan database server.

Insyaallah dalam waktu dekat selesai.

 

%d bloggers like this: