Minggu, 30 Januari 2011

Contoh dan Coding Calculator simple


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Button1: TButton;
Edit3: TEdit;
Button2: TButton;
Button3: TButton;
Edit4: TEdit;
Label2: TLabel;
Edit5: TEdit;
Button4: TButton;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Button5: TButton;
Label3: TLabel;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Button6: TButton;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var hasil : integer;
begin
hasil := strtoint (edit1.Text) + strtoint (edit2.Text);
edit3.Text := inttostr (hasil);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text :='';
Edit2.Text :='';
Edit3.Text :='';
Edit4.Text :='';
Edit5.Text :='';
Edit6.Text :='';
Edit7.Text :='';
Edit8.Text :='';
Edit9.Text :='';
Edit10.Text :='';
Edit11.Text :='';
Edit12.Text :='';

end;

procedure TForm1.Button4Click(Sender: TObject);
var hasil : integer;
begin
hasil := strtoint (edit4.Text) - strtoint (edit5.Text);
edit6.Text := inttostr (hasil);
end;

procedure TForm1.Button5Click(Sender: TObject);
var hasil : integer;
begin
hasil := strtoint (edit7.Text) * strtoint (edit8.Text);
edit9.Text := inttostr (hasil);

end;

procedure TForm1.Button6Click(Sender: TObject);
var hasil : double;
begin
hasil := strtoFloat (edit10.Text) / strtoFloat (edit11.Text);
edit12.Text := Floattostr (hasil);


end;

end.

Kursus Komputer Kantor di Palcomtech- Operator dan Type data

Operator dan Type data

1. Operator aritmatika
  •  Tambah : + (plus)
  • Kurang   : - (minus)
  • Kali        : *(bintang)
  • Bagi        : / (garis miring)
  • Pangkat  : ^
2. Perbandingan
  • Lebih dari = >
  • Kurang dari = <
  • Lebih dari sama dengan = >=
  • Kurang dari sama dengan = <=

Type Data
  1. untuk teks => (string, Char)
  2. untuk number => (VarChar,double,single)
  3. untuk boleaan => (Or,Xor,Not,And)
Type data dikelompokan jadi 4

  • Int to Str : mengubah bil. bulat ke string
  • Int to float : mengubah bil. bulat ke decimal
  • Float to Int : mengubah decimal ke bil. bulat
  • Float to Str : mengubah decimal ke string
  • Str to Int mengubah bil String to Int 
 Form Delphi hanya bisa membaca type data strings

Rabu, 11 November 2009

Menurunkan Tarif Cukai,mungkinkah ?

Beberapa waktu lalu segelintir orang-orang menghembuskan wacana agar tariff cukai diturunkan. Mereka beralasan untuk menggairahkan kembali bisnis di bidang tembakau serta hasil turunannya.Tentu saja ini menimbulkan polemik karena selain menjadi primadona pendapatan pemerintah, cukai juga menjadi hambatan bagi barang-barang yang sifatnya merusak. Apa itu cukai ? cukai adalah pungutan Negara yang dikenakan pada barang-barang yang memiliki sifat dan karakteristik tertentu yang biasanya negative. Jadi usulan untuk mengenai tarif cukai menurut saya sungguh tidak logis. Karena jika pemerintah melakukan hal tersebut selain membawa dampak yang besar pada pendapatan Negara, masyarakat akan melakukan protes keras mengenai hal ini. Di saat negara-negara lain berupaya mengurangi dampak negatif dari rokok dan minuman keras maka Indonesia sudah seharusnya ikut serta dalam membatasi ruang gerak ini dengan menerapkan tarif cukai yang tinggi.

Namun ada satu anomali yang terjadi saat ini, setiap tahunnya target dan tarif cukai selalu dinaikkan namun hal tersebut selalu Bea Cukai mampu melampauinya. Hal ini menjadi indikasi bahwa Indonesia telah menjadi industri rokok terbesar di dunia. Barang-barang yang dikenai cukai di Indonesia ada tiga yaitu EA,MMEA,dah hasil tembakau. Dan tembakau menjadi primadona terbesar saat ini. padahal jika menilik dari pengertiannya maka banyak barang yang dapat dikenakan cukai.
Sebagai contoh di Malaysia, Ban mobil disana dikenakan cukai karena dianggap merusak lingkungan. Serta di beberapa Negara benda-benda yang tidak dapat didaur ulang maka dikenai cukai. Spirit untuk menjaga seperti yang di berlakukan di beberapa Negara nampak tidak ada di negeri yang kita cintai ini. Apakah karena negeri kita ini mau di komandoi oleh segelintir pengusaha yang memproduksi barang yang bersifat buruk bagi manusia ? saya rasa tidak.

