Tips Dan Trik MenDownload Dengan IDM

IDM Atau Internet Download Manager merupakan sebuah downloader yang sangat populer di kalangan para penjelajah dunia maya.. Dengan IDM kita bisa mendownload file dengan cepat (tergantung juga dengan koneksi internet kita).

Cara kerja IDM adalah memakai semua bandwith yang tersedia untuk mendownload saja. Sehingga biasanya jika kita sedang mendownload file dengan IDM, maka proses browsing akan menjadi lambat..

Ini ada sedikit tips untuk pada download mania yang memakai IDM untuk mendownload..

1. Jika ada direct link (link langsung ke alamat file nya) maka jangan diklik dulu. tetapi klik kanan link tersebut lalu pilih Download with IDM. Trik ini akan cenderung membuat IDM akan lebih cepat menganalisa direct link.


2. Setelah muncul kotak dialog download, tunggu dulu sampai size / ukuran dari file tersebut terlihat. jika sudah baru klik Start Download.


3. Tips ke 3 adalah tips yg paling berguna. Jika anda orang yang mempunyai kemampuan prediksi yang tinggi (he2), maka trik ini akan sangat berguna. Setelah muncul kotak dialog Download file, maka jangan di klik Start download nya. Biarkan saja kotak dialog tersebut, atau minimize aja.


Kenapa demikian??? Ini karena walopun tmn2 tidak mengklik start download, IDM tetap akan mendownload file tersebut. Malahan jika kita mengklik start download kemungkinan proses download nya gagal akan lebih besar.
Setelah menunggu dengan sabar klik langsung start download nya. Jika prediksi tmn2 tepat, maka akan muncul Kotak dialog sprti berikut.


Yang artinya download uda lese...
Trik ini juga sangat berguna jika tmn2 ngdonlod file yang penyedia file nya adalah web yang menawarkn premium Acoount atau berisi menginputkan kode2, seperti Rapidshare, 4Shared, Ziddu, dan laen2..

Silahkan tmn2 coba, saya hanya ingin berbagi pengalaman yang pernah saya alami..
O y jika belum punya IDM klik aja di sini untuk download..
Dan ini link untuk crack nya, klik di sini.
Jngn lupa komen nya y...

Baca selengkapnya...

Cara Install Windows XP pada Compaq CQ40-337TU

Oke Compaq-er, he2..(sebutan para pengguna Compaq). Aku akan jelasin langkah – langkah cara Install ulang Windows XP pada Compaq CQ40-337TU.
Mungkin tmn2 udah pada nyoba untuk install Windows XP pada laptop tmn2, dan kemungkinan besar atau pasti akan muncul blue screen (serious error pada windows), ini disebabkan karena laptop Compaq kita memang dirancang bukan untuk XP melainkan Vista. Biar laku kali Vista nya (peace Microsoft…).

Oke kita mulai saja, yang perlu tmn2 perlukan sebelum memulai misi yaitu :
1. .Net Framework (min 2.0) download
2. nLite (yang aku pake versi 1.4.9.1) download
3. Driver SATA AHCI CQ40-337TU download
4. CD Setup Windows XP (SP 2 disarankan) minta
5. 1 buah CD R kosong beli
6. 1 buah komputer yg normal (gk mungkin kan kita melaksanakan misi di laptop kita rusak..he2) nyicil
Setelah .Net Framework dan nLite tersinstal. Maka langsung aja buka nLite nya..


Akan muncul tampilan welcome. Pilih bahasa, bhs Indo jg ada lo..Langsung Next!!


Pada form selanjutnya tmn2 akan diminta untuk memasukkan lokasi Setup XP nya, sebelumnya tmn2 copy dulu Setup XP tersebut dari CD ke Harddisk dan tempatkan dalam sebuah folder. Klik browse dan masukkan folder tadi. Lalu nLite akan menganalisa Setup XP nya, dan detail nya akan muncul setelah beberapa saat. Klo udah, langsung Next!!
Selanjutnya akan muncul form, disini aku jg gk ngerti, NEXT aja dah..Biarin aja form nya kosong..


Form selanjutnya kita akan menambahkan Driver Sata dan membuat CD kita bootable (biar bisa booting, kyk CD nya XP tu..). Tmn2 klik aja Button Drivers dan Bootable ISO. Klo udah pijit NEXT!!!!


