Selasa, 25 Desember 2012

Teks Berjalan Warna Pelangi Menggunakan Delphi



بسم الله ارحمن ارحيم
Alhamdulillah, sekarang al-Fakir ingin kembali berbagi ilmu dengan teman-teman, akhi wa ukhti semua. Di kesempatan ini, ana akan berbagi ilmu tentang trik pemrograman delphi, yaitu membuat "Teks Berjalan Warna Pelangi". Biar kita paham, ana perlihatkan dulu nih preview-nya





 Bagaimana teman-teman, lumayan bagus tidak ? Langsung saja kita kupas tuntas bagaimana cara membuatnya.

1. Tambahkan komponen TRichEdit pada tab Win32

Atur property nya sebagai berikut :
Lines : 'SEKOLAH DASAR'
Enabled : False
Color : clBlack
BorderStyle : bsNone
Alignment : taCenter
Name : REJudul
Font-Name : Courier
Font-Size : 25
Font-Style : fsBold
ScrollBars : ssHorizontal


2. Kemudian tambahkan komponen TTimer pada tab System

Atur property interval menurut keinginan anda.

3. Tambahkan variabel global dengan type integer = charKe : integer




4. Klik 2 kali pada komponen TTimer, isikan koding berikut :


REJudul.SelStart := charKe +6;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clRed;


REJudul.SelStart := charKe +5;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := $000080FF;


REJudul.SelStart := charKe +4;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clYellow;


REJudul.SelStart := charKe +3;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clGreen;


REJudul.SelStart := charKe +2;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clBlue;


REJudul.SelStart := charKe +1;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := $00FFFF80;


REJudul.SelStart := charKe;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clPurple;


REJudul.SelStart := charKe -1;
REJudul.SelLength := 1;
REJudul.SelAttributes.Color := clWhite;


charKe := charKe +1;
if charKe > Length(REJudul.Text) then charKe := -6;


Setelah itu, simpan aplikasi dan jalankan. Mudah saja bukan ? silakan akhi wa ukhti unduh Source Code-nya pada link di bawah ini




Pengertian XAMPP







Jika anda bermaksud untuk belajar mengoperasikan / bagaimana cara membuat blog berbasis wordpress ada baiknya anda membuat mini server di computer anda. Sampai saat ini, banyak buku maupun e-book yang membahas tentang WordPress dengan berbagai metoda dan cara. Jika kita membeli lebih dari satu, kadang suka ada masalah. terutama saat menginstal mini server.



Di setiap buku atau e-book, menggunakan mini server yang berbeda, sehingga bila kita memiliki lebih dari satu buku dengan mini server yang berbeda, bisa bentrok. Untuk itu, pastikan di komputer Anda hanya ada satu mini server. Meskipun ada anjuran untuk menginstal mini server di buku yang Anda beli, gunakan saja mini server yang sudah ada. Tidak perlu lagi menginstal mini server yang dibahas dalam buku tersebut. Lalu, apa saja mini server yang dimaksud?

Berikut ini jenis mini server yang mungkin sudah Anda miliki.
  1. XAMPP
  2. Phptriad
  3. Apache2triad
  4. WAMPP
  5. Appserv
  6. IIS (untuk menjalankan bahasa asp atau aspx)


Dari keenam mini server tersebut, saya menggunakan XAMPP. Berikut sedikit uraian tentang XAMPP !!

XAMPP adalah suatu jenis mini server. Huruf pertama X pada XAMPP menandakan bahwa tool ini bisa berjalan pada semua sistem operasi. Kepanjangan dari XAMPP yaitu Apache, PHP, MySQL dan phpMyAdmin.

XAMPP merupakan tool yang menyediakan paket perangkat lunak ke dalam satu buah paket. Dengan menginstall XAMPP maka tidak perlu lagi melakukan instalasi dan konfigurasi web server Apache, PHP dan MySQL secara manual. XAMPP akan menginstalasi dan mengkonfigurasikannya secara otomatis untuk anda atau auto konfigurasi.

1. Mengenai APACHE

Apache sudah berkembang sejak versi pertamanya. Sampai saat ditulisnya artikel ini versi terakhirnya yang ada Apache bersifat open source, artinya setiap orang boleh menggunakannya, mengambil dan bahkan mengubah kode programnya.

Tugas utama apache adalah menghasilkan halaman web yang benar kepada peminta, berdasarkan kode PHP yang dituliskan oleh pembuat halaman web. Jika diperlukan juga berdasarkan kode PHP yang dituliskan, maka dapat saja suatu database diakses terlebih dahulu (misalnya dalam MySQL) untuk mendukung halaman web yang dihasilkan.

2. Mengenai PHP

