Cool Calculator, Free Source Code Calculator

 

Saya pernah memposting artikel yang sama di delphi.org, cuma disana saya mempublish sourcenya dalam bentuk textnya saja. disini saya kan memberikan sourcecode dan aplikasinya. Berikut Adalah screenshootnya :

 

Kalkulator ini Bisa Diminimise dengan ukuran kecil dan dengan FormStyle FsStayOnTop, dengan Tujuan mempermudah interaktifitas dengan Aplikasi Lain.

Download SourceCode

Acer Aspire 4530, Masalah Driver Wireless Tidak Bisa Diinstall

ACER Aspire 4530 merupakan Laptop yang menggunakan Prosessor AMD Turion. Untuk ACER Aspire 4530 yang beredar dipasaran beberapa jenis yaitu ACER Aspire 4530 yang menggunakan prosessor AMD Turion™ X2 RM-70 (2.0 GHz, Cache 1 MB) ,prosessor AMD Turion™ X2 RM-72 (2.2 GHz, Cache 1 MB) ,prosessor AMD Turion™ X2 RM-74 (2.2 GHz, Cache 1 MB) .Berikut Spesifikasi lebih Detail ACER Aspire 4530-741G25Mn:

Platform    Notebook PC
Processor Type    AMD Turion X2 Processor
Processor Onboard    AMD Turion™ X2 RM-74 (2.2 GHz, Cache 1 MB)
Chipset    NVIDIA nForce MCP77MH
Standard Memory    1 GB DDR2 SDRAM PC-5300
Max. Memory    4 GB (2 DIMMs)
Video Type    NVIDIA® GeForce® 9100M G 64 MB
Display Size    14.1" WXGA TFT
Display Max. Resolution    1280 x 800
Display Technology    CrystalBrite TFT
Audio Type    Integrated
Speakers Type    Integrated
Floppy Drive    Optional
Hard Drive Type    250 GB Serial ATA 5400 RPM
Optical Drive Type    DVD±RW
Modem    Integrated
Networking    Integrated
Network Speed    10 / 100 / 1000 Mbps
Wireless Network Type    Integrated
Wireless Network Protocol    IEEE 802.11b, IEEE 802.11g
Wireless Bluetooth    Integrated
Keyboard Type    QWERTY 82 keys
Input Device Type    Touch Pad
Slot Provided    ExpressCard/ 54
Card Reader Provided    SD, MMC, Memory Stick / Stick PRO, xD-Picture Card
Interface Provided    3x USB 2.0, VGA, LAN, Audio
O/S Provided    Pre-sales Request Available
Battery Type     Rechargeable Lithium-ion Battery
Power Supply    External AC Adapter
Dimension (WHD)    339 x 39 x 243 mm
Weight    2.4 kg
Standard Warranty    1-year Limited Warranty by Authorized Distributor
Bundled Peripherals    Carrying Case
Others    Integrated Acer Crystal Eye webcam

ACER Aspire 4530-741G25Mn

Laptop ini termasuk laptop yang murah tetapi tidak murahan.Lumayan untuk bermain Game,Editing Gambar, Visual Studio, NetBeans, dll. Tapi Laptop ini juga tidak terlepas dari pemasalahan, bagi yang pernah install ulang laptop ini pasti mengeluhkan tentang sulitnya menginstall driver wirelessnya, Karena CD Driver bawaannya file untuk driver wirelessnya tidak bisa diinstall. Untuk mengatasi hal ini kita harus mencari driver yang cocok dengan laptop ini. Misalnya Laptop yang menggunakan Atheros AR5B91, Drivernya bisa di download dilink berikut :

Download File

Untuk Windows XP 32 bit download driver 32 bit, begitu juga untuk windows 64 bit. setelah didownload dari  Device Manager, klik kanan untuk Wirelessnya dan Update driver, selanjutnya arahkan ke file yang telah Didownload tadi. Selamat Mencoba.....

Semoga Berhasil

Memperbaiki Grub Ubuntu

Bagi yang menggunakan Linux dan windows bersama-sama,Sering kali windows harus diinstall ulang, karena mungkin kena virus atau keluhan-keluhan yang lain. Dengan Install ulang windows mungkin masalah problem windows teratasi, Tetapi ini juga mengakibatkan Linux tidak bisa terdeteksi, Karena grubnya hilang.

Untuk Mengatasinya :

