Invert Image Processing and Source Code In Delphi

Hi Friend. Do You need Source Code of Image Processing..? But I’m only have in Delphi Programming. It is easy to Follow and Understand.

Invert Image is one of image processing to invert the color. The easy way to understand is Change Black Color to White and White to Black, but there are variation if the Red, Green and Blue value have variation.

Invert Image Basically obtain from decrease Value of 255 to Red Pixel Value, 255 to Green Pixel Value and 255 to B Pixel Value.



Below is Source Code for Invert Image Processing in Delphi.


procedure TForm1.ToolButtonInvertClick(Sender: TObject);
var i,j :byte;
PH:PByteArray;
R,G,B : integer;
begin
for i:=0 to FormHasil.ImgHasil.Height-1 do
begin
PH:=FormHasil.ImgHasil.Picture.Bitmap.ScanLine[i];
for j:=0 to FormHasil.ImgHasil.Width-1 do
begin
R:=255-PH[3*j];
G:=255-PH[3*j+1];
B:=255-PH[3*j+2];

PH[3*j]:= R;
PH[3*j+1]:= G;
PH[3*j+2]:= B;
end;
end;
FormHasil.ImgHasil.Repaint;
FormHistogram.Histogram;
end;


Please Comment If I’m Wrong. Comment are widely open…!!

Brightness Image Processing and Source Code In Delphi

Hi Friend. Do You need Source Code of Image Processing..? But I’m only have in Delphi Programming. It is easy to Follow and Understand.

Brightness manipulation is widely use in image processing. We give a value to the procedure to change the brightness. Positive value mean increase brighness and negative value mean decrease brightness.

(a. normal image)

(b. decrease brightness, histogram spread)


(c. increase brightness 1, histogram collect together in right side)

(d. increase brightness 2, histogram collect together in right side)


Below is Source Code for Brightness Image Processing in Delphi.


procedure TFormBright_Con.Brightness (A:integer);
var
i, j: integer;
R,G,B : integer;
PH:PByteArray;
begin
for i:= 0 to FormHasil.ImgHasil.Picture.Height-1 do
begin
PH:= FormHasil.ImgHasil.Picture.Bitmap.ScanLine[i];
for j:= 0 to FormHasil.ImgHasil.Picture.Width-1 do
begin
R:= A + round((PH[3*j]/255)*(255-A));
G:= A + round((PH[3*j+1]/255)*(255-A));
B:= A + round((PH[3*j+2]/255)*(255-A));

if R >255 Then R:=255
else if R<0 Then R:=0;
if G>255 then G:=255
else if G<0 Then G:=0;
if B>255 then B:=255
else if B<0 Then B:=0;

PH[3*j] := R;
PH[3*j+1] := G;
PH[3*j+2] := B;

end;
end;
end;




Please pass the value from SpinEdit Maybe or by TrackBar or manualy by Edit.
Example :

Brightness(TrackBar.Position);

Please Comment If I’m Wrong. Comment are widely open…!!

Undergraduate Examination

Dear All,
I need Support from All My Friend in The Blog World
to Succeced my Undergraduate Examination
in Friday, 24 April 2009

wish all the best for Me.


Empat Tingkatan Kekuatan berdasarkan Pekerjaan Seseorang

Apakah anda setuju ataukah tidak dengan pendapat berikut :

Ada 4 tipe pekerjaan yang berlaku di masyarakat dan menjebloskan kita ke masing-masing tipe /level pekerjaan itu :

1. Teknik / Teknis.
2. Ekonomik.
3. Hukum.
4. Dewan atau tingkat wakil rakyat.

Orang orang teknik ternyata paling bawah levelnya, mereka diperintah untuk benerin ini itu, ngecek ini itu, dan memastikan semua berjalan baik.

Orang ekonomi menguasai orang teknik, manajemen kebanyakan dilakukan oleh orang-orang yang tau ekonomi dan yang mampu memanajemen penghasilan.

Orang Hukum tentunya diatas orang ekonomi dan juga teknik levelnya. Keputusan keputusan yang ada tentunya harus menaati hukum yang ada. orang ekonomi dan teknik tidak boleh melaksanakan sesuatu pekerjaan yang melanggar hukum tentunya.

Diatas semuanya ada level yang banyak direbutkan di dekat dekat Pemilu, yaitu Dewan atau wakil rakyat. Mereka lah yang merancang dan membuat undang-undang atau peraturan yang dilaksanakan orang Hukum, dan dipatuhi orang ekonomi dan teknik juga !!!


Dibalik semua ini ternyata ada orang yang memiliki 2 level atau lebih sekaligus, misalnya:
  • orang ekonomi yang mengerti teknik
  • orang hukum yang tau ekonomi, atau
  • wakil rakyat yang tau teknik komputer.

