1. mempercepat akses folderr – dengan men-disable Last Access Update.
Jika anda memiliki banyak folder dan subdirectories, maka akses ke Direktory2 Windows XP terasa sangat berat dan seringkali cuman membuang waktu. Dengan mengupdate time stamp di registry, yaitu last access update untuk semua sub directory. * Start>Run>regedit * “HKEY_LOCAL_MACHINESystemCurrentControlSetCont r olFileSystem”Klik * kanan di bagian yg kan (cari area yg kosong), lalu pilih ‘DWORD Value’Bikin * DWORD Value dengan nama ‘NtfsDisableLastAccessUpdate’Klik kanan pada value baru terus pilih ‘Modify’Ubah data menjadi ’1′ * Klik ‘OK’
2. Mempercepat waktu BootFitur yg lumayan asik dari Windows XP adalah kemampuan untuk mendefrag ketika ada dalam proses booting. Boot Defrag pada prinsip menata file2 yg relevan dengan booting secara berurutan. Secara default fitur ini telah diaktifkan pada beberapa Build Windows, tapi beberapa build windows tidak, ada baiknya kalo kita cross check terhadap fiotur yg satu ini. * Start Menu>Run * Regedit * HKEY_LOCAL_MACHINESOFTWARE/Microsoft/DfrgBootOptimizeFunction * Cari “Enable” dibagian kanan regedit * Klik “Modify” * Pilih “Y to enable” * Reboot
Bagi kalian yang ingin belajar mikrotik dan gak punya uang buat beli RB
lah.. atau kasian computer dirumah di instal mikrotik doang.. Sebenarnya
ada banyak cara dan cara inipun sudah banyak bertebaran di internet..
Tetapi yang disayangkan kebanyakan COPAS ( Copy Paste ) Saya sering kali
melihat itu.. Ok Dah Let's Go To Pelajaran Pertama
1. Siap Kan Kopi atau Teh
2. Snack Ringan
3. Rokok Marlboro Putih (Kesenangan saya )
Langkah Pertama : Download Virtualbox Disini
Langkah Kedua : Download Mikrotik Disini
Instal Virtualbox seperti instal program biasa.
Setelah penginstalan selesai kita ikuti intruksi dibawah ini
Pilih Operating Sistem : Linux
Version : Linux 2.4
Selamat datang di dunia virtualisasi dan Linux. Tutorial ini dimaksudkan
untuk membantu pengguna yang baru ke dunia virtualisasi dan Linux
Sistem Operasi untuk menginstal dan mengkonfigurasi aplikasi Sun
VirtualBox dan kemudian instal Linux Mint 5 sebagai sistem operasi tamu
dengan menggunakan VirtualBox aplikasi Graphical User Interface (GUI).
Persyaratan Sistem untuk ini Tutorial:
(Sistem lain yang serupa) Windows XP atau Vista sistem operasi
menggunakan NTFS File Sistem (sistem berkas FAT batas ukuran file
berdekatan menjadi sekitar 4 Gigabytes, lihat Persyaratan Hard Drive
Space) 1,5 Gigabytes RAM (sistem minimum yang disarankan memori)
Setidaknya 20 Gigabytes free Hard Drive Space (Minimum 8 Gigabytes
diperlukan untuk virtual hard drive)
Untuk memulai, Anda perlu untuk men-download file instalasi untuk VirtualBox (pengguna Windows pilih x86/amd64):
http://www.virtualbox.org/wiki/Downloads
Untuk file iso bisa di unduh di http://repo.ugm.ac.id/iso :
Setelah Anda telah men-download file, Anda dapat mulai instalasi proses
dengan membuat restore point pada sistem restore. Hal ini dianjurkan
dalam hal instalasi penyebab kesalahan. Saya telah menggunakan
VirtualBox selama lebih dari satu tahun sebagai tulisan ini dan belum
memiliki masalah ketidakstabilan sistem karena itu.
Langkah pertama adalah untuk meluncurkan file instalasi dengan mengklik
(atau double-mengklik) pada file executable. Klik “Next” .
Menerima perjanjian lisensi dan pilih “Next”:
Terima menginstal setting default dengan memilih “Next”:
Pilih cara pintas preferensi Anda dan pilih “Next”:
Installer VirtualBox akan memperingatkan Anda bahwa itu harus mengatur ulang koneksi jaringan anda saat instalasi. Pilih “Ya”:
Terima menginstal pengaturan dengan memilih “Instal”:
Beberapa bulan yang lalu Java Creativity telah Share software Tune Up Utilities 2011.
Nah kali ini saya akan Share salah satu fitur yang terdapat pada si
Tune Up ini, yaitu Restore Deleted File, dalam kata lain kita dapat
mengembalikan file yang telah Terdelete (Terhapus) secara permanen.
Pasti anda pernah menghapus atau menekan SHIFT + DEL
pada file penting secara tidak sengaja ataupun sengaja, nah dengan
fitur inilah kita dapat Merestore (Mengembalikan) file yang sudah
terhapus secara permanen tersebut. Nah tidak usah basa basi lagi
langsung saja bagaimana cara Recovery File dengan Tune Up Utilities 2011
:
Buka program Tune Up Utilities 2011 milik anda, jika tidak punya maka silahkan download dulu Disini.
Sebagai bahan percobaan, kita akan menggunakan sebuah icon LFelix~.ico yang tersimpan pada drive E:/.
Selanjutnya kita akan menghapus icon tersebut secara permanen, dengan menekan SHIFT + DEL,
maka icon akan langsung dihapus dan anda tidak akan menemukannya dalam
recycle bin. Nah bayangkan jika itu adalah data penting anda. Bagaimana
cara mengembalikannya ??
Buka Tune Up Utilities 2011 anda dan masuk pada menu Fix Problem, lalu klik Restore deleted files.
Instalasi jaringan P2P (Peer To Peer) Pada windows 7
11. Sediakan
kabel cross yaitu kabel untuk membuat jaringan Peer To Peer. 22.Pastikan diantara
dua computer sudah saling terhubung dengan kabel UTP, atau adanya tanda koneksi
seperti pada gambar dibawah ini. Dengan cara masuk ke jendela control Panel kemudianpilih Network And Sharing Center.
Membuat Text Berjalan Dengan Visual Basic.NET - Pada
tutorial kali ini saya akan membahas tentang bagaimana cara membuat Text
berjalan pada VB.NET...
Ikuti langkah-langkahnya ya kawan...
hihi...
Fungsi-Fungsi String di VB.NET - Didalam
visual Basic ada banyak sekali fungsi-fungsi string, program sederhana yang
saya buat ini hanya menampilakan sebahagian fungsi string yang ada di visual
Basic.Net. bagi anda yang programmer pemula sangat cocok untuk mengetahui
fungsi-fungsi string yang sedehana dan mudah diingat J
Baiklah
langsung saja ya, Desain Formnya seperti yang diatas !!
Button/Teks
Name
LCase
Button1
UCase
Button2
Left
Button3
Right
Button4
Mid
Button5
LTrim
Button6
RTrim
Button7
Trim
Button8
Len
Button9
String
Button10
Instr
Button11
Replace
Button12
Split
Button13
Join
Button15
StrRiverse
Button16
StrConv
Button17
StrComp
Button18
Space
Button14
Exit
Button19
Setelah
Selesai Mengatur property diatas lalu masukkan listing program berikut ini.
Bismillah. Selamat sore semuanya. Kesempatan kali ini saya akan update
artikel saya mengenai tips trik di dunia internet dan komputer atau
bahkan ini sudah masuk ke kategori hacking? Entahlah. Tapi, artikel ini
saya masukan ke kategori hacking dikarenakan memang banyak yang
melakukan hal ini untuk kegiatan hack, misalnya saat ingin membuka task
manager di warnet terdekat, ternyata sudah di disable oleh admin di net
tersebut? Pasti mau tidak mau kita harus menghacknya kan? Walaupun hack
tersebut tidak bermaksud untuk melakukan hal-hal yang kotor atau hal
yang merugikan pihak lain. Apakah anda termasuk orang yang kebingungan
untuk melakukan hal itu? Atau anda hanya ingin menambah
informasi-informasi mengenai masalah ini? Tepat sekali anda datang ke
blog ini, karena saya akan membahas dua cara sekaligus bagaimana cara mengembalikan task manager yang disable oleh admin.
Oke, kita sekarang masuk ke intinya. Di sini saya akan membahas dua
cara mengenai hal tersebut, yaitu ada cara simple dan ada cara yang
rumit dan memakan banyak waktu, tapi kedua cara itu mempunyai kelebihan
dan kekurangan masing-masing.
Sekarang saya akan membahas cara pertama terlebih dahulu, yaitu cara
simple nya. Ikuti langkah-langkahnya baik-baik dan teliti ya.
Buka Run dengan cara Klik Start --> Run ataupun bisa menggunakan Shorcut "IconWindows + R" (tanpa kutip dan plus)
Tutorial Common Lisp Menggunakan GNU CLISP
Agro Rachmatullah (agro1986 [di] gmail.com)
11 Mei 2004
Pendahuluan
Lisp adalah bahasa pemrograman yang sudah berumur lebih dari 40 tahun. Keunggulan Lisp terletak pada kemampuannya memanipulasi simbol dan hubungan antar simbol dengan mudah, sehingga bahasa ini cocok digunakan di bidang Artificial Intelligence (kecerdasan buatan) dan pengambilan keputusan. Walaupun begitu, bahasa ini juga dapat digunakan untuk memecahkan masalah-masalah lainnya.
Selama perkembangannya, Lisp menghasilkan banyak varian dan merupakan cikal bakal berbagai bahasa lainnya (misalnya Logo dan Smalltalk). Pada 8 Desember 1994 ANSI (American National Standard Institute) berhasil menstandarisasi Lisp, yang diberi nama Common Lisp ANSI. Tutorial ini akan mengajarkan Common Lisp ANSI dengan menggunakan compiler/interpreter GNU CLISP. Untuk selanjutnya, jika tutorial ini menyebutkan "Lisp" maka yang dimaksud adalah "Common Lisp ANSI".
Lisp menarik untuk dipelajari sebab Lisp jauh berbeda dibandingkan dengan bahasa pemrograman seperti Pascal dan C. Setelah banyak menggunakan Lisp, kita akan bisa melihat/menganalisa suatu masalah dari sudut pandang yang sebelumnya tidak pernah kita bayangkan. Paling tidak, Lisp dapat digunakan sebagai kalkulator yang handal (akan ditunjukkan pada tutorial ini).
Menginstall dan Menjalankan GNU CLISP
Tutorial ini akan memandu proses instalasi GNU CLISP 2.33 untuk Windows (yang kadang-kadang akan kita singkat CLISP).
1. Download GNU CLISP 2.33 dari http://webstudent.ugm.ac.id/~agro_r/files/clisp-2.33-win32.zip (Hanya 3.4 MB!).
2. Extract isinya ke folder tempat anda ingin menginstallnya. Semua isi file zip akan diextract ke sub-folder "clisp-2.33". Misalnya jika anda mengextractnya ke "C:\Program Files", semua file-filenya akan diletakkan ke "c:\Program Files\clisp-2.33".
3. Masuk ke folder "clisp-2.32". Jalankan file "install.bat". Pilih 'Y' untuk setiap pertanyaan yang diajukan.
4. Sayangnya, setup yang disediakan lupa melakukan satu hal, jadi anda harus melakukan satu langkah tambahan. Anda harus mengcopy file "lisp.exe" yang terletak di folder "clisp-2.33\base" ke folder "clisp-2.33".
Sekarang CLISP dapat dijalankan lewat iconnya di desktop. Anda akan mendapatkan tampilan seperti berikut:
Kita akan memasuki sebuah prompt dimana kita bisa mulai menuliskan program kita. CLISP merupakan lingkungan pemrograman yang bersifat read-eval-print. Artinya, begitu kita selesai memasukkan/mengetik form dalam CLISP, maka CLISP akan segera menjalankannya dan menuliskan hasilnya (dalam pembuatan program C atau Pascal, biasanya kita menggunakan siklus write-compile-run).
Catatan: Anda bisa mendapatkan versi terbaru GNU CLISP di http://clisp.cons.org.
List dan Atom
Pada bagian ini kita akan mempelajari elemen-elemen dasar Lisp yaitu list dan atom. Contoh-contoh yang diberikan di bagian ini sebagian besar hanya untuk ilustrasi dan tidak dapat diketikkan ke dalam CLISP (akan menghasilkan error). Kita akan mulai menulis program pada bagian berikutnya, "Form".
Hal pertama yang harus kita tahu adalah bahwa segala sesuatu yang dimulai dan diakhiri tanda kurung adalah sebuah list. Sebagai contoh, hal-hal berikut adalah list:
(1 2 3 4 5)
(w x y z)
(rumah tanah kucing 123)
Sebuah list bisa saja kosong maupun berisi list lain. Jadi yang berikut adalah merupakan list juga:
()
((1 10 100))
((x y) 3 4 (hitam merah))
(defun kurangi-satu (x) (- x 1))
List bisa berisi program ataupun data, dan karena kita bisa memasukkan list di dalam list, kita bisa mencampur data dan program pada berbagai tingkatan. Inilah salah satu kekuatan LISP bagi yang sudah menguasainya, namun merupakan sumber kebingungan bagi yang belum menguasainya. Bersiap-siaplah juga untuk menghadapi banyak kurung buka dan kurung tutup.
Elemen-elemen yang berada di dalam list disebut atom. Jadi dalam list
(1 2 3 tangan kanan)
yang disebutkan di bawah merupakan atom:
1
2
3
tangan
kanan
Syarat utama dari atom adalah diawali dan diakhiri spasi (termasuk tab dan newline) atau kurung buka atau kurung tutup. Atom dapat terdiri dari karakter-karakter yang bukan pembatas atom. Perlu diketahui bahwa atom dapat berada di luar list. Inilah beberapa contoh atom lain:
:monitor
!**!
-
@hotmail.com
2*3+1
Lisp tidak case-sensitive, jadi ketiga atom di bawah adalah sama:
saya
SayA
SAYA
Lisp juga tidak mengenal operator, jadi 2*3+1 bukanlah suatu expresi matematika yang nilainya 7. Kalaupun digunakan spasi, maka 2 * 3 + 1 akan menjadi lima buah atom yang juga tidak bernilai 7.
Perhatikan bahwa spasi yang banyak sama saja dengan sebuah spasi, jadi kedua list di bawah ini sama (memang terlihat rumit, tapi untuk sekarang tidak perlu dimengerti artinya):
(defun faktorial (x) (if (eql x 0) 1 (* x (faktorial (- x 1)))))
(defun faktorial(x)(if(eql x 0)1(* x(faktorial(- x 1)))))
Tentunya penulisan yang pertama lebih mudah dibaca. Akan lebih baik lagi jika dituliskan sebagai berikut:
(defun faktorial (x)
(if (eql x 0)
1
(* x faktorial (- x 1)))))
Form
Form adalah sesuatu yang akan dievaluasi/dicari nilainya. Form dapat berupa atom (non-list) maupun list.
Evaluasi form sangatlah sederhana jika yang terlibat adalah atom. Jika atom yang bersangkutan adalah angka (misalnya 100, -5, 3/4, 0.333), maka hasil evaluasinya adalah angka itu sendiri (disebut self-evaluating). Inilah beberapa contohnya (langsung saja anda coba pada CLISP):
> 100 (ini adalah input)
] 100 (ini adalah outputnya)
> 3/4
] 3/4
> -2.71828
] -2.71828
Kita bisa melihat bahwa Lisp memiliki beberapa tipe data angka. Yang pertama adalah integer, yang dapat menyimpan bilangan bulat sebesar atau sekecil apapun (hanya dibatasi oleh kapasitas memori yang ada). Tipe data lainnya adalah rational, yang berupa p/q dengan p dan q integer dan q lebih besar dari 1 (jika q = 1 maka bilangannya akan menjadi integer). Rational juga hanya dibatasi oleh memori yang tersedia. Tipe data ketiga adalah floating point, yang melambangkan angkanya menggunakan mantissa and eksponen. Floating point pasti dituliskan dengan tanda titik. Jadi 1 adalah integer sedangkan 1.0 adalah floating point. Pada tipe data floating point dapat terjadi underflow (jika nilai mutlak pecahannya terlalu kecil) maupun overflow (jika nilai mutlak angkanya terlalu besar). Inilah beberapa contohnya:
Keylogger merupakan sebuah perangkat baik perangkat keras atau perangkat lunak yang digunakan untuk memantau penekanan tombol keyboard. Sebuah keylogger biasanya akan menyimpan hasil pemantauan penekanan tombol keyboard tersebut ke dalam sebuah berkas log/catatan/rekaman. Beberapa keylogger tertentu bahkan dapat mengirimkan hasil rekamannya ke e-mail tertentu secara periodik.
Keylogger dapat digunakan untuk kepentingan yang baik atau bahkan bisa digunakan untuk kepentingan yang jahat. Kepentingan yang baik antara lain untuk memantau produktivitas karyawan, untuk penegakan hukum dan pencarian bukti kejahatan. Kepentingan yang buruk antara lain pencurian data dan password.
Keylogger yang berupa hardware besarnya seukuran baterai ukuran AA. Keylogger jenis ini dipasangkan pada ujung keyboard, sehingga mencegat data yang dialirkan darikeyboard ke CPU. Sementara itu, keylogger dalam bentuk perangkat lunak terpasang di dalam komputer dan bekerja secara tersembunyi. Cara sederhana untuk menghindari dampak adanya keylogger pada sistem operasi Microsoft Windows adalah dengan menggunakan fitur on-screen keyboard (osk.exe).
keyshark hardware keylogger
Banyak orang yang menggunakan internet untuk mengecek e-mail, login ke facebook, twitter, buku bank, berbelanja, dan mengirim informasi pribadi pada yang lain. Kebanyakan situs biasanya aman, namun ada juga yang berusaha mencuri data informasi pribadi seseorang langsung dari keyboard pengguna komputer. Keylogging adalah prosses perekaman huruf yang diketik oleh pengguna komputer tanpa sepengetahuan pengguna dan mengirim informasi tersebut ke tempat si pembuat program keylogging. Dengan melakukan ini, si pembuat program bisa mempelajari segala sesuatu yang diketik di komputer untuk digunakan bagi keperluan si pembuat program. Teknologi ini juga bisa merekam kegiatan pengguna komputer.
Sebelum seseorang bisa mendeteksi apa yang diketik pada komputer tertentu, ia harus mempunyai akses ke keyboard komputer yang akan dibajaknya. Ini bisa dilakukan dengan dua hal: dengan software keylogging maupun hardware keylogging. Hardware keylogging biasanya merekam apa yang diketik oleh si pengguna di keyboard mereka dan menyimpannya dalam hardisk kecil sampai diambil langsung oleh si pembajak. Alat semacam ini bisa berbentuk bagian dari keyboard sehingga sulit untuk dideteksi. Lagipula, karena ini dalam bentuk hardware, maka anti virus sulit untuk mendeteksinya.
Sedangkan software keylogging tidak memerlukan akses langsung ke komputer target yang hendak dibajak. Keylogger seperti ini bisa didownload tanpa pengetahuan si pengguna komputer. Setelah diinstal dalam komputer, kemudian program ini dapat merekam data yang diketik pada keyboard dan mengirimnya kepada si pembajak. Kemudian sipembajak bisa mengakses apapun yang diketik dikomputer yang dibajaknya. Meskipun keylogger seperti ini sulit untuk ditemukan langsung oleh pengguna komputer, tapi anti virus biasanya bisa mendeteksi program ini.
Salah satu penggunaan yang paling sering dari program keylogging ini adalah pencurian data pribadi. Apabila sipembajak menggunakan software atau hardware semacam ini, maka ia bisa memanfaatkan informasi tersbut untuk kepentingan pribadinya. Misalnya ia bisa membeli barang-barang di internet dengan menggunakan kartu kredit korban. Oleh karena itu para pengguna komputer harus berhati-hati dan menjaga data pribadi mereka agar jangan sampai dimanfaatkan oleh orang lain tanpa sepengetahuan pemilih PC itu. Dengan mengetahui dan mengerti program yang dijalankan di komputer dan memiliki software anti-malware yang terupdate adalah cara yang mudah untuk melindungi data pribadi dari pencuri data.
Beberapa orang tidak setuju dan menganggap ada beberapa manfaat dari keylogging. Orang tua bisa memonitor kegiatan anak-anaknya ketika menggunakan komputer. Ini juga bisa digunakan oleh perusahaan untuk memonitor penggunaan komputer oleh para karyawan. Bahkan keylogging ini juga bisa menyelamatkan data yang penting yang hilang karena putusnya aliran listrik/aktifitas ini juga bisa bermasalah dengan hak asasi pribadi. Oleh karena itu saran The Gaptek gunakanlah program ini dengan hati-hati agar tidak bertentangan dengan hukum yang berlaku khususnya di Undang-Undang ITE.
1.sumber:http://www.thegaptek.com/2012/06/mengenal-apa-itu-keylogger-dan.html
(ketik di notepa>save as di folder sony)
import java.io.*;
public class latih6{
public static void main(String Arg[])throws IOException{
String str; int jumlah,harga=0;double total,disc=0;
BufferedReader Get=new BufferedReader(new InputStreamReader(System.in));
System.out.print("jumlah lembar copy:");str=Get.readLine();
jumlah=Integer.parseInt(str);
if (jumlah>500) harga=90;
else if(jumlah>250) harga=105;
else if(jumlah>100) harga=125;
else harga=150;
total=harga*jumlah;
System.out.println("harga :"+harga);
if (jumlah>600)disc=0.1*total;
System.out.println("discount :"+disc+"\n Total Harga Rp."+total);
System.out.println("total bayar Rp."+(total-disc));
}
}
ketik run>cmd
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Documents and Settings\Sony>set path=C:\Program Files\Java\jdk1.5.0_11\bin
C:\Documents and Settings\Sony>javac latih6.javac
javac: invalid flag: latih6.javac
Usage: javac
where possible options include:
-g Generate all debugging info
-g:none Generate no debugging info
-g:{lines,vars,source} Generate only some debugging info
-nowarn Generate no warnings
-verbose Output messages about what the compiler is doing
-deprecation Output source locations where deprecated APIs are u
sed
-classpath Specify where to find user class files
-cp Specify where to find user class files
-sourcepath Specify where to find input source files
-bootclasspath Override location of bootstrap class files
-extdirs Override location of installed extensions
-endorseddirs Override location of endorsed standards path
-d Specify where to place generated class files
-encoding Specify character encoding used by source files
-source Provide source compatibility with specified release
-target Generate class files for specific VM version
-version Version information
-help Print a synopsis of standard options
-X Print a synopsis of nonstandard options
-J Pass directly to the runtime system
C:\Documents and Settings\Sony>java latih6
jumlah lembar copy:34
harga :150
discount :0.0
Total Harga Rp.5100.0
total bayar Rp.5100.0
C:\Documents and Settings\Sony>
Rabu, 16 Mei 2012
contoh bahasa c
volume kubus =s*s*s
#include
#include
main()
{
int s,v=0;
clrscr();
printf("menhitung volume kubus\n--------------------");
printf("\n masukkan sisi kubus:");
scanf("%d",&s);
v=s*s*s;
printf("nilai volume kubus:%d",v);
}
contoh bahasa c++
membuat volume kubus =s*s*s
#include"iostream.h"
#include"conio.h"
void main()
{
int s,v=0;
clrscr();
cout<<"menghitung volume kubus\n--------------";
cout<<"memasukkan sisi kubus:";
cin>>s;
v=s*s*s;
cout<<"nilai volume kubus:"<
Selasa, 08 Mei 2012
#memngkonversi bilangan*
uses crt;
var bilangan:integer;
function decTOBin(desimal:integer):string;
var hasilbagi, sisa : integer;
bin:char;
bilBiner:string;
begin
hasilBagi := desimal div 2;
bilBiner :='';
{syarat prulangan :selama hasil bagi lebih besar sama dengan 1}
while (hasilBagi >=1) do
begin
sisa :=desimal mod 2;
if(sisa =0)then bin :='0'
else if (sisa=1) then bin :='1';
{menggabung sisa pada setiap perulangan untuk membentuk digit biner}
bilBiner := bin + bilBiner;
desimal:=hasilBagi;
hasilBagi := desimal div 2;
end;
deCTOBin :='1'+bilBiner;
end;
BEGIN
bilangan :=200;
write('bilangan binernya :', deCTOBin(bilangan));
readln;
end.
#program penjualan*
uses crt;
var
b:string;
h,y,u,by,tb:real;
lagi:char;
begin
writeln('toko"laris manis" ');
writeln ('__________');
tb:=0;
lagi := 'y';
while lagi= 'y' do
begin
write ('barang :');readln(b);
write ('harga:'); readln(h);
write ('unit:'); readln(u);
by:= h*u;
writeln('bayar :',by:0:0);
writeln ('coba lagi (y/t); ');readln(lagi);
writeln;
writeln;
tb:= tb+by;
end;
writeln('total bayar :',tb:0:0);
end.
Haaahhhh…Meteor???
Yaahh benar sekali, anda dapat mempercantik tampilan blog anda dengan
memasang animasi Meteor Jatuh. Dengan adanya efek ini, diharapkan
tampilan blog anda kelihatan lebih canggih dan menarik. Berikut ini
cara membuatnya :
Silakan anda Login terlebih dahulu ke dalam Blogger
Kemudian klik menu Rancangan -> Add Widget (HTML/JavaScript)
Kemudian masukkan kode dibawah ini
Jika sudah, silakan Simpan dan lihatlah hasilnya.
Saat
efek Meteor ini berjalan di blog anda, akan terdapat menu Close yang
muncul di bagian sebelah kanan bawah. Itu artinya, anda dapat menutup
atau mematikan efek Meteor ini jika sudah tidak diinginkan.
Senin, 13 Februari 2012
program
hitung_diskon_harga;
uses crt;
var harga,
diskon, total : real;
begin clrscr;
writeln
('MENGHITUNG DISKON DAN TOTAL HARGA BELANJA');
PROGRAM DAFTAR_PENGUNJUNG_KONSER;
USES
CRT;
LABEL
Y,N;
CONST
H_TKT=300000;
VAR
N_PMBL,N_BAND,N_KLS
:STRING;
J_BL,TH,DSK,TB,UB,UK :REAL;
NO
:CHAR;
BEGIN
Tutorial Pascal untuk membuat kalkulator sederhana berguna untuk
anda yang sedang mendapatkan tugas dari sekolah. Berikut adalah source
code nya ..
[sourcecode language="pascal"]
program kalkulator;
uses crt;
var nil1,nil2,hasil : real;
a : char;
begin
clrscr;
write(‘angka pertama = ‘);
readln(nil1);
write(‘parameter + – * / = ‘);
readln(a);
write(‘angka kedua = ‘);
readln(nil2);
case a of
‘+’: hasil := nil1+nil2;
‘-’: hasil := nil1-nil2;
‘*’: hasil := nil1*nil2;
‘/’: hasil := nil1/nil2;
end;
write(‘hasil = ‘,hasil :12:2);
readkey;
end.
[/sourcecode]