Bahasa pemrograman PHP merupakan bahasa pemrograman untuk membuat web yang bersifat server-side scripting. PHP memungkinkan kita untuk membuat halaman web yang bersifat dinamis. PHP dapat dijalankan pada berbagai macam Operating System (OS), misalnya Windows, Linux dan Mac OS. Selain Apache, PHP juga mendukung beberapa web server lain, misalnya Microsoft IIS, Caudium, PWS dan lain-lain.

PHP dapat memanfaatkan database untuk menghasilkan halaman web yang dinamis. Sistem manajemen database yang sering digunakan bersama PHP adalah MySQL. Namun PHP juga mendukung system manajemen Database Oracle, Microsoft Acces, Interbase, d-Base, PostgreSQL dan sebagainya.

Sama dengan web server lainnya PHP juga bersifat open source sehingga setiap orang dapat menggunakannya dengan gratis.

3. Mengenai MySQL

MySQL dlam perkembangannya disebut SQL yang merupakan kepanjangan dari Structured Query Language. SQL merupakan bahasa terstruktur yang khusus digunakan untuk mengolah database. SQL pertama kali didefinisikan oleh American National Standards Institute (ANSI) pada tahun 1986. MySQL adalah sebuah sistem manajemen database yang bersifat open source. MySQL adalah pasangan serasi dari PHP. MySQL dibuat dan dikembangkan oleh MySQL AB yang berada di Swedia.

MySQL dapat digunakan untuk membuat dan mengola database beserta isinya. Kita dapat memanfaatkan MySQL untuk menambahkan, mengubah dan menghapus data yang berada dalam database. MySQL merupakan sisitem manajemen database yang bersifat at relational. Artinya data-data yang dikelola dalam database akan diletakkan pada beberapa tabel yang terpisah sehingga manipulasi data akan menjadi jauh lebih cepat.

MySQL dapat digunakan untuk mengelola database mulai dari yang kecil sampai dengan yang sangat besar. MySQL juga dapat menjalankan perintah-perintah Structured Query Language (SQL) untuk mengelola database-database yang ada di dalamnya. Hingga kini, MySQL sudah berkembang hingga versi 5. MySQL 5 sudah mendukung trigger untuk memudahkan pengelolaan tabel dalam database.

4. Mengenai PHPMyAdmin

Pengelolaan database dengan MYSQL harus dilakukan dengan mengetikkan baris-baris perintah yang sesuai (command line) untuk setiap maksud tertentu. Jika anda ingin membuat database, ketikkan baris perintah yang sesuai untuk membuat database. Jika kita ingin menghapus tabel, ketikkan baris perintah yang sesuai untuk menghapus tabel. Hal tersebut tentu cukup menyulitkan karena kita harus hafal dan mengetikkan perintahnya satu persatu.



Banyak sekali perangkat lunak yang dapat dimanfaatkan untuk mengelola data base dalam MySQL, salah satunya adalah phpMyAdmin. Dengan phpMyAdmin kita dapat membuat tabel, mengisi data dan lain-lain dengan mudah tanpa harus hafal perintahnya. Untuk mengaktifkan phpMyAdmin langkah-langkahnya adalah :
  1. Setelah XAMP kita terinstall, kita harus mengaktifkan web server Apache dan MySQL dari control panel XAMPP.
  2. Yang kedua, jalankan browser Anda (IE, Mozilla Firefox atau Opera) lalu ketikkan alamat web berikut : http://localhost/phpmyadmin/ pada address bar lalu tekan Enter.
  3. Langkah ketiga apabila telah nampak interface (tampilan antar muka) phpMyAdmin anda bisa memulainya dengan mengetikkan nama database, nama tabel dan seterusnya.

Jika Anda belum memiliki paket instalasi mini server Anda bisa mendownloadnya di situs berikut: XAMPP.


Delphi – Membuat Teks Berjalan





Assalamualaikum Temen Temen Semua. Salam Semangat untuk Hari ini /(^.^”) *hehehehe lama sekali kita vakum dalam pembelajaran kali ini kita mulai lagi belajar kita d(^o^). Kita bakal melanjutkan kan Pembelajaran Pemrograman Borland Delphi 7.0 yang sudah pernah kita bahas dengan materi yang berbeda tentunya /(^.^”).

 

Nah Untuk Kesempatan Kali ini kita akan membahas bagaimana sih membuat suatu teks Berjalan Dengan Bahasa Pemrograman Borland Delphi 7. Kita akan membuat suatu tampilan yang atraktif untuk sebuat aplikasi atau form dengan adanya teks berjalan. yang pastinya gampang banget *hehehehehe. untuk pembahasan pertama di tahun 2012 ini juga saya akan mencoba memberikan 1 aplikasi yang saya buat untuk materi kali ini. bisa temen temen pelajari dan gunakan yang pastinya keren loch *hehehehe, Monggo DiSimak ya temen temen.
Menggunakan Sebuah Komponen label yang dijadikan teks sebagai objek yang akan berjalan dan juga penggunaan panel untuk batas akhir dan awal landasan label yang akan berjalan. Komponen baru yang akan kita pelajari kali ini adalah komponent Timer dimakan ialah yang akan membantu dalam proses jalannya teks yang ingin kita jalankan. http://catataneko.files.wordpress.com/2012/01/timer.jpg?w=26&h=26  komponen TIMER ini bisa temen temen lihat pada tab System /(^.^”).
  • Pertama Tama Buad Design Form Seperti Di bawah ini
  • Ubah Properties Namenya Sebagai Berikut :