hal itu hanya contoh, semua orang tentunya ingin mereka ada pada lebih dari 1 level agar tidak ditipu oleh orang orang level lain.

Show Hidden Files Using DOS

Hi Friends, This is how to Show Hidden Files Using DOS.
Just Use This Command in Command Prompt :

dir/ah

or

dir/ah/p/w --> for more detail output

But First You Must in the directory that you want to Check, In the picture below, i use Drive M. One hidden file in drive M is scan0003.jpg. Picture below show the result :


picture 1. using dir/ah


picture 2. using dir/ah/p/w





Return Hidden File to Normal using cmd (attrib)

Your flashdisk attack by viruses..?
and some file become hidden..?
and the file can't be restore to normal after viruses have been clean..?
try this manner maybe can fix your problem.. I hope it works..

1. if you confuse about using attrib in cmd, see the help with write
help attrib
in cmd (Windows command line)
2. Now go to the flashdisk directory and just write
attrib -R -A -S -H /S /D

and wait a moment..

all the hidden file will be restore to normal.

*) why using (-) ..?
--> just because it mean to be restore. the plus (+) mean to make the file to be hidden, be a system file etc.


Histogram in Image Processing and Source Code In Delphi

Histogram is The Image Processing Basic That Shows How Much Pixel Value of Red Green And Blue in their Level (usually From 0 to 255) in a Image.


Below is Source Code for Histogram Image in Delphi.


procedure TFormHistogram.Histogram;
var i,j :integer;
temp:PByteArray;

begin
for i:=0 to 255 do
begin
R[i]:=0;
G[i]:=0;
B[i]:=0;
end;
for i:=0 to FormHasil.ImgHasil.Picture.Bitmap.Height-1 do
begin
temp:=FormHasil.ImgHasil.Picture.Bitmap.ScanLine[i];
for j:= 0 to FormHasil.ImgHasil.Picture.Bitmap.Width-1 do
begin
inc(B[temp[3*j]]);
inc(G[temp[3*j+1]]);
inc(R[temp[3*j+2]]);
end;
end;

FormHistogram.ChartR.Series[0].Clear;
FormHistogram.ChartG.Series[0].Clear;
FormHistogram.ChartB.Series[0].Clear;
for i:=0 to 255 do
begin
FormHistogram.ChartR.Series[0].AddXY(i, R[i]);
FormHistogram.ChartG.Series[0].AddXY(i, G[i]);
FormHistogram.ChartB.Series[0].AddXY(i, B[i]);
end;
end;



Please Comment If I’m Wrong. Comment are widely open…!!

How Much Your Web or Blog have Google Indexed Page (GIP)?

We can know How Much Your Web or Blog have Google Indexed Page (GIP)? by open Google Website and write

site:http://OurWebName

Example :

site:http://picaswrite.blogspot.com



1. Open Google.com


2. Click Search

3. In Picture above You Can See The Number of Google Indexed Page (GIP)


There another way to know
The Number of Google Indexed Page (GIP) by view SEO Stats by MyPagerank




YM status on you wordpress sidebar

This is a Do-It-Yourself instruction on adding a YM status on you wordpress sidebar.
Steps:

1. Login to your admin area on your wordpress blog.
2. Click Presentation
3. Click Widgets
4. Add a Text Widget
5. Drag the widget to the sidebar area
6. Config The Widget
7. copy and paste this code

<a href="ymsgr:sendIM?YAHOO_ID"> <img src="http://opi.yahoo.com/online?u=YAHOO_ID&m=g&t=2&l=us"/></a>

8. Repace YAHOO_ID on the code with your ID

Example :

<a href="ymsgr:sendIM?picas_line"> <img src="http://opi.yahoo.com/online?u=picas_line&m=g&t=2&l=us"/></a>

9. Click Save changes
10. Your YM Status is now ready!


This also work for YM status in Blogger with HTML / JAVASCRIPT Gadget


Ping Another Computer

What is function of ping another computer..?
The answer is also a question..
Is there any connection to another computer..? Yes or No..?

How we can Ping Another Computer in Windows..?
Below is the steps

1. Open Command prompt (Start --> Run then write cmd )

2. You can ping by Domain Name

3. Or By IP Adress


If the ping succes then the result as above (Indicate no trouble in internet connection)
Else (Not success) there is no Reply..There is Request Time Out Message




Biometrics In My Mind

I'm have a great respect in biometrics development by Indian People. There are so much article and development in this Field by Indian People. In America, Much of the Biometrics The Lecture is Indian People. The Name Of Anil Jain, etc is greatly famous in Biometrics literature and development.

Why we just stay..? We must follow, even together develop this kind of technology. In my mind we must use this kind of technology in our daily life. Fingerprint Absent, Face Recognition, Iris Recognition. Etc.

