PULSA GRATIS TERBARU 2013

Siang sahabat ilmu kali ini ilmu akan share cara mendapat pulsa hingga 100.000 untuk semua operator caranya sebagai berikut

klik DISINI dan ikuti langkah selanjutnya yang sudah tertera di situs tersebut semoga anda berhasil mendapatkan pulsa hingga 100.000.

sekian saran dan pemberitahuan dari ilmu saya rasa mudah...monggo di coba

Sudut Melengkung CSS

Dibawah ini adalah salah satu cara membuat pojok yang tadinya siku=siku menjadi melengkung dengan css. Langsung saja di praktekkan dengan mengetik scrip dibawah ini (dengan notepad) Lalu simpan dengan format (.html).

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>Untitled Document</title>

.pojokanmelengkung {

background-color: #FF6633;

margin-left: auto;

margin-right: auto;

height: 200px;

width: 1000px;

/*untuk css yang support di google crome*/

border-top-left-radius: 15px;

border-bottom-left-radius: 15px;

border-top-right-radius: 15px;

border-bottom-right-radius: 15px;

/*untuk css yang support di mozila firefox*/

-moz-border-radius-topleft: 15px;

-moz-border-radius-bottomleft: 15px;

-moz-border-radius-topright: 15px;

-moz-border-radius-bottomright: 15px;

}

</style>

</head>

<body>

</body>

</html>

Scrennshot nya sebagai berikut:

Sekian dahulu postingan yang ilmu buat semoga berhasil dan menambah pengetahuan anda

Source Code Task Manager dengan Delphi7

berikut ini adalah source code membuat task manager dengan delphi

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls,tlhelp32;

type
TForm1 = class(TForm)
ListView1: TListView;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
Procedure TutupProsesID(ID:THandle);
procedure BacaProses;
public
{ Public declarations }
end;

var
Form1: TForm1;
lvi:TListitem;
implementation

{$R *.dfm}
Procedure TForm1.TutupProsesID(ID:THandle);
//Disini kode untuk menututu proses
procedure TerminateProcessById(AID: Cardinal);
var
HndProcess,ExCode : THandle;
begin
//Baca Proses ID-nya
HndProcess := OpenProcess(PROCESS_ALL_ACCESS,True,AID);
GetExitCodeProcess(HndProcess,ExCode); {Dapatkan kode untuk menutupnya}
TerminateProcess(HndProcess,ExCode) {Tutup prosess sekarang..!};
CloseHandle(HndProcess); {Fresh Memory}
end;
{
Nah ini kode untuk dapat mengakses proses service yang biasanya tidak bisa
di terminate dengan kode biasa, untuk itu diperlukan kode tambahan
berikut kodenya :
}
function SetPrivilege(aPrivilegeName: string; aEnabled: boolean): boolean;
var
TP : TTokenPrivileges;
TPPrev : TTokenPrivileges;
Token : THandle;
dwRetLen : DWord;
begin
Result := False; //Nilai default
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
TP.PrivilegeCount := 1;
if (LookupPrivilegeValue(nil, PChar(aPrivilegeName), TP.Privileges[0].LUID)) then begin
if (aEnabled) then
TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
else
TP.Privileges[0].Attributes := 0;
dwRetLen := 0;
Result := AdjustTokenPrivileges(Token, False, TP, SizeOf(TPPrev), TPPrev, dwRetLen);
end;
CloseHandle(Token);
end;

function KillProcessByPID(pid: cardinal): boolean;
var
hProc : THandle;
begin
Result := False;
//Untuk mematikan proses dibutuhkan kode privilege
if not SetPrivilege('SeDebugPrivilege', True) then exit;
hProc := OpenProcess(STANDARD_RIGHTS_REQUIRED or PROCESS_TERMINATE, False, pid);
try
if hProc > 0 then begin
Result := TerminateProcess(hProc, 1);
end;
finally
CloseHandle(hProc);
SetPrivilege('SeDebugPrivilege', False);
end;
end;

Begin
KillProcessByPID(ID); //Tutup proses ID sekarang juga...!
End;

//Baca Semua proses di sini..
procedure TForm1.BacaProses;
var
hSnap:Cardinal;
pe32:TProcessEntry32;
s:String;
begin
//Buat dahulu snapshootnya di mulai dari proses desktop
hsnap:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);
if hSnap = INVALID_HANDLE_VALUE then
exit;
FillChar(pe32, sizeof(pe32),0);
pe32.dwSize:=Sizeof(pe32);
if not Process32First(hsnap, pe32) then
exit;
ListView1.Clear; //hapus seluruh list
//tambahkan seluruh list dengan nama dan PID proses..
repeat
lvi:=ListView1.Items.Add;
s:=IntToStr(pe32.th32ProcessID);
lvi.caption := pe32.szExeFile;
lvi.subitems.Add(s);
until not Process32Next(hsnap, pe32);
CloseHandle(hSnap);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Bacaproses;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Bacaproses;
end;

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
button2.Enabled := selected;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
TutupProsesID(strtoint(listview1.Selected.SubItems[0]));
end;

end.

semoga bermanfaat

Source Code Rename File dengan Delphi7

berikut ini adalah source code untuk merename file dengan delphi7
sebelumnya buat tampilan seperti ini

keterangan :
komponen yang dibutuhkan:
edit(2) "di pallete standard"
button(2) "di pallete stadard"
label(1) "di pallete standard"
open dialog(1) "di pallete dialogs"

