January 2013 - Ilmu Alakadarnya
Wie lautet meine IP

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">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">
.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>
<div class="pojokanmelengkung"></div>
</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.