Indonesia is New in Biometric's Technology, But that is not the reason to be the lower place than another Country. I Hope we can move faster and faster..



Automatic Friends Link




Please Link Me Back After You Post Your Link..
Ok Friend..?

Give a Comment Too..

Quick Count Pemilu 2009


Tidak dapat dikatakan bahwa tiadalah gunanya quick count dalam Pemilu. Perhitungan suara cepat Pemilu ini dapat memberikan gambaran hasil Pemilu secara cepat.

Setidaknya Quick Count tidak dilakukan oleh sebuah lembaga survei saja. Quick Count dilakukan oleh beberapa lembaga terkemuka diantaranya

LSI (1): Lembaga Survei Indonesia
LSN : Lembaga Survei Nasional
LSI (2) : Lingkaran Survei Indonesia
CIRUS : CIRUS Surveyors Group

Lembaga-lembaga survei tersebut menggunakan setidaknya 2000 an sample TPS untuk perhitungan suaranya. Walaupun Jumlah TPS di Indonesia sekitar 528.217 TPS yang tersebar di 33 provinsi, dengan jumlah pemilih setiap TPS maksimal sebanyak 500 orang. (Simber : Kanal Pemilu). Sampel yang ada tersebut ternyata mewakili keseluruhan data Pemilu di seluruh indonesia.

Tak dapat dipungkiri bahwa hasil Quick Count Hampir mirip dengan perhitungan Sebenarnya. Dalam 3 jam saja (sampai jam 3 Sore, Selesai Pemilu Jam 12) dengan persentase data masuk sekitar 70-80 % (dari 2000an TPS) sudah dapat diketahui partai mana pemenang Pemilu legislatif 2009. Bahkan Urutan dan persentase suara partai-partai tersebut tidak jauh berbeda dengan Perhitungan Real Count KPU (Perhitungan Cepat Seluruh Indonesia). Dalam 5 Jam Bahkan data dari 2000an TPS sudah masuk 95 % dan sudah diketahui Hasil secara Umum Pemilu Legislatif 2009.

Klaim bahwa margin Error 1 % masih dalam rentang yang dapat dipercaya dan tidak mengubah posisi-posisi partai yang ada.

KPU Sendiri menggunakan sistem real count dengan memanfaatkan teknologi QuickCount. Teknologi Quick Count ini menggunakan Gabungan Teknologi Komunikasi dan Komputer. SMS Gateway, Telepon dan Fax, Bahkan Intelegent Character Recognition (komputerisasi pengenalan tulis tangan yang handal) adalah teknologi teknologi yang digunakan.

Memang Seharusnya Pemanfaatan Teknologi kita terapkan demi kemajuan bangsa. Tetaplah Maju Indonesia!!!


Desaturate Effect in Photoshop

Hi, welcome back in Photoshop Tutorial. This time i try to show the Desaturate Effect in Photoshop.

here is the original image (unud building).

then use the Rectangular Marque Tool to make a Rectangular Selection.


Use Shift + Ctrl + U or Image-->Adjusment-->Desaturate. Below The result.


This Desaturate Effect can be use as Past effect (grayscale side) or Present effect (color side)of the Picture. You can also use another way beside this desaturate effect..^_^


Skycar : Mobil Terbang

mobil terbang

Seperti khayalan yang menjadi kenyataan, seorang penjelajah Inggris akan memecahkan rekor pengembaraan dari London hingga Timbuktu menggunakan mobil terbang. Ekspedisi selama 42 hari itu akan menyelesaikan perjalanan sejauh 6400 kilometer.

"Saya suka banyak hal dan berpikir ini akan menjadi tantangan yang menarik. Apalagi Timbuktu yang merupakan tempat yang ikonik dan nyentrik," ujar Neil Laughton, yang sudah menaklukkan semua gunung tertinggi di tujuh benua dan kutub utara. Salah satu kota di Mali, Afrika barat itu memang terkenal nuansa misteriusnya.

mobil terbang

Dengan kendaraan yang khsusu didesain untuk misi ini, Laughton akan melintasi Perancis, Spanyol, dan Moroko sebelum mencapai Gurun Sahara sebagai pintu masuk ke Mali melalui Mauritania. Ia juga harus terbang di atas Selat Gibraltar sejauh 14 kilometer untuk menyeberang ke Afrika dan berencana terbang melintasi Pegunungan Atlas di Maroko.

Dalam tantangan kali ini, ia tidak sepenuhnya melayang di udara dalam. Perjalanan tersebut diselingi jalan darat menggunakan kendaraan yang sama. Kendaraan yang digunakannya memang didesain dapat terbang maupun berjalan di permukaan tanah sesuai kebutuhan.

