Rumus Gotoxy

uses wincrt;
var nama,alamat,kode,nomor,jenis,keterangan,obat,namo:string;
tanggal,n,i,y,rekening,urut:integer;
jumlah,pemakaian,usg,konsul,harga,jumbat,qty,bayar,kembali:longint;
total,denda:real;
lagi,hm:char;

begin
repeat
y:=12;
clrscr;
writeln('=============================================================');
writeln(' APOTIK KRAKATAU MEDIKA ');
writeln(' Jl. Raya Pandean, KM 2 Serang Banten ');
writeln('=============================================================');
write('No. Kwitansi : '); readln(urut);
write('Tanggal : '); readln(tanggal);
gotoxy(35,5); write('Nama :'); gotoxy(46,5); readln(nama);
gotoxy(35,6); write('Alamat :'); gotoxy(46,6); readln(alamat);
writeln('============================================================');
write('Jumlah obat yang di beli : '); readln (n);
writeln('============================================================');
writeln(' No. Kode Nama Obat Qty Satuan Jumlah ');
writeln('------------------------------------------------------------');
for i:= 1 to n do
begin
gotoxy(2,y); writeln(i);
gotoxy(6,y); readln(kode);
gotoxy(12,y); readln(namo);
gotoxy(30,y); readln(qty);
gotoxy(38,y); readln(harga);
jumlah:=harga*qty;
gotoxy(53,y); writeln(jumlah);
jumbat:=jumbat+jumlah;
y:=y+1;
end;
writeln('============================================================');
writeln(' Total : ',jumbat);
write(' Bayar : '); readln(bayar);
kembali:=bayar-jumbat;
writeln(' Kembali : ',kembali);
writeln('============================================================');
write('Transaksi Lagi (y/t) : '); readln(lagi);
until (lagi='t') or (lagi='T');
readln;
donewincrt;
end.

Read more »

Rumus SEGItiga

program penjumlahan;
uses wincrt;
var a,b,c:real;
begin
write('angka pertama ; '); readln(a);
write('angka kedua ; '); readln(b);
c:=(a*b)/2;
writeln('luas segitiga ; ',C:0:2);
readln;
donewincrt;
end.

Read more »

Rumus lingkaran

program perhitungan;
uses wincrt;
var a,b:real;
begin
write('jari-jari ; '); readln(a);
b:=(22/7)*a*a;
writeln('hasil ; ',b:0:0);
readln;
donewincrt;
end.

Read more »

Netcut, pemotong koneksi clien hotspot dan penangkalnya

Netcut, pemotong koneksi clien hotspot dan penangkalnya

Posted on Mei 24, 2009. Filed under: Oprexz,freestuff,tutorial | Tags: WIFI hack, hotspot, wifi, server, wireless, Netcut, Cara Pakai Netcut, Anti Netcut, Cara Mempercepat Koneksi Internet, IP address, client |

Pernahkah anda merasa koneksi di wifi-hotspot anda lemot bahkan tidak jalan samasekali? Jangan buru-buru berkesimpulan koneksi ke ISP yang bermasalah, karena bisa jadi ada user nakal bin jahil yang berlaku curang menggunakan aplikasi pemutus koneksi dari client ke server.

Adalah Netcut, sebuah aplikasi yang seperti namanya yang memotong akses internet pada public/private WIFI hotspot, ataukah sebuah PC LAN workgroup dari client ke server atau sebaliknya. Program ini pada umumnya dipergunakan oleh pengguna jaringan yang ingin mengambil quota (jatah) bandwith untuk dipakai sendiri tanpa mau dishare kepada client yang lain.

Pencurian bandwith dengan memutuskan koneksi secara teoritis sangat manjur untuk meningkatkan kecepatan akses internet, misalnya sebuah jaringan mendapat jarah 100 Kb/s dan akan dibagi kepada 10 client maka masing-masing client akan memperoleh 10 Kb/s. Dengan Netcut, maka kita bisa memutuskan koneksi 9 client yang lain dan jatah 100 Kb/s akan menjadi milik kita.

Kejam bukan?….

Tidak heran, bila dibeberapa public WIFI hotspot yang pernah saya kunjungi sering saya dapati banyak yang mengeluh tidak bisa conect internet, atau lebih ekstrim lagi user yang perang netcut yang menyebabkan tidak ada satu pun user yang bisa online. Atau seperti pengalaman rekan blogger lain yang hampir terlibat kontak fisik gara-gara netcut sialan :mrgreen:

Penggunaan netcut cukup simpel, cukup memilih IP/Hostname/Mac Address client yang ingin diputuskan koneksinya dan mengklik cut off. User tersebut akan terputus koneksinya dari server sampai kita membebaskannya dari netcut dengan mengklik Resume atau mengganti IP address nya.

Program Netcut itu sendiri bisa didownload DISINI

