*Selamat Datang di Bang Tiyo's Blog*

Kamis, 30 Desember 2010

PROGRAM KALKULATOR SEDERHANA DELPHI 7

Karena saya baru bisa membuat aplikasi kalkulator sederhana ini menggunakan Delphi 7,,maka tak ada salahnya kand kalau aku berbagi ilmu ma temen2 sekalian. Ya walaupun masih sangat sederhana banget kalkulator buatan saya ini, tapi siapa tau berguna buat kalian semua.
Kalian sudah siap untuk membuatnya ??? oke sekarang siapkan dulu bahan2 yang dibutuhkan ya!!
1. Aplikasi Borland Delphi untuk membuatnya,, jika belum ada KLIK DISINI ! untuk men-downloadnya.
2. Makanan dan minuman, siapa tau kalian semua akan lapar karena keasyikan membuat kalkulator buatan sendiri nantinya.
Nah, kalo semuanya uda siap. Mari kita mulai mengerjakan.
1. Langkah pertama “save all” terlebih dahulu jika anda ingin menyimpannya, selanjutnya buatlah tampilan form seperti berikut ini !
Form tsb terdiri dari :
1 buah Radiogroup.
4 buah radio button.
3 buah label.
3 buah edit,dan
2 buat button.
Percantiklah tampilan font dan warna background sesuai dengan selera anda masing-masing.

2. Langkah yang selanjutnya adalah klik 2 kali pada radiobutton penjumlahan.

Setelah itu masukkan kode berikut !

var //inisialisasi data
Form1: TForm1;
a, b , c : real; //nilai yang tertera pada data a, b, c adalah real.

begin
a:=strtofloat(edit1.Text); //mengubah string ke float pada kotak nilai 1
b:=strtofloat(edit2.Text); //mengubah string ke float pada kotak nilai 2
c:= a+b; //Algoritma penjumlahan
edit3.Text:=floattostr(c); //mengubah integer ke string pada kotak Hasil
end;

Dan seterusnya pada radiobutton pengurangan, perkalian, pembagian. Tinggal ganti saja tandanya pada c:= sesuai dengan nama radiobuttonnya.

3. Langkah yang terakhir, klik 2 kali pada button reset.
Kemudian masukkan kode berikut ini !
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;

end;

Sedangkan Untuk button selesai.
masukkan kode berikut !
begin
close;
end;

end.

Nah,,sekarang udah jadi deh aplikasi kalkulator sederhanannya. Tinggal di pake tuh buat ngitung2 duit. Hahahaha :D.

Jumat, 19 November 2010

Program pascal Bintang piramida

Program bintang_piramid;
Uses wincrt;
Var
c,a,b,n : integer;
begin
 write(‘masukan angka genap sembarang utk menunjukkan baris pyramid’);
 readln(n);
 writeln;
  for a := 1 to (n div 2)+1 do
  begin
   for b := 1 to (n div 2)+(1-a) do
   write(‘ ‘);
   for c := 1 to (a*2)-1 do
    write(‘*’);
    writeln;
  end;
end.

Program pascal ganjil atau genap

Program ganjil_genap;
Uses wincrt;
Var
X, sisa : integer ;
Ket : string;
Begin
 Write(‘masukkan semua bilangan : ‘);readln(x);
 Sisa := x mod 2;
 If sisa = 0 then ket :=’genap’ else ket :=’ganjil’;
 Write(‘jadi jenis bilangan adalah : ‘);writeln(ket);
End.

Program pascal konversi celcius

Program celcius_fahrenheit_kelvin_reamur;
Uses wincrt;
Var pilihan: byte;
    C,f,k,r: real;
Begin
  Writeln(‘pilihan’);
  Writeln(‘1.menghitung celcius ke fahrenheit’);
  Writeln(‘2.menghitung celcius ke kelvin’);
  Writeln(‘3.menhitung celcius ke reamur’);
  Writeln(‘0.selesai.’);
  Pilihan :=5;
While(pilihan<0) or (pilihan>3)do
   Begin
    Writeln(‘pilih nomor(0-3) ?’);
    Readln(pilihan);
   End;
