uses wincrt;
var x,y,hasil:real;
jawab:char;
begin
write ('masukan angka ke-1:');readln (x);
write ('pilih operator: (+)/(-)/(*)/(/)');readln (jawab);
write ('masukan angka ke-2:');readln (y);
if ( jawab= '+') then
begin
hasil:= x+y
end;
if ( jawab = '-') then
begin
hasil:= x-y
end;
if ( jawab = '*') then
begin
hasil:= x*y
end;
if (jawab='/') then
begin
hasil:= x/y
end;
write ('hasilnya: ',(hasil):5:2);
e...
Senin, 24 Oktober 2011
Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:
Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan...
Pada tutorial ini anda akan belajar bagaimana membuat aplikasi client server menggunakan visual basic & MYSQL Untuk lebih memperjelas pemahaman anda akan digunakan studi kasus program KASIR. Dimana pada implemantasinya nanti, aplikasi yang dibuat akan terpisah dengan database. Database akan ditempatkan pada sebuah server dan aplikasi dapat ditempatkan pada beberapa komputer client. Untuk pengembangan / pembuatan aplikasinya sendiri dapat...
Menghadapi era globalisasi ekonomi, ancaman bahaya laten terorisme, komunisme dan fundamentalisme merupakan sebuah tantangan tersendiri bagi bangsa Indonesia. Disamping itu yang patut diwaspadai adalah pengelompokan suku bangsa di Indonesia yang kini semakin kuat. Ketika bangsa ini kembali dicoba oleh pengaruh asing untuk dikotak kotakan tidak saja oleh konflik vertikal tetapi juga oleh pandangan terhadap ke Tuhanan...
Jaman dahulu kala di sebuah desa tinggal sebuah keluarga yang terdiri dari Ayah, Ibu dan seorang gadis remaja yang cantik bernama bawang putih. Mereka adalah keluarga yang bahagia. Meski ayah bawang putih hanya pedagang biasa, namun mereka hidup rukun dan damai. Namun suatu hari ibu bawang putih sakit keras dan akhirnya meninggal dunia. Bawang putih sangat berduka demikian pula ayahnya.
Di desa itu tinggal pula seorang janda yang memiliki anak bernama Bawang Merah. Semenjak ibu Bawang putih meninggal, ibu Bawang merah sering berkunjung...
Sabtu, 22 Oktober 2011
==========================================
Disana gunung, disini gunung,Ditengah-tengah bunga melatiSaya bingung kamu pun bingungKenapa ada bunga melati
==========================================Nasi uduk masih angetBeli nye di pinggir jalanYang lagi duduk manis bangetBoleh ga kite kenalan
==========================================Anak ayam turun ke bumiInduk ayam naik kelangitAnak ayam nyari kelangitInduk ayam nyungsep ke bumi
==========================================Jambu...
==========================================
Disana gunung, disini gunung,Ditengah-tengah bunga melatiSaya bingung kamu pun bingungKenapa ada bunga melati
==========================================Nasi uduk masih angetBeli nye di pinggir jalanYang lagi duduk manis bangetBoleh ga kite kenalan
==========================================Anak ayam turun ke bumiInduk ayam naik kelangitAnak ayam nyari kelangitInduk ayam nyungsep ke bumi
==========================================Jambu...
Hal utama agar Anda selalu awet muda adalah dengan selalu berjiwa muda, bersemangat, humoris dan percaya diri. Bila Anda selalu merasa muda, Anda pun akan awet muda.
2. Kembangkan minat dan hobiMengembangkan minat dan hobi yang Anda sukai akan membuat Anda selalu bersemangat hidup. Hobi dan minat setiap orang berbeda-beda dan sangat beragam, dari mulai memancing, main golf, pertukangan, sampai memelihara hewan piaraan. Temukanlah yang paling membuat Anda bahagia melakukannya.
3. Bergaul dan aktif secara sosialPergaulan dan kegiatan sosial...
Langganan: Postingan (Atom)