Kendaraan beroda empat yang diberi nama Skycar yang akan dipakainya didesain seorang perancang muda bernama Gilo Cardozo. Kendaraan tersebut dilengkapi sayap yang dapat diatur di kanan kirinya, kipas besar di belakang, dan parasut yang biasa dipakai untuk paragliding. Cardozo pernah merancang paraglider bermesin yang dipakai untuk mengitari puncak Gunung Everest tahun 2007.

Untuk mengubah dari kendaraan darat menjadi kendaraan udara, Skycar hanya butuh waktu tiga menit. Saat take off, pengemudi mengembangkan sayap. Dengan kecepatan hanya 70 kilometer perjam dan landasan sejauh 200 meter, Skycar sudah dapat melayang saat parasut paragliding dikembangkan. Di udara, kendaraan tersebut dapat bergerak dengan kecepatan 180 kilometer perjam.

Konsepnya pun benar-benar ramah lingkungan dengan bahan bakar biofuel. Saat di udara, pengemudi menggunakan pedal untuk mengendalikan arah terbangnya sambil mengubah-ubah sudut kemiringan sayapnya. Jika terjadi kondisi darurat tersedia parasut cadangan sehingga kendaraan dapat jatuh dengan aman di daratan.

"Inspirasinya datang dari kesadaran bahwa kita dapat mengemudi dan kita dapat terbang, jadi mengapa tidak melakukannya bersamaan? Masalahnya pada teknologi sayap, yang saya kira teratasi pada Skycar," ujar Cordozo. Setelah sukses dengan ekspedisi ini, Cordozo berencana menjualnya secara komersial dengan harga 50.000 poundsterling per unitnya.

Sumber : Kompas.Com; Skycar Expedition 2009



Random Background Color With PHP

The PHP random function (rand()) can be use to random webpage background color. Use this syntax on HTML body


<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Untitled Document</title>
</head>
<body bgcolor="<?php echo"#".rand(996699,999999); ?>">
</body>
</html>


Save this code in filetipe of PHP in your server. Then you can check what happen in your browser background color.

The 996699 is the first input color and 999999 is the second input color that use in rand() function.

You can change the color range by 000000 (black) to FFFFFF (white).

MySQL Visual Editor

There are some MySQL visual Editor to make our work easier than using Console with Text Command. Much thing will be easier, like query, connection to another MySQL Server, Back Up, Recovery. All we do in visual context. Several MySQL GUI (Graphical User Interface) are :

1. SQLYog

2. MySQL Query Browser
3. MySQL Maestro
4. Navicat for MySQL


The Navicat is the best and simple to use with more powerfull function. The user interface also nice and Cool.



Date Now in PHP

Wanna Script for date now in PHP..? But the Month is in Indonesian..Just change the Month in The Array..


<?php
$nama_bln=array(1=> "Januari", "Februari", "Maret", "April", "Mei",
"Juni", "Juli", "Agustus", "September",
"Oktober", "November", "Desember");

$tanggal=date("d");
echo "<select name=tgl>";
for ($i=1; $i<=31; $i++){
if ($tanggal==$i)
echo "<option value=$i selected>$tanggal</option>";
else
echo "<option value=$i>$i</option>";
}
echo "</select>";

$bulan=date("m");
echo " <select name=bln>";
for ($i=1; $i<=12; $i++){
if ($bulan==$i)
echo "<option value=$i selected>$nama_bln[$i]</option>";
else
echo "<option value=$i>$nama_bln[$i]</option>";
}
echo "</select>";

$sekarang=date("Y");
echo " <select name=tahun>";
for ($i=2000;$i<=$sekarang;$i++){
if ($sekarang==$i)
echo "<option value=$i selected>$sekarang</option>";
else
echo "<option value=$i>$i</option>";
}
echo "</select>";

?>



Just save as it as date.php and view in your localhost..

PHP-MySQL Connection

Hello i'm come back again, but now with PHP - MySQL Basic Tutorial.

Here we discuss about PHP MySQL Connection. The PHP Programmer usually know about this. There was mysql_connect and mysqli_connect. The function
mysql_connect and mysqli_connect actually have same objectives to provide a database connection, but mysqli_connect is newer version of mysql_connect.

So here is the code :


<?php
$hostname = "localhost";
$username = "root";
$password = "picas";
$database = "mydb";

$conn = mysql_connect($hostname, $username, $password)
or die("Connection fail ...");
mysql_select_db($database, $conn);
?>



<?php
$link = mysqli_connect (localhost, root, picas, mydb);
?>


The
mysqli_connect have shorter code than mysql_connect, and not using mysql_select_db.


Write A link In Blogger Post

My friend ask me how to write a link to another site, blog, or posting's link in blogger. Sometime we must know the html tag, but there easy way in blogger..

1. Write a word.

Picas

2. Block this word (i'm using image to show it was blocked)


3. Click the icon here



4. Paste the link there


5. OK and save if you finish.


Below the result