Trik Mengubah Icon Flashdisk

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

Trik Membuat Background pada Flashdisk

Sekarang sudah banyak banget yang menggunakan flashdisk, yah, karena flashdisk sudah menjadi kebutuhan sebagian besar masyarakat di zaman sekarang ini
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



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

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

Mengatur Warna Latar (Background) pada Turbo Pascal

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

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

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
Akan saya jawab sebisanya

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

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