On progres aplikasi pembuatan surat

Sedikit saya tampilkan progres pembuatan aplikasi Create letter

Berikut scren shotnya

image

image

image

image

image

Advertisements

Daftar Isi Modul Pemrograman dengan Lazarus

Daftar Isi Ebook

1. Pembahasan pertama, membuat aplikasi mencari luas segitiga
2. Memberikan informasi sesuai hasil luas yang didapat
3. Variabel
4. Perubahan tipe data
5. Membuat prosedur
6. Merefresh/mengkosongkan inputan
7. Koneksi database MYSQL
8. Creat Read Update dan Delete ( CRUD )
9. Instal Component ZEOSLIB
10. Membuat autentikasi user
11. Membuat aplikasi Kwitansi dengan Menggunakan
bantuan report Fortes Report

Setiap periode akan berubah isi dari modul, dan bagi yang sudah memiliki modul versi lama akan otomatis mendapat kirimana lewat email modul yang terupdate.

demikian informasi ini saya sampaiakan semoga teman-teman yang mau dan yang masih belajar mendapatkan informasi yang jelas.

Aplikasi F100 dengan lazarus

Apa itu F100 merupakan makanan untuk pemulih kekurangan gizi, jadi ketika anak kita atau keluarga kita terserang kekurangan gizi, dengan aplikasi F100 ini kita bisa meramu F100 dengan susu formula. Bagaimana dengan takarannya.

Pada aplikasi yang saya buat sudah saya berikan penjelasan, baiknya F100 ini dibuat dengan panduan ahli gizi.

f100

Step penginputan sudah saya cantumkan di aplikasi ini

f1001

Untuk menggunakan aplikasi ini silahkan download di sini maaf filenya masih besar, belum saya kecilkan.

Mencari Bayar Sewa dan Bonus Hotel dengan Pascal

Sedikit belajar logika dengan mencari Bayar Sewa dan bonus yang didapat dari sewa hotel. Kode ini dapat di compile dengan lazarus, dengan cara buat aplikasi baru pilih aplikasi console. Kemudian hapus kode yang ada di lazarus, isi dengan kode di bawah ini.

program project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

var
LSewa:integer;
Nama,TKamar, bonus,pengunjung:string;
TS,Sewa,Pot,Diskon,JBayar:double;
begin
writeln(‘Nama Pengunjung:’);readln(pengunjung);
writeln(‘Kode Kamar :’);readln(Nama);

writeln(‘Lama Sewa :’);readln(LSewa);
//writeln(‘Jumlah suara Melon :’);readln(melon);
if Nama = ‘MST’ then TKamar:= ‘Standar’
else if Nama = ‘MVP’ then TKamar:= ‘VIP’
else if Nama = ‘MIP’ then TKamar:= ‘VVIP’;

if TKamar = ‘Standar’ then sewa:= 200000
else if TKamar = ‘VIP’ then sewa:= 300000
else if TKamar = ‘VVIP’ then sewa:= 500000;

TS:=LSewa * sewa;

if LSewa > 12 then diskon :=(10/100)
else if LSewa < 12 then diskon := (7.5/100)
else if LSewa < 7 then diskon := (5/100)
else if LSewa < 4 then diskon := (2.5/100);

Pot:=Diskon * Sewa;
JBayar:=TS-Pot;

if JBayar > 5000000 then bonus :=’Tas’
else if JBayar <= 5000000 then bonus := ‘Kaos’
else if JBayar <= 2500000 then bonus := ‘JamDinding’
else if JBayar <= 1000 then bonus := ‘Jam Tangan’;
WriteLn(‘Jadi, sewa yang harus dibayar sebesar :’);

WriteLn(JBayar);
WriteLn(‘Dan berhak mendapatkan bonus :’);
WriteLn(bonus);
readln;

end.

Membuat Aplikasi Android dengan Lazarus

ANDROID

Mungkinkah ya lazarus bisa membuat aplikasi ANDROID? Pasti bisa lah. Terus gimana caranya? Udah dibahas wiki lazarus. Tapikan masih berbahasa Asing… Susah mempelajarinya.. gampang.. ayo kita pelajari bareng-bareng. Tapi udah ada kok bukunya… tapi ya harus beli. Ayo kita bareng-bareng pelajarinya.

Dalam waktu dekat (tahap penyelesaian) akan saya posting bagaimana lazarus mampu membuat aplikasi Android.

Dengan kelebihan lazarus mampu mengcompile dibeberapa OS, lazarus kita maksimalkan mampu menghasilkan aplikasi lazarus.

Ok kita tunggu postingan berikutnya.

Alhamdulillah sudah kita mulai tutorial membuat android dengan lazarus. Klik link berikut

Membuat Aplikasi Android dengan lazarus Bag 1 – Install Aplikasi pendukung

For To Do di lazarus

Buat Mas Tommy.. Berikut pencerahan, semoga belum telat..

program Project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var
nilai :string;
I: Integer;
begin
for I := 1 to 100 do
begin
if i <100  then nilai:=’A’;
if i <85  then nilai:=’B’;
if i <70  then nilai:=’C’;
if i <50  then nilai:=’D’;
if i <30   then nilai:=’E’;

writeln(I,nilai);
readln;
end
;
end.

Timer Lazarus

Jawaban untuk Saudari Farida…

Nilai interval 1000 mempunyai arti jeda (1) satu detik. Jadi setelah timer posisi enable=true, event yang ada ditimer akan di eksekusi setelah 1 detik. Jadi jika ingin membuat sound berhenti sendiri, buat interval timer sesuai yang Mbak Farida inginkan, kemudian di event timer isikan perintah sound berhenti (sndPlaySound(nil, 0))

Membuat event timernya dengan cara klik 2x.

Untuk jelasnya nanti akan saya berikan contohnya. Semoga bermanfaat.