lihat pasword wireless wep

nih aku kasih software yang bisa bobol password wireless

download di :
http//:www.indowebster.com/wireless_WEP.html

memaksimal kan Bandwidth Limitnya di windows

memaksimal kan Bandwidth Limitnya

---

1. Klik Start
2. Klik Run
3. Ketik gpedit.msc
4. kemudian klik Ok
5. Setelah masuk klik Administrative Templates
6. kemudian Klik Network
7. setelah terbuka klik QoS Packet scheduler
8. kemudian klik Limit Reservable Bandwidth
9. Dan setelah terbuka ubah setting menjadi Enable
10. Kemudian ubah Bandwidth Limitnya menjadi 0
11. Klik Apply,ok
12. Kemudian keluar dan Restart komputer

cara mudah install program divista

ingin mudah install program yang tidak support divista menjadi support, copy aja link di bawah ini : http://www.stockblocks.com/support/bde/vista_bde_configuration.htm

tuturialnya

Pemograman dengan bahasa pascal_1

Pada Pertemuan pertama di bahasa pascal saya belajar cara menghitung luas dan keliling bangun datar.

1. Program untuk menghitung luas dan keliling empat persegi panjang, adapun rumus luas dari empat persegi panjang adalah:

Luas=panjang*lebar

Sedangkan keliling empat persegi panjang adalah:

Keliling=2*panjang+lebar

2. Progam menghitung luas dan keliling lingkaran, adapun rumus luas lingkaran adalah:

Luas=phi*r*r

Sedangkan keliling lingkaran adalah:

Killing=2*phi*r

Catatan r adalah jari-jari dan phi=3.1415593

Dan berikut sourcecode programnya.

Program1

program menghitung_luas_dan_keliling_empat_persegi_panjang;

uses wincrt;

var

panjang,lebar,luas,keliling:integer;

begin

clrscr;

writeln(’Menghitung luas dan keliling empat persegi panjang’);

write(’Panjang =’); readln(panjang);

write(’Lebar =’); readln(lebar);

luas:=panjang*lebar;

keliling:=2*(panjang+lebar);

writeln(’Luas empat persegi panjang =’,luas,’M2′);

