Partisi harddisk secara aman tanpa software di windows 7

Ini adalah merupakan salah satu kelebihan dari windows 7 ketimbang windows xp, bagi sahabat yang menggunakan windows 7, jika ingin mempartisi harddisk menjadi beberapa partisi tanpa menggunakan software, bisa diikuti langkah-langkah berikut ini :

1. Klik kanan [computer] > pilih [manage]
2. Pada jendela “computer management”, pilih [storage] kemudian pilih [disk management].
   
3. Pada jendela sebelah kanan terlihat jumlah partisi yang telah ada. Kemuian klik kanan pada harddisk yang mau dipartisi. ( Kalau baru terdapat 1 partisi misal C: klik kanan pada partisi C:, kalau sudah ada beberapa partisi “seperti gambar dibawah” dan mau di partisi lagi maka klik kanan pada drive yang mau di partisi lagi ) kemudian pilih [Shrink Volume].
   
4. Muncul “querying shrink space” dan tunggu sebentar.
   
5. Muncul jendela shrink. Disini shobat diminta untuk menentukan volume partisi yang mau dibuat. Isikan saja berapa volume sesuai dengan yang shobat rencanakan. Setelah itu klik [Shrink].
   
6. Maka akan muncullah partisi baru yang masih belum terformat atau free space ( lihat partisi dengan gambar hijau ). Sampai disini partisi baru masih belum bisa digunakan.
   
7. Untuk memformat partisi agar bisa digunakan, klik kanan pada “free space” tadi kemudian pilih [new simple volume].
   
8. Muncul [New simple volume wizard] > klik [next].
   
9. Muncul jendela [specify volume size] > klik [next] lagi
   
10. Muncul jendela [assign drive letter or path] > klik [next] lagi.
    
11. Muncul jendela [format partition]. Pada file system pilih saja NTFS, kemudian pada volume label > isikan “nama label drive partisi anda”, kemudian klik [next].
    
12. muncul jendela [completing the new simple volume wizard]. Sebelum klik finish lihat dulu informasi yang tertera. Kalau belum sesuai dengan keinginan shobat, klik [back], kalau sudah sesuai silahkan klik [finish]
    
13. Maka partisi harddisk telah selesai dan siap untuk dipergunakan.
    

Untuk mengecek partisi yang baru, cobalah buka windows explorer. Bila prosesnya telah benar maka akan muncul partisi baru sesuai dengan label yang telah shobat buat tadi.

Refrensi :
http://www.hi-techmall.org/toko/blog/cara-partisi-harddisk-secara-aman-tanpa-software-windows-7

Read More

Fungsi dan Penggunaan CheckBox pada Visual Basic 6.0

Dasar Pemerograman; Mengenal lebih dekat fungsi dan penggunaan CheckBox

Langsung saja, 

Jalankan VB - Buat Form Baru - desain Form kurang lebih seperti ini :

ini script-Nya :

Private Sub Check1_Click()

If Check1.Value = Checked Then

Label1.FontBold = True

Else

If Check1.Value = Unchecked Then

Label1.FontBold = False

End If

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = Checked Then

Label1.FontUnderline = True

Else

If Check2.Value = Unchecked Then

Label1.FontUnderline = False

End If

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = Checked Then

Label1.FontSize = 14

Else

If Check3.Value = Unchecked Then

Label1.FontSize = 3

End If

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = Checked Then

Label1.ForeColor = &HFF&

Else

If Check4.Value = Unchecked Then

Label1.ForeColor = &H0&

End If

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Tampilan program di jalankan :

Terima kasih.

Semoga bermanfaat. ^_^

Read More

Penggunaan Fungsi & Pangkat pada deLphi

procedure TForm1.KeluarClick(Sender: TObject);
begin
 close;
end;

procedure TForm1.ForToDoClick(Sender: TObject);
var
   i,j : integer; b:string;
begin
   b:='';j:=2;
   for i:=1 to 10 do
     begin
       b:=b+inttostr(j)+'';
       j:=j+2;
    end;
  panel1.caption:=b;
end;

procedure TForm1.ForDowntoDoClick(Sender: TObject);
var
   i,j : integer; b:string;
begin
   b:='';j:=2;
   for i:=10 downto 1 do
     begin
       b:=b+inttostr(i)+'';
       j:=j+2;
     end;
   panel2.caption:=b;
end;

procedure TForm1.WhileDoClick(Sender: TObject);
var
   i,j : integer; b:string;
begin
   i:=1;
   b:='';
   while i<=10 do
     begin
       b:=b+inttostr(i)+'';
       i:=i+2;
     end;
   panel3.caption:=b;
end;

procedure TForm1.RepeatUntilClick(Sender: TObject);
var
    i,j : integer; b:string;
begin
    i:=1;
    b:='';
repeat
    b:=b+inttostr(i)+'';
    i:=i+1;
    until i>10;
    panel4.caption:=b;
end;

procedure TForm1.PangkatClick(Sender: TObject);
var
   bil,hasil,pangkat,a : integer;
