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');

Acer Aspire 4530, Masalah Driver Wireless

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) .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

Menginstal Game/Aplikasi Java Pada Motorola E398

Saya pernah jengkel dengan Hp Motorola E398 Saya. Saya berkali-kali mencoba untuk menginstal aplikasi java tapi tidak bisa.
Mulai dengan memakai sofware Bawaan Motorola Mobile Phone,Trus Pakai Pk2Comander ... di download di www.e398Mod.com tetep gak bisa. Saya berulang kali membaca dan mengikuti dengan cermat petunjuk yg ada diwebsite tersebut, Tp Hasilnya nihil. belum lama ini Saya secara kebetulan tahu kalau game java bisa diinstal lewat Bluetooth. Berikut adalah adalah perangkat yg Saya butuhkan :


1. USB Bluetooth Adapter (Saya Pakai Merk Triper)
2. Komputer


Sebelumnya driver dr Usb BlueTooth hrs terinstal di komputer (Biasanya Drivernya disertakan ketika Anda membeli Usb Bluetooth Adapternya ).

Cara menginstal Game Java dg BlueTooth :

Technorati Tags: Game,Aplikasi,Java,Handphone,bluetooth,Motorola,E398

1. Siapkan file Jar nya (Aplikasi java berextensi Jar). Aplikasi java (jar) bisa Anda mendownload gratis disini.
2. Koneksikan Usb Bluetooth Adapter ke Komputer, Buka Bluesoleil.
3. Aktifkan BlueTooth Hp Anda.
4. Koneksikan Hp Anda dengan komputer Melalui BlueTooth yg telah Anda aktifkan. Caranya dengan menekan Bulatan Merah pada Aplikasi BlueSoleil.Pastikan Nama Bluetooth hp Anda terdeteksi di Aplikasi BlueSoleil. DoubleClick Nama Bluetooth hp Anda,Masukkan kode Pair(Terserah Anda, Tetapi hrs sama dengan kode pair di Aplikasi BlueSoleil, Klo Saya Suka Pilih angka 7(Angka Sempurna)). Jd Anda hrs memasukan 2 kode pair yaitu diHP dan di Aplikasi BlueSoleil.Misalnya Kode Pair Hp 7 maka kode pair Aplikasi Soleil juga hrs 7.
5. Mentransfer File Aplikasi Java(Jar File). Pada Aplikasi BlueTooth Soleil Klik kanan Bluetooth Object Push service (Popup menu), lalu pilih Send Object. Disitu Muncul File Dialog, cari Directori Tempat File jar yg Anda Simpan, lupa memilih all file types(Supaya File jar Terlihat di File Dialog tersebut),Pilih File jar dr aplikasi yg Anda ingin instal di hp Anda.Di Hp Anda Ak Muncul Informasi Bahwa ada file yg masuk. Pilih Accept,pilih dimana Anda menyimpan aplikasi ini, Tranflash atau MemoriPhone ( tergantung Mana memori yg masih lapang). Pilih Install.
6. Aplikasi sudah bisa di gunakan di Hp Anda... Selamat
   

Terbilang Dalam Bahasa Indonesia Dengan Delphi

Dalam pemrograman kita sering dihadapkan keperluan merubah angka dalam bentuk terbilang, misalnya dalam kuitantasi atau mungkin untuk keperluan lain. Berikut adalah fungsi terbilang yang telah saya buat. Fungsi ini bisa menangani angka dengan koma misalnya 100,02

Unit Untuk Membuat Terbilang Dalam Bahasa Delphi(Pascal) dari inputan yg berupa angka.

Fungsi untuk merubah ke dalam Tulisan rupiah adalah

function ConvToRupiah(inp: string): string;

Dalam Fungsi ini menggunakan 2 fungsi lain yaitu

1. function getRatusan(inp: string;Index: integer;High: integer): string;

2. function terbilang2(inp: string): string;

Berikut Adalah unit tersebut

unit UBantuan;

interface
uses Messages, SysUtils, Variants, Classes, Graphics, Controls, Dialogs, StdCtrls;

function ConvToRupiah(inp: string): string;

implementation