1. Boot off dari LiveCD
2. Buka Terminal dan ketikan perintah berikut. Dan juga perhatikan hd0,0 Adalah pastisi pertama pada hardisk tersebut, dimana grub tersebut terinstall, jika tidak sesuaikan

sudo grub

> root (hd0,0)

> setup (hd0)

> exit

Reboot ( ambil livecd), dan menu bootnya akan kembali.

Download video YouTube

YouTube merupakan situs yang menyediakan layanan video secara online, dari berbagai negara. Video-Video yang di tampilkan sangat beragam, dan mungkin menarik hati kita. Tetapi sayangnya Video itu tidak bisa didownload dengan mudah. Ada banyak Cara yang bisa kita lakukan untuk mendownload video yang dimaksud.

Berikut adalah 2 jenis cara yaitu:

1. Dengan layanan website lain, misalnya keepvid
2. Dengan menggunakan Bantuan Sofware.

Saya akan mengupas yang menggunakan sofware khususnya software orbit downloader v2.8.7. Anda bisa mencari sofware ini di internet dan mendownloadnya. Bagusnya Ini GRATIS!!. Setelah Anda mendownloadnya, Installlah Sofware ini di komputer anda. Setelah terinstall jalankan Orbitnya. lalu jalankan pula Grab++ nya.

kemudian refresh browsernya, Anda Bisa lihat Videonya yang anda maksud ada pada list Grab++nya(Dengan ekstensi .FLV).

Selanjutnya Klik tombol download.

Setelah Terdownload Anda bisa memutarnya melalui MediaPlayer Classic, Atau Flv player lainnya.

Converting Octal to Decimal (konversi Octal ke desimal)

Untuk melengkapi Post sebelumnya tentang Konversi system bilangan, Saya menyertakan juga konversi  Octal (basis 8) ke Desimal.

Berikut Adalah source codenya:

Function Pangkat(Base : integer; exp: integer ): integer;
var i : integer;
begin
  result:= 1;
  for i := 1 to exp do
  begin
  result:=Result*Base;
  end;
end;

function OctToDec(Inp: String): String;
Var
  I : Integer;
  pwr : integer;
  des : integer;
  bil : Integer;
  S: String;
Begin
  Pwr:= length(Inp)-1;
  des:=0;
  For I := 0 to length(inp)-1 do
  begin
  S:= Copy(Inp,i+1,1);
  bil:=StrToInt(S);
  des:= des + (Bil*pangkat(8,pwr));
  dec(Pwr);
  end;
  Result:= IntToStr(Des);
end;

Untuk menggunakan Fungsi ini Sbb:

Var Hasil: String;

Begin

.

.

  Hasil:= OctToDec('10');

Converting Decimal to Octal (konversi Desimal ke Octal)

Untuk melengkapi Post sebelumnya tentang Konversi system bilangan, Saya menyertakan juga konversi Desimal ke Octal (basis 8) 

Berikut Adalah Sourcecodenya :

Function DecToOct(Inp : String): String;

Var
  HasilBagi,SisaBagi : Integer;
  Oct,Oktal : String;
  i : integer;
  Des : integer;
Begin
  Oct := '';
  Oktal := '';
  Des:= StrToInt(inp);
  Repeat
  SisaBagi := des Mod 8;
  Oct:= Oct + intToStr(SisaBagi);
  HasilBagi := Des Div 8;
  des:= HasilBagi;
  Until HasilBagi = 0;

  For I := length (Oct) Downto 1 Do
  Begin
  Oktal := Oktal+ Oct[i];
  End;
  Result:= Oktal;

End;

Untuk Menggunakannya :

Var Hasil : String;

begin

.

.

  Hasil := DecToOct('8'); 

Converting Binary to decimal (Konversi Biner ke Desimal)

Pada post Sebelumnya saya telah menulis tentang konversi Desimal ke Biner. Pada Post ini Saya akan mengupas tentang kebalikannya yaitu Konversi Biner ke Desimal

Function Pangkat(Base : integer; exp: integer ): integer;
var i : integer;
begin
  result:= 1;
  for i := 1 to exp do
  begin
    result:=Result*Base;
  end;
end;

Function BinToDec(Inp : String): String;

Var
  I : Integer;
  pwr : integer;
  des : integer;
Begin
  Pwr:= length(Inp)-1;
  des:=0;
  For I := 1 to length(inp) do
  begin
    if inp[i]='1' then des:= des + pangkat(2,pwr);
    dec(Pwr);
  end;
  Result:= INtTostr(Des);

