Hobi Nonton Mr.RF
This blog is about my opinion from event that i saw in my life
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
Type Data
1. Operator aritmatika
- Tambah : + (plus)
- Kurang : - (minus)
- Kali : *(bintang)
- Bagi : / (garis miring)
- Pangkat : ^
- Lebih dari = >
- Kurang dari = <
- Lebih dari sama dengan = >=
- Kurang dari sama dengan = <=
Type Data
- untuk teks => (string, Char)
- untuk number => (VarChar,double,single)
- untuk boleaan => (Or,Xor,Not,And)
- 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
Label:
Float to Str,
Int to Str,
Operator,
Type data
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.
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 |
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
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
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
Langganan:
Postingan (Atom)