Postingan

DWM Jailbreak Webbrowser Demo

Gambar
D2 TEKNIK KOMPUTER (BSI PROGRAMMER) Pembuatan Aplikasi DWM Jailbreak Versi Desktop Aplikasi ini di design sesederhana mungkin untuk menjadi demo dari Webbrowser menggunakan TEmbeddedWB 2010 Berikut Source Codenya :  procedure TForm1.btnBackClick(Sender: TObject); begin EmbeddedWB1.GoBack; end; procedure TForm1.btnForwardClick(Sender: TObject); begin EmbeddedWB1.GoForward; end; procedure TForm1.btnGoClick(Sender: TObject); begin EmbeddedWB1.Go(IEaddress1.Text); end; procedure TForm1.btnStopClick(Sender: TObject); begin EmbeddedWB1.Stop; end; procedure TForm1.FormActivate(Sender: TObject); begin EmbeddedWB1.Navigate(IEaddress1.Text); with EmbeddedWB1 do     begin       LoadSettings;       Align := alClient;       Visible := True;       OnStatusTextChange := StatusTextChangeEvent;       OnDownloadComplete := DownloadCompleteEvent;       Go(IEaddress1.Text);     end; end; procedure TForm1.FormShow(Sender: TObject); begin UpdateControls; IEaddress1.Text:='http://www.bsiprogr

Membuat Aplikasi database pada Device Android menggunakan Component Firedac

Gambar
D2 TEKNIK KOMPUTER (BSI PROGRAMMER) Tutorial Delphi Mobile Apps dengan Delphi XE5 Membuat koneksi database ke Android Apps dengan menggunakan FireDac (SQLite) Berikut contoh direktori path dalam Android procedure TDM.FDConnection1BeforeConnect(Sender: TObject); begin {$IFDEF ANDROID} FDConnection1.Params.Values['Database']:= TPath.Combine(TPath.GetDocumentsPath, 'datainput.db3'); {$ELSE} FDConnection1.Params.Values['Database']:= 'D:\Master HP 520\Delphi Component\BSI BORLAND DELPHI\Mobile\datainput.db3'; {$ENDIF} end; Open Connection Source Code procedure TForm1.SpeedButton1Click(Sender: TObject); begin Datamodule.DM.FDQuery2.Close; Datamodule.DM.FDQuery2.Open(); end; Sumber : Youtube & KPPDI  Screenshut Program

WebCam Sederhana Menggunakan Pemrograman Delphi

Gambar
D2 TEKNIK KOMPUTER (BSI PROGRAMMER)    Webcam adalah sebuah kamera yang biasanya kita pasang di perangkat komputer kita untuk mengambil gambar maupun video aktifitas kita. Biasanya alat ini kita gunakan untuk mengambil foto atau video call dengan teman menggunakan video chatt atau yang lainnya.    Pada rancangan program berikut ini saya akan memberikan sedikit beberapa materi yang sebenarnya terbilang sederhana sekali, karena program ini hanya melakukan koneksi terhadap hardware (WebCam).    Let's Go To Coding...... unit CameraBSI; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, DSPack , DirectShow9 , DSUtils; type   TForm1 = class(TForm)     ComboBox1: TComboBox;     Filter1: TFilter;     FilterGraph1: TFilterGraph;     VideoWindow1: TVideoWindow;     Label1: TLabel;     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure ComboBox1Click(Sender: TObject);

Membuat Unit Sendiri Dalam Pemrograman Delphi

D2 TEKNIK KOMPUTER (BSI PROGRAMMER) Membuat Unit Sendiri Dalam Pemrograman Delphi    Kita akan mendefinisikan dua buah variabel bertipe TDateTime yang bernama WaktuAwal dan WaktuStartProgram. Kedua variabel ini diletakkan di tempat yang berbeda sehingga punya sifat yang berbeda pula. Unit UWaktu; Interface  Uses Sysutils; Var WaktuAwal : TDateTime; Implementation Var WaktuStartProgram : TDateTime; Initialization WaktuStartProgram : = Now; Finalization End.    Variabel WaktuAwal bersifat public, karena berada di bagian interface. ini berarti variabel ini bisa diakses dari unit lain asal melakukan uses ke unit ini. variabel WaktuStartProgram bersifat private dan hanya bisa digunakan oleh kode program didalam unit ini karena di defenisikan di bagian implementation.    Dibawah kata kunci interface, kita melakukan uses ke Sysutils sehingga dalam unit ini kita bisa menggunakan defenisi yang terdapat di Sysutils. Dibagian paling bawah ada bagi