Disini saatnya tmn2 menambahkan Driver Sata tmn2, yg uda di donlod tadi..
Tekan Insert maka akan muncul pilihan, pilih Multiple Driver Folder, lalu cari dimana tmn2 menaruh driver sata nya, klo msh dlam bentuk dikompres tmn extract dulu.
Kalo udah pilih tombol All lalu OK. Setelah itu pilih TextMode Driver lalu pada text mode integration options tekan CTRL+A agar semua terseleksi, lalu OK. Lalu NEXT!!!!!!!!!!!!
nLite akan memulai proses, tunggu mpe lese..Klo udah akan muncul form lagi..


Ini uda thap akhir, jika tmn2 ingin membuat ISO / Image nya pada mode pilih saja Create Image, disini kita langsung saja Buat CD XP kita. Pertama masukkan CD R kosong pada Drive CD lalu pada mode pilih Direct Burn, maka tombol Make ISO akan berubah menjadi Burn (bakar, ngapaen CD dibakar y????). Isi labelnya, terserah mw apa, lalu tekan tombol Burn, maka CD anda akan langsung terbakar, he2 becanda..
Langsung saja tekan burn, jika ada muncul pertanyaan pilih Yes aja.Tunggu mpe lese..
Klo udah nLite bisa di close.
Selamat tmn2 telah berhasil membuat CD XP kusus untuk CQ40-337TU.
Selanjutnya silahkan mulai misi selanjutnya yaitu install ulang….

Untuk tambahan, cara ini juga berlaku untuk tipe laptop compaq yang laen..penulis uda pernah nyoba untuk CQ40-538TU, hanya driver sata nya yang beda, sesuai dengan tipe laptop tmn2..
Komen y...

Baca selengkapnya...

Mengatasi masalah pada Compaq CQ40-337TU

Sungguh leganya...
Hanya itu yg saya pikirkan saat 'Tmn saya' (Laptop Compaq CQ40-337TU) sembuh dari sakitnya..

Awalnya pada saat saya beli saya udah merasakan kejanggalan, karena tiap saya maen game kadang2 ada aja error..
saya kira game nya rusak..Tak coba di laptop tmen, mlah mw bgus, saat itu hatiku serasa hancur..Kesana kemari saya nyari info gk dpet2 jg apa penyebab masalhnya..

Sampai saya punya inisiatif untuk install ulang..Pertamanya saya mw pke XP karena gk suka ma Vista (Microsoft jgn marah y....he2)..Saya lngsung msukkin CD Xp, baru masuk Setup tiba2 Blue Screen..Nah apa yg terjadi, saya sempet panik, dan akhirnya membatalkan instal ulang..Trus saya cb browsing2 cari2 gmna caranya instal ulang laptopku pake XP..Dan BINGGO!!! Ada 1 cara yaitu menambahkan driver SATA milik Compaq CQ40-337TU..Tmn2 bisa download, cari aja di Mbah Google..

Prinsipnya yaitu menggabungkan Setup XP kita dengan Driver SATA..Untuk menggabungkannya kita perlu menginstall Software Nlite,.Net Framework 2.0, Setup XP Service Pack 2 (disarankan), dan driver SATA laptopnya..

Untuk cara pake Nlite tmn2 bisa tanya Mbah google (maap y, artikel ini kurang lengkap)..
Pokoknya ntar kita punya CD Setup XP dengan Driver Sata yang sudah terintegrasi..Pke CD itu untuk Install ulang, pasti mw!!!!


Setelah itu masalah selanjutnya adalah DRIVER!!!!!!!!!!!!!!!!!!!!!!!
Klik di sini untuk lanjut...

inget komen..he2

Baca selengkapnya...

Simulasi SMTP dengan VB 6

SMTP merupakan protocol dalam pengiriman email..
Maksudnya saat kita mengirim email bagaimana proses yang terjadi didalamnnya..

Ini adalah tugas kuliah penulis pada mata kuliah Jaringan komputer...

Program ini memperliht kan proses yang terjadi pada client dan server saat mengirim e-mail...

Ada 2 program yaitu pada client dan server..

Tmn2 bisa lihat pada gambar



Form client




Form Server


Untuk mendownload programnya bisa klik di sini

Inget komen..jangan main donlod aja...
he2...peace man...

Baca selengkapnya...

Menghitung nilai Sin dengan sudut radian

Langsung aja praktekin y...