writeln(’Keliling empat persegi panjang =’,keliling,’M');

readln;

end.

Program2

program menghitung_luas_dan_keliling_lingkaran;

uses wincrt;

const

phi=3.141593;

var

r,luas,keliling:real;

begin

clrscr;

writeln(’Menghitung luas dan keliling lingkaran’);

write(’Nilai r =’); readln(r);

luas:=phi*r*r;

keliling:=2*phi*r;

writeln(’Luas lingkaran =’,luas:0:3);

writeln(’Keliling lingkaran =’,keliling:0:3);

readln;

end.

Pemograman Bahasa Pascal dengan If Then

Di sini saya dapat tugas dari dosen untuk membuat program data,nilai mahasiswa dan membuat program bisokop dengan mengunakan bahasa pascal. Dengan mengunakan If Then.

1. Buat program untuk input nama dan nilai mahasiswa dengan ketentuan:

Nilai > = 85 nilai huruf A

Nilai > = 75 nilai huruf B

Nilai > = 60 nilai huruf C

Nilai > = 50 nilai huruf D

Output/Tampilan

Nama :

Nilai :

Nilai Huruf :

1. 2. Buat program Bioskop dan input no_studio dengan ketentuan:

No studio = 1 judul film = ayat-ayat cinta

No studio = 2 judul film = jumpe

No studio = 3 judul film = CJ7

No studio = 4 judul film = DO

No studio = 5 udul film = In the name of time

Output/Tampilan

No Studio :

Judul Film :

berikut sourcecode programnya.

Program1

program nama_nilai_mahasiswa;

uses wincrt;

var

nama:string;

nilai:integer;

begin

clrscr;

writeln(’Nama dan Nilai Mahasiswa’);

writeln(’————————-’);

write(’Nama = ‘);

readln(nama);

write(’Nilai = ‘);

readln(nilai);

if (nilai >=85) then begin

writeln(’Nilai Huruf = A’);

end else if (nilai >=75) then begin

writeln(’Nilai Huruf = B’);

end else if (nilai >=60) then begin

writeln(’Nilai Huruf = C’);

end else if (nilai >=50) then begin

writeln(’Nilai Huruf = D’);

end else if (nilai <50) then begin

writeln(’Nilai Huruf = E’);

end;

readln;

end.

program2

program bioskop;

uses wincrt;

var

no_studio:integer;

begin

clrscr;

writeln(’Bioskop 2in1′);

writeln(’————’);

write(’No Studio =’);

readln(no_studio);

if (no_studio =1) then begin

writeln(’Judul Film = Ayat-Ayat Cinta’);

end else if (no_studio =2) then begin

writeln(’Judul Film = Jumper’);

end else if (no_studio =3) then begin

writeln(’Judul Film = CJ7′);

end else if (no_studio =4) then begin

writeln(’Judul Film = DO’);

end else if (no_studio =5) then begin

writeln(’Judul Film = In the name of love’);

end;

readln;

end.

Program Bahasa Pascal_Konversi Suhu

Buat program untuk membuat tabel konversi dari nilai derajat celcius ke derajat fahrenheit dan dari celcius ke derajat kelvin dengan kelipatan 0.25. Dengan menggunakan bahasa pascal.

Berikut sourcecode programnya.

program Konversi_suhu;
uses wincrt;
var
i:integer;
C,F,K:real;
begin
clrscr;
writeln(’—————————————’);
writeln(’Celcius Fahrenheit Kelvin’);
writeln(’—————————————’);
for i:= 1 to 10 do begin
C:=C+0.25;
F:=C*1.8+32;
K:=C+273.15;
writeln(C:0:2,F:18:2,K:17:2);
end;
readln;
end.

Program Bahasa Pascal “Case - of”

Buat program untuk menghitung

1. Luas dan keliling persegi panjang
2. Luas dan keliling bujur sangkar
3. Luas dan keliling lingkaran
4. Luas segitiga

Dengan menggunakan case of. Di sini ada 2 alternatif dalam pembutan pemrogramaan di atas. Berikut spourcecodenya.

Cara 1

program menghitung;

uses wincrt;

const

phi=3.141593;

var

nomor,panjang,lebar,sisi,luas,keliling:integer;

r,alas,tinggi:real;

begin

clrscr;

writeln(’Menghitung Luas dan Keliling’);

writeln(’——————————-’);

writeln(’1. Persegi panjang’);

writeln(’2. Bujur sangkar’);

writeln(’3. Lingkaran’);

writeln(’4. Segitiga’);

writeln(’——————————-’);

write(’Masukan nomor =’);

readln(nomor);

case(nomor)of

1:writeln(’Menghitung luas dan keliling persegi panjang’);

2:writeln(’Menghitung luas dan keliling bujur sangkar’);

3:writeln(’Menghitung luas dan keliling lingkaran’);

4:writeln(’Menghitung luas segitiga’);

else

write(’tidak ada program di nomor=’,nomor);

end;

if (nomor=1) then begin

write(’Masukan Panjang =’);readln(panjang);

write(’Masukan Lebar =’);readln(lebar);

luas:=panjang*lebar;

keliling:=2*(panjang+lebar);

writeln(’Luas =’,luas);

writeln(’Keliling =’,keliling);

end else if (nomor=2) then begin

write(’Masukan Sisi =’);

readln(sisi);

luas:=sisi*sisi;

keliling:=4*sisi;

writeln(’Luas =’,luas);

writeln(’Keliling =’,keliling);

end else if (nomor=3) then begin

write(’Masukan r =’);readln(r);

writeln(’Luas =’,phi*r*r:0:6);

writeln(’Keliling =’,2*phi*r:0:6);

end else if (nomor=4) then begin

write(’Masukan Alas =’);readln(alas);

write(’Masukan Tinggi =’);readln(tinggi);

writeln(’Luas =’,0.5*alas*tinggi:0:2);

end;

readln;

end.

Cara 2

program menghitung_luas_dan_keliling;

uses wincrt;

const

phi=3.141593;

var

menu,panjang,lebar,jari,alas,tinggi : integer;

luas,keliling : real;

begin

clrscr;

writeln(’Menu menghitung luas dan keliling bangun’);

writeln(’Menu 1 : persegi panjang’);

writeln(’Menu 2 : bujur sangkar’);

writeln(’Menu 3 : lingkaran’);

writeln(’Menu 4 : segitiga’);

writeln(’Menu 5 : keluar program’);

write(’Masukan menu pilihan (1..5): ‘);

readln(menu);

case (menu) of

1:begin

writeln(’/*===menghitung luas dan keliling persegi panjang===*/’);

write(’masukan panjang : ‘); readln(panjang);

write(’masukan lebar : ‘); readln(lebar);

luas:=panjang*lebar;

keliling:=2*(panjang+lebar);

writeln(’luasnya : ‘,luas:0:0);

writeln(’kelilingnya : ‘,keliling:0:0);

end;

2:begin

writeln(’/*===menghitung luas dan keliling bujur sangkar===*/’);

write(’masukan sisi : ‘); readln(sisi);

luas:=sisi*sisi;

keliling:=4*sisi;

writeln(’luasnya : ‘,luas:0:0);

writeln(’kelilingnya : ‘,keliling:0:0);

end;

3:begin

writeln(’/*===menghitung luas dan keliling lingkaran===*/’);

write(’masukan jari-jari = ‘); readln(jari);

luas:=3.141593*jari*jari;

keliling:=2*3.141593*jari;

writeln(’luas : ‘,luas:0:6);

writeln(’keliling : ‘,keliling:0:6);

end;

4:begin

writeln(’/*===menghitung luas segitiga===*/’);

write(’masukan alas : ‘); readln(alas);

write(’masukan tinggi : ‘); readln(tinggi);

luas:=alas*tinggi/2;

writeln(’luas : ‘,luas:0:0);

end;

5:writeln(’***Keluar program***’);

end;

end.