Berikut Alur Logika Programnya :
  • Pada Saat Program jalan Maka Radio Button Otomatis Checked pada Speed lambat dan teks berjalan ke arah kiri, kalau sudah sampai diakhir kata di bagian kiri kemudian teks kembali ke kanan dan terus menerus seperti itu.
  • Jika Radio Button Di Pilih Speed Sedang Maka kecepetan Teks Bertambah Cepat Dibanding Yang Lambat, dan Jika Di Pilih Speed Cepat Kecepatan Teks Berjalan Dengan Cepat.
  • Jika Button Keluar Di Klik Maka Akan keluar dari program.
————————————————————————————————————————————
Berikut List Programnya :
1
var
2
  frm_materi10_teksberjalan: Tfrm_materi10_teksberjalan;

3
  batas_kiri,batas_kanan:integer;
Kita Buat variable untuk menentukan batas kiri dan kanan. Dimana akan kita gunakan sebagai acuan kapan teks itu berganti posisi dan mengulangi perjalanannya /(^.^”).
01
procedure Tfrm_materi10_teksberjalan.Timer1Timer(Sender: TObject);
02
begin

03

04
  batas_kiri:=panel1.Left-label1.Width;

05
  batas_kanan:=panel1.Left+panel1.Width;
06


07
  if label1.Left=batas_kiri then
08
    begin

09
      label1.Left:=batas_kanan
10
    end

11
  else
12
    begin

13
      label1.Left:=label1.Left-1;
14
    end;

15

16
end;
Ini Code yang digunakan untuk menjalankan teks label yang ada. dimana dalam 1 interval yang dtentukan maka akan menjalankan code berkurangnya posisi left dari label 1 sehingga membuatnya seakan berjalan kedepan :D. jangan lupa kita membatasi perjalanannya agar tidak terus berjalan dan tidak muncul kembali karena itu dibuat batas kiri dan kanan dimana jika label1.left sudah memenuhi batas kiri maka posisi label akan berpindah ke batas kanan sehingga membuatnya mengulangi perjalanan sebatas jalur panel yang sudah disediakan.
1
procedure Tfrm_materi10_teksberjalan.FormCreate(Sender: TObject);
2
begin

3

4
  radiobutton1.Checked:=true;

5

6
end;
Pada Saat Form Create Maka Radiobutton Otomatis Berada Pada Speed Lambat, Sehingga Menjalankan Label Teks.
1
procedure Tfrm_materi10_teksberjalan.button_keluarClick(Sender: TObject);
2
begin

3

4
  Close;

5

6
end;
Jika Button Keluar Di Klik Maka Keluar Dari Program.
1
procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender: TObject);
2
begin

3

4
  timer1.Interval:=200;

5

6
end;

1
procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender: TObject);
2
begin

3

4
  timer1.Interval:=50;

5

6
end;

1
procedure Tfrm_materi10_teksberjalan.RadioButton3Click(Sender: TObject);
2
begin

3

4
  timer1.Interval:=10;

5

6
end;
Merubah Interval Pengerjaan Koding Pada Timer, melalui setting Interval Timer.
Berikut ini adalah Tampilan Aplikasinya Saat Sudah Dijalankan /(^.^”).
Hasil Aplikasi teks Berjalan d(^o^)
Nah Gampang Kan (^o^) tentunya Dunk oleh karena itu belajar delphi itu menyenangkan *hehehehe. Buat temen temen mau liat langsung source code beserta aplikasinya tinggal download di link berikut ya. Tinggal Temen Temen Amati Pelajari dan Modifikasi Sesuai dengan kreatifitas temen temen semua *hehehe.
Nah Sesuai dengan Janji saya sebelumnya saya akan memberikan juga aplikasi Teks Berjalan Yang Utuh Buatan saya sendiri *hehehehe /(^.^”) ini aplikasi pertama yang saya buat secara utuh dan bisa dijalankan dan dinikmati orang lain *whuhhhh temen temen mesti coba nich. Intinya konsepnya hnya membuat teks berjalan di layar komputer kita untuk kata kata motivasi, pengingat atau apapun itu. Fitur sudah cukup lengkap dari setting font dan size serta kecepatan yang beranekaragam. Ukuran Aplikasinya kecil Kok Temen temen, Berikut Screen Shoot Menu dan hasilnya d(^o^).
Menu Setting nya /(^.^")