program sin(x);
uses crt;
const pi = 3.14;
var
x,rad,p1,tot : real;
n,i,faktor,p2,j : integer;
tanda : byte;

begin

clrscr;
writeln(' Menentukan nilai sin(x)');
write('Nilai x = '); readln(x);
write('Masukkan pangkat = '); readln(n);
rad := pi*x/180;
i := 1;
tanda := 1;
while i <= n do
begin
p1 := exp(i*ln(rad));
faktor := 1;
for j := 1 to i do
faktor := faktor *j;
p2 := faktor;
tot := tot + (tanda*p1/p2);
tanda := (-1)*tanda;
i := i+2;
end;
writeln('Sin(',x:5:2,') = ',tot:5:2);
readln;
end.


Klo ada pertanyaan langsung di komen...
:)

Baca selengkapnya...

Menghitung Luas dan keliling lingkaran

Waktu ini ada seorang teman yang katanya dia lagi belajar turbo pascal..
Program ini penulis buat pada waktu lagi belajar pascal..Semoga yang lagi belajar Pascal bisa cpet ngerti he2...

Program Luas_dan_Keliling_Lingkaran;
uses crt;
const pi = 3.14;
var
r,K,L : real;
begin

clrscr;
writeln('=============================');
writeln('Menghitung Luas dan Keliling');
writeln('----------------------------');
write('Jari - jari = '); readln(r);
K := pi*2*r;
L := pi*r*r;
writeln('Keliling Lingkaran = ',K:5:2);
writeln('Luas Lingkaran = ',L:5:2);
writeln('=============================');
readln;
end.

Klo ada yg belum dimengerti langsung j kasi komen...
:)

Baca selengkapnya...

Simulasi Antrian Pembuatan SIM - VB 6

Program Simulasi Antrian ini penulis buat dengan VB 6. Pada program ini, tmn2 bisa lihat bagaimana proses antrian yang terjadi. Kita bisa menginput, banyak pelanggan, waktu rata - rata kedatangan, waktu rata - rata lama pelayanan, dan banyak pegawai yg mlayani..


Kalau gambarnya terlalu kecil, klik aja gmbrnya, untuk memperbesar..

Setelah semua diinput, tmn2 bisa proses, dan melihat simulasi yang terjadi. Agar lebih terlihat bagus, penulis menambahkan animasi, dengan menekan tombol 'Animate Simulation'.



Pada form ini tmn2 terlebih dahulu menginputkan no pelanggan, lalu tmn2 bisa lhat bagaimana pelanggan tersebut dilayani. Dari mulai sampai selesai.


Mohon maap sebelumnya, trus terang saat membuat program ini saya masih belajar, dalam pemrograman simulasi dan kemampuan programming penulis masih kurahttp://www.blogger.com/img/blank.gifng. Pada program ini memiliki kekurangan yaitu jika tmn2 mau menginput banyak petugas lebih dari satu maka program ini akan mengalami masalah. Semoga tmn2 bisa melengkapi kekurangan tersebut.

Untuk mendownload program nya bisa klik di sini

Tetep jangan lupa komen...
:)

Update :
Ini saya kasih source nya :
Download

Baca selengkapnya...

Windows Audio Changer

Ingin rasanya kita merubah suara - suara pada pc kita. Seperti pada saat Windows Startup agar suara nya menjadi suara lolongan serigala atau semacamnya..

berdasarkan pengalaman tersebut penulis berinisiatif membuat sebuah program yang bisa merubah suara - suara tersebut (Default Windows) dengan sound yang kita punya.

Namanya Windows Audio Changer..dalam menggunakan program ini cukup mudah, kita hanya tinggal memilih suara yang akan diganti, misalnya windows startup, lalu kita bisa mem-browse suara (sound) yang kita punya, tentu saja sound nya harus berformat *.wav.



untuk mendownload lengkap dengan source code nya bisa klik disini

software ini gratis, penulis membuatnya sekalian juga belajar. Jadi jika ada kekurangan mohon maap...Atau tmen2 bisa kasi komentar kalau ada saran...

Baca selengkapnya...

Colouring graph dengan C++

#include
#include
//library untuk file
#include


void main()

