Berikut akan saya jelaskan cara untuk ganti mengganti nama di facebook.
Untuk ganti nama di facebook, cara-nya cukup mudah.
Tapi ingat, nama anda di facebook sebaiknya menggunakan nama asli bukan nama palsu.
Berikut cara untuk ganti mengganti nama di facebook :
1. Login dahulu ke facebook anda.
2. Pada menu facebook pilih Pengaturan > Pengaturan Akun.Untuk cara cepat masuk ke pengaturan akun, anda bisa buka url ini :
https://register.facebook.com/editaccount.php?
3. Akan tampil beberapa pilihan, namun jika anda ingin mengganti nama anda di facebook yang harus anda pilih/klik yaitu opsi Nama.
4. Gantilah dan masukkan nama baru anda. Kalau sudah klik tombol Ganti Nama.
5. Nanti akan keluar peringatan seperti ini :
"Kami mengonfirmasikan semua perubahan nama sebelum diterapkan. Hal ini kurang lebih akan memerlukan waktu 24 jam, jadi mohon bersabar."
Untuk mengganti nama di facebook itu butuh waktu sekitar 24 jam untuk konfirmasinya.
-Flash: Mouse Trail-
2010-02-07
Apakah anda tahu mouse trail?
Jika tidak, pernahkah anda melihat kursor mouse yang digerakan dan muncul bayangan di belakangnya yang mengikutinya?
Jika sudah pernah melihatnya itulah yang dinamakan mouse trail. Jika belum kita akan mencoba membuatnya melalui tutorial di bawah ini. Ada baiknya ada melihat tutorial mengganti kursor mouse terlebih dahulu sebelumnya. Karena pada tutorial ini kita juga akan mengubah kursor mousenya.
1. Buatlah sebuah lingkaran. Seleksi lingkaran tersebut dan tekan F8. Pada kotak dialog yang muncul pilih Movie clip sebagai Typenya dan lingkaran_kecil pada Name lalu tekan OK.
2. Seleksi movie clip lingkaran_kecil dan tekan F8 lagi.Pada kotak dialog yang muncul pilih Movie clip sebagai Typenya dan lingkaran_tween pada Name lalu tekan OK.
3. Seleksi movie clip lingkaran_tween dan tekan Ctrl+F3. Masukan lingkaran sebagai Instance Name.
4. Klik 2 kali movie clip lingkaran_tween untuk masuk ke dalam stagenya.
5. Klik kanan frame 15 dan pilih Insert Keyframe. Seleksi movie clip di frame 15 dan tekan Ctrl+F3. Ubah Color menjadi Alpha 0%
6. Klik kanan frame 10 dan pilih Create Motion Tween. Tekan Ctrl+E untuk kembali ke stage scene 1
7. Letakan movie clip lingkaran_tween di luar stage
8. Klik frame 1 dan tekan F9. Pada kotak actions yang muncul, masukan script berikut:
//mengganti kursor mouse dengan lingkaran
Mouse.hide();
startDrag(_root.lingkaran, true);
//membuat trailnya
var i:Number = 0;
var bayangan_max:Number = 15;
onEnterFrame = function () {
i++;
if (i>bayangan_max) {
i = 1;
}
duplicateMovieClip(lingkaran, "lingkaran"+i, i);
};
9. Tekan Ctrl+Enter untuk melihat hasilnya.
Jika tidak, pernahkah anda melihat kursor mouse yang digerakan dan muncul bayangan di belakangnya yang mengikutinya?
Jika sudah pernah melihatnya itulah yang dinamakan mouse trail. Jika belum kita akan mencoba membuatnya melalui tutorial di bawah ini. Ada baiknya ada melihat tutorial mengganti kursor mouse terlebih dahulu sebelumnya. Karena pada tutorial ini kita juga akan mengubah kursor mousenya.
1. Buatlah sebuah lingkaran. Seleksi lingkaran tersebut dan tekan F8. Pada kotak dialog yang muncul pilih Movie clip sebagai Typenya dan lingkaran_kecil pada Name lalu tekan OK.
2. Seleksi movie clip lingkaran_kecil dan tekan F8 lagi.Pada kotak dialog yang muncul pilih Movie clip sebagai Typenya dan lingkaran_tween pada Name lalu tekan OK.
3. Seleksi movie clip lingkaran_tween dan tekan Ctrl+F3. Masukan lingkaran sebagai Instance Name.
4. Klik 2 kali movie clip lingkaran_tween untuk masuk ke dalam stagenya.
5. Klik kanan frame 15 dan pilih Insert Keyframe. Seleksi movie clip di frame 15 dan tekan Ctrl+F3. Ubah Color menjadi Alpha 0%
6. Klik kanan frame 10 dan pilih Create Motion Tween. Tekan Ctrl+E untuk kembali ke stage scene 1
7. Letakan movie clip lingkaran_tween di luar stage
8. Klik frame 1 dan tekan F9. Pada kotak actions yang muncul, masukan script berikut:
//mengganti kursor mouse dengan lingkaran
Mouse.hide();
startDrag(_root.lingkaran, true);
//membuat trailnya
var i:Number = 0;
var bayangan_max:Number = 15;
onEnterFrame = function () {
i++;
if (i>bayangan_max) {
i = 1;
}
duplicateMovieClip(lingkaran, "lingkaran"+i, i);
};
9. Tekan Ctrl+Enter untuk melihat hasilnya.
-Delphi : Drive Tipe-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
typ:Integer;
s : string;
begin
s := 'C:\';
typ := GetDriveType(PChar(s));
if Typ <> 0 then case typ of
DRIVE_REMOVABLE:
begin
ShowMessage('Drive Removable / Diskette');
end;
DRIVE_FIXED:
begin
ShowMessage('Drive fixed');
end;
DRIVE_CDROM:
begin
ShowMessage('CD ROM Drive');
end;
DRIVE_RAMDISK:
begin
ShowMessage('RAM Drive');
end;
DRIVE_REMOTE:
begin
ShowMessage('Remote Drive');
end;
end;
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
typ:Integer;
s : string;
begin
s := 'C:\';
typ := GetDriveType(PChar(s));
if Typ <> 0 then case typ of
DRIVE_REMOVABLE:
begin
ShowMessage('Drive Removable / Diskette');
end;
DRIVE_FIXED:
begin
ShowMessage('Drive fixed');
end;
DRIVE_CDROM:
begin
ShowMessage('CD ROM Drive');
end;
DRIVE_RAMDISK:
begin
ShowMessage('RAM Drive');
end;
DRIVE_REMOTE:
begin
ShowMessage('Remote Drive');
end;
end;
end;
end.
-IP Server Counter Strike-
2010-02-05
Bingung cari IP server Counter Strike???
Saya pernah ngalaminnya lho..., jadi yah buat mudahin temen-temen neh saya bagi sedikit... semoga membantu....
[# 01 - IndoGamers Public Server] : 122.144.2.222:27001
[# 02 - IndoGamers Public Server] : 122.144.2.222:27002
[# 03 - IndoGamers Public Server] : 122.144.2.222:27003
[# 04 - IndoGamers Public Server] : 122.144.2.222:27004
[# 05 - IndoGamers Public Server] : 122.144.2.222:27005
[# 06 - IndoGamers Public Server] : 122.144.2.222:27006
[# 07 - IndoGamers Public Server] : 122.144.2.222:27007
[# 08 - IndoGamers Public Server] : 122.144.2.222:27008
[# 09 - IndoGamers Public Server] : 122.144.2.222:27009
[# 10 - IndoGamers Public Server] : 122.144.2.222:27010
[# 11 - IndoGamers Public Server] : 122.144.2.222:27011
[# 12 - IndoGamers Public Server] : 122.144.2.222:27012
[# 13 - IndoGamers Blue War Server] : 122.144.2.222:27013
[# 14 - IndoGamers Green War Server] : 122.144.2.222:27014
[# 15 - IndoGamers Soccer Jam] : 122.144.2.3:27015
[# 16 - IndoGamers Predator II] : 122.144.2.3:27016
[# 17 - IndoGamers Zombie Swarm] : 122.144.2.3:27017
[# 18 - IndoGamers Zombie Swarm] : 122.144.2.3:27018
[# 19 - IndoGamers GunGame Mod] : 122.144.2.3:27019
[# 20 - IndoGamers GunGame Mod] : 122.144.2.3:27020
[# 21 - IndoGamers Black War Server] : 122.144.2.3:27021
[# 22 - IndoGamers White War Server] : 122.144.2.3:27022
[# 23 - IndoGamers CSDM Server] : 122.144.2.4:27023
[# 24 - IndoGamers CSDM Server] : 122.144.2.4:27024
[# 25 - IndoGamers CSDM Server] : 122.144.2.4:27025
[# 26 - IndoGamers Resident Evil] : 122.144.2.4:27026
[# 27 - IndoGamers Resident Evil] : 122.144.2.4:27027
[# 28 - IndoGamers Resident Evil] : 122.144.2.4:27028
[# 29 - IndoGamers Silver War] : 122.144.2.4:27029
[# 30 - IndoGamers Gold War] : 122.144.2.4:27030
[# 31 - IndoGamers Arena Server] : 122.144.2.5:27031
[# 32 - IndoGamers Arena Server] : 122.144.2.5:27032
[# 33 - IndoGamers AWP Server] : 122.144.2.5:27033
[# 34 - IndoGamers Public Server] : 122.144.2.5:27034
[# 35 - IndoGamers Public Server] : 122.144.2.5:27035
[EZ War Arena-02] war.ez.net.id:27018 : 202.80.112.60:27018
[Vivagamers]CSDM-01 v23B : 203.84.158.146:27015
[Vivagamers]CSDM-02 v23B : 203.84.158.146:27016
[Vivagamers]GunGame-01 v23B : 203.84.158.156:27018
[Vivagamers]GunGame-02 v23B : 203.84.158.156:27019
[Vivagamers]JOGJA Pub-01 v23B : 202.65.113.130:27015
[Vivagamers]JOGJA Pub-02 v23B : 202.65.113.130:27016
[Vivagamers]JOGJA Pub-03 v23B : 202.65.113.130:27017
[Vivagamers]JOGJA Pub-04 v23B : 202.65.113.130:27018
[Vivagamers]Pub-01 WCG-ID : 203.84.158.158:27015
[Vivagamers]Pub-02 WCG-ID : 203.84.158.154:27015
[Vivagamers]Pub-03 WCG-ID : 203.84.158.158:27016
[Vivagamers]Pub-04 WCG-ID : 203.84.158.154:27016
[Vivagamers]Pub-05 WCG-ID : 203.84.158.158:27017
[Vivagamers]Pub-06 WCG-ID : 203.84.158.154:27017
[Vivagamers]Pub-07 WCG-ID : 203.84.158.158:27018
[Vivagamers]Pub-08 WCG-ID : 203.84.158.154:27018
[Vivagamers]Pub-09 WCG-ID : 203.84.158.158:27019
[Vivagamers]Pub-10 WCG-ID : 203.84.158.154:27019
[Vivagamers]Pub-11 v23B : 203.84.158.156:27015
[Vivagamers]Pub-12 v23B : 203.84.158.156:27016
[Vivagamers]Pub-13 v23B : 203.84.158.156:27017
[Vivagamers]Pub-Battle : 203.84.158.150:27020
[Vivagamers]Soccer Jam v23B : 203.84.158.146:27020
[Vivagamers]War-1 v23B : 203.84.158.150:27015
[Vivagamers]War-2 v23B : 203.84.158.150:27016
[Vivagamers]War-3 v23B : 203.84.158.150:27017
[Vivagamers]War-4 v23B : 203.84.158.150:27018
[Vivagamers]War-5 v23B : 203.84.158.150:27019
Selain IP Server Counter Strike, di sini juga ada beberapa server game online lain seperti dota,reseident evil, dan lain-lain...........
Saya pernah ngalaminnya lho..., jadi yah buat mudahin temen-temen neh saya bagi sedikit... semoga membantu....
[# 01 - IndoGamers Public Server] : 122.144.2.222:27001
[# 02 - IndoGamers Public Server] : 122.144.2.222:27002
[# 03 - IndoGamers Public Server] : 122.144.2.222:27003
[# 04 - IndoGamers Public Server] : 122.144.2.222:27004
[# 05 - IndoGamers Public Server] : 122.144.2.222:27005
[# 06 - IndoGamers Public Server] : 122.144.2.222:27006
[# 07 - IndoGamers Public Server] : 122.144.2.222:27007
[# 08 - IndoGamers Public Server] : 122.144.2.222:27008
[# 09 - IndoGamers Public Server] : 122.144.2.222:27009
[# 10 - IndoGamers Public Server] : 122.144.2.222:27010
[# 11 - IndoGamers Public Server] : 122.144.2.222:27011
[# 12 - IndoGamers Public Server] : 122.144.2.222:27012
[# 13 - IndoGamers Blue War Server] : 122.144.2.222:27013
[# 14 - IndoGamers Green War Server] : 122.144.2.222:27014
[# 15 - IndoGamers Soccer Jam] : 122.144.2.3:27015
[# 16 - IndoGamers Predator II] : 122.144.2.3:27016
[# 17 - IndoGamers Zombie Swarm] : 122.144.2.3:27017
[# 18 - IndoGamers Zombie Swarm] : 122.144.2.3:27018
[# 19 - IndoGamers GunGame Mod] : 122.144.2.3:27019
[# 20 - IndoGamers GunGame Mod] : 122.144.2.3:27020
[# 21 - IndoGamers Black War Server] : 122.144.2.3:27021
[# 22 - IndoGamers White War Server] : 122.144.2.3:27022
[# 23 - IndoGamers CSDM Server] : 122.144.2.4:27023
[# 24 - IndoGamers CSDM Server] : 122.144.2.4:27024
[# 25 - IndoGamers CSDM Server] : 122.144.2.4:27025
[# 26 - IndoGamers Resident Evil] : 122.144.2.4:27026
[# 27 - IndoGamers Resident Evil] : 122.144.2.4:27027
[# 28 - IndoGamers Resident Evil] : 122.144.2.4:27028
[# 29 - IndoGamers Silver War] : 122.144.2.4:27029
[# 30 - IndoGamers Gold War] : 122.144.2.4:27030
[# 31 - IndoGamers Arena Server] : 122.144.2.5:27031
[# 32 - IndoGamers Arena Server] : 122.144.2.5:27032
[# 33 - IndoGamers AWP Server] : 122.144.2.5:27033
[# 34 - IndoGamers Public Server] : 122.144.2.5:27034
[# 35 - IndoGamers Public Server] : 122.144.2.5:27035
[EZ War Arena-02] war.ez.net.id:27018 : 202.80.112.60:27018
[Vivagamers]CSDM-01 v23B : 203.84.158.146:27015
[Vivagamers]CSDM-02 v23B : 203.84.158.146:27016
[Vivagamers]GunGame-01 v23B : 203.84.158.156:27018
[Vivagamers]GunGame-02 v23B : 203.84.158.156:27019
[Vivagamers]JOGJA Pub-01 v23B : 202.65.113.130:27015
[Vivagamers]JOGJA Pub-02 v23B : 202.65.113.130:27016
[Vivagamers]JOGJA Pub-03 v23B : 202.65.113.130:27017
[Vivagamers]JOGJA Pub-04 v23B : 202.65.113.130:27018
[Vivagamers]Pub-01 WCG-ID : 203.84.158.158:27015
[Vivagamers]Pub-02 WCG-ID : 203.84.158.154:27015
[Vivagamers]Pub-03 WCG-ID : 203.84.158.158:27016
[Vivagamers]Pub-04 WCG-ID : 203.84.158.154:27016
[Vivagamers]Pub-05 WCG-ID : 203.84.158.158:27017
[Vivagamers]Pub-06 WCG-ID : 203.84.158.154:27017
[Vivagamers]Pub-07 WCG-ID : 203.84.158.158:27018
[Vivagamers]Pub-08 WCG-ID : 203.84.158.154:27018
[Vivagamers]Pub-09 WCG-ID : 203.84.158.158:27019
[Vivagamers]Pub-10 WCG-ID : 203.84.158.154:27019
[Vivagamers]Pub-11 v23B : 203.84.158.156:27015
[Vivagamers]Pub-12 v23B : 203.84.158.156:27016
[Vivagamers]Pub-13 v23B : 203.84.158.156:27017
[Vivagamers]Pub-Battle : 203.84.158.150:27020
[Vivagamers]Soccer Jam v23B : 203.84.158.146:27020
[Vivagamers]War-1 v23B : 203.84.158.150:27015
[Vivagamers]War-2 v23B : 203.84.158.150:27016
[Vivagamers]War-3 v23B : 203.84.158.150:27017
[Vivagamers]War-4 v23B : 203.84.158.150:27018
[Vivagamers]War-5 v23B : 203.84.158.150:27019
Selain IP Server Counter Strike, di sini juga ada beberapa server game online lain seperti dota,reseident evil, dan lain-lain...........
Delphi-Installed program
Source:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
MyList: TStringList;
MyRegistry: TRegistry;
i: Integer;
Str: string;
begin
MyRegistry:=TRegistry.Create;
MyList:=TStringList.Create;
with MyRegistry do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall', False)=True then
GetKeyNames(MyList);
CloseKey;
for i:=0 to MyList.Count-1 do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+MyList[i], False);
Str:=ReadString('DisplayName');
if Str<>'' then
Memo1.Lines.Add(ReadString('DisplayName'));
CloseKey;
end;
end;
end;
end.
Bentuk Form:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
MyList: TStringList;
MyRegistry: TRegistry;
i: Integer;
Str: string;
begin
MyRegistry:=TRegistry.Create;
MyList:=TStringList.Create;
with MyRegistry do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall', False)=True then
GetKeyNames(MyList);
CloseKey;
for i:=0 to MyList.Count-1 do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+MyList[i], False);
Str:=ReadString('DisplayName');
if Str<>'' then
Memo1.Lines.Add(ReadString('DisplayName'));
CloseKey;
end;
end;
end;
end.
Bentuk Form:
Delphi-Record WAV
uses mmSystem;
{....}
procedure TForm1.Button1Click(Sender: TObject); // Record
begin
mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
mciSendString('SET mysound TIME FORMAT MS ' + // set time
'BITSPERSAMPLE 8 ' + // 8 Bit
'CHANNELS 1 ' + // MONO
'SAMPLESPERSEC 8000 ' + // 8 KHz
'BYTESPERSEC 8000', // 8000 Bytes/s
nil, 0, Handle);
mciSendString('RECORD mysound', nil, 0, Handle)
end;
procedure TForm1.Button2Click(Sender: TObject); // Stop
begin
mciSendString('STOP mysound', nil, 0, Handle)
end;
procedure TForm1.Button3Click(Sender: TObject); // Save
var
verz: String;
begin
GetDir(0, verz);
mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
mciSendString('CLOSE mysound', nil, 0, Handle)
end;
{....}
procedure TForm1.Button1Click(Sender: TObject); // Record
begin
mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
mciSendString('SET mysound TIME FORMAT MS ' + // set time
'BITSPERSAMPLE 8 ' + // 8 Bit
'CHANNELS 1 ' + // MONO
'SAMPLESPERSEC 8000 ' + // 8 KHz
'BYTESPERSEC 8000', // 8000 Bytes/s
nil, 0, Handle);
mciSendString('RECORD mysound', nil, 0, Handle)
end;
procedure TForm1.Button2Click(Sender: TObject); // Stop
begin
mciSendString('STOP mysound', nil, 0, Handle)
end;
procedure TForm1.Button3Click(Sender: TObject); // Save
var
verz: String;
begin
GetDir(0, verz);
mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
mciSendString('CLOSE mysound', nil, 0, Handle)
end;
Subscribe to:
Posts (Atom)