Membuat Logo Sendiri pada Search Engine

Membuat Logo Search Engine dengan nama kita sendiri, misalnya pada search engine Google dapat kita ganti dengan nama kita sendiri.

Misalkan contoh nya seperti search engine ala gent xeost dapat anda lihat disini
Gent Xeost

Anda tertarik untuk membuatnya ?
Kita dapat membuatnya dengan menggunakan fasilitas yang sudah ada. Anda bisa kunjungi halaman website berikut http://www.funnylogo.info
Ok, ikuti langkah berikut :

1. Langkah pertama
masukan nama anda disamping tulisan Enter Your Name.
2. Langkah Kedua
Setelah anda memasukan nama anda, tetukan bentuk dari logo anda nanti dengan memilih salah satu pilihan pada Choose a Style.
3. Langkah Ketiga
Setelah anda selesai melakukan pemilihan, anda klik tombol Create My Search Engine.

Setelah itu anda selesai membuat logo search engine ala anda sendiri dan search engine anda siap digunakan.

Langkah terakhir, bila anda ingin memyimpan alamat tersebut anda bisa copy paste pada alamt link blog atau website anda sebagai arsip.

Mudah kan ?, semoga bermanfaat.

Selamat mencoba...

Baca Selengkapnya...

Ringkasan saja...

Cara menjalankan file flash pada Delphi

Dewasa ini perkembangan dunia animasi begitu hebat dengan hadirnya Macromedia Flash… Bagaimana memadukan program Delphi dengan memainkan file flash (*.swf). Untuk mengoptimalkan program yang kita buat, akan sangat bagus jika program kita dilengkapi dengan animasi hidup ala flash. Bagaimana cara membuat program untuk menjalankan file flash?…

Untuk memainkan file flash di Delphi kita perlu menginstal Plug-in Flash terlebih dahulu…

Setelah kita instal plug-in flash langkah berikutnya sebagai berikut :

Pada Delphi IDE
- click pada “Component”, “Import ActiveX Control”
- pilih “Shockwave Flash” and click on “install”.

Nah sekarang anda telah mempunyai komponen dengan nama TShockwaveFlash pada IDE Delphi di komponen pallet ActiveX.

LETAKKAN KOMPONEN TShockwaveFlash pada form, ubah ukuran sesuai dengan kebutuhan.
kemudian anda klik 2x object TShockwaveFlash nya pada URL anda isi alamat file flash anda. Ex : D:/data/gen/coba.swf
kemudian anda ok.

File flash siap untuk dijalankan....

Sebenarnya sampai disini sudah selesai membuat file flash, tapi kalo mau lebih lengkap anda ikuti langkah berikut dan lihat hasilnya.

Anda memerlukan registrasi file ocx jika tidak di instal pada sasaran yang benar di komputer kita, sehingga perlu menyertakan file sumber
- File swflash.ocx dan file Flash ( *.swf).
- Copy swflash.ocx (dari cth. windows\system32\macromed\flash) dan file swf kamu ke project path.
- buat sebuah textfile dengan berisi kode seperti ini:

SHOCKWAVEFILE RCDATA yourfile.swf
SHOCKWAVEOCX RCDATA swflash.ocx

(Dimana yourfile.swf adalah swf-file Anda)

- Simpan file ini sbg flash.rc
- Pada Commandline, pindah ke dir project anda dan masukkan baris:

“Brcc32 -r flash.rc”

- Sekarang anda telah mempunyai file resource baru bernama file flash.res

{************************************************************}

uses
ShockwaveFlashObjects_TLB; // otomatis

implementation

{$R *.DFM}
{$R flash.res} // resource baru anda yang telah dibuat
{…}

procedure TForm1.FormCreate(Sender: TObject);
var
SystemDir: array[0..MAX_PATH] of Char;
SWFDir, AppDir: string;
Fres: TResourceStream;
Ffile: TFileStream;
begin
GetSystemDirectory(@SystemDir, MAX_PATH);
SWFDir := SystemDir + ‘\macromed\flash\’;
GetDir(0, AppDir); // Get current directory

//check apakah sw-flash ocx telah ter-install
if FileExists(SWFDir + ’swflash.ocx’) = False then
begin
//buat direktori jika diperlukan dan extrak file dari resource.
{$i-} //compiler directive to suppress i/o error messages
MkDir(SystemDir + ‘\macromed’);
MKDir(SystemDir + ‘\macromed\flash’);
{$i+}
Fres := TResourceStream.Create(0, ‘SHOCKWAVEOCX’, RT_RCDATA);
Ffile := TFileStream.Create(SWFDir + ’swflash.ocx’, fmCreate);
Ffile.CopyFrom(Fres, Fres.Size);
Fres.Free;
Ffile.Free;

//register ocx (sederhana tapi berguna)
WinExec(PChar(’regsvr32 /s ‘ + SWFDir + ’swflash.ocx’), SW_HIDE);
end;
// extrak ShockwaveFile dari resource ke directory applikasi
Fres := TResourceStream.Create(0, ‘SHOCKWAVEFILE’, RT_RCDATA);
Ffile := TFileStream.Create(’flashmovie.swf’, fmCreate);
Ffile.CopyFrom(Fres, Fres.Size);
Fres.Free;
Ffile.Free;

//Assign swf file ter-extrak ke obyek TShockwaveFlash anda
FlashMovie.Movie := AppDir + ‘\flashmovie.swf’;
end;

sumber : tutorial delphi

Baca Selengkapnya...

Ringkasan saja...

Cara menjalankan file flash di Visual Basic 6.0

Cara ini mungkin sudah sering anda temui dan anda lakukan, tapi baiknya saya ulas lagi bagaimana menjalankan file flash di visual basic. Silakan anda ikuti langkah-langkahnya dibawah ini :

1. Buat satu project
2. Pilih Standard EXE
3. Klik kanan pada tab toolbox (yang sebelah kiri dari editor),
pilih Components..
4. Pada tab Controls pilih Shockwave Flash dengan cara menandai kotak
disamping kirinya, kemudian klik OK. Maka kontrol shockwave flash
akan ditambahkan pada tab tersebut
5. klik kontrol Shockwave Flash yang baru ditambahkan dan diletakkan
pada form yang diinginkan.
6. pada bagian kode, tambahkan baris berikut:

Private Sub Form_Load()
Dim strPath As String
'baris ini tergantung dari letak file flashnya
strPath = "D:\Projects\Flash\test\tutorial.swf"
ShockwaveFlash1.Movie = strPath
ShockwaveFlash1.Play
End Sub

7. run program

sumber : insankamil.forumotion.com

Baca Selengkapnya...

Ringkasan saja...