End;

Pemakaian Fungsi Ini :

Var Hasil : String;

Begin

.

.

  Hasil:= BinToDec('11111010');

Convert Decimal to binary(Konversi Desimal ke Biner)

Bagi yang Pernah berurusan dengan kriptografi,Pemrograman hardware,Pemrograman Citra , Fungsi Ini Sering digunakan :

Berikut Adalah Sourcecodenya :

Function DecToBin(Inp : String): String;

Var
  HasilBagi,SisaBagi : Integer;
  Bin,Biner : String;
  i : integer;
  Des : integer;
Begin
  Bin := '';
  Biner := '';
  Des:= StrToInt(inp);
  Repeat
    SisaBagi := des Mod 2;
    bin:= bin + intToStr(SisaBagi);
    HasilBagi := Des Div 2;
    des:= HasilBagi;
  Until HasilBagi = 0;

  For I := length (Bin) Downto 1 Do
  Begin
    Biner := Biner + Bin[i];
  End;
  Result:= Biner;

End;

Penggunaannya 

var Hasil: String;

begin

.

.

Hasil:=DecToBin('254'); 

Convert Hexadecimal to Decimal (HexaDecimal ke Decimal)

Pada post sebelumnya saya telah menulis tentang Konversi Decimal ke Hexadecimal.Pada Post ini saya akan mengupas tentang fungsi untuk merubah Hexadecimal ke Decimal.

Berikut Adalah source codenya :

Fungsi Pendukung

Function Pangkat(Base : integer; exp: integer ): integer;
var i : integer;
begin
  result:= 1;
  for i := 1 to exp do
  begin
  result:=Result*Base;
  end;
end;

Fungsi Utama

function HexToDec(Inp: String): String;
Var
  I : Integer;
  pwr : integer;
  des : integer;
  bil : Integer;
  S: String;
Begin
  Pwr:= length(Inp)-1;
  des:=0;
  For I := 0 to length(inp)-1 do
  begin
  S:= Copy(Inp,i+1,1);
  if S='0' then Bil:= 0;
  if S='1' then Bil:= 1;
  if S='2' then Bil:= 2;
  if S='3' then Bil:= 3;
  if S='4' then Bil:= 4;
  if S='5' then Bil:= 5;
  if S='6' then Bil:= 6;
  if S='7' then Bil:= 7;
  if S='8' then Bil:= 8;
  if S='9' then Bil:= 9;
  if S='A' then Bil:= 10;
  if S='B' then Bil:= 11;
  if S='C' then Bil:= 12;
  if S='D' then Bil:= 13;
  if S='E' then Bil:= 14;
  if S='F' then Bil:= 15;
  des:= des + (Bil*pangkat(16,pwr));
  dec(Pwr);
  end;
  Result:= IntToStr(Des);
end;

Untuk menggunakannya :

Var Hasil : String;

begin

.

.

 Hasil:=HexToDec('AF');

How To Convert Decimal to Hexadecimal in Delphi ( Konversi Bilangan Desimal Ke Hexa)

Bagi yang pernah membuat aplikasi enkripsi-deskripsi maupun pemrograman pengaksesan ke hardware pasti pernah membuat fungsi untuk mengkonversi Bilangan Desimal Ke Hexadesimal.

Berikut Adalah Source Code Fungsi ini :

Function DecToHex(Inp : String): String;
Var
  HasilBagi,SisaBagi : Integer;
  Hex,Hexa : String;
  i : integer;
  Des : integer;
Begin
  Hex := '';
  Hexa := '';
  Des:= StrToInt(inp);
  Repeat
  SisaBagi := des Mod 16;
  case sisaBagi of
  10: Hex := Hex + 'A';
  11: Hex := Hex + 'B';
  12: Hex := Hex + 'C';
  13: Hex := Hex + 'D';
  14: Hex := Hex + 'E';
  15: Hex := Hex + 'F';
  else Hex := Hex + intToStr(SisaBagi);
  end;
  HasilBagi := Des Div 16;
  des:= HasilBagi;
  Until HasilBagi = 0;

  For I := length (Hex) Downto 1 Do
  Begin
  Hexa := Hexa + Hex[i];
  End;
  Result:= Hexa;
End;

Untuk Menggunakan Fungsi ini Sebagai Berikut:

Var Hasil: String;

Begin

.

.

Hasil:= DecTOHex('15');