function getRatusan(inp: string;Index: integer;High: integer): string;
var s,S2:integer;
temp,Ratus,puluh,satuan : string;
j : integer;
begin
S2:=strtoint(copy(inp,2,2));
S:=strtoint(inp[1]);
case s of
1: Ratus := 'seratus';
2: Ratus := 'dua ratus';
3: Ratus := 'tiga ratus';
4: Ratus := 'empat ratus';
5: Ratus := 'lima ratus';
6: Ratus := 'enam ratus';
7: Ratus := 'tujuh ratus';
8: Ratus := 'delapan ratus';
9: Ratus := 'sembilan ratus';
end;
if (s2<> 9) then
begin
case s2 of
10: Temp := 'Sepuluh';
11: temp := 'sebelas';
12: temp := 'dua belas';
13: temp := 'diga belas';
14: temp := 'empat belas';
15: temp := 'lima belas';
16: temp := 'enam belas';
17: temp := 'tujuh belas';
18: temp := 'delapan belas';
19: temp := 'sembilan belas';
end;
end
else
begin
case strtoint(inp[2]) of
2: puluh:= 'dua puluh';
3: puluh:= 'tiga puluh';
4: puluh:= 'empat puluh';
5: puluh:= 'lima puluh';
6: puluh:= 'enam puluh';
7: puluh:= 'tujuh puluh';
8: puluh:= 'delapan puluh';
9: puluh:= 'sembilan puluh';
end;
case strtoint(inp[3]) of
// 0: Satuan := 'nol';
1: begin
j:= Index;
if(strtoint(Inp)=1)and (j=2) then
Satuan := 'se'
else
satuan:= 'satu';
end;
2: Satuan := 'dua';
3: Satuan := 'tiga';
4: Satuan := 'empat';
5: Satuan := 'lima';
6: Satuan := 'enam';
7: Satuan := 'tujuh';
8: Satuan := 'delapan';
9: Satuan := 'sembilan';
end;
temp:= puluh + ' '+satuan;
end;
result:= Ratus+' '+ TrimLeft(temp);
end;

function terbilang2(inp: string): string;
var a,b,c : integer;
temp,angka,tb,inp2,ratus : string;
I,idx,l,l2: Integer;
AAngka: array of string;
say: array[1..14]of string ;
begin
say[1]:='';
say[2]:=' ribu';
say[3]:=' juta';
say[4]:=' milyar';
say[5]:=' triliun';
say[6]:=' biliun';
say[7]:=' mega biliun';
say[8]:=' giga biliun';
say[8]:=' tera biliun';
say[9]:=' mega tera biliun';
say[10]:=' giga tera biliun';
say[11]:=' tera tera biliun';
say[12]:=' mega tera tera biliun';
say[13]:=' giga tera tera biliun';
say[14]:=' tera tera tera biliun';

inp2:= INp;
if length(inp2)mod 3<>0 then
case length(inp2)mod 3 of
1: Inp2:= '00'+inp;
2: Inp2:= '0'+inp;
end;
setlength(aangka,length(inp2)div 3);
idx:=1;
for I := 0 to (length(inp2)div 3)-1 do
begin
Aangka[i]:= copy(inp2,idx,3);
inc(idx,3);
end;
L:= High(aAngka)+1;
L2:=L;
for i := low(aAngka) to High(aAngka)do
begin
Ratus:= getRatusan(Aangka[i],l,l2);
if (Trim(Ratus)='se') and (L=2) then
Temp:=Temp+' '+trim(Ratus)+ Trim(Say[L2-i])
else
if trim(Ratus)<>'' then
Temp:=Temp+' '+Ratus+ Say[L2-i];
dec(l);
end;
result:= Trim(temp);
end;

function ConvToRupiah(inp: string): string;
var a,b,c,Poskoma,PosTitik : integer;
temp,angka,dpnKoma,BlkKoma : string;
AdaKoma: boolean;
begin
PosKoma:= pos(',',Inp);
PosTitik:= pos('.',Inp);
if (Poskoma<>0) or (posTitik<> 0) then
begin
adaKoma:= true;
if PosKoma= 0 then posKoma:= PosTitik;
end
else
begin
adakoma:= False;
DpnKoma:= inp;
end;

if adakoma then
begin
dpnkoma:= copy(inp,1,posKoma-1);
blkKoma:= Copy(inp,posKoma+1,length(inp)-posKoma);
if trim(DpnKoma)='0' then
temp:= 'nol'+ ' koma ' + terbilang2(blkKoma)
else
temp:= terbilang2(dpnKoma)+ ' koma ' + terbilang2(blkKoma);
end
else
begin
temp:=terbilang2(dpnKoma);
end;
Result:= temp +' rupiah';
end;

end.

Untuk menggunakan Fungsi tersebut sbb:

Hasil adalah variable dengan type String

Hasil:=ConvToRupiah('100,01');