begin
   bil:=strtoint(edit1.Text);
   hasil:=bil;
   pangkat:=strtoint(edit2.Text);
   if edit2.Text='0' then edit3.Text:='1' else
   if edit2.Text='1' then edit3.Text:=edit1.Text else
begin
   for a:=2 to pangkat do
   hasil:=hasil*bil;

   edit3.Text:=inttostr(hasil);
   end;
   end;

end.

Tampilan dari script di atas

Read More

Tugas Struktur Data (3)

Program kombinasi;
uses wincrt;
var
   f1,f2,f3:longint;
   n,r,s:integer;
   c: real;
Procedure fak( n:integer; var f:longint);
var
   i:integer;
begin
     f:=1;
     for i:=1 to n do
     f:= f * i;
end;
Begin                                                                                         
     clrscr;
     writeln('------=(( Program Kombinasi Matematika ))=------');
     writeln('________________________________________________');
     writeln('                                  *note : R <= N');
     writeln;
     write('> Masukkan Nilai N : ');readln(n);
     write('> Masukkan Nilai R : ');readln(r);
     writeln('------------------------------------------------');                           
     fak(n,f1);
     fak(r,f2);
     s:=(n-r);
     fak(s,f3);
     c:= f1/(f2*f3);
     write('  Kombinasi dari nilai di atas adalah : ',c:2:0);
     readln;
end.

Output dari script diatas : 

Kombinasi Matematika

Read More

Tugas Struktur Data (2)

Membuat Program Struk Belanja (Rincian Uang)

program struk_belanja;
uses wincrt;

var
   kode,tgl,nama,alamat,brg:string[50];
   hrg,jumlahbrg,uang,tot,byr: longint;
   barang:array[1..50]of integer;

begin
clrscr;
write('Tanggal Pembelian: ');readln(tgl);
write('Nama Pembeli : ');readln(nama);
write('Alamat : ');readln(alamat);
writeln;
writeln('  PEMBELIAN BARANG');
writeln('  ----------------------------------');
write('  Kode Barang : ');readln(kode);
write('  Nama Barang yang dibeli : ');readln(brg);
write('  Harga Satuan Barang : ');readln(hrg);
write('  Jumlah : ');readln(jumlahbrg);
writeln;
tot:=hrg*jumlahbrg;

clrscr;
writeln(' STRUK BELANJA BARANG');
writeln(' CV. GEMBLADUK Typography');
writeln(' Jl.Kh.Abd.Qohar No.17 Dsn.Duyo Ds.Sukorejo');
writeln(' Kec.Pohjentrek Kab.Pasuruan');
writeln;
writeln('Tanggal Pembelian: ',tgl);
writeln('Nama Pembeli : ',nama);
writeln('Alamat : ',alamat);
writeln('——————————————————————————————————————————————————————————————————————————————');
writeln('| Kode barang | Nama Barang | harga satuan(Rp) | jumlah | harga x jumlah(Rp) |');
writeln('——————————————————————————————————————————————————————————————————————————————');
begin
write(kode,'      ');
write(brg:10,'    ');
write(hrg:10,'    ');
write(jumlahbrg,'    ');
writeln(tot:10);
end;
writeln('——————————————————————————————————————————————————————————————————————————————');
  write('Uang Pembayaran : ');readln(byr);
  uang:=byr-tot;
  writeln;
  writeln('Uang Kembalian');
  writeln('===========================');

  if uang div 100000 > 0 then begin
    writeln(uang div 100000, ' lembar seratus ribuan');
    uang := uang mod 100000;
  end;

  if uang div 50000 > 0 then begin
    writeln(uang div 50000, ' lembar lima puluh ribuan');
    uang := uang mod 50000;
  end;

  if uang div 20000 > 0 then begin
    writeln(uang div 20000, ' lembar dua puluh ribuan');
    uang := uang mod 20000;
  end;

  if uang div 10000 > 0 then begin
    writeln(uang div 10000, ' lembar sepuluh ribuan');
    uang := uang mod 10000;
  end;

  if uang div 5000 > 0 then begin
    writeln(uang div 5000, ' lembar lima ribuan');
    uang := uang mod 5000;
  end;

  if uang div 1000 > 0 then begin
    writeln(uang div 1000, ' lembar ribuan');
    uang := uang mod 1000;
  end;

  if uang div 500 > 0 then begin
    writeln(uang div 500, ' lembar lima ratusan');
    uang := uang mod 500;
  end;

  if uang div 100 > 0 then begin
    writeln(uang div 100, ' ratusan');
    uang := uang mod 100;
  end;

  if uang div 50 > 0 then begin
    writeln(uang div 50, ' limapuluhan');
    uang := uang mod 50;
  end;

  if uang > 0 then begin
    writeln(uang, ' satuan');
  end;

  writeln('——————————————————————————————————————————————————————————————————————————————');

end.

Tampilan output dari script diatas :

 Gambar.1- (Inputan data)

 Gambar.2- (Rincian Struk Transaksi)

Read More