Posts

Privacy policy

Privacy Policy Privacy Policy SMK ADZIKRO built the Movie Zone app as a Free app. This SERVICE is provided by SMK ADZIKRO at no cost and is intended for use as is. This page is used to inform website visitors regarding my policies with the collection, use, and disclosure of Personal Information if anyone decided to use my Service. If you choose to use my Service, then you agree to the collection and use of information in relation to this policy. The Personal Information that I collect is used for providing and improving the Service. I will not use or share your information with anyone except as described in this Privacy Policy. The terms used in this Privacy Policy have the same meanings as in our Terms and Conditions, which is accessible at [App Name] unless otherwise defined in this Privacy Policy. I
1 comment
Read more

Mematikan Alt+F4

Jika kita membuat applikasi Delphi, kadang kala applikasi kita bisa di bunuh dengan hanya menekan tombol Alt+F4. Biar aman, dan sesuai prosedur applikasi, alangkah baiknya applikasi kita di create prosedur untuk mematikan hal tersebut. Ini sintaknya : public procedure AppMessage(var Msg: TMSG; var HAndled: Boolean); end; {...} implementation {...} procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := AppMessage; end; procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean); begin Handled := False; case Msg.Message of WM_SYSKEYDOWN: if Msg.wParam = VK_F4 then Handled := True; // don't allow ALT-F4 end; end;
1 comment
Read more

Looping dengan For

program loop2; var i,j : integer; begin for i:=15 downto 1 do begin for j:=1 to i do write('*'); writeln(''); end; end.
Post a Comment
Read more

Menghitung (Luas, Keliling & Panjang Diagonal) Lingkaran dengan Pascal

Image
Ketikan Scrip di Bawah ini
Post a Comment
Read more

Cara Mengecek Kelulusan (Program Pascal)

Image
Cara untuk mengecek kelulusan dengan program Pascal caranya adalah.. Masukan scrip program dibawah ini
Post a Comment
Read more

Cara menggunakan Rumus (MIN, MAX & AVERAGE) di Microsoft Excel

Image
Cara menggunakan Fungsi SUM, MAX, MIN dan Average di Microsoft Excel 1. Persiapkan data yang akan digunakan, Contoh : 2. Masukan Rumus pada sel Lakukan yang sama untuk Nilai Terbesar dengan rumus =Max(B2:B20), dan Nilai Rata-rata yaitu =Average(B2:B20)  3. Hasilnya 4. Selamat Mencoba
Post a Comment
Read more

Cara menyimpan gambar JPEG di database MySQL Dengan Program Delphi

Image
Membuat sebuah aplikasi, alangkah indahnya apabila program yang dibuat indah dan menarik. Untuk mencapai tujuan tersebut kadang terhalang dengan cara bagaimana untuk membuatnya. Postingan ini akan membahas bagaimana cara menyimpan data gambar yang berformat JPEG. Perlengkapan yang digunakan penulis : Delphi 7 Database MySQL, silahkan donlot gratis tanyakan ke bah gugel Koneksi menggunakan ZEOS silahkan donlot dimari Langkah 1 Masuk ke MySQL buat database beserta tablenya  Create database jpeg;    Use jpeg;    Create table contoh( Nomor int auto_increment, Nama varchar(10), Photo longBlob, primary        key(nomor)); Langkah 2 Jalankan delphi 7 buat desain seperti berikut ini Langkah 3 Masukan scripnya procedure TForm1.FormCreate(Sender: TObject); begin   ZConnection1.Connect;   ZTable1.Open; end; procedure TForm1.Image1DblClick(Sender: TObject); var op : TOpenPictureDialog; str : TStream; begin op := TOpenPictureDialog.Create(self)
Post a Comment
Read more