Senin, 13 April 2009

Trik Mengubah Icon Flashdisk

Share
Mengubah Icon Flashdisk? Simpel ! Begini caranya :

1. Simpan gambar yang akan kamu jadikan icon flashdisk kamu di flashdisk kamu.
Ingat! Gambar harus ber-extension .ico
Untuk konversi image ke icon silahkan kunjungi website ConvertIcon.com, konversikan menjadi berukuran 32 x 32.

2. Copy script di bawah ini ke notepad :
[Autorun]
icon="favicon.ico"

3. Save dengan nama autorun.inf di root folder kamu
Ingat ! Save as type : All Files

4. Selesai, deh :wave:

Minggu, 12 April 2009

Trik Membuat Background pada Flashdisk

Share
Sekarang sudah banyak banget yang menggunakan flashdisk, yah, karena flashdisk sudah menjadi kebutuhan sebagian besar masyarakat di zaman sekarang ini :nggaya:
Well, langsung aja ke topik, biar nggak sama dengan flash disk orang lain kita buat aja flashdisk kita ada background-nya. Ini dia trik nya :

1. Copy script di bawah ini ke notepad :

[ExtShellFolderViews]
{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}

[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
Attributes=1
IconArea_Image=Foto/Me.jpg
IconArea_Text=0x0000FF


Pada script di atas, saya menggunakan foto bernama Me.jpg yg terletak di folder Foto di flashdisk kamu.
Lalu, warna font yang saya gunakan adalah merah, yaitu 0x0000FF. Untuk warna - warna yang lain dapat dilihat di tabel di bawah, silahkan disimpan gambarnya pucca_love_10



2. Save dengan nama desktop.ini
Jangan lupa save as type nya pilih yg All Files dan simpan di root flashdisk kamu.

3. Selesai, deh :wave:

Di artikel selanjutnya akan saya bahas tentang trik mengganti icon Flashdisk.

Selasa, 07 April 2009

Mengatur Warna Latar (Background) pada Turbo Pascal

Share
Hmm... pernah merasa bosan dengan tampilan program pascal yang warna latar nya (background) hitam polos ketika di-compile?
Kalau iya, ayo ikuti tutorial di bawah ini :okay:

Persiapan :

  • Salin semua file yang ada di folder BGI dan UNITS ke folder dimana Anda menaruh file TPX.EXE
  • Tekan Alt+Enter untuk berubah ke layar fullscreen

Terus?

  1. Jangan lupa menggunakan unit graph. Unit graph digunakan dengan menambahkan 'uses graph' (tanpa tanda petik) di awal program/di bawah 'program nama_program', sebaiknya gunakan unit crt juga:

    uses crt,graph
  2. Jangan lupa untuk mendeklarasikan variabel yang berupa integer untuk digunakan dengan initgraph, contoh :

    var
    gp,gm:integer;
  3. Selanjutnya, di bagian program utama tambahkan 3 baris program sebagai berikut (contohnya dengan menggunakan variabel di atas) :

    gp:=detect;
    initgraph(gp,gm,'');
    setbkcolor(warna);
Keterangan warna :

Pada tahap 3 di atas sudah ada
setbkcolor(warna)
Nah kita bisa mengganti warna nya dengan ketentuan sebagai berikut :

0 = Black
1 = Blue
2 = Green
3 = Cyan
4 = Red
5 = Magenta
6 = Brown
7 = LightGray
8 = DarkGray
9 = LightBlue
10= LightGreen
11 = LightCyan
12 = LightRed
13 = LightMagenta
14 = Yellow
15 = White

Anda boleh menuliskan nomor nya maupun warna nya langsung :sinchan

Membuat Tulisan

Untuk membuat tulisan pada mode grafik tidak bisa dengan menggunakan perintah write atau writeln ada perintah khusus, yaitu outtext atau outtextXY, lihat contoh program.

Contoh Program :


program warna_latar;
uses
crt,graph; {atau uses wincrt,graph;}
var
gp,gm : integer;
nama : string;
begin
gp:=detect;
initgraph(gp,gm,'');
setbkcolor(green);
outtextXY(250,250'Nama Anda?'); readln(nama);
moveto(260,270); outtext('Hi, '+nama);
readkey;
end.
Yang di atas itu kalau kita tambahkan unit graph baru bisa jalan, tapi ada beberapa perintah sejenis yang hanya bisa digunakan dengan unit crt, yaitu :


  • Untuk mengubah warna text :

textcolor(warna)


  • Untuk mengubah latar text :

textbackground(warna)


Gimana, sudah paham? atau kurang jelas? Silahkan berkomentar :wave:
Akan saya jawab sebisanya pucca_love_11

Oh, ya... tunggu dulu, ada beberapa kekurangan jika kita menggunakan unit graph, salah satu nya karakter-karakter seperti titik(.), koma(,), tanda tanya(?), dan sejenisnya tidak muncul dengan baik di layar.

*Artikel ini di-posting atas permintaan saudara Opik. Terima kasih senyum

Experience is the best teacher, so don't give up to keep trying

Mau Langsung Diberitahu Kalau Ada Artikel Baru di Feethree Blog?


Masukkan email Anda:

Didukung oleh FeedBurner

Feethree Blog