Jumat, 23 Juli 2010
Cara dasar pemahaman pascal
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
CCeeppaatt MMaahhiirr BBaahhaassaa PPaassccaall
Alwin sanjaya
aak_drs@yahoo.com
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
BBaabb 22
SSttaatteemmeenn--SSttaatteemmeenn ppaaddaa PPeemmrrooggrraammaann PPaassccaall
Nah, sekarang anda sudah masuk ke bab statement pemrograman ….selamat mencoba…
Reserved Word
Reserved Word adalah kata-kata baku yang digunakan dalam program dan sudah terintergrated dalam pascal dan juga mempunyai bentuk serta kegunaan tertentu yang telah didefinisikan oleh Pascal.
Reserved Word tidak boleh didefinisikan kembali oleh pemakai, sehingga tidak dapat digunakan sebagai pengenal (Identifier). Dalam bahasa pemrograman Pascal,
beberapa Reserved Word dalam Pascal anatra lain:
Cepat Mahir Bahasa Pascal
Alwin sanjaya
1
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
AND DOWNTO IN OF STRING
ASM ELSE INHERITED OR THEN
ARRAY END INLINE PACKED TO
BEGIN EXPORTS INTERFACE PROCEDURE TYPE
CASE FILE LABEL PROGRAM UNIT
CONST FOR LIBRARY RECORD UNTIL
CONSTRUCTOR FUNCTION MOD REPEAT USES
DESTRUCTOR GOTO NIL SET VAR
DIV IF NOT SHL WHILE
DO IMPLEMENTATION OBJECT SHR WITH
.
Selain dari Reserved Word di atas, Turbo Pascal masih memiliki tambahan Reserved
Word berikut:
ABSOLUTE ASSEMBLER () FAR FORWARD INDEX
Beberapa Statemen Turbo Pascal
Statemen adalah perintah untuk pengerjaan program pascal. Statemen terletak di bagian deklarasi statemen dengan diawali oleh kata cadangan BEGIN dan diakhiri dengan kata cadangan END. Akhir dari setiap statemen diakhiri dengan titik koma [;]. Statemen statemen dalam bahasa Pascal terdiri dari pernyataan yang berupa fungsi dan prosedur yang telah disediakan sebagai perintah standar Turbo Pascal.
1. Statemen-statemen yang digunakan untuk input/output.
# Read/Readln [prosedur].
Perintah ini digunakan untuk memasukkan [input] data lewat keyboard ke
dalam suatu variabel.
Sintaks: Read/Readln(x); (ingat, selalu diakhiri dengan titik koma [;])
Keterangan : x = variabel.
Read = pada statemen ini posisi kursor tidak
pindah ke baris selanjutnya.
Readln = pada statemen ini posisi kursor akan
pindah ke baris selanjutnya setelah di
input.
# ReadKey [fungsi].
Untuk pembacaan sebuah karakter dari keyboard. Tipe data
yang dihasilkan adalah char.
Sintaks: ReadKey;
# Write/Writeln [prosedur].
Digunakan untuk menampilkan isi dari suatu nilai variable di
layar.
Sintaks: Write/Writeln(x);
Cepat Mahir Bahasa Pascal
Alwin sanjaya
2
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
Keterangan : x = variabel.
Write/Writeln= statement ini digunakan untuk mencetak variable ke dalam monitor
Contoh :
Program input;
Uses Crt;
Var nm : String;
npm : String;
Begin
Clrscr;
Writeln ('masukkan nama dan NPM ');
Writeln ('------------------------------');
Write ('nama anda : ');
Readln (nm);
Writeln ('NPM anda : ');
Readln (npm);
End.
Bila dijalankan hasilnya adalah:
masukkan nama dan NPM
------------------------------
nama anda : ( di input )
NPM anda : ( di input )
2. Statemen-statemen yang digunakan untuk pengaturan letak layar.
# ClrScr [prosedur].
Perintah ini digunakan untuk membersihkan layar.
sintaks: ClrScr; [Clear screen]
# GotoXY[prosedur].
Untuk menempatkan posisi kursor pada layar.
Sintaks: GotoXY(X, Y: Byte);
Keterangan : X = sumbu X (posisi horisontal)
Y = sumbu Y (posisi vertikal)
# DelLine [prosedur].
Untuk menghapus sebuah baris pada posisi kursor dan menaikkan
baris-baris dibawahnya.
Sintaks: DelLine;
# InsLine [prosedur].
Untuk menyisipkan sebuah baris pada posisi kursor dan meng-
geser kebawah tampilan-tampilan baris dibawahnya.
Sintaks: InsLine;
Cepat Mahir Bahasa Pascal
Alwin sanjaya
3
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
# Delay [prosedur].
Untuk menghentikan sejenak proses program.
Sintaks: Delay (MS: Word);
Keterangan : variable MS = ukuran waktu dalam milisecond.
Contoh :
Program Layar;
Uses Crt;
Var x : Char;
Begin
ClrScr;
GotoXY(35,10);Writeln (‘I Love Dinda');
Write (tunggu sebentar...!!');
Delay (5000);
InsLine;
GotoXY (35,11);Writeln ('Bayi sehatku');
GotoXY(01,13);Writeln ('Tekan Enter !');
Delay(1000);
GotoXY(15,12);
DelLine;
Read(x);
End.
Hasilnya adalah :
I Love Dinda
Bayi sehatku
tunggu sebentar...!!
Tekan Enter !
3. Statemen yang digunakan untuk memanipulasi string.
# ConCat[fungsi].
Untuk menggabungkan 2 atau beberapa variabel string.
Sintaks: ConCat (s1 [,s2,...,sn]: String) : String;
contoh: ConCat ('ABC','DEF') { ABCDEF }
# Copy [fungsi].
Mengambil satu atau beberapa karakter dari sebuah string.
Sintaks: Copy (S,Index,Count) : String;
Keterangan :
S = sebuah string (string).
Index = posisi awal kita akan mengambil beberapa
karakter (integer)
Count = banyaknya karakter yang akan diambil (integer).
# Delete [prosedur].
Menghapus sebagian karakter dari sebuah string.
Sintaks: Delete (S,Index,Count);
Keterangan : sama dengan statemen Copy.
Cepat Mahir Bahasa Pascal
Alwin sanjaya
4
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
# Insert [prosedur].
Menyisipkan satu atau beberapa karakter ke dalam sebuah string.
Sintaks: Insert (Source,var S,Index);
Keterangan : Source = sumber string untuk disisipi (string)
var S = string tujuan yang akan disisipi oleh
string Source (string)
Index = posisi mulai (integer).
# Length [fungsi].
Memberikan nilai panjang dari suatu string (jumlah karakter
dalam string).
Sintaks: Length (S);
Keterangan : S = string
Length(S) menghasilkan nilai integer.
# Pos [fungsi].
Mencari posisi sebuah bagian string (substring) didalam
sebuah string.
Sintaks: Pos (Substr,S); {menghasilkan nilai Byte}
Keterangan : Substr = substring yang akan dicari posisinya di
dalam sebuah string S.
Bila bernilai 0 berarti nilai string yang dicari tidak ada.
# Str [prosedur].
Merubah nilai numerik ke dalam nilai string.
Sintaks: Str (N,S);
Keterangan :
N = data tipe integer,
S = data tipe string.
# Val [prosedur].
Merubah nilai string ke dalam nilai numerik.
Sintaks: Val (S,N,P);
Keterangan :
S = nilai string,
N = nilai real,
P = posisi salah.
Nilai string harus berisi angka, plus atau minus, bila tidak
berarti kesalahan dan letak kesalahannya ditunjukkan oleh va-
riabel posisi salah. Jika benar, maka nilai variabel tsb = 0
(nol).
# UpCase [fungsi].
Memberikan huruf kapital dari argumen.
Sintaks: UpCase (S);
Keterangan :
S = variabel bertipe karakter.
Cepat Mahir Bahasa Pascal
Alwin sanjaya
5
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
Contoh :
Program Man_String;
Uses Crt;
Var s : String;
l : Integer;
h : String;
Const a='Dinda';
b='Bayi ';
c='Sehatku';
Begin
ClrScr;
s:= ConCat (a,b,c);
Writeln (s);
Insert (' & ',s,6);
Writeln(s);
Delete (s,7,7);
Writeln (s);
h:=Copy (s,1,5);
Writeln (h);
l:= Length(s);
Writeln ('Panjangnya string S : ',l);
Writeln ('Posisi "Sehat" pada nilai S : ',POS('Sehat',s));
END.
Hasilnya adalah :
DindaBayiSehatku
Dinda & Bayi Sehatku
Dinda Sehatku
Dinda
Panjangnya string S : 16
Posisi "Sehat" pada nilai S : 7
4. Statemen-statemen untuk perhitungan aritmatik.
# Abs [fungsi].
Memberikan nilai mutlak dari suatu argumen.
Sintaks: ABS(x);
# ArcTan[fungsi].
Memberikan nilai dari fungsi arctangent dari perhitungan
goniometri.
Sintaks: ArcTan (x);
dimana x dapat bertipe real atau integer dan akan menghasil-
kan nilai bertipe real.
# Cos [fungsi].
Memberikan nilai dari fungsi Cosinus.
Sintaks: Cos (x);
Cepat Mahir Bahasa Pascal
Alwin sanjaya
6
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
# Exp [fungsi].
Menghitung nilai pangkat dari bilangan e (bilangan alam),
yaitu sebesar x.
Sintaks: Exp (x);
x dapat bertipe real atau integer dan akan menghasilkan
nilai bertipe real.
# Frac [fungsi].
Untuk mendapatkan nilai pecahan dari suatu bilangan.
Sintaks: Frac (x);
Tipe dari x sama seperti yang diatas.
# Int [fungsi].
Memberikan nilai integer (bilangan bulat) dari suatu variabel
dengan membuang bilangan di belakang koma.
Sintaks: Int (X);
# Ln [fungsi].
Digunakan untuk menghitung nilai logaritma alam (natural
logarithm) dari nilai x.
Sintaks: Ln (x);
# Sin [fungsi].
Memberikan nilai dari fungsi Sinus.
Sintaks: Sin (x);
# Sqr [fungsi].
Digunakan untuk menghitung nilai pangkat kuadrat dari suatu
bilangan.
Sintaks: Sqr (x);
Tipe dari x bisa berupa real maupun integer. Dan hasilnya a-
kan sama dengan tipe dari x.
# Sqrt (fungsi).
Digunakan untuk menghitung nilai akar dari suatu bilangan.
Sintaks: Sqrt (x);
Contoh :
Program Aritmatik;
Uses Crt;
Var x : Real;
Begin
Clrscr;
Write('Masukkan nilai dari X = ');
Readln (x);
If x <0 Then x:=Abs (x);
Writeln('Nilai X = ',x:5:2);
Writeln ('Nilai eksponentialnya = ',EXP(x):9:3);
Writeln ('Nilai logaritma alamnya = ',LN(x):9:3);
Cepat Mahir Bahasa Pascal
Alwin sanjaya
7
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
Writeln ('Nilai integernya = ',INT(x):5:2);
Writeln ('Nilai fraksionalnya = ',FRAC(x):5:2);
Writeln ('Nilai X dipangkatkan = ',SQRT(x):9:3);
Writeln ('Nilai X diakarkan = ',SQRT(x):9:3);
Write('Nilai X jika dimasukkan dalam ');
Writeln('fungsi Sin,Cos,Tangen: ');
Writeln('- Sinus = ',Sin(x):9:3);
Writeln('- Cosinus = ',Cos(x):9:3);
Writeln('- Tangen = ',ArcTan(x):9:3);
End.
Hasilnya :
masukkan nilai dari X = -2.5
Nilai X = 2.50
Nilai eksponensialnya = 12,182
Nilai logarima alamnya = 0,196
Nilai integernya = 2.00
Nilai fraksionalnya = 0.50
Nilai X dipangkatkan = 6.250
Nilai X diakarkan = 1.581
Nilai X jika dimasukkan dalam fungsi Sin,Cos,Tangen:
- Sinus = 0.598
- Cosinus = -0.801
- Tangen = 1.190
5. Statemen-statemen untuk transfer nilai dari suatu variabel.
# Chr [fungsi].
Merubah nilai dari byte ke bentuk karakter yang sesuai dengan
kode ASCII.
Sintaks: Chr (x);
Keterangan : x bertipe byte
contoh : Writeln (Chr (61));
hasilnya : a
# Ord [fungsi].
Merubah nilai suatu variabel dari bentuk karakter ke bentuk
longint.
Sintaks: Ord (x);
Keteranagn : x bertipe char
contoh : Writeln(Ord ('B'));
hasilnya : 42
# Round [fungsi].
Membulatkan data tipe real ke data tipe longint.
Sintaks: Round (x);
Keterangan : Jika nilai pecahan < 0,5 maka dibulatkan keba-
wah.
Jika nilai pecahan > 0,5 maka dibulatkan kea-
Cepat Mahir Bahasa Pascal
Alwin sanjaya
8
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
tas.
contoh : Writeln('10/3 dibulatkan = ',Round(10/3));
hasilnya : 10/3 dibulatkan = 3
# TRUNC [fungsi].
Membulatkan kebawah data tipe real ke data tipe longint.
Sintaks: Trunc (x);
contoh :
Writeln('20/3 dibulatkan kebawah = ',Trunc (20/3));
hasilnya : 20/3 dibulatkan kebawah = 6
6. Statemen-statemen untuk memanipulasi data.
# Pred [fungsi].
Memberikan nilai sebelum nilai argumen dalam urutannya dalam
ASCII.
Sintaks: Pred (x);
# Succ [fungsi].
Memberikan nilai sesudah nilai argumen dalam urutannya dalam
ASCII.
Sintaks: Succ (x);
# Inc[fungsi].
Menambah (increments) nilai suatu variabel.
Sintaks: Inc (x,i); {i >= 1}
# Dec [fungsi].
Mengurangi (decrements) nilai suatu variabel.
Sintaks: DEC(x,i); {i >=1}
Contoh :
Progam Man_Data;
Uses Crt;
Type
hari = (hr0,hr1,hr2,hr3,hr4,hr5,hr6,hr7)
Var
urutanhr : hari;
Const
namahr : Array [hr1..hr7] of String [6]=
('Senin','Selasa','Rabu','Kamis',
'Jumat','Sabtu','Minggu');
Begin
Writeln('Daftar Nama Hari);
urutanhr := hr0;
While Urutanhr < hr7 DO
Begin
urutanhr := Succ(urutanhr);
Write('hari ke ',Ord(Urutanhr):2,' adalah ');
Writeln(namahr[urutanhr]);
Cepat Mahir Bahasa Pascal
Alwin sanjaya
9
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
End;
End.
hasilnya adalah :
Daftar Nama Hari
hari ke 1 adalah Senin
hari ke 2 adalah Selasa
hari ke 3 adalah Rabu
hari ke 4 adalah Kamis
hari ke 5 adalah Jumat
hari ke 6 adalah Sabtu
hari ke 7 adalah Minggu
7. Statemen-statemen tambahan (warna,suara dan window).
# TextColor [prosedur].
Untuk mengatur warna dari karakter-karakter di layar.
Sintaks: TextColor (color : Byte);
Catatan : untuk pilihan warna lihat pada buku Turbo Pascal yang anda miliki.
Daftar TextColor :
(2) Hijau Muda (3) Hijau pupus (4) Merah
(5) Ungu Tua (6) Kuning (7) Putih
(8) Biru Tua (9) Biru Cerah (10) Hijau Muda
(12) Merah Muda (13) Ungu Cerah (14) Kuning Muda
(15) Ungu Pupus (16) Hitam
Daftar TextColor dengan Blink :
(17) Biru Tua (18) Hijau Muda (19) Hijau Pupus
(20) Merah (21) Ungu Tua
# TextBackGround [prosedur].
Untuk mengatur warna latar belakang dari karakter-karakter di
layar.
Sintaks: TextBackGround (Color : Byte);
# Window [prosedur].
Untuk membuat suatu jendela (window) yang terletak pada
layar.
Sintaks: Window (x1,x2,y1,y2 : Byte);
x1,x2 = kordinat kiri atas dengan nilai maksimal
sesuai dengan mode layar.
y1,y2 = kordinat kanan bawah dengan nilai
maksimal sesuai dengan mode layar.
# TextMode [prosedur].
Untuk mengatur lebar layar, 80 kolom atau 40 kolom.
Sintaks: TextMode(Mode: Byte);
Default = C80
Cepat Mahir Bahasa Pascal
Alwin sanjaya
10
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
# Sound [prosedur].
Untuk mengaktifkan suara (beep) pada internal speaker.
Sintaks: Sound (Hz : word);
Untuk mengnonaktifkannya, gunakan statemen NoSound.
Contoh :
Program Layar2;
Uses Crt;
Begin
ClrScr;
Window (5,5,20,75);
TextBackGround(Red); anda juga bisa menggunakan angka (4)
TextColor(Yellow);
Sound (220);
GotoXY(10,7);
Writeln('I Love Dinda');
GotoXY(11,7);
Writeln('Bayi Sehatku');
NoSound;
End.
Sebagai Latihan dari teori-teori yang sudah anda pelajari diatas, coba anda kerjakan soal-soal dibawah ini (Good Luck….☺).
Soal Latihan
1. Soal I
Buatlah program dibawah ini dengan tampilan menggunakan perintah Window, TextColor, Blink TextColor, Textbackground, GotoXY, dan Sound untuk memperindah tampilan.
1. Mengubah derajat temperatur, dari derajat Celcius ke derajat
Fahreinheit dan Reamur (derajat Celcius diinput)
2. Menghitung Luas dan Keliling lingkaran, dengan jari-jari dike-
tahui (diinput).
3. Menghitung Luas dan Keliling segitiga sembarang yang diketahui
ke tiga sisinya.
4. Mencari nilai Sinus, Cosinus, dan Tangen dengan sudut diinput.
5. Mencari akar dan kuadrat dari suatu nilai (nilai diinput).
6. Mencari nilai bulat dan pecahan dari suatu nilai yang dimasuk-
kan melalui keyboard (diinput). Nilai pecahan tersebut dibulat-
kan sampai 3 angka dibelakang koma (,).
7. Tampilkan nama dan NPM anda di dalam window, dan terletak pada
tengah-tengah layar.
8. Tampilkan tulisan 'I Love Dinda’ di dalam window pada pojok
kanan atas dengan ukuran window sama dengan tulisan tersebut.
Cepat Mahir Bahasa Pascal
Alwin sanjaya
11
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
2. Soal II
Buatlah program pada soal jenis I (no. 1-6) dengan tampilan menggunakan 2 window. Window yang pertama digunakan untuk nilai yang diinput. Window yang kedua untuk hasil dari program (output).
3. Soal III
1. Buatlah program untuk menggabungkan 2 buah kata yang diinput.
Setiap kata yang diinput harus berada didalam window yang dan
hasilnya berada pada window yang berbeda pula.
2. Buatlah program untuk menampilkan window secara acak dengan
warna yang berbeda.
Referensi
1. Lepkom Universitas Gunadarma.
2. Dasar-dasar Pemrograman Pascal, Teori dan Program terapan , Ir.P. Insap Santosa, M.Sc.
Cepat Mahir Bahasa Pascal
Alwin sanjaya
12
Copyright © 2003 IlmuKomputer.Com
CCeeppaatt MMaahhiirr BBaahhaassaa PPaassccaall
Alwin sanjaya
aak_drs@yahoo.com
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
BBaabb 22
SSttaatteemmeenn--SSttaatteemmeenn ppaaddaa PPeemmrrooggrraammaann PPaassccaall
Nah, sekarang anda sudah masuk ke bab statement pemrograman ….selamat mencoba…
Reserved Word
Reserved Word adalah kata-kata baku yang digunakan dalam program dan sudah terintergrated dalam pascal dan juga mempunyai bentuk serta kegunaan tertentu yang telah didefinisikan oleh Pascal.
Reserved Word tidak boleh didefinisikan kembali oleh pemakai, sehingga tidak dapat digunakan sebagai pengenal (Identifier). Dalam bahasa pemrograman Pascal,
beberapa Reserved Word dalam Pascal anatra lain:
Cepat Mahir Bahasa Pascal
Alwin sanjaya
1
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
AND DOWNTO IN OF STRING
ASM ELSE INHERITED OR THEN
ARRAY END INLINE PACKED TO
BEGIN EXPORTS INTERFACE PROCEDURE TYPE
CASE FILE LABEL PROGRAM UNIT
CONST FOR LIBRARY RECORD UNTIL
CONSTRUCTOR FUNCTION MOD REPEAT USES
DESTRUCTOR GOTO NIL SET VAR
DIV IF NOT SHL WHILE
DO IMPLEMENTATION OBJECT SHR WITH
.
Selain dari Reserved Word di atas, Turbo Pascal masih memiliki tambahan Reserved
Word berikut:
ABSOLUTE ASSEMBLER () FAR FORWARD INDEX
Beberapa Statemen Turbo Pascal
Statemen adalah perintah untuk pengerjaan program pascal. Statemen terletak di bagian deklarasi statemen dengan diawali oleh kata cadangan BEGIN dan diakhiri dengan kata cadangan END. Akhir dari setiap statemen diakhiri dengan titik koma [;]. Statemen statemen dalam bahasa Pascal terdiri dari pernyataan yang berupa fungsi dan prosedur yang telah disediakan sebagai perintah standar Turbo Pascal.
1. Statemen-statemen yang digunakan untuk input/output.
# Read/Readln [prosedur].
Perintah ini digunakan untuk memasukkan [input] data lewat keyboard ke
dalam suatu variabel.
Sintaks: Read/Readln(x); (ingat, selalu diakhiri dengan titik koma [;])
Keterangan : x = variabel.
Read = pada statemen ini posisi kursor tidak
pindah ke baris selanjutnya.
Readln = pada statemen ini posisi kursor akan
pindah ke baris selanjutnya setelah di
input.
# ReadKey [fungsi].
Untuk pembacaan sebuah karakter dari keyboard. Tipe data
yang dihasilkan adalah char.
Sintaks: ReadKey;
# Write/Writeln [prosedur].
Digunakan untuk menampilkan isi dari suatu nilai variable di
layar.
Sintaks: Write/Writeln(x);
Cepat Mahir Bahasa Pascal
Alwin sanjaya
2
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
Keterangan : x = variabel.
Write/Writeln= statement ini digunakan untuk mencetak variable ke dalam monitor
Contoh :
Program input;
Uses Crt;
Var nm : String;
npm : String;
Begin
Clrscr;
Writeln ('masukkan nama dan NPM ');
Writeln ('------------------------------');
Write ('nama anda : ');
Readln (nm);
Writeln ('NPM anda : ');
Readln (npm);
End.
Bila dijalankan hasilnya adalah:
masukkan nama dan NPM
------------------------------
nama anda : ( di input )
NPM anda : ( di input )
2. Statemen-statemen yang digunakan untuk pengaturan letak layar.
# ClrScr [prosedur].
Perintah ini digunakan untuk membersihkan layar.
sintaks: ClrScr; [Clear screen]
# GotoXY[prosedur].
Untuk menempatkan posisi kursor pada layar.
Sintaks: GotoXY(X, Y: Byte);
Keterangan : X = sumbu X (posisi horisontal)
Y = sumbu Y (posisi vertikal)
# DelLine [prosedur].
Untuk menghapus sebuah baris pada posisi kursor dan menaikkan
baris-baris dibawahnya.
Sintaks: DelLine;
# InsLine [prosedur].
Untuk menyisipkan sebuah baris pada posisi kursor dan meng-
geser kebawah tampilan-tampilan baris dibawahnya.
Sintaks: InsLine;
Cepat Mahir Bahasa Pascal
Alwin sanjaya
3
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
# Delay [prosedur].
Untuk menghentikan sejenak proses program.
Sintaks: Delay (MS: Word);
Keterangan : variable MS = ukuran waktu dalam milisecond.
Contoh :
Program Layar;
Uses Crt;
Var x : Char;
Begin
ClrScr;
GotoXY(35,10);Writeln (‘I Love Dinda');
Write (tunggu sebentar...!!');
Delay (5000);
InsLine;
GotoXY (35,11);Writeln ('Bayi sehatku');
GotoXY(01,13);Writeln ('Tekan Enter !');
Delay(1000);
GotoXY(15,12);
DelLine;
Read(x);
End.
Hasilnya adalah :
I Love Dinda
Bayi sehatku
tunggu sebentar...!!
Tekan Enter !
3. Statemen yang digunakan untuk memanipulasi string.
# ConCat[fungsi].
Untuk menggabungkan 2 atau beberapa variabel string.
Sintaks: ConCat (s1 [,s2,...,sn]: String) : String;
contoh: ConCat ('ABC','DEF') { ABCDEF }
# Copy [fungsi].
Mengambil satu atau beberapa karakter dari sebuah string.
Sintaks: Copy (S,Index,Count) : String;
Keterangan :
S = sebuah string (string).
Index = posisi awal kita akan mengambil beberapa
karakter (integer)
Count = banyaknya karakter yang akan diambil (integer).
# Delete [prosedur].
Menghapus sebagian karakter dari sebuah string.
Sintaks: Delete (S,Index,Count);
Keterangan : sama dengan statemen Copy.
Cepat Mahir Bahasa Pascal
Alwin sanjaya
4
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
# Insert [prosedur].
Menyisipkan satu atau beberapa karakter ke dalam sebuah string.
Sintaks: Insert (Source,var S,Index);
Keterangan : Source = sumber string untuk disisipi (string)
var S = string tujuan yang akan disisipi oleh
string Source (string)
Index = posisi mulai (integer).
# Length [fungsi].
Memberikan nilai panjang dari suatu string (jumlah karakter
dalam string).
Sintaks: Length (S);
Keterangan : S = string
Length(S) menghasilkan nilai integer.
# Pos [fungsi].
Mencari posisi sebuah bagian string (substring) didalam
sebuah string.
Sintaks: Pos (Substr,S); {menghasilkan nilai Byte}
Keterangan : Substr = substring yang akan dicari posisinya di
dalam sebuah string S.
Bila bernilai 0 berarti nilai string yang dicari tidak ada.
# Str [prosedur].
Merubah nilai numerik ke dalam nilai string.
Sintaks: Str (N,S);
Keterangan :
N = data tipe integer,
S = data tipe string.
# Val [prosedur].
Merubah nilai string ke dalam nilai numerik.
Sintaks: Val (S,N,P);
Keterangan :
S = nilai string,
N = nilai real,
P = posisi salah.
Nilai string harus berisi angka, plus atau minus, bila tidak
berarti kesalahan dan letak kesalahannya ditunjukkan oleh va-
riabel posisi salah. Jika benar, maka nilai variabel tsb = 0
(nol).
# UpCase [fungsi].
Memberikan huruf kapital dari argumen.
Sintaks: UpCase (S);
Keterangan :
S = variabel bertipe karakter.
Cepat Mahir Bahasa Pascal
Alwin sanjaya
5
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
Contoh :
Program Man_String;
Uses Crt;
Var s : String;
l : Integer;
h : String;
Const a='Dinda';
b='Bayi ';
c='Sehatku';
Begin
ClrScr;
s:= ConCat (a,b,c);
Writeln (s);
Insert (' & ',s,6);
Writeln(s);
Delete (s,7,7);
Writeln (s);
h:=Copy (s,1,5);
Writeln (h);
l:= Length(s);
Writeln ('Panjangnya string S : ',l);
Writeln ('Posisi "Sehat" pada nilai S : ',POS('Sehat',s));
END.
Hasilnya adalah :
DindaBayiSehatku
Dinda & Bayi Sehatku
Dinda Sehatku
Dinda
Panjangnya string S : 16
Posisi "Sehat" pada nilai S : 7
4. Statemen-statemen untuk perhitungan aritmatik.
# Abs [fungsi].
Memberikan nilai mutlak dari suatu argumen.
Sintaks: ABS(x);
# ArcTan[fungsi].
Memberikan nilai dari fungsi arctangent dari perhitungan
goniometri.
Sintaks: ArcTan (x);
dimana x dapat bertipe real atau integer dan akan menghasil-
kan nilai bertipe real.
# Cos [fungsi].
Memberikan nilai dari fungsi Cosinus.
Sintaks: Cos (x);
Cepat Mahir Bahasa Pascal
Alwin sanjaya
6
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
# Exp [fungsi].
Menghitung nilai pangkat dari bilangan e (bilangan alam),
yaitu sebesar x.
Sintaks: Exp (x);
x dapat bertipe real atau integer dan akan menghasilkan
nilai bertipe real.
# Frac [fungsi].
Untuk mendapatkan nilai pecahan dari suatu bilangan.
Sintaks: Frac (x);
Tipe dari x sama seperti yang diatas.
# Int [fungsi].
Memberikan nilai integer (bilangan bulat) dari suatu variabel
dengan membuang bilangan di belakang koma.
Sintaks: Int (X);
# Ln [fungsi].
Digunakan untuk menghitung nilai logaritma alam (natural
logarithm) dari nilai x.
Sintaks: Ln (x);
# Sin [fungsi].
Memberikan nilai dari fungsi Sinus.
Sintaks: Sin (x);
# Sqr [fungsi].
Digunakan untuk menghitung nilai pangkat kuadrat dari suatu
bilangan.
Sintaks: Sqr (x);
Tipe dari x bisa berupa real maupun integer. Dan hasilnya a-
kan sama dengan tipe dari x.
# Sqrt (fungsi).
Digunakan untuk menghitung nilai akar dari suatu bilangan.
Sintaks: Sqrt (x);
Contoh :
Program Aritmatik;
Uses Crt;
Var x : Real;
Begin
Clrscr;
Write('Masukkan nilai dari X = ');
Readln (x);
If x <0 Then x:=Abs (x);
Writeln('Nilai X = ',x:5:2);
Writeln ('Nilai eksponentialnya = ',EXP(x):9:3);
Writeln ('Nilai logaritma alamnya = ',LN(x):9:3);
Cepat Mahir Bahasa Pascal
Alwin sanjaya
7
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
Writeln ('Nilai integernya = ',INT(x):5:2);
Writeln ('Nilai fraksionalnya = ',FRAC(x):5:2);
Writeln ('Nilai X dipangkatkan = ',SQRT(x):9:3);
Writeln ('Nilai X diakarkan = ',SQRT(x):9:3);
Write('Nilai X jika dimasukkan dalam ');
Writeln('fungsi Sin,Cos,Tangen: ');
Writeln('- Sinus = ',Sin(x):9:3);
Writeln('- Cosinus = ',Cos(x):9:3);
Writeln('- Tangen = ',ArcTan(x):9:3);
End.
Hasilnya :
masukkan nilai dari X = -2.5
Nilai X = 2.50
Nilai eksponensialnya = 12,182
Nilai logarima alamnya = 0,196
Nilai integernya = 2.00
Nilai fraksionalnya = 0.50
Nilai X dipangkatkan = 6.250
Nilai X diakarkan = 1.581
Nilai X jika dimasukkan dalam fungsi Sin,Cos,Tangen:
- Sinus = 0.598
- Cosinus = -0.801
- Tangen = 1.190
5. Statemen-statemen untuk transfer nilai dari suatu variabel.
# Chr [fungsi].
Merubah nilai dari byte ke bentuk karakter yang sesuai dengan
kode ASCII.
Sintaks: Chr (x);
Keterangan : x bertipe byte
contoh : Writeln (Chr (61));
hasilnya : a
# Ord [fungsi].
Merubah nilai suatu variabel dari bentuk karakter ke bentuk
longint.
Sintaks: Ord (x);
Keteranagn : x bertipe char
contoh : Writeln(Ord ('B'));
hasilnya : 42
# Round [fungsi].
Membulatkan data tipe real ke data tipe longint.
Sintaks: Round (x);
Keterangan : Jika nilai pecahan < 0,5 maka dibulatkan keba-
wah.
Jika nilai pecahan > 0,5 maka dibulatkan kea-
Cepat Mahir Bahasa Pascal
Alwin sanjaya
8
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
tas.
contoh : Writeln('10/3 dibulatkan = ',Round(10/3));
hasilnya : 10/3 dibulatkan = 3
# TRUNC [fungsi].
Membulatkan kebawah data tipe real ke data tipe longint.
Sintaks: Trunc (x);
contoh :
Writeln('20/3 dibulatkan kebawah = ',Trunc (20/3));
hasilnya : 20/3 dibulatkan kebawah = 6
6. Statemen-statemen untuk memanipulasi data.
# Pred [fungsi].
Memberikan nilai sebelum nilai argumen dalam urutannya dalam
ASCII.
Sintaks: Pred (x);
# Succ [fungsi].
Memberikan nilai sesudah nilai argumen dalam urutannya dalam
ASCII.
Sintaks: Succ (x);
# Inc[fungsi].
Menambah (increments) nilai suatu variabel.
Sintaks: Inc (x,i); {i >= 1}
# Dec [fungsi].
Mengurangi (decrements) nilai suatu variabel.
Sintaks: DEC(x,i); {i >=1}
Contoh :
Progam Man_Data;
Uses Crt;
Type
hari = (hr0,hr1,hr2,hr3,hr4,hr5,hr6,hr7)
Var
urutanhr : hari;
Const
namahr : Array [hr1..hr7] of String [6]=
('Senin','Selasa','Rabu','Kamis',
'Jumat','Sabtu','Minggu');
Begin
Writeln('Daftar Nama Hari);
urutanhr := hr0;
While Urutanhr < hr7 DO
Begin
urutanhr := Succ(urutanhr);
Write('hari ke ',Ord(Urutanhr):2,' adalah ');
Writeln(namahr[urutanhr]);
Cepat Mahir Bahasa Pascal
Alwin sanjaya
9
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
End;
End.
hasilnya adalah :
Daftar Nama Hari
hari ke 1 adalah Senin
hari ke 2 adalah Selasa
hari ke 3 adalah Rabu
hari ke 4 adalah Kamis
hari ke 5 adalah Jumat
hari ke 6 adalah Sabtu
hari ke 7 adalah Minggu
7. Statemen-statemen tambahan (warna,suara dan window).
# TextColor [prosedur].
Untuk mengatur warna dari karakter-karakter di layar.
Sintaks: TextColor (color : Byte);
Catatan : untuk pilihan warna lihat pada buku Turbo Pascal yang anda miliki.
Daftar TextColor :
(2) Hijau Muda (3) Hijau pupus (4) Merah
(5) Ungu Tua (6) Kuning (7) Putih
(8) Biru Tua (9) Biru Cerah (10) Hijau Muda
(12) Merah Muda (13) Ungu Cerah (14) Kuning Muda
(15) Ungu Pupus (16) Hitam
Daftar TextColor dengan Blink :
(17) Biru Tua (18) Hijau Muda (19) Hijau Pupus
(20) Merah (21) Ungu Tua
# TextBackGround [prosedur].
Untuk mengatur warna latar belakang dari karakter-karakter di
layar.
Sintaks: TextBackGround (Color : Byte);
# Window [prosedur].
Untuk membuat suatu jendela (window) yang terletak pada
layar.
Sintaks: Window (x1,x2,y1,y2 : Byte);
x1,x2 = kordinat kiri atas dengan nilai maksimal
sesuai dengan mode layar.
y1,y2 = kordinat kanan bawah dengan nilai
maksimal sesuai dengan mode layar.
# TextMode [prosedur].
Untuk mengatur lebar layar, 80 kolom atau 40 kolom.
Sintaks: TextMode(Mode: Byte);
Default = C80
Cepat Mahir Bahasa Pascal
Alwin sanjaya
10
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
# Sound [prosedur].
Untuk mengaktifkan suara (beep) pada internal speaker.
Sintaks: Sound (Hz : word);
Untuk mengnonaktifkannya, gunakan statemen NoSound.
Contoh :
Program Layar2;
Uses Crt;
Begin
ClrScr;
Window (5,5,20,75);
TextBackGround(Red); anda juga bisa menggunakan angka (4)
TextColor(Yellow);
Sound (220);
GotoXY(10,7);
Writeln('I Love Dinda');
GotoXY(11,7);
Writeln('Bayi Sehatku');
NoSound;
End.
Sebagai Latihan dari teori-teori yang sudah anda pelajari diatas, coba anda kerjakan soal-soal dibawah ini (Good Luck….☺).
Soal Latihan
1. Soal I
Buatlah program dibawah ini dengan tampilan menggunakan perintah Window, TextColor, Blink TextColor, Textbackground, GotoXY, dan Sound untuk memperindah tampilan.
1. Mengubah derajat temperatur, dari derajat Celcius ke derajat
Fahreinheit dan Reamur (derajat Celcius diinput)
2. Menghitung Luas dan Keliling lingkaran, dengan jari-jari dike-
tahui (diinput).
3. Menghitung Luas dan Keliling segitiga sembarang yang diketahui
ke tiga sisinya.
4. Mencari nilai Sinus, Cosinus, dan Tangen dengan sudut diinput.
5. Mencari akar dan kuadrat dari suatu nilai (nilai diinput).
6. Mencari nilai bulat dan pecahan dari suatu nilai yang dimasuk-
kan melalui keyboard (diinput). Nilai pecahan tersebut dibulat-
kan sampai 3 angka dibelakang koma (,).
7. Tampilkan nama dan NPM anda di dalam window, dan terletak pada
tengah-tengah layar.
8. Tampilkan tulisan 'I Love Dinda’ di dalam window pada pojok
kanan atas dengan ukuran window sama dengan tulisan tersebut.
Cepat Mahir Bahasa Pascal
Alwin sanjaya
11
Kuliah Berseri IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
2. Soal II
Buatlah program pada soal jenis I (no. 1-6) dengan tampilan menggunakan 2 window. Window yang pertama digunakan untuk nilai yang diinput. Window yang kedua untuk hasil dari program (output).
3. Soal III
1. Buatlah program untuk menggabungkan 2 buah kata yang diinput.
Setiap kata yang diinput harus berada didalam window yang dan
hasilnya berada pada window yang berbeda pula.
2. Buatlah program untuk menampilkan window secara acak dengan
warna yang berbeda.
Referensi
1. Lepkom Universitas Gunadarma.
2. Dasar-dasar Pemrograman Pascal, Teori dan Program terapan , Ir.P. Insap Santosa, M.Sc.
Cepat Mahir Bahasa Pascal
Alwin sanjaya
12
pascal
Tutorial Turbo Pascal 7.0
Terdiri dari Sembilan Modul, lengkap dengan contoh dan latihan.
Informasi :
- Created by Salim.
- Sumber : indoprog : Indonesia Programmer.
- Kritik & saran : salim_file@yahoo.co.id
- http://groups.yahoo.co./group/salim-org
- www.freewebs.com/salim_web
Terdiri dari Sembilan Modul, lengkap dengan contoh dan latihan.
Informasi :
- Created by Salim.
- Sumber : indoprog : Indonesia Programmer.
- Kritik & saran : salim_file@yahoo.co.id
- http://groups.yahoo.co./group/salim-org
- www.freewebs.com/salim_web
Rabu, 21 Juli 2010
Bug Bug Point Blank
Bug Bug Point Blank
Updated :
BUG2 PB ma CHeat Nya Silahkan download DISINI
BUG:
OUTPOST:
Quote
nih gw tau 1 bug keren di outpost..
tuh ada yg nanya di thread 1 lg..
gini pernah liad orang masuk ke besi trus ga bisa ditembak tapi bisa nembak?
gini caranya...
cara 1=
pake piso pencet lompat+tahan klik kiri+maju+samping+jongkok-bediri...
kalo cara 1 ga bisa coba cara 2
cara 2=
pake piso , lompat-lompat+tahan klik kiri+w+a+s+d+jongkok-bediri asal2 nanti masuk sendiri
liad gambar aja..
hihihi masuknya emang rada susah tapi kalo udah masuk GG
gw kill 40 orang di bomb mission hihihihi
BUG BARU!UPDATED
MAP BREAKDOWN
Quote
di mesin yg kayak di blow city..
ngebugnya caranya sama kek di blow city..
ntar masuk ke bagian depan mesinnya trus
cara masuk ke dalem mesinnya adalah:
pas mesinnya dah mau brubah bentuk karena ditembakin,
kamu pencet maju sambil lompat2..
nanti pas mesinnya brubah bentuk, kamu langsung masuk ke dalem tapi skali masuk gx isa kluar and gx isa gerak..
hahahah..
map crackdown
Quote
caranya:
lari ke bunderannya trus lompat madep ke bawah sambil tabrak..
note:
pertama lu lari ke arah buletannya... lu loncat ampe geter trus lu goyangin mouse lu ke besi2 yg gedenya..
bunderan yg di gunung tempat CT respawn (jongkok jalan muterin) NEW!
credit to alvi.
bug granat
Quote
lempar persis sbelom kluar tulisan blue/red team win, granatnya gx bakal meledak..
begitu next roundnya, "okay let's go" granatnya ada di tempat trakhir km lempar meldak..
hehehe.. lempar ke base musuh mantap..
bug saint mansion:
Quote
jongkok sambil tabrak sudut2 kotak di lantai 2..hehehe
sekedar info.. kalo udah masuk nanti bisa turun ke lantai 1 dan ngebugnya ga di lantai2 tapi di lantai 1..^^
bug Flash Bang sama Poison Smoke
Quote
cobain aja.. ga abis2..wkwkwk.. tapi cuma yg point duank..
list bug yg gw n share:
-outpost manjat tembok..tau kan kalo jd CT itu lho..
-outpost masuk ke cerobong yg miring itu (patched)
-blow city mesin bom site B (patched)
-breakdown mesin kek di blowcity
-breakdown (not shared bahaya)
-crackdown bunderan 1
-crackdown bunderan 2
-outpost heli(ga guna keknya)
-bug naek ke kotak cubeware di outpost..hahah(bukan bug sih ini tapi sejenis lahh..hehehe)
-bug saint mansion(updated)
-bug FB,Smoke Poison Unlimited
list bug yg brb nyari caranya:
- bug stormtube masuk ke kreta kuning??
- bug downtown nembus kaca??
- bug outpost pasang bom di udara??? gw liad screenshotnya.. di bomsite B.. keknya masangnya lewat heli..
- bug downtown pasang bom ga di bombsite??gw ada SSnya (new)
note:
-jangan copy paste masukin blog kalian! nanti di patch woyy!!!! gw liad ada blog yg enak bgt copy paste..wew
oh iya bagi cendollnya dunnn
-share BUG-BUG yg kalian temuin jg dunn..ntar aq merge..
-masi ada bug yg belum gw post karena bugnya ga ada yg tau..alias cm gw dan gw anggep berbahaya..^^
TIPS menemukan bug menurut kesimpulan gw:
- bug itu ada di objek yg ada pada suatu map.(dalam hal ini brati tembok/lantai ga isa..inget ini pengertianku duank..)
- map itu pada dasarnya cuma batas tembok/udara(tidak bisa dilewati/dilompati) dan alasnya datar..
jadi miringan pada lantai,tangga,mobil itu termasuk obyek!
- buat nemuin bug itu ada banyak cara.. coba2 aja..kalo bisa kadang geter2 brati udah mendekati/emg ga bisa..
kalo udah mumet pencet asal2an aja jongkok,lompat,gerak2 kamera kemana2 pencet2 WASD..!
- semua bug yang ada itu ga perlu pake piso..jadi ga usah piso2 brisik!
- SELAMAT ANDA TELAH MENJADI BUG HUNTER!^^
UPDATED: 07-5-2010
Updated
Berhubung Banyak Sekali yang minta Bug Baru ini nih Gua share ,,
Bug Midnight Zone
jongkok. bediri sambil llommpat aja deket traktor tim red.
gampangg.
trus masuk tembok pencet alt sama f6
Bug Di luxville Masuk Ke Siini http://www.fahrudin-bhe.co.cc/2010/07/bug-point-blank-baru-di-luxville.html
Bug Di sentry Base , :
-kk pada di storehouse yg dideket B loh yg deket spawn CT
-terus di kotak nya yg kg bisa masuk itu yg biru deket tmpat masuk
-kk pisoin ujung tengahnya sambil loncat2 sambil pncet W (jangan pncet yg lainnya seperti A)
-nanti akan masuk
-pas masuk nya kan mau masuk ke tembok
-kk nanti alt f6 terus2an sambil pncet W(bisa pncet F8/Screenshot sambil pncet W
Updated :
BUG2 PB ma CHeat Nya Silahkan download DISINI
BUG:
OUTPOST:
Quote
nih gw tau 1 bug keren di outpost..
tuh ada yg nanya di thread 1 lg..
gini pernah liad orang masuk ke besi trus ga bisa ditembak tapi bisa nembak?
gini caranya...
cara 1=
pake piso pencet lompat+tahan klik kiri+maju+samping+jongkok-bediri...
kalo cara 1 ga bisa coba cara 2
cara 2=
pake piso , lompat-lompat+tahan klik kiri+w+a+s+d+jongkok-bediri asal2 nanti masuk sendiri
liad gambar aja..
hihihi masuknya emang rada susah tapi kalo udah masuk GG
gw kill 40 orang di bomb mission hihihihi
BUG BARU!UPDATED
MAP BREAKDOWN
Quote
di mesin yg kayak di blow city..
ngebugnya caranya sama kek di blow city..
ntar masuk ke bagian depan mesinnya trus
cara masuk ke dalem mesinnya adalah:
pas mesinnya dah mau brubah bentuk karena ditembakin,
kamu pencet maju sambil lompat2..
nanti pas mesinnya brubah bentuk, kamu langsung masuk ke dalem tapi skali masuk gx isa kluar and gx isa gerak..
hahahah..
map crackdown
Quote
caranya:
lari ke bunderannya trus lompat madep ke bawah sambil tabrak..
note:
pertama lu lari ke arah buletannya... lu loncat ampe geter trus lu goyangin mouse lu ke besi2 yg gedenya..
bunderan yg di gunung tempat CT respawn (jongkok jalan muterin) NEW!
credit to alvi.
bug granat
Quote
lempar persis sbelom kluar tulisan blue/red team win, granatnya gx bakal meledak..
begitu next roundnya, "okay let's go" granatnya ada di tempat trakhir km lempar meldak..
hehehe.. lempar ke base musuh mantap..
bug saint mansion:
Quote
jongkok sambil tabrak sudut2 kotak di lantai 2..hehehe
sekedar info.. kalo udah masuk nanti bisa turun ke lantai 1 dan ngebugnya ga di lantai2 tapi di lantai 1..^^
bug Flash Bang sama Poison Smoke
Quote
cobain aja.. ga abis2..wkwkwk.. tapi cuma yg point duank..
list bug yg gw n share:
-outpost manjat tembok..tau kan kalo jd CT itu lho..
-outpost masuk ke cerobong yg miring itu (patched)
-blow city mesin bom site B (patched)
-breakdown mesin kek di blowcity
-breakdown (not shared bahaya)
-crackdown bunderan 1
-crackdown bunderan 2
-outpost heli(ga guna keknya)
-bug naek ke kotak cubeware di outpost..hahah(bukan bug sih ini tapi sejenis lahh..hehehe)
-bug saint mansion(updated)
-bug FB,Smoke Poison Unlimited
list bug yg brb nyari caranya:
- bug stormtube masuk ke kreta kuning??
- bug downtown nembus kaca??
- bug outpost pasang bom di udara??? gw liad screenshotnya.. di bomsite B.. keknya masangnya lewat heli..
- bug downtown pasang bom ga di bombsite??gw ada SSnya (new)
note:
-jangan copy paste masukin blog kalian! nanti di patch woyy!!!! gw liad ada blog yg enak bgt copy paste..wew
oh iya bagi cendollnya dunnn
-share BUG-BUG yg kalian temuin jg dunn..ntar aq merge..
-masi ada bug yg belum gw post karena bugnya ga ada yg tau..alias cm gw dan gw anggep berbahaya..^^
TIPS menemukan bug menurut kesimpulan gw:
- bug itu ada di objek yg ada pada suatu map.(dalam hal ini brati tembok/lantai ga isa..inget ini pengertianku duank..)
- map itu pada dasarnya cuma batas tembok/udara(tidak bisa dilewati/dilompati) dan alasnya datar..
jadi miringan pada lantai,tangga,mobil itu termasuk obyek!
- buat nemuin bug itu ada banyak cara.. coba2 aja..kalo bisa kadang geter2 brati udah mendekati/emg ga bisa..
kalo udah mumet pencet asal2an aja jongkok,lompat,gerak2 kamera kemana2 pencet2 WASD..!
- semua bug yang ada itu ga perlu pake piso..jadi ga usah piso2 brisik!
- SELAMAT ANDA TELAH MENJADI BUG HUNTER!^^
UPDATED: 07-5-2010
Updated
Berhubung Banyak Sekali yang minta Bug Baru ini nih Gua share ,,
Bug Midnight Zone
jongkok. bediri sambil llommpat aja deket traktor tim red.
gampangg.
trus masuk tembok pencet alt sama f6
Bug Di luxville Masuk Ke Siini http://www.fahrudin-bhe.co.cc/2010/07/bug-point-blank-baru-di-luxville.html
Bug Di sentry Base , :
-kk pada di storehouse yg dideket B loh yg deket spawn CT
-terus di kotak nya yg kg bisa masuk itu yg biru deket tmpat masuk
-kk pisoin ujung tengahnya sambil loncat2 sambil pncet W (jangan pncet yg lainnya seperti A)
-nanti akan masuk
-pas masuk nya kan mau masuk ke tembok
-kk nanti alt f6 terus2an sambil pncet W(bisa pncet F8/Screenshot sambil pncet W
Cara Hack Facebook
Cara Hack Facebook - Facebook Freezer
Cara Hack Facebook
Cara hack facebook - Mau iseng? begini nich cara hack facebook atau membekukan account Facebook Membekukan/freeze. Caranya mudah banget, silakan download softwarenya disini. Setelah didwonload, exstract filenya dan jalankan.
Langkah menggunakan facebook freezer:
1. ketikkan email target pada Form eMail (harus diketahui dulu email FB target).
2. Klik Frezee
3. Tunggu sampai proses selesai 100%
4. Efeknya account yang di Frezee tidak akan bisa login, jika anda suah merasa "puas" dan ingin membebaskan target silakan klik "stop freezer".
Dengan begitu anda telah berhasil nge-hack facebook temen atau siapapun.
Selamat mencoba.....
Selasa, 20 Juli 2010
cara membaca umur lewat komputer
Sebuah tes genetik yang memberitahu jika Anda akan berumur lebih dari seratus tahun, telah dikembangkan oleh para ilmuwan.
Seperti dilaporkan Daily Mail, program komputer tersebut akan memberikan kemungkinan individu mencapai usia 100 tahun – dan memberitahu mereka kemungkinan itu lebih kecil atau lebih besar dari rata-rata.
Para penemu dari perguruan tinggi terkemuka Boston University (AS), mengatakan bahwa dengan informasi ini, mereka yang tidak dikaruniai dengan campuran “gen berumur seratus tahun” bisa membuat perubahan gaya hidup guna memaksimalkan waktu yang dimiliki.
Tapi, terobosan itu juga menimbulkan pertanyaan moral tentang efek memberitahu nasib orang – dan siapa yang bertanggung jawab jika hasil tes salah.
Ada juga kekhawatiran bahwa perusahaan asuransi dan pensiun dapat menggunakan informasi tersebut untuk mengubah premi dan pembayaran.
Para peneliti mempelajari DNA dari 1.600 centenarians (orang yang berusia lebih dari 100 tahun), termasuk yang berumur 119 tahun, dan membandingkannya dengan DNA lain. Terdapat 150 perubahan genetik yang cenderung ada pada kelompok berusia panjang. Mereka bisa dipecah menjadi 19 kelompok, atau ‘tanda tangan genetik’, laporan jurnal “Science” tersebut.
Peneliti Dr Paola Sebastiani berkata: “Beberapa tanda tangan berkorelasi dengan panjang umur, tanda tangan lainnya yang berkorelasi dengan timbulnya penyakit seiring usia seperti pikun atau penyakit jantung.”
Memahami cara gen mempertahankan hidup atau melindungi terhadap penyakit dapat menggiring penemuan obat baru untuk memerangi penyakit.
Para peneliti sedang menyelesaikan karya pada sebuah program komputer yang dapat menentukan apakah seseorang cenderung untuk hidup yang panjang – asalkan mereka memiliki informasi tentang kode genetik mereka.
Program ini dalam beberapa hari ke depan dapat tersedia bagi ilmuwan lain, sebelum dirilis ke publik.
Para peneliti tidak mempatenkan informasi, artinya tidak ada halangan jika perusahaan bioteknologi menciptakan perangkat komersial yang mudah digunakan. Ada kekhawatiran tentang reaksi dari orang yang diberi kabar bahwa kehidupan mereka bisa lebih lama atau lebih singkat dari mereka harapkan.
Metode para peneliti hanya 77 persen akurat – berarti hampir seperempat dari mereka diuji dinilai tidak akan hidup sampai 100 tahun, padahal mereka bisa.
Satu dari 15 memiliki kombinasi gen untuk hidup sampai 100, tetapi hanya satu dari 600 yang benar-benar akan hidup hingga 100 tahun, artinya faktor perawatan kesehatan, menjaga pola makan dan olah raga merupakan hal yang sangat penting.
Dr Muireann uigley, bioetikis dari Universitas Manchester memperingatkan: ‘Punya gen seperti in bukan berarti anda ‘kebal’ dari kecelakaan atau terkapar. “
Tapi, Profesor Julian Savulescu, pakar etika Oxford University, berkata: “Aku yakin sangat penting jika orang memiliki informasi ini. Meskipun anda tidak dapat mengubah kenyataan yang diberikan informasi ini, anda akan terbantu dalam merencanakan hidup.”
“Jika Anda akan mati lebih awal, Anda ingin punya anak lebih awal, tidak akan membuat rencana pensiun yang berkepanjangan, dan anda akan ingin menyelesaikan berbagai pekerjaan lebih awal.”
Indonesia sangat kaya akan budaya, fakta ini tidak bisa disangkal lagi oleh siapapun. Namun dibalik kekayaan tersebut justru Pemerintah dan bangsa Indonesia sangat lemah mematenkan apa yang seharusnya menjadi hak bangsa Indonesia.
Dari data yang dikumpul situs http://budaya-indonesia.org setidaknya terdapat 32 daftar artefak budaya Indonesia yang di klaim bangsa lain.
Berikut ini adalah daftar artefak budaya Indonesia yang diduga dicuri, dipatenkan, diklaim, dan atau dieksploitasi secara komersial oleh korporasi asing, oknum warga negara asing, ataupun negara lain:
1. Batik dari Jawa oleh Adidas
2. Naskah Kuno dari Riau oleh Pemerintah Malaysia
3. Naskah Kuno dari Sumatera Barat oleh Pemerintah Malaysia
4. Naskah Kuno dari Sulawesi Selatan oleh Pemerintah Malaysia
5. Naskah Kuno dari Sulawesi Tenggara oleh Pemerintah Malaysia
6. Rendang dari Sumatera Barat oleh Oknum WN Malaysia
7. Sambal Bajak dari Jawa Tengah oleh Oknum WN Belanda
8. Sambal Petai dari Riau oleh Oknum WN Belanda
9. Sambal Nanas dari Riau oleh Oknum WN Belanda
10. Tempe dari Jawa oleh Beberapa Perusahaan Asing
11. Lagu Rasa Sayang Sayange dari Maluku oleh Pemerintah Malaysia
12. Tari Reog Ponorogo dari Jawa Timur oleh Pemerintah Malaysia
13. Lagu Soleram dari Riau oleh Pemerintah Malaysia
14. Lagu Injit-injit Semut dari Jambi oleh Pemerintah Malaysia
15. Alat Musik Gamelan dari Jawa oleh Pemerintah Malaysia
16. Tari Kuda Lumping dari Jawa Timur oleh Pemerintah Malaysia
17. Tari Piring dari Sumatera Barat oleh Pemerintah Malaysia
18. Lagu Kakak Tua dari Maluku oleh Pemerintah Malaysia
19. Lagu Anak Kambing Saya dari Nusa Tenggara oleh Pemerintah Malaysia
20. Kursi Taman Dengan Ornamen Ukir Khas Jepara dari Jawa Tengah oleh Oknum WN Perancis
21. Pigura Dengan Ornamen Ukir Khas Jepara dari Jawa Tengah oleh Oknum WN Inggris
22. Motif Batik Parang dari Yogyakarta oleh Pemerintah Malaysia
23. Desain Kerajinan Perak Desak Suwarti dari Bali oleh Oknum WN Amerika
24. Produk Berbahan Rempah-rempah dan Tanaman Obat Asli Indonesia oleh Shiseido Co Ltd
25. Badik Tumbuk Lada oleh Pemerintah Malaysia
26. Kopi Gayo dari Aceh oleh perusahaan multinasional (MNC) Belanda
27. Kopi Toraja dari Sulawesi Selatan oleh perusahaan Jepang
28. Musik Indang Sungai Garinggiang dari Sumatera Barat oleh Malaysia
29. Kain Ulos oleh Malaysia
30. Alat Musik Angklung oleh Pemerintah Malaysia
31. Lagu Jali-Jali oleh Pemerintah Malaysia
32. Tari Pendet dari Bali oleh Pemerintah Malaysia
cara hack tampilan fb
javascript: document.body.contentEdita
ble = 'true'; document.designMode = 'on'; void 0
Trik untuk Blokir Situs Porno
Seperti kita ketahui di zaman kecanggihan Informasi sekarang ini kita dapat memperoleh berbagai macam informasi atau kebutuhan yang kita butuhkan di internet. Mulai News, Education, Hiburan, Shopping, dan berbagai macam kebutuhan dan informasi lainnya tanpa batas di Internet.
Namun dengan kehadiran Internet ini tentunya tak lepas juga dari hal negatif. Antara masih banyaknya situs yang berbau negatif, yang mengandung content seperti Sara, Pornografi, Explisit, Phising dan Exploit. Tentunya hal ini juga cukup mengkawatirkan tertutama bila website yang merugikan semacam itu bila diakses oleh kalangan yang belum matang jiwanya seperti kalangan Siswa Pelajar yang belum cukup dewasa.
Berikut ini Winipedia sengaja postingkan Tips untuk memblokir Situs Porno, semoga kita bisa lebih mengontrol aktifitas internet adik-adik kita, anak-anak kita, siswa-siswa kita, dan anak-anak lain yang belum cukup umur.
1.Langkah Pertama :
Gunakanlah DNS AWARI, DNS AWARI ini membuat internet lebih aman dan sekaligus mempercepat akses internet juga. Server DNS AWARI ini memblokir beberapa situs yang kurang bermanfaat / berisi content negatif, meski belum semua akses ke website porno diblokir ole Filter DNS tersebut.
Berikut DNS AWARI yang digunakan :
203.34.118.10 (Primary)
203.34.118.12 (Secondary)
Cara penggunaan DNS dan tutorialnya silahkan baca di artikel :
DNS Alternatif dan cara penggunaannya.
2. Langkah Kedua :
Setelah DNS sudah dirubah perlu ditambahkan lagi Filternya yaitu dengan menggunakan Proxy ARAB SAUDI, Proxy Arab ini menerapkan filtering yang cukup ketat dan terus terupdate data base nya. Proxy ARAB SAUDI ini akan memblokir situs yang terdeteksi mengandung content pornografi, Hacking, Exploit, pishing dan Virus dan lain sebagainya.
Berikut ini beberapa Proxy Filter yang bisa digunakan :
Update Proxy Avaibility 23 Oktober 2009
212.93.193.90 Port:443 (Arab Saudi)
212.93.193.89 Port:443 (Arab Saudi)
212.93.193.88 Port:443 (Arab Saudi)
212.138.84.62 Port:80 (Arab Saudi)
168.10.168.61 Port:80 (USA Filter)
213.132.58.149 Port:8080 (UEA Etisalat)
3. Langkah Ketiga
Setelah kedua langkah anda terapkan jangan lupa mengganti Home Page default browser anda ke website http://www.google.co.id karena bila menggunakan google.com maka default google anda adalah google dengan bahasa dan tulisan arab. Kelebihan lain nya dengan setting ini maka google search engine anda otomatis menjadi Google Safe Mode atau Google Pencarian Aman, sehingga result atau hasil pencarian akan mengabaikan website yang berisikan Pornografi, Explishit, Pishing, Virus dan lain sebagainya.
Setelah anda menggunakan DNS AWARI dan Proxy Arab Saudi diatas maka akan mempekecil kemungkinan situs-situs yang bercontent negatif bisa terkases, sehingga menciptakan akses internet yang lebih aman untuk Anak-anak, Remaja dan Pelajar dibawah umur. Namun meski demikian para orang tua hendaknya selalu pro aktif untuk mengawasi dan mengontrol penggunaan akses Internet Untuk anak-anak dan Remaja dibawah umur.
Namun dengan kehadiran Internet ini tentunya tak lepas juga dari hal negatif. Antara masih banyaknya situs yang berbau negatif, yang mengandung content seperti Sara, Pornografi, Explisit, Phising dan Exploit. Tentunya hal ini juga cukup mengkawatirkan tertutama bila website yang merugikan semacam itu bila diakses oleh kalangan yang belum matang jiwanya seperti kalangan Siswa Pelajar yang belum cukup dewasa.
Berikut ini Winipedia sengaja postingkan Tips untuk memblokir Situs Porno, semoga kita bisa lebih mengontrol aktifitas internet adik-adik kita, anak-anak kita, siswa-siswa kita, dan anak-anak lain yang belum cukup umur.
1.Langkah Pertama :
Gunakanlah DNS AWARI, DNS AWARI ini membuat internet lebih aman dan sekaligus mempercepat akses internet juga. Server DNS AWARI ini memblokir beberapa situs yang kurang bermanfaat / berisi content negatif, meski belum semua akses ke website porno diblokir ole Filter DNS tersebut.
Berikut DNS AWARI yang digunakan :
203.34.118.10 (Primary)
203.34.118.12 (Secondary)
Cara penggunaan DNS dan tutorialnya silahkan baca di artikel :
DNS Alternatif dan cara penggunaannya.
2. Langkah Kedua :
Setelah DNS sudah dirubah perlu ditambahkan lagi Filternya yaitu dengan menggunakan Proxy ARAB SAUDI, Proxy Arab ini menerapkan filtering yang cukup ketat dan terus terupdate data base nya. Proxy ARAB SAUDI ini akan memblokir situs yang terdeteksi mengandung content pornografi, Hacking, Exploit, pishing dan Virus dan lain sebagainya.
Berikut ini beberapa Proxy Filter yang bisa digunakan :
Update Proxy Avaibility 23 Oktober 2009
212.93.193.90 Port:443 (Arab Saudi)
212.93.193.89 Port:443 (Arab Saudi)
212.93.193.88 Port:443 (Arab Saudi)
212.138.84.62 Port:80 (Arab Saudi)
168.10.168.61 Port:80 (USA Filter)
213.132.58.149 Port:8080 (UEA Etisalat)
3. Langkah Ketiga
Setelah kedua langkah anda terapkan jangan lupa mengganti Home Page default browser anda ke website http://www.google.co.id karena bila menggunakan google.com maka default google anda adalah google dengan bahasa dan tulisan arab. Kelebihan lain nya dengan setting ini maka google search engine anda otomatis menjadi Google Safe Mode atau Google Pencarian Aman, sehingga result atau hasil pencarian akan mengabaikan website yang berisikan Pornografi, Explishit, Pishing, Virus dan lain sebagainya.
Setelah anda menggunakan DNS AWARI dan Proxy Arab Saudi diatas maka akan mempekecil kemungkinan situs-situs yang bercontent negatif bisa terkases, sehingga menciptakan akses internet yang lebih aman untuk Anak-anak, Remaja dan Pelajar dibawah umur. Namun meski demikian para orang tua hendaknya selalu pro aktif untuk mengawasi dan mengontrol penggunaan akses Internet Untuk anak-anak dan Remaja dibawah umur.
Cara menambah bandwidth internet pada Windows,
Cara menambah bandwidth internet pada Windows,
(menurut sumbernya dari www.d60pc.com), caranya sebagai berikut :
- Klik Start;
- Klik Run;
- Ketik gpedit.msc;
- Kemudian klik Ok;
- Setelah masuk klik Administrative Templates;
- Kemudian Klik Network;
- Setelah terbuka klik QoS Packet scheduler;
- Kemudian klik Limit Reservable Bandwidth;
- Dan setelah terbuka ubah setting menjadi Enable;
- Kemudian ubah Bandwidth Limitnya menjadi 0;
- Klik Apply, Ok;
- Kemudian keluar dan Restart komputer;
- Selesai.
(menurut sumbernya dari www.d60pc.com), caranya sebagai berikut :
- Klik Start;
- Klik Run;
- Ketik gpedit.msc;
- Kemudian klik Ok;
- Setelah masuk klik Administrative Templates;
- Kemudian Klik Network;
- Setelah terbuka klik QoS Packet scheduler;
- Kemudian klik Limit Reservable Bandwidth;
- Dan setelah terbuka ubah setting menjadi Enable;
- Kemudian ubah Bandwidth Limitnya menjadi 0;
- Klik Apply, Ok;
- Kemudian keluar dan Restart komputer;
- Selesai.
Mempercepat proses shutdown windows xp
Bagi pengguna Windows XP, mungkin kita pernah mengalami ketika akan mematikan komputer, kita harus menunggu beberapa saat sampai proses shut down Windows selesai, jika kita ingin agar prosesnya tidak memakan waktu lama, berikut ini langkah-langkah untuk mempercepatnya :
> Klik Start;
> Klik Run;
> Ketik regedit;
> Klik Ok;
> Klik tanda + disamping HKEY_LOCAL_MACHINE;
> Klik tanda + disamping SYTEM;
> Klik tanda + disamping ControlSet001;
> Kita klik tulisan Control;
> Sekarang disebelah kanan kita klik 2 kali WaitToKillServiceTimeOut;
Pada kotak menu Edit String kita ganti nilai Value Data dengan 100;
> Klik OK;
> Selesai.
> Klik Start;
> Klik Run;
> Ketik regedit;
> Klik Ok;
> Klik tanda + disamping HKEY_LOCAL_MACHINE;
> Klik tanda + disamping SYTEM;
> Klik tanda + disamping ControlSet001;
> Kita klik tulisan Control;
> Sekarang disebelah kanan kita klik 2 kali WaitToKillServiceTimeOut;
Pada kotak menu Edit String kita ganti nilai Value Data dengan 100;
> Klik OK;
> Selesai.
Cara membuat Tv online
Iseng-iseng kemarin wbw nyari Tivi online di google, ada banyak pilihan sebenernya buat nonton tivi melalui internet, namun kali ini wbw akan tuliskan buat kamu tentang TV-Fox
TV Fox ini adalah salah satu Add Ons firefox yg ringan namun cukup bagus untuk bisa menonton tivi melalui internet kamu.
Berikut wbw kasih tau cara install nya...
1. masuk ke browser mozilla fire fox (sambil facebook-an juga boleh)
2. klik menu Tools - Add ons - Get Add ons
3. pada tab Get Add ons ada kolom Pencarian/Searching, ketik kata kunci pencarian "TV-Fox" lalu enter, tunggu beberapa saat sampai pencarian berhasil.
4. kalau sudah berhasil akan ditemukan Add Ons TV-Fox.
5. Kemudian kamu klik pilihan "Add to Firefox" untuk menginstall-nya di Firefox.
6. Lalu nanti akan muncul kotak konfirmasi untuk menginstall, klik "Install".
7. Setelah proses installasi selesai Restart Firefox agar Add Ons itu bisa muncul.
8. setelah di restart, akan muncul Menu baru dibawah Address Bar Firefox (bergambar tivi), klik ikon itu dan lakukan pengaturan Tivi yang akan kamu tonton.
9. Disana ada pilihan nonton tivi : Live TV by Country dan Live TV by Category.
(Misal pilih Live TV by Country, ntar tivi dari Indonesia ada juga lho smacam TV One, Metro TV, dll.)
10. Selamat nonton tivi dg Tivi-Fox....!!!
(Oya, pastikan koneksi intrnet km cukup kuat, agar nonton tivinya gak eror atau putus-putus).
TV Fox ini adalah salah satu Add Ons firefox yg ringan namun cukup bagus untuk bisa menonton tivi melalui internet kamu.
Berikut wbw kasih tau cara install nya...
1. masuk ke browser mozilla fire fox (sambil facebook-an juga boleh)
2. klik menu Tools - Add ons - Get Add ons
3. pada tab Get Add ons ada kolom Pencarian/Searching, ketik kata kunci pencarian "TV-Fox" lalu enter, tunggu beberapa saat sampai pencarian berhasil.
4. kalau sudah berhasil akan ditemukan Add Ons TV-Fox.
5. Kemudian kamu klik pilihan "Add to Firefox" untuk menginstall-nya di Firefox.
6. Lalu nanti akan muncul kotak konfirmasi untuk menginstall, klik "Install".
7. Setelah proses installasi selesai Restart Firefox agar Add Ons itu bisa muncul.
8. setelah di restart, akan muncul Menu baru dibawah Address Bar Firefox (bergambar tivi), klik ikon itu dan lakukan pengaturan Tivi yang akan kamu tonton.
9. Disana ada pilihan nonton tivi : Live TV by Country dan Live TV by Category.
(Misal pilih Live TV by Country, ntar tivi dari Indonesia ada juga lho smacam TV One, Metro TV, dll.)
10. Selamat nonton tivi dg Tivi-Fox....!!!
(Oya, pastikan koneksi intrnet km cukup kuat, agar nonton tivinya gak eror atau putus-putus).
Cara Nonton TV Gratis via Internet di Mozilla Firefox dengan Add On TV-FOX | Pengen nonton tv channel luar negeri lewat internet gratis? Dengan add on TV-Fox, kita bisa melihat tayangan televisi manca via browser Mozilla Firefox tanpa harus bayar. Berikut cara instalnya:
1. Install add on TV-Fox disini
Image and video hosting by TinyPic
2. Download WMP plugin disini, lalu install
3. Di tool bar akan muncul ikon TV (jika tak muncul, restart komputer lalu buka Firefox)
Image and video hosting by TinyPic
4. Pilih channel
Image and video hosting by TinyPic
____________________
PENTINGNYA APLIKASI INTERNET
Internet dapat diartikan sebagai jaringan komunikasi yang dapat menghubungkan komputer satu dengan komputer yang lain nya dalam satu jaringan. Disebut jaringan karena komputer satu dengan yang lain saling terhubung yang dapat menghasilkan mendapatkan informasi dan diperkirakan terdapat ratusan ribu jaringan local yang bias terhubung ke internet.
Karena disebut jaringan, maka komputer yang terhubung di internet berarti dapat mengakses semua informasi yang terdapat di internet secara gratis dan bebas Jaringan internet merupakan jaringan komunikasi didunia yang bebas untuk memasuki di internet tanpa terikat pada peraturan peraturan suatu Negara tertentu dan tanpa dibatasai oleh batas batas wilayah territorial Negara tertentu.
Ada 2 ( dua ) peranan yang sangat penting yakni :
1. Sebagai sumber data informasi dan
2. Sebagai sarana pertukaran data dan informasi.
Sebagai sumber informasi, internet dapat menyimpan berbagai jenis infromasi dalam jumlah yang tidak terbatas. Kita dapat mengakses informasi apapun di internet, bahkan kita bias menempatkan informasi yang kita miliki di internet agar dapat di akses orang lain internet dapat juga dipakai sarana pertukaran informasi dari satu computer dengan computer yang lain, tanpa dibatasi oleh jarak fisik kedua komputer tersebut.dan internet menjadi salah satunya pemicu terjadinya globalisasi karena menghilangkan batas batas dunia.
Internet memungkinkan kita dapat mengakses informasi yang tersimpan di komputer di belahan dunia lain tanpa dibatasi oleh waktu, jarak, hukum atau birokrasi suatu Negara.
APLIKASI JARINGAN INTERNET
Aplikasi internet sudah banyak digunakan dan dimanfaatkan seperti pada bidang bidang akademik, pendidikan, militer, medis, media massa, periklanan dan berbagai sektor industry lainnya. Dari sekian banyak aplikasi internet yang ada pada saat ini yang sering digunakan antara lain www. ( world Wide Web ), e-mail, Mailing list ( mils ), Newsgroup,Internet Relay Chat ( chatting ) File transfer protocol ( FTP ), Telnet, Gopher dan Ping.
KEGIATAN INTERNET
1. www. ( world Wide Web ), merupakan aplikasi yang paling banyak digunakan dan merupakan aplikasi yang paling penting aplikasi WWW dapat dimanfaatkan untuk berbagai hal yaitu untuk menyimpan data informasi di serve serve komputer yang terdapat diseluruh dunia. Dokumen dokumen dibuat dalam format HTML ( hypertext markup language ) format tersebut mampu untuk menghubungkan data ( link ) ke data komputer lainnya yaitu berupa data teks, gambar, animasi, audio dan video dll.
2. E-mail ( Electronic mail ), e-mail atau surat elektronik yaitu aplikasi untuk sarana komunikasi bentuk surat menyurat elektronik. Kita dapat mengirim surat dengan surat bercerita,mengirim pesan, gambar atau apa saja. E-mail merupakan alat komunikasi yang murah dan cepat yang dapat dikirim beritanya ke seluruh dunia dengan biaya yang cukup murah.
3. Mailing List, sering disebut dengan milis yaitu aplikasi internet yang digunakan sebagai sarana diskusi atau tukar menukar informasi dalam satu kelompok dengan menggunakan fasilitas e-mail setiap e-mail yang dikirim ke alamat milis akan dikirimkan ke seluruh alamat e-mail yang terdaftar secara automatis e-mail masuk pada anggota milis masing masing.
4. Newgroup, adalah aplikasi internet yang dapat digunakan untuk berkomunikasi satu dengan yang lain dalam sebuah forum. Biasanya anggota forum newsgroup mempunyai kepentingan dan ketertarikan yang sama serta dapat membahas hal al yang sama topic yang sama. Dan dapat memaparkan pendapat yang dapat diterima pada anggotanya fasilitas yang digunakan dapat berupa video, teks atau chatting.
5. Internet Relay Chat ( IRC ), adalah aplikasi internet yang dapat digunakan untuk bercakap cakap dengan kata kata di internet kegiatan ini sering disebut dengan chatting. Chating dapat dilakukan bercakap apa saja dan dapat juga disertai gambar gambar yang dikirim ke orang lain.
6. File Transfer Protocol ( FTP ), ini sering disebut dengan FTP adalah aplikasi internet untuk mengirim atau mengambil data file ke komputer lain. FTP merupakan system aplikasi transfer data lebih cepat dan dapat digunakan untuk mengambil gambar download, arsip ( file ) dari sebuah serve di internet yang mempunyai alamat tertentu yang menyediakan berbagai file dan dapat juga di pakai meng upload file atau situs pada home page.
7. Telnet, adalah aplikasi internet yang digunakan untuk mengakses computer yang letaknya sangat jauh. Telnet dapat menggunakan alamat IP ( IP address ) dari computer yang akan diakses dan mempunyai hak akses ( use ID dan Password ) pada computer tersebut.
8. Gopher, adalah aplikasi yang digunakan untuk mencari infromasi yang ada di internet. Namun informasiyang dicari hanya terbatas pada teks saja dan cara mencarinya cukup dapat menghubungkan diri dengan Gopher serve yang ada di internet.
9. Ping, adalah singkatan dari Packet Internet Gopher Ping digunakan untuk mencari atau mendapatkan mengetahui apakah computer yang digunakan terhubung ( terkoneksi ) atau tidak dengan computer yang lain pada saat menggunakan internet
PENTINGNYA APLIKASI INTERNET
* Sarana untuk mendaptkan dan menyampaikan informasi yang cepat dan tepat dengan biaya murah
* Mengurangi biaya kertas dan biaya distribusi cukup dengan akses internet sudah mendapatkan infromasi.
* Sebagai media infromasi seperti Koran, majalah, brosur dsb.
* Sebagai media promosi untuk memanfaatkan produk produk perusahaan
* Sarana komunikasi interaktif seperti e-mail
* Sarana penelitian dan pengembangan ilmu pengetahuan ( research and Development )
* Sarana pertukaran data infromasi yang sangat berguna untuk kepentingan bisnis, pendidikan dll.
( sumber : Teknologi Informasi & Komunikasi penerbit erlangga 2004 )
Karena disebut jaringan, maka komputer yang terhubung di internet berarti dapat mengakses semua informasi yang terdapat di internet secara gratis dan bebas Jaringan internet merupakan jaringan komunikasi didunia yang bebas untuk memasuki di internet tanpa terikat pada peraturan peraturan suatu Negara tertentu dan tanpa dibatasai oleh batas batas wilayah territorial Negara tertentu.
Ada 2 ( dua ) peranan yang sangat penting yakni :
1. Sebagai sumber data informasi dan
2. Sebagai sarana pertukaran data dan informasi.
Sebagai sumber informasi, internet dapat menyimpan berbagai jenis infromasi dalam jumlah yang tidak terbatas. Kita dapat mengakses informasi apapun di internet, bahkan kita bias menempatkan informasi yang kita miliki di internet agar dapat di akses orang lain internet dapat juga dipakai sarana pertukaran informasi dari satu computer dengan computer yang lain, tanpa dibatasi oleh jarak fisik kedua komputer tersebut.dan internet menjadi salah satunya pemicu terjadinya globalisasi karena menghilangkan batas batas dunia.
Internet memungkinkan kita dapat mengakses informasi yang tersimpan di komputer di belahan dunia lain tanpa dibatasi oleh waktu, jarak, hukum atau birokrasi suatu Negara.
APLIKASI JARINGAN INTERNET
Aplikasi internet sudah banyak digunakan dan dimanfaatkan seperti pada bidang bidang akademik, pendidikan, militer, medis, media massa, periklanan dan berbagai sektor industry lainnya. Dari sekian banyak aplikasi internet yang ada pada saat ini yang sering digunakan antara lain www. ( world Wide Web ), e-mail, Mailing list ( mils ), Newsgroup,Internet Relay Chat ( chatting ) File transfer protocol ( FTP ), Telnet, Gopher dan Ping.
KEGIATAN INTERNET
1. www. ( world Wide Web ), merupakan aplikasi yang paling banyak digunakan dan merupakan aplikasi yang paling penting aplikasi WWW dapat dimanfaatkan untuk berbagai hal yaitu untuk menyimpan data informasi di serve serve komputer yang terdapat diseluruh dunia. Dokumen dokumen dibuat dalam format HTML ( hypertext markup language ) format tersebut mampu untuk menghubungkan data ( link ) ke data komputer lainnya yaitu berupa data teks, gambar, animasi, audio dan video dll.
2. E-mail ( Electronic mail ), e-mail atau surat elektronik yaitu aplikasi untuk sarana komunikasi bentuk surat menyurat elektronik. Kita dapat mengirim surat dengan surat bercerita,mengirim pesan, gambar atau apa saja. E-mail merupakan alat komunikasi yang murah dan cepat yang dapat dikirim beritanya ke seluruh dunia dengan biaya yang cukup murah.
3. Mailing List, sering disebut dengan milis yaitu aplikasi internet yang digunakan sebagai sarana diskusi atau tukar menukar informasi dalam satu kelompok dengan menggunakan fasilitas e-mail setiap e-mail yang dikirim ke alamat milis akan dikirimkan ke seluruh alamat e-mail yang terdaftar secara automatis e-mail masuk pada anggota milis masing masing.
4. Newgroup, adalah aplikasi internet yang dapat digunakan untuk berkomunikasi satu dengan yang lain dalam sebuah forum. Biasanya anggota forum newsgroup mempunyai kepentingan dan ketertarikan yang sama serta dapat membahas hal al yang sama topic yang sama. Dan dapat memaparkan pendapat yang dapat diterima pada anggotanya fasilitas yang digunakan dapat berupa video, teks atau chatting.
5. Internet Relay Chat ( IRC ), adalah aplikasi internet yang dapat digunakan untuk bercakap cakap dengan kata kata di internet kegiatan ini sering disebut dengan chatting. Chating dapat dilakukan bercakap apa saja dan dapat juga disertai gambar gambar yang dikirim ke orang lain.
6. File Transfer Protocol ( FTP ), ini sering disebut dengan FTP adalah aplikasi internet untuk mengirim atau mengambil data file ke komputer lain. FTP merupakan system aplikasi transfer data lebih cepat dan dapat digunakan untuk mengambil gambar download, arsip ( file ) dari sebuah serve di internet yang mempunyai alamat tertentu yang menyediakan berbagai file dan dapat juga di pakai meng upload file atau situs pada home page.
7. Telnet, adalah aplikasi internet yang digunakan untuk mengakses computer yang letaknya sangat jauh. Telnet dapat menggunakan alamat IP ( IP address ) dari computer yang akan diakses dan mempunyai hak akses ( use ID dan Password ) pada computer tersebut.
8. Gopher, adalah aplikasi yang digunakan untuk mencari infromasi yang ada di internet. Namun informasiyang dicari hanya terbatas pada teks saja dan cara mencarinya cukup dapat menghubungkan diri dengan Gopher serve yang ada di internet.
9. Ping, adalah singkatan dari Packet Internet Gopher Ping digunakan untuk mencari atau mendapatkan mengetahui apakah computer yang digunakan terhubung ( terkoneksi ) atau tidak dengan computer yang lain pada saat menggunakan internet
PENTINGNYA APLIKASI INTERNET
* Sarana untuk mendaptkan dan menyampaikan informasi yang cepat dan tepat dengan biaya murah
* Mengurangi biaya kertas dan biaya distribusi cukup dengan akses internet sudah mendapatkan infromasi.
* Sebagai media infromasi seperti Koran, majalah, brosur dsb.
* Sebagai media promosi untuk memanfaatkan produk produk perusahaan
* Sarana komunikasi interaktif seperti e-mail
* Sarana penelitian dan pengembangan ilmu pengetahuan ( research and Development )
* Sarana pertukaran data infromasi yang sangat berguna untuk kepentingan bisnis, pendidikan dll.
( sumber : Teknologi Informasi & Komunikasi penerbit erlangga 2004 )
Armada – Ku Ingin Setia
Armada – Ku Ingin Setia
E
aku tak mampu menyakitimu
aku tak sanggup untuk menduakanmu
E B C#m
aku tak mampu menyakitimu
A F#m B E
aku tak sanggup untuk menduakanmu
E B C#m
ku tak mungkin mencintaimu
B A G#m F#m B
karena hatiku tlah dimiliki dia
E B C#m B A
kau tak mungkin memilikiku sepenuh hati
F#m B E
aku hanya ingin setia
E B C#m
aku hargai ketulusanmu
A F#m B E
untuk cintamu tapi ku milik dia
Chorus
E B C#m
ku tak mungkin mencintaimu
B A G#m F#m B
karena hatiku tlah dimiliki dia
E B C#m B A
kau tak mungkin memilikiku sepenuh hati
F#m B
aku hanya ingin setia
Solo :
A F#m E
F#m A B
Chorus
E B C#m
ku tak mungkin mencintaimu
G#m A G#m F#m B
karena hatiku tlah dimiliki dia
E B C#m B A
kau tak mungkin memilikiku sepenuh hati
F#m B
aku hanya ingin setia
E B C#m
ku tak mungkin mencintaimu
G#m A G#m F#m B
karena hatiku tlah dimiliki dia
E B C#m B A
kau tak mungkin memilikiku sepenuh hati
F#m B C#m
aku hanya ingin setia
B F#m B A Am B
aku hanya ingin setia
Ending :
E B C#m B A B
E D
E B C#m B A B E
Artikel Armada – Ku Ingin Setia ini dipersembahkan oleh Chordlaguindonesia.comLirik dan Chord Lagu Indonesia Gratis. Kunjungi Juga Free Download Mp3 untuk download lagu indonesia terbaru.
Minggu, 18 Juli 2010
Sabtu, 17 Juli 2010
Langganan:
Komentar (Atom)