Menurut pendapat saya ada beberapa hal yang patut untuk dilakukan. Pertama tarif cukai saat ini sudah baik bahkan perlu ditingkatkan guna membatasi peredaran barang kena cukai di luar. Kedua perlunya di cari barang kena cukai yang baru,seperti benda-benda yang tidak dapat di daur ulang. Dan terakhir perlunya Dirjen Bea Cukai untuk meningkatkan pengawasan terhadap barang kena cukai di Indonesia.

Rabu, 21 Oktober 2009

Setelah sekian lama

Hai lg dah lama gx nulis,aq sekarang dah pindah ke stan makany agak sibuk kemaren,untung dah ada blogger mobile,btw masih seneng nonton film? Saya juga masih,Tapi dah mulai d kontrol.Nonton d palembang mahal siih.Banyak yg berubah dalam beberapa bulan ini,gw dah putus ma yg kemaren.Patah hati.Trz jadian lg ma yg ini,siapa? Tar aja yah hahaha.Eh mungkin isi blog akan d ubah gaya penulisan ny bagai nulis pandangan gaya novel2 gt,lg hobi menceritakan apa yg gw lihat dlm bentuk deskriptif realis sinitisme hahaha.Ehm dunia it jg dah mulai lupa lagi hahaha.Pokokny banyak deh.Just follow my story aj yah.

Sabtu, 06 Juni 2009

TerMinator Salvation


Well just like originall purpose of this blog,i review some movie that i've watch lately

first is Terminator Salvation, i'm sure you all have heard some synopsis of this film so i will tell to the point.

this film is telling us bout the struggle of john connor,who try stay alive and lead the human fighter from extinct by Skynet. And try to find Kyle Reese,a man who will he send to protect her mother in the past.

Meanwhile Kyle Reese meet someone who very mysterious who called himself marcus.

this movie is really great,from the story,sound effect,and cast.

you want to watch again after you see.soo i think you must spend your money to theater and watch it.

i think this movie will compare to transformer in some point but its natural coz i see this movie has same spirit with transformer . So Lets go to the movie theater guys...........

Best Sentence from the movie you need to remember :
"Everybody has rights for second chance"
Directed by McG
Produced by Derek Anderson
Victor Kubicek

Jeffrey Silver
Moritz Borman
Written by Screenplay:
John Brancato
Michael Ferris

Characters:
James Cameron
Gale Anne Hurd
Starring Christian Bale
Sam Worthington
Anton Yelchin
Moon Bloodgood
Bryce Dallas Howard
Common
Jadagrace Berry
Helena Bonham Carter
Music by Danny Elfman
Themes:
Brad Fiedel
Cinematography Shane Hurlbut
Editing by Conrad Buff
Studio The Halcyon Company
Wonderland Sound and Vision
Distributed by United States:
Warner Bros.
International:
Columbia Pictures
Release date(s) May 21, 2009 (US)
June 3, 2009 (UK)
June 4, 2009 (Aus/NZ)
June 5, 2009 (South Africa)
Running time 115 min.
Country United States
Language English
Budget $200 million
Gross revenue Domestic:
$95,885,496
Worldwide:
$122,776,292[1]
Preceded by Terminator 3: Rise of the Machines
the list are from wikipedia.org

Jumat, 05 Juni 2009

Trik edit dengan gimp,fotocopy

this my trik after i'm try to edit my picture

first open photo that you want to edit
then klik scissors icon in toolbox then choose area that you want to edit but the background is not
and then klik or touch enter
go to filter choose artistic and choose photocopy
you can manage the setting based on your style
enter
wooohaaaa look your picture now

this my edit i'm add some brush style to color it lil bit


Kamis, 04 Juni 2009

Confuse with world lately

Did you know that the world has become crazy and weird lately,for example in manohara case. Everytime that i watch my tv,the news program had became like gossip news,coz they show mano and mano and mano again ughh what happen with this nation. From my point of view this case is like indonesian sinetron there's no benefit if we watch it too many. If news program want to inform about our conflict with malaysian, why not from ambalat sea. If malaysian want naval battle and air fight with us lets just show them our main force.


I think prita case is more interest to follow, why just because write an e-mail and send it to her friends, she arrested.and she have been charge with UU ITE, for me that's not make any sense. How come,if court is decide mrs.prita is guilty than it make we cant give free comment in internet in indonesia.........

Well it's big trouble for me........ Whuaaaaaaaaaaaaaa