Tips menangkal serangan Netcut:

* Jangan Pernah menggunakan Netcut. Sekali orang dirugikan akibat perbuatan anda, maka akan ada dendam. Peace gan!
* Rubah IP address anda apabila merasa dijahili dengan Netcut.
* Gunakan Anti Netcut (tetapi netcut selalu lebih maju dari anti netcut)
* Hidden komputer dari LAN pake XP antispy
* Install anti ARP (trial)
* Rubah MAC Address

Read more »

Sejarah Monitor

Monitor komputer merupakan sejenis peranti persisian output yang berupaya memaparkan askara dan/atau imej, baik diam atau bergerak, yang dijanakan oleh komputer dan diproseskan oleh kad grafik.
Tedapat empat jenis Monitor, iaitu Monitor monokrom, Monitor warna, Monitor segerak berbilang, dan Monitor ELD (Elektro Luminescent Display). Setiap Monitor mempunyai ciri-ciri dan sejarah tersendiri.
Mutu Monitor tergantung kepada beberapa faktor. Yang terutama ialah bilangan piksel yang dipaparkan oleh skrinnya; lebih banyak pikselnya, lebih tajamnya teks dan grafik yang dipaparkan.
Pada awalnya semua monitor adalah dari jenis tiub sinar katod (CRT) sama seperti yang digunakan pada tiub televisyen, namun kini monitor jenis LCD semakin digemari kerana monitor LCD menggunakan ruang yang kecil, ringan serta lebih menjimatkan tenaga elektrik berbanding monitor CRT

Sejarah Monitor



Istilah "mod paparan" merujuk kepada ciri-ciri paparan komputer, khususnya bilangan warna maksimum dan peleraian imej maksimum (dalam piksel lintang dan piksel lajur). Terdapatnya banyak mod paparan yang boleh di dapati dalam sistem komputer peribadi pada hari ini.
Paparan komputer peribadi yang terawal merupakan Monitor monokrom yang digunakan untuk pemproses kata dan sistem komputer berdasarkan teks pada dekad 1970-an. Pada tahun 1981, IBM memperkenalkan sistem paparan Penyesuai Grafik Warna (CGA). Sistem paparan ini berupaya memberikan empat warna, dan mempunyai peleraian maksimum 320 piksels datar dan 200 piksel tegak. Walaupun CGA mencukupi untuk kegunaan permainan komputer yang mudah seperti permainan solitaire dan permainan dam, ia tidak mencukupi untuk pemprosesan kata, penerbitan atas meja ataupun penggunaan grafik yang canggih.
Pada tahun 1984, IBM memperkenalkan sistem paparan Penyesuai Grafik Tertingkat (EGA) yang dapat memberikan sehingga 16 warna yang berlainan dan peleraian sehingga 640 x 350. Ini memperbaiki kelihatannya berbanding paparan yang lebih awal, dan memungkinan pembacaan teks dengan mudah. Bagaimanapun, EGA tidak memberikan peleraian imej yang mencukupi untuk kegunaan-kegunaan tahap tinggi seperti reka bentuk grafik dan penerbitan atas meja. Mod ini kini sudah usang, walaupun ia kekadang masih boleh didapati di pemprosesan lama dan komputer peribadi di rumah kediaman.
Pada tahun 1987, IBM memperkenalkan sistem paparan Tatasusunan Grafik Video (VGA). Kini, ini telah merupakan piawai minimum yang dapat diterima untuk komputer peribadi. Peleraian maksimum tergantung kepada bilangan warna yang dipaparkan. Pengguna boleh memilih antara enam belas warna pada 640 x 480, ataupun 256 warna pada 320 x 200.
Pada tahun 1990, IBM memperkenalkan sistem paparan Tatasusunan Grafik Terluas (XGA) sebagai waris untuk paparan 8514/A. Versi yang berikut, iaitu XGS-2, memberikan peleraian 800 x 600 piksel dalam warna yang benar (16 juta warna) dan peleraian 1024 x 768 dalam 65,536 warna. Kedua-dua tahap peleraian imej ini mungkin merupakan jenis yang terpopular di kalangan individu dan perniagaan kecil pada hari ini.
Persatuan Piawai-Piawai Elektronik Video (VESA) telah mengasaskan antara muka pengaturcaraan piawai untuk paparan Tatasusunan Grafik Video Super (SVGA) yang digelarkan Sambungan BIOS VESA ("VESA BIOS Extension"). Lazimnya, paparan SVGA dapat mendukung palet sehingga 16 juta warna, tergantung kepada jumlah ingatan video yang tersedia dalam sesuatu komputer yang akan menghadkan bilangan warna yang dapat dipaparkan. Spesifikasi peleraian imej berbeza-beza. Pada umumnya, lebih besar skrin Monitor SVGA, lebih banyak piksel dapat dipaparkan secara datar dan tegak

Read more »