If pilihan =1 then
  Begin
   Write(‘ketik berapa derajat celcius? ‘);
   Readln(c);
   F := 32+c*1.8;
   Writeln;
   Writeln(c,’derajat celcius adalah ‘,F,’derajat Fahrenheit’);
   Readln;
   End;
If pilihan =2 then
  Begin
   Write(‘ketik berapa derajat celcius? ‘);
   Readln(c);
   K := c+273.15;
   Writeln;
   Writeln(c,’derajat celcius adalah ‘,K,’derajat Kelvin’);
   Readln;
   End;
If pilihan =3 then
  Begin
   Write(‘ketik berapa derajat celcius? ‘);
   Readln(c);
   R := c*0.8;
   Writeln;
   Writeln(c,’derajat celcius adalah ‘,R.’derajat reamur’);
   Readln;
  End;
End.

Kamis, 18 November 2010

Tentang Indonesia

Yang diakui oleh Internasional

Nie…beberapa serba-serbi yang dipunyai Negara tercinta kita…
INDONESIA….
1.                 Kebudayaan Indonesia yang diakui oleh Internasional.
Nah, buat kalian yang menganggap kalo budaya Indonesia itu ketinggalan jaman, jangan salah. Sebenarnya, banyak budaya Negara kita yang sudah diakui dunia Internasional Loh..!! Hebat kand .. !
Perjuangan pemerintah untuk memperjuangkan budaya aslinya memang bisa dibilang sukses meskipun banyak kendalanya.
Berikut beberapa budaya kita yang diakui oleh internasional :
§      Wayang kulit
Menteri Negara Kebudayaan dan Pariwisata I Putu Gede Ardika mengungkapkan, sejak 7 November 2003 lalu organisasi pendidikan, Ilmu Pengetahuan dan Kebudayaan PBB (UNESCO) telah mengakui wayang sebagai World Master Piece of Oral and Intangible Heritage of Humanity.
§      Keris
United Nation Educational Scientific and Cultural Organization (UNESCO) yang merupakan organisasi bidang pendidikan dan kebudayaan PBB Mengukuhkan Keris Indonesia sebagai karya agung warisan kemanusiaan milik seluruh Bangsa di dunia.
§      Batik
UNECO telah mengukuhkan tradisi Batik sebagai salah satu budaya  warisan dunia ASLI INDONESIA pada Oktober 2009 lalu di Perancis.
§      Lagu Rasa Sayange
Pemerintah Malaysia akhirnya menyerah soal polemic lagi Rasa Sayange. Menteri Kebudayaan,Kesenian,dan Warisan Malaysia R.ais Yatimtelah bertemu dengan Menteri Kebudayaan dan Pariwisata Jero Wacik. Dalam pertemuan itu, MALAYSIA MENGAKUI BAHWA LAGU RASA SAYANGE ADALAH MILIK INDONESIA.
§      Reog Ponorogo
Pemerintah Malaysia akhirnya MENGAKUI BAHWA REOG PONOROGO ADALAH MILIK INDONESIA. Tetapi, memang kebudayaan tersebut telah disebarkan di Johor dan Selangor oleh masyarakat Ponorogo yang tinggal di Malaysia sejak bertahun-tahun lalu. Sejarahnya, rakyat Ponorogo pernah hijrah ke Johor dan Selangor. Anak cucu dari rakyat ini mengembangkan kebudayaan Reog Ponorogo yang mereka bawa dari Ponorogo. Namun tetap saja asal-usul budaya ini tetap MILIK BANGSA INDONESIA.
§      Tari Pendet
Sebenarnya, Tari Pendet yang muncul dalam iklan promosi Malaysia bukan diklaim oleh Malaysia dengan sengaja melainkan karena kesalahan pihak iklan yang lalai karena meletakkan Tari Pendet kedalam iklan Promosinya. Jadi, pihak Malaysia tetap megakui bahwa Tari Pendet berasal dari Indonesia.
Mmmmmmm,,,keren kan, jadi kita mesti bangga karena budaya kita dihargai oleh dunia.
2.                 Para Penemu dari Indonesia
Ternyata menjadi bangsa Indonesia di dunia ini cukup membanggakan, karena memiliki putra-putra besar dalam ilmu segi ilmu pengetahuan,, yaa meskipunbelum sampai berpengaruh untuk dunia, tapi cukup berpengaruh untuk kemajuan Indonesia.
Berikut daftar 20 penemu yang perlu diketahui :
1)    Alexander Kawilarang – Penemu kapal ikan bersirip
2)   Abdul Jamil Ridho & Niti Soedigdo – Penemu varietas unggul singkong raksasa
3)   Arief Mulyana Djumra – Penemu pemacu produktifitas dan kualitas udang dan ikan
4)   Aryadi Suwono & Tim Peneliti ITB – Penemu bahan pendingin baru yang lebih hemat energy
5)   Bachruddin Jusuf Habibie – Penemu Teori, factor dan metode habibie (teknologi pesawat terbang)
6)   Budi Noviantoro – Penemu klip penambat bantalan kereta api dengan dua gigi
7)   Evvy Kartini – Penemu Pengahantar listrik berbahan gelas
8)   Lalu Selamat Mafiadinata – Penemu alat pemanggil ikan
9)   M.Djoko Srihono – Penemu penjernih air limbah
10) Neny Nurainy – Penemu Varian virus hepatitis B Indonesia
11)  Puji Slamet Arif – Penemu motor listrik hemat energy
12) Herman Johanes – Penemu tungku berbahan bakar briket arang kayu dan dedaunan
13) Maruni Wiwin Diarti – Penemu senyawa Antimilaobadati rumput laut
14) Robert Manurung – Penemu minyak jarak murni
15) Sutjipto & Ryantori – Penemu konstruksi pondasi sarang laba-laba
16) Sutrisno – Penemu alat perangkap lalat buah
17) Sedijatmo – Penemu konstruksi pondasi cakar ayam
18) Yanto Lunardi Iskandar – Anggota tim penemu HIV & metode Peningkatan Hematopoiesis
19) Zahlul Badaruddin – Penemu Zahid Integrated Unit ( Desain Sistem Efisien untuk Produksi Obat/kimia)
20)Yudi Utomo Imardjoko – Penemu container Limbah nuklir
3.                 4 Tokoh Dunia yang Punya Sejarah di Indonesia
*      Barrack Obama
Nah, untuk yang satu ini kita semua pasti kenal. Barrack Hussein Obama adalah Presiden Amerika saat ini. Barrack Obama lahir di Honolulu, Hawaii, 4 Agustus 1961. Dia dan keluarga pindah ke Jakarta, Indonesia tahun 1961. Obama kemudian bersekolah di SD Santo Fransiskus Asisi di Tebet, lalu pindah ke SDN Menteng I ( sekarang SD Besuki ) di Menteng hingga ia berusia 10 tahun. Saat ini Obama masih dapat berbicara bahasa Indonesia dengan tingkat dasar.
*      Giovanni van Bronckhosrt
Giovanni merupakan pemain Timnas Belanda yang lahir di Rotterdam, 5 Mei 1975. Meskipun dia lahir di Belanda, tapi Gio punya keterikatan dengan Indonesia, yakni orang tuanya yang merupakan orang asli Indonesia. Jadi Gio masih punya darah Indonesia.
*      Michelle Branch
Michelle Jacquet DeSevren Branch lahir di Phoenix, Aizona, 2 Juli 1983. Penyanyi blasteran Irlandia, Indonesia, Perancis, dan Belanda ini memiliki dua saudara. Nenek Michelle Branch dari ibunya lahir di Jawa Timur sehingga kemungkinan besar Michelle adalah keturunan Jawa. Ada kemungkinan pula ia keturunan Madura.
*      Jodi Ann Paterson
Jodi Ann Paterson yang lahir 31 juli 1975 adalah seorang foto model, aktris, dan ratu kacantikan Amerika. Jodi lahir di Balikpapan, Indonesia dan besar di Springfield, Oregon, Amerika Serikat. Ibunya adalah seorang Indonesia, sementara ayahnya seorang turunan Eropa-Amerika.