Membahas Array Dalam Delphi

Gambar
D2 TEKNIK KOMPUTER (BSI PROGRAMMER) ARRAY DALAM DELPHI  Array adalah sebuah variabel tunggal yang digunakan untuk menyimpan sekumpulan data. Dimana masing-masing data akan memiliki identitasnya tersendiri, berupa kedudukannya dalam kelompok. Data yang disimpan dalam sebuah array disebut dengan elemen dan keseluruhannya harus mempunyai komponen dalam jumlah yang tetap dan setiap komponen harus mempunyai tipe data yang sama (sejenis). Posisi masing-masing komponen dalam array dinyatakan sebagai nomor indeks. Indeks elemen adalah angka yang menyatakan urutan data yang menjadi anggota. Contoh : Var NilUjian : array[1..5] of Real; Contoh tersebut mempunyai arti : suatu deklarasi yang memberi tahu kompiler bahwa variabel yang bernama NilUjian merupakan suatu kumpulan variabel bertipe real sebanyak lima buah dengan indeks 1, 2, 3, 4, 5. Dengan masing-masing elemennya dapat dinyatakan sebagai NilUjian[1], NilUjian[2], NilUjian[3], NilUjian[4], dan NilUjian[5]. Con

Membuat Aplikasi Database Delphi Berbasis Cloud Database

Gambar
D2 TEKNIK KOMPUTER (BSI PROGRAMMER)  Membuat Aplikasi Database Delphi Berbasis Cloud Database Cloud database adalah sebuah database yang dapat diakses oleh klien melalui sistem cloud (server dalam internet) dan dikirimkan kepada user melalui internet dari server penyedia layanan cloud database. Sebuah cloud database pada umumnya berjalan pada platform cloud computing seperti Amazon EC2, gogrid dan Rackspace. Penggunaan cloud computing untuk cloud database memudahkan cloud database mencapai skala optimal, ketersediaan yang memadai, serta alokasi sumber daya yang efektif. Untuk membuat sebuah cloud database dapat menggunakan sebuah database tradisional seperti mysql atau SQL server yang diadopsi penggunaannya dalam sistem cloud. Namun, sebuah cloud database yang asli seperti Xeround’s MySQL cloud database cenderung lebih baik penggunaannya untuk mengoptimalkan penggunaan resource cloud database, serta dapat menjamin skalabilitas sebaik ketersediaan dan stabilitasnya. Ada 2 m

Menggunakan Variabel Dalam Pemrograman Console Delphi

Gambar
D2 TEKNIK KOMPUTER (BSI PROGRAMMER) Mendefinisikan Variabel    Untuk menyimpan nama yang akan dimasukkan oleh user, kita perlu mendefinisikan sebuah variabel dengan nama NamaUser dan bertype String.     Setelah variabel kita definisikan, sekarang saatnya kita untuk menggunakan variabel tersebut sebagai tempat untuk menyimpan data. Kita akan menggunakan variabel NamaUser tersebut untuk menyimpan nama yang diketikkan oleh user. Untuk melakukan hal tersebut, kita gunakan perintah ReadLn, dengan sebelumnya kita panggil perintah Write terlebih dahulu, seperti ditunjukkan oleh kode berikut :     Perintah write pertama digunakan untuk menampilkan tulisan "Masukkan Nama Anda :". Perintah RadLn digunakan untuk membaca data dari keyboard dan menyimpannya ke dalam variabel dengan nama NamUser. Selanjutnya ditampilkan tulisan "Selamat Datang" dan kata yang ada dalam variabel NamaUser (sesuai yang diisikan oleh user). D