Home / Tutorial / Aplikasi Android Delphi / Membuat Aplikasi Senter atau Flashlight Android Delphi

Membuat Aplikasi Senter atau Flashlight Android Delphi

apa kabar? tentunya sehat selalu. pada kesempatan kali ini saya akan membahas mengenai membuat aplikasi senter atau flashlight android delphi. memang benar setiap handphone pada saat ini sudah memiliki flashlight tersendiri namun jika kita membuatnya sendiri dengan hasil tangan sendiri tentunya ada kebanggan tersendiri memakasinya.

baiklah saya akan mulai memberitahu bagaimana cara membuat aplikasi senter atau lashlight android delphi. pertama-tama openlah new project

Membuat APlikasi Senter atau Flashlight Android Delphi

  • jika sudah maka pilink Blank project, ganti project dengan android lalu pilih emulator yang kalian gunakan.
  • setelah membuat form maka di lanutkan dengan menambahkan cameracomponent ke dalam project, cameracomponent ini digunakan dengan tujuan untuk memamfaatkan flash dari kamera handphone kita sebagai lampu. berikut gambar komponent nya.

Membuat APlikasi Senter atau Flashlight Android Delphi

  • setelah menambahkan component cameracomponent di lanjutkan dengan menambahkan 3 komponen rectingle dimana 1 rectile untuk gambar background sedangkan 2 rectingle kita mamfaatkan sebagai tombol sekaligus indokator pemberi tahu lampu sudah menyala tau tidak. seperti gambar di bawah ini.

Membuat APlikasi Senter atau Flashlight Android Delphi

  • setelah membuat tampilan aplikasi dan menambahkan komponen maka di lanjutkan pada sesi pengkodingan. pertama tama pilihlah Form1 dan pilih event . pada menu oncreate masukkan scrip berikut ini.
procedure TForm1.FormCreate(Sender: TObject);
begin
    CameraComponent1.Active:=true;
end;
  • jika kalian sudah menambah script diatas pada fungsi on create form 1 maka pada RCOFF kalian tambahkan script berikut ini.
                 procedure TForm1.RectangleOffClick(Sender: TObject);
                   begin
                     CameraComponent1.TorchMode:=TTorchMode.Modeoff;
                     RectangleOff.Visible:=false;
                     RectangleOn.Visible:=True;
                   end;
  • lakukan hal yan sama pada RCon cuma ganti Tochmode menadi on, RCOff False, RCOn true seperti script dibawah ini.

procedure TForm1.RectangleOnClick(Sender: TObject);
begin
CameraComponent1.TorchMode:=TTorchMode.ModeOn;
RectangleOn.Visible:=false;
RectangleOff.Visible:=True;
end;

maka semua script yang mendukung beralan aplikasi senter atau flashliht android delphi sudah bisa di jalankan atau di gunakan. kalian dapat melihat video yang lebih lengkap dan detail membahasnya dengan cara menunton video di bawah ini:

terima kasi sudah membaca artikel ini. jangan lupa buat share dan like agar admin lebih greet dalam mengupdate artikel. semoga ilmu yan disering pada website ini dapat beguna dan membatu proses belaar dalam bahasa duni pemgroraman.

Untuk SOURCE CODE kalian dapat download disini

sampai jumpa di artikel berikutnya

terima kasih

About admin

Check Also

Aplikasi SCHOOL MANAGEMENT SYSTEM dengan PHP MYSQL

Aplikasi School Management System dengan PHP MYSQL

kemarin ada yang massage saya menanyakan apakah ada sistem management untuk sekolah? lalu saya katakan …

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *