cara mengembalikan file dan folder yang di hidden virus dengan command propmt

Saat kita terkena virus biasanya file-file asli kita di hidden sama virus tersebut, kita tentu bisa mengembalikannya file atau folder yang di hidden dengan cara klik kanan> property dan di ubah attributnya menjadi archive dan meng-uncheck pilihan hidden, namun cara ini sangat tidak efektif jika banyak file atau folder yang dihidden.

Cara selanjutnya adalah dengan menggunakan command prompt dos

1. klik start>Run ketik cmd

2. dari menu commad prompt ketik drive flashdisk anda misal g: <enter>

3. setelah itu ketik perintah ini :

g:\>attrib *.* -h -r -s /d /s <enter> kemudian tunggu hingga selesai, dan memang memakan waktu agak lama...

Keterangan:

attrib : perintah dos untuk memanipulasi attribut file

-h : untuk menghilangkan attribut hidden

-r : untuk menghilangkan attribut read only

-s : untuk menghilangkan attribut system

-d : parameter directory

-s : parameter sub directory

 

copy from here

indikator ketinggian air kontrol penggunaan pompa

 

Diharapkan pompa air tidak selalu digunakan ketika diperlukannya air, sehingga tandon air menjadi alternatif agar pompa tidak selalu harus dinyalakan ketika air dibutuhkan. namun akan menjadi masalah baru diwaktu pengisian tandon yang selalu meluber ketika kita lupa dalam mematikan mesin pompa yang keadaannya tidak terpasang otomatis didalamnya.
Akan menjadi repot juga ketika kita harus bolak balik melihat isi tandon apakah air sudah penuh ataupun tidak. perancangan sirkuit ini agar dapat diketahui sudah seberapa volume air yang ada di dalam tandon ketika pompa dinyalakan ataupun tidak yang berdasarkan 4 lampu indikator yang nyala padam nya dipicu oleh ketinggian air didalam tandon, semakin banyak volume air didalam tandon, maka akan semakin banyak lampu indikator yang akan menyala. dan ketika air didalam tandon sudah penuh, maka secara otomatir relay akan dipicu sehingga pompa air akan padam dengan sendirinya. sehingga tidak akan ada lagi kejadian dimana tandon akan kembali meluber karena kita lupa untuk memadamkan pompa.
alarm akan berbunyi untuk memberikan sinyal bahwa air telah penuh. sehingga kita dapat memadamkan pompa secara manual meskipun pompa sudah dalam keadaan mati (namun dapat menyala kembali meskipun tandon belum kosong dari air).

turbo pascal 1.5 - deret kelipatan x yang kurang dari y

program deretkelipatanxyangkurangdariy;
uses wincrt;

var
     x,y,i:integer;

begin
     write('X     = ');readln(x);
     write('Y     = ');readln(y);
     write('Deret = ');
     i:=x;
     while x<y do
     begin
          write(x,' ');
          x:=x+i;
     end;
end.

turbo pascal 1.5 - larik 1

program larikduadimensi;
uses wincrt;
type
    tipenama=array[1..100] of string;
    tipenilai=array[1..100] of integer;

var
     i,n,maks,min,jum:integer;
     nama:tipenama;
     nilai:tipenilai;
     nama1,nama2:string;
     ratarata:real;
begin
     write('berapa jumlah data yang ingin diinputkan : ');readln(n);
     clrscr;
     writeln('======================================================');
     writeln('   no          nama                     nilai akhir   ');
     writeln('======================================================');

     for i:=1 to n do
     writeln('   ',i:2,'   ..........................         .....    ');

     writeln('======================================================');
     writeln('nilai terbesar  :          oleh ');
     writeln('nilai terendah  :          oleh ');
     writeln('nilai rata-rata : ');

     jum:=0;
     maks:=0;
     min:=100;
     for i:=1 to n do
     begin
          gotoxy(9,3+i);writeln('                          ');
          gotoxy(9,3+i);readln(nama[i]);
          gotoxy(44,3+i);writeln('     ');
          gotoxy(45,3+i);readln(nilai[i]);
          if maks             begin
             maks:=nilai[i];
             nama1:=nama[i];
             end;
          if min&gt;nilai[i] then
             begin
             min:=nilai[i];
             nama2:=nama[i];
             end;
          jum:=jum+nilai[i];
     end;
     ratarata:=jum/n;
     gotoxy(20,5+n);writeln(maks);
     gotoxy(33,5+n);writeln(nama1);
     gotoxy(20,6+n);writeln(min);
     gotoxy(33,6+n);writeln(nama2);
     gotoxy(20,7+n);writeln(ratarata:0:2);

end.

turbo pascal 1.5 - perulangan bersarang 5

program segitigabintang; {program menampilkan karakter bintang menjadi piramyd sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write('berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=1 to N do
     write(' ');
     write('*');
     writeln;


     for i:=N downto 2 do
     begin
          for j:=i downto 2 do
          begin
               write(' ');
          end;

          for j:=i to N do
          begin
               write('*');
          end;

          write('*');

          for j:=i to N do
          begin
               write('*');
          end;
          writeln;
     end;

end.

turbo pascal 1.5 - perulangan faktorial

program faktorial; {program menghitung nilai faktorial dari inputan N}
uses wincrt;

var
     i,N,jumlah :integer;

begin
jumlah:=1;
     write('inputkan suatu nilai    : '); readln(N);
     write('faktorial dari ',N,' adalah : ');
     write('1');
     for i:=2 to N do
     begin
          write(' x ',i);
          jumlah:=jumlah*i;
     end;
     write(' = ',jumlah);

end.

turbo pascal 1.5 - perulangan bersarang 4

program segitigabintang;  {program menampilkan karakter bintang sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write(' berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=n downto 1 do
     begin
          for j:=1 to i do
          begin
               write(' ');
          end;

          for j:=i to N do
          begin
               write('*');
          end;
          writeln;
     end;

end.