sourcenya untuk button1

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='';
if OpenDialog1.Execute then
begin
Edit1.Text:=OpenDialog1.FileName;
Edit2.Text:=Edit1.Text;
end;

sourcenya untuk button2
procedure TForm1.Button2Click(Sender: TObject);
begin
if (Edit1.Text<>'')and(Edit2.Text<>'') then
if RenameFile(Edit1.Text, Edit2.Text) then Label1.Caption:='Rename OK'

end;

semoga bermanfaat.

Rename File Dengan Delphi7

Pagi ini ilmu akan posting sedikit tentang rename file dengan delhi7

berikut contohnya

baghi yang tertarik monggo download projectnya disini
untuk source code di postingan berikutnya,,,semoga bermanfaat dan salam ilmu.

Kondosi jalan yang ada di desa Tegalrejo Rt30/Rw10, Tambi Kejajar Wonosobo

Berikut ini adalah salah satu keteledoran pemimpin desa yang kurang memperhatikan lingkungan sekitarnya sampai-sampai jalan yang bisa dikatakan rusak berat sampai saat ini belum diperbaiki. Kurang labih 3 tahun yang lalu jalan ini termsuk jalan yang layak untuk di lewati akan tetapi 2 tahun terakhir ini jalan semakin rusak karena seringnya di lewati truk-truk pengangkut pasir yang kerap kali melewati jalan ini. Ditambah lagi musim hujan seperti saat ini jalanan semakin rusak akibat terseretnya pasir dan tanah yang terbawa arus air sehingga mengakibatkan bertambah besarnya luang-lubang yang ada. Untuk karena itu kami sebagai warga masyarakat yang mendiami daaerah tersebut sangat berharap agar pemimpin desa bisa dengan segera memperbaiki jalan tersebut dan mengadakan anggaran/pajak bagi truk-truk pengangkut pasir yang sering kali melewati jalan tersebut.

Berikut ini adalah gambar-gambar yang sempat saya ambil.

NB: Semoga Berita ini bisa tersebar sampai ke para pengurus desa/kabupaten maupun pemerintah agar ada ada tindak lanjut yang pasti dari pemerintah setempat.

Membuat Menu Pupdown dengan CSS

membuat menu pupdown

pertama copas kode berikut ini dan simpan dengan format (.html) untuk saran simpan dengan nama (index.html>

<html>
<head>
<title>Rahmawan EHS | Website</title>
<link href="css1.css" rel="stylesheet" type="text/css"/>
</head>
<body>

<div id="menu">
<ul>
<li><a href="#">Home</a></li>
<li><a href="#">About</a></li>
<li><a href="#">Internet</a>
<ul>
<li><a href="#">Website</a></li>
<li><a href="#">Blog</a></li>
<li><a href="#">Tips & Trik</a></li>
</ul>
</li>
<li><a href="#">PHP</a></li>
<li><a href="#">Profil</a></li>
<li><a href="#">Lain-lain</a>
<ul>
<li><a href="#">Daerah</a></li>
<li><a href="#">Alam</a></li>
<li><a href="#">Lain-lain</a></li>
</ul>
</li>
</ul>
</div>

</body>
</html>

kedua copas scrip dibawah ini dengan format(.css) untuk saran simpan dengan nama (css1.css)

body{
background:white;
}

#menu{
background-image:url(../img/mn.png);
position:relative;
width:900px;
height:50px;
border:1px solid #000000;
}

#menu ul{
padding:0;
margin:0;
list-style:none;
}

#menu ul li{
float : left;
position:relative;
}

#menu ul li a{
float:left;
color:#FFF;
padding:15px;
border-right:1px solid #000000;
text-decoration:none;
display:block;
text-transform:uppercase;
}

#menu ul li a:hover{
background-image:url(../img/mnhover.png);
color:#FFF;
}

#menu ul li ul {
display:none;
}

#menu ul li:hover ul{
display:block;
position:absolute;
top:50px;
left:-1;
}

#menu ul li:hover ul li a{
background-image:url(../img/mn.png);
display:block;
color:#000;
width:130px;
border-left:1px solid #000000;
border-bottom:1px solid #000000;
text-transform:none;
}

#menu ul li:hover ul li a:hover{
background-image:url(../img/mnhover.png);
color:#FFF;
}

sipan semua yang telak anda buat di dalam 1 folder

jalankan yang berformat html

semoga berhasil

Alat Bantu Pencarian Google Di Ilmu Alakadarnya

Mengetahui Tanggal Lahir Dengan SMS Jebakan

berikut ini adalah trik mencari informasi tanggal lahir seseorang dengan mengirimkan sms.....

ktik sms sebagai berikut ini

ambil kalkulatormu....
tanggal lahir kamu x4
+13
x25
-200
+bulan lahir kamu
x2
-40
x50
+dengan 2 angka terakhir tahun lahir kamu
-10500

jawabannya kirim balik ya.....

contohnya

17 x 4 +13 x25 -200 + 9 x2 -40 x50 +90 -10500
hasilnya adalah 170990 itulah tanggal lahir saya 17 - September - 1990
semoga trik ini berhasil

Tahun Baru 2013

Selamat tahun baru 2013....
untuk pada penduduk Indonesia khususnya ilmu mengucapkan selamat tahun baru walaupun tahun baru kali ini kondisi cuaca dan iklim sedang tidak mendukung kare hujan yang kerapkali menguyur mayoritas kota di indonesia. Dan ilmu berdo'a agar semua blog di Indonesia semakin maju di tingkat lokal dan nasional amin.