{

char pilih;

do

{

clrscr();

char filename[100];

cout<<"==================="< cout<<"| Program |"< cout<<"| Colouring Graph |"< cout<<"==================="< cout< ifstream infile;

//membuka file

do

{

cout<<"Masukkan nama file sebagai inputan program : ";
cin>>filename;

infile.open(filename);

//validasi file

if (!infile)

{

cout<<"File tidak ada coba perikasa kembali!"< }

}while (!infile);





typedef struct{

int stat,color;

int check;

char name[20];

}idver;

int l[20];

int temp2,n1[20];

int i,j,k,bar,kol,temp;

idver vertex[20][20],vert[20];

//membaca isi file (baris dan kolom

infile>>bar;

infile>>kol;

cout< cout<<"Silahkan beri nama masing - masing vertex"< for (i=0; i {

cout<<"Vertex ke-"<<(i+1)<<" : ";
cin>>vert[i].name;

}

//membaca isi file (status vertex, 0 atau 1)

for (i=0; i {

n1[i]=0;

for (j=0; j {

infile>>temp;

vertex[i][j].stat = temp;

//menghitung nilai satu

if (temp==1)

n1[i]++;





}



}

//mencari baris yang paling banyak memiliki satu

int max = -1;

for (i=0;i { if (n1[i] > max)

{

max=n1[i];

}

}



int res=max;

int incolor =1;



for (i=0; i {

for (j=i+1; j {

vertex[i][j].check =0;

}

vert[i].color=0;



}

max=-1;

for (i=0; i {

/*for (j=0; j {

for (k=j+1; k {

if (vertex[j][k].connect ==0)

if ((vertex[i][j].stat==1) && (vertex[i][k].stat==1))

vertex[i][j].connect =1;

}

}

*/

vert[i].color=0;



}

//pewarnaan

for (i=0; i {

for (j=0; j {

for (k=j+1; k {

if ((n1[i]>=max))

{

if (vertex[j][k].check == 0)

{

if((vertex[i][j].stat ==1) && (vertex[i][k].stat ==1))

{

vertex[j][k].check =1;

if (vert[j].color == 0)

{



vert[j].color = incolor;

vert[k].color = incolor + 1;

}

else

{



vert[k].color = vert[j].color + 1;



}



}

else

{



if ((vertex[i][j].stat==1) && (vertex[i][k].stat==0))

{

if (vert[j].color == 0)

{



vert[j].color = incolor;

vert[k].color = incolor;

}

else

{



vert[k].color = vert[j].color;



}

}

else

{

if (j==0)

vert[k].color = vert[j].color=incolor;

}









}



}

}

}

}

max=n1[i];

}





cout<<"---------------------------"< cout< cout<<"Lanjut untuk detail"< getch();

typedef struct {

char nama[10];

}warna;

//list warna

warna color[10];

strcpy(color[1].nama,"Merah");

strcpy(color[2].nama,"Jingga");

strcpy(color[3].nama,"Kuning");

strcpy(color[4].nama,"Hijau");

strcpy(color[5].nama,"Biru");

strcpy(color[6].nama,"Nila");

strcpy(color[7].nama,"Ungu");

cout< for (i=0; i {

if (res==kol)

cout< else

cout<

}

cout<<"------------------------------------"< cout<<"Keterangan"< for (i=0; i {

if ((vert[i].color == vert[i+1].color) && (kol!=res))

{

cout< }

else if (kol==res)

{

cout<<"Semua vertex harus memiliki warna berbeda"< i=kol;

}

}

infile.close();

cout<<"====================================================================="< cout<<"Ulang program ? (y/n) : ";
cin>>pilih;

}while ((pilih=='y') || (pilih=='Y'));

}





Untuk adk2 smster 3 maap karena program yg di atas gak jalan..Makanya jangan maen copy aj..

Karena ak baek hati ini klik aja di sini untuk donlod program nya, tp pake C++..



Jangan lupa komen yaw...

Baca selengkapnya...

contoh vb script untuk membuat shortcut

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.createShortcut(strDesktop &"\Dik Regedit.lnk")
oShellLink.TargetPath = "C:\Windows\regedit.exe"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "C:\Windows\regedit.exe, 0"
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save

Baca selengkapnya...

Contoh program inventori dengan demand, time demand dan selang order random dengan C++

#include
#include
#include
#include
#include


void view(int item, int x, int y){

if (item<10)
gotoxy(x,y);

else

gotoxy(x-1,y);

cout<}

void line(int x, int y){

gotoxy(x,y);

cout<<"|"<}

void inputan(int *sMi, int *sMa, int *sNo,int *tSi, int *a1, int *b1, int *n1, int *men1, int *men2){

cout<<"Inputkan"< cout<<"--------"< cout<<" Stok minimal : ";
cin>>*sMi;

cout<<" Stok maksimal : ";
cin>>*sMa;

cout<<" Stok sekarang : ";
cin>>*sNo;

cout<<" Lama simulasi : ";
cin>>*tSi;

cout<<" Maksimal beli (besar demand maksimal) : ";
cin>>*a1;

cout<<" Minimal beli (besar demand minimal) : ";
cin>>*b1;

cout<<" Banyak demand yang datang : ";
cin>>*n1;

cout<<" Rata - rata waktu antar kedatangan demand : ";
cin>>*men1;

cout<<" Rata - rata selang waktu datang order : ";
cin>>*men2;

}



void main(){

ulang:

clrscr();

int sMin,sMax,sNow,tSim,a,b,Stok,cDem = 0,n,mean1,mean2;

cout<<" =^=^=^=^=^=^=^=^=^=^=^=^=^=^="< cout<<" | Program Simulasi Inventoris |"< cout<<" ============================="< cout< inputan(&sMin,&sMax,&sNow,&tSim,&a,&b,&n,&mean1,&mean2);

typedef struct{

int value;

int iTime;

int tSent;

int tWait;

bool sent;



}id_demand;

int waktu;

id_demand demand[50];





int demCome;

float u,ran;

randomize();

for (int i=0; i do{

u = ((rand() % 10));

}while(u==0);

ran = u/10;

waktu = -1 * mean1 * log10(ran);

if (i==0){

demand[i].iTime = waktu;

}

else{

demand[i].iTime = demand[i-1].iTime + waktu;

}

demand[i].value = a + (b-a)*ran;

}



for (int j=0; j demand[j].sent = false;

}



int vOrder = 0;

int t=0;

bool order = false;

int i = 0;

int y = 16 + n;

int y2 = 8;

int dem,sDemWait = 0,tOrder,demSent,demWait,xtOrder = 0;


Download source code lengkap nya di sini

Baca selengkapnya...

Program Cek kelulusan dalam bahasa Pascal

program cek_kelulusan_siswa;
uses crt;
var
nama : string[25];
kelas : string[5];
no_absen : string[3];
n_tugas : byte;
n_u_hari : byte;
n_u_umum : byte;
rerata : real;
lulus : boolean;
predikat : string[20];

begin
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln('Input Data Siswa');
writeln('----------------');
write('Nama : '); readln(nama);
write('Kelas : '); readln(kelas);
write('No Absen : '); readln(no_absen);
write('Nilai Tugas : '); readln(n_tugas);
write('Nilai Ulangan Harian : '); readln(n_u_hari);
write('Nilai Ulangan Umum : '); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln(' Siswa dengan');
writeln('----------------');
writeln('Nama : ',nama);
writeln('Kelas : ',kelas);
writeln('No Absen : ',no_absen);
writeln('Nilai Tugas : ',n_tugas);
writeln('Nilai Ulangan Harian : ',n_u_hari);
writeln('Nilai Ulangan Umum : ',n_u_umum);
writeln('Rata - rata : ',rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:='memuaskan'
else if rerata <90 then predikat:='sangat memuaskan'
else predikat:='dengan pujian';
writeln('Dinyatakan Lulus dengan ',predikat);
end
else
writeln('Dinyatakan Tidak Lulus');
readln;
end.

Baca selengkapnya...

Penggunaan Record pada Turbo Pascal

uses crt;
type nilai = record
hari,tugas,umum,na : real;
end;
type mapel = record
kimia,basindo : nilai;
end;
type siswa = record
nama : string[25];
nis : string[3];
mp : mapel;
end;

var
i,n,a : byte;
student : array [1..100] of siswa;
stop : boolean;
b : string[4];
begin
stop := false;
Repeat
clrscr;
write('Banyak siswa : '); readln(n);
clrscr;
writeln('=======================================================================');
writeln('NIS Nama Siswa Mata Pelajaran N.Hr N.Tgs N.Umum N.Akhir');
writeln('-----------------------------------------------------------------------');
a:=4;
for i := 1 to n do
begin
with student[i] do
begin
readln(nis);
gotoxy(6,a);
readln(nama);
with mp do
begin
gotoxy(26,a);
writeln('Bahasa Indonesia');
with basindo do
begin
gotoxy(44,a);
readln(hari);
gotoxy(50,a);
readln(tugas);
gotoxy(57,a);
readln(umum);
na:=(2*hari+tugas+3*umum)/6;
gotoxy(65,a);
writeln(na:3:2);
end;
with kimia do


Download source code lengkapnya di sini

Baca selengkapnya...

Penggunaan If pada Turbo Pascal

Program Toserba;
uses crt;
var
pelanggan : char;
dis : string[3];
tot,blnja : real;
begin
clrscr;
writeln(' Dedix Toserba');
writeln('=================================');
write('Berbelanja sebesar = '); readln(blnja);
write('Pelanggan (y/t) ? : '); readln(pelanggan);

if pelanggan='y' then
begin
if blnja<=100.000 then
begin
tot := blnja -(10/100*blnja);
dis :='20%';
end
else

Download source lengkapnya di sini

Baca selengkapnya...

Mencari nilai Sin(x) dengan x dalam radian

program sin(x);
uses crt;
const pi = 3.14;
var
x,rad,p1,tot : real;
n,i,faktor,p2,j : integer;
tanda : byte;

begin
clrscr;
writeln(' Menentukan nilai sin(x)');
write('Nilai x = '); readln(x);

write('Masukkan pangkat = '); readln(n);
rad := pi*x/180;
i := 1;
tanda := 1;
while i <= n do

Download program lengkap ny di sini..

Baca selengkapnya...

Contoh penggunaan procedure pada Turbo Pascal

program Menu_Program;
uses crt;
var
a:byte;
i,n,x : integer;
sigmay,sigmax,ratax,ratay,sigma,sigma1,sigma2,cov,varian : real;
rerata,hsl : real;
procedure hapus_layar;
begin
clrscr;
end;

procedure mean;
begin
writeln('Menghitung Mean dari beberapa Data');
writeln('----------------------------------');
write('Masukkan banyak data yang akan di input :');
readln(n);
sigma:=0;
for i:=1 to n do
begin
write('Input x',i,' :');
readln(x);
sigma:=sigma + x;
end;
rerata := sigma/n;
writeln('Mean dari data - data terebut adalah ',rerata:5:2);
readln;

end;
procedure varians;
begin
writeln('Menentukan Varians');
writeln('------------------');
write('Masukan banyak data : ');
readln(n);
while n<2 do
begin
writeln('Banyak data harus lebih dari 2');
write('Masukkan banyak data : ');
readln(n);
end;
sigma1 := 0;
sigma2 := 0;
for i := 1 to n do
begin
write('Masukkan data',i,' : ');
readln(x);
sigma1:=sigma1 + x;
sigma2:=sigma2 + (x*x);
end;
hsl :=(n*sigma2 - (sigma1*sigma1))/(n*(n-1));
writeln('Varians = ',hsl:5:2);
readln;
end;
procedure covar;
var
x,y,px,py,k : array [1..100] of real;
begin
write('n = '); readln(n);
sigmax := 0;
sigmay := 0;
for i := 1 to n do
begin
write('x = '); readln(x[i]);
write('y = '); readln(y[i]);
sigmax := sigmax + x[i];
sigmay := sigmay + y[i];
end;
ratax := sigmax/n;
ratay := sigmay/n;
sigma := 0;
for i := 1 to n do
begin
px[i] := x[i] - ratax;
py[i] := y[i] - ratay;
k[i] := px[i]*py[i];
sigma := sigma + k[i];
end;

Download source code lengkapnya di sini..

Ini contoh prosedur program statistik..Keren kan..

Baca selengkapnya...

Cara untuk mengatur jadwal pengiriman sms

Gimana y caranya kalo kita mw ngirim sms jam 12 malem tapi kita tetep tidur??????


Caranya gampang bro, pke aja SMSTIMER..


download aja di sini

Baca selengkapnya...

Aplikasi explorer d hape S60

Sebenernya ada banyak aplikasi buwat explor hape kamu, klo kamu mw donlod ak kasih j Smart Fileman. Donlod aja di sini..

Baca selengkapnya...

Cara supaya nama pengirim sms bisa kelihatan di hp

Gimana ya caranya supaya, kalo ada sms masuk yang muncul di hape bukan '1 pesan baru' ato '1 new message'melainkan nama pengirimnya????


Caranya gampang banget brow. Km tinggal pake aplikasinya aja namanya smsface.

Baca selengkapnya...