Sabtu, 15 Desember 2012

Cara Kerja Bluetooth


Cara Kerja Bluetooth
             Bluetooth adalah suatu teknologi baru yang mulai dikenal dan digunakan. Teknologi ini memberikan perubahan yang signifikan terhadap peralatan elektronik yang kita gunakan. Jika kita melihat sekeliling kita dimana keyboard dihubungkan pada komputer. Demikian juga halnya dengan printer, mouse, monitor dan lain sebagainya. Semua peralatan itu dihubungkan dengan menggunakan kabel. Akibatnya terjadi

Menghitung gaji Karyawan menggunakan pascal

Program Menghitung_Gaji_Karyawan;
Uses Wincrt;
Var
Nama_Karyawan:string;
Gaji_Pokok:real;
Jumlah_Anak:longint;
Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real;
Begin
Write ('Masukkan Nama Karyawan: ');readln (Nama_Karyawan);
Write ('Masukkan Gaji Pokok=Rp ');readln (Gaji_Pokok);
Write ('Masukkan Jumlah anak= ');readln (Jumlah_Anak);
Tunjangan_Istri:=0.15*Gaji_Pokok;
Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok;
Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak;
Pajak:=0.15*Gaji_Keseluruhan;
Gaji_Akhir:=Gaji_Keseluruhan-Pajak;
Writeln ('Tunjangan Istri =Rp ',(Tunjangan_Istri):15:2);
Writeln ('Tunjangan anak =Rp ',(Tunjangan_Anak):15:2);
Writeln ('Gaji Keseluruhan =Rp ',(Gaji_Keseluruhan):15:2);
Writeln ('Pajak =Rp ',(Pajak):15:2);
Writeln ('Gaji Akhir =Rp ',(Gaji_Akhir):15:2);
End.

Membuat Aplikasi bangun Ruang dengan Pascal

Ini adalah latihan kuliah ane waktu semester 1... membuat Aplikasi Bangun ruang menggunakan pascal.


PROGRAM Latihan_besar;
USES wincrt;
var pilih:integer;
PROCEDURE PERSEGI;
VAR S,K,L:REAL;
BEGIN
     WRITELN('Program Luas dan keliling persegi');
     WRITE('Masukkan sisi = ');
     readln(s);
     L:=S*S;
     K:=4*S;
     WRITELN('Luas = ',L:0:0);
     WRITELN('Keliling = ',0:0);
     readln;
     end;
PROCEDURE PERSEGI_PANJANG;
VAR Pj,Lbr,L,K:real;
BEGIN
     WRITELN('Program Luas dan Keliling Persegi panjang');
     WRITE('Masukkan panjang = ');readln(pj);
     WRITE('Masukkan lebar = ');readln(lbr);
     L:=pj*lbr;
     K:=2*(PJ+lbr);
     WRITELN('Luas = ',L:0:0);
     WRITELN('Keliling = ',K:0:0);
     readln;
     end;
PROCEDURE KUBUS;
VAR Volume,s,luas_permukaan:real;
BEGIN
     WRITELN('Program menghitung volume dan luas permukaan kubus ');
     WRITE('Masukkan sisi = ');readln(s);
     Volume:=s*s*s;
     Luas_permukaan:=6*s*s;
     WRITELN('Volume kubus = ',volume:0:0);
     WRITELN('Luas permukaan = ',luas_permukaan:0:0);
     readln;
     end;
PROCEDURE BALOK;
VAR Panjang,lebar,tinggi,Volume,luas_permukaan:real;
BEGIN
     WRITELN('Menghitung volume dan luas permukaan balok');
     WRITE('Masukkan panjang = ');readln(panjang);
     WRITE('Masukkan lebar = ');readln(lebar);
     WRITE('Masukkan tinggi = ');readln(tinggi);
     Volume:=panjang*lebar*tinggi;
     luas_permukaan:=(2*panjang*lebar)+(2*panjang*tinggi)+(2*lebar*tinggi) ;
     WRITELN('Volume balok = ',volume:0:0);
     WRITELN('Luas permukaan balok = ',luas_permukaan:0:0);
     Readln;
     end;
PROCEDURE BIODATA;
BEGIN
     WRITELN('            -------------');
     WRITELN('             BIODATA SAYA');
     WRITELN('            -------------');
     WRITELN('Nama               : Achmad Arief Billah');
     WRITELN('TTL                : New york, 25 Desember 1991');
     WRITELN('Jenis Kelamin      : Laki-laki');
     WRITELN('Agama              : Islam');
     WRITELN('Nama Ayah          : Suyanto');
     WRITELN('Nama Ibu           : Sunarni');
     WRITELN('Alamat             : Jl Kebangkitan Nasional Gg. Merapi Indah 1');
          Readln;
     END;
PROCEDURE PENDIDIKAN;
BEGIN
     WRITELN('-----------------');
     WRITELN('DAFTAR PENDIDIKAN');
     WRITELN('----------------- ');
     WRITELN(' ');
     WRITELN('SDN 24  Pontianak tamat tahun 2003');
     WRITELN('SMPN 7  Pontianak tamat tahun 2006');
     WRITELN('SMAN 5  Pontianak tamat tahun 2009');
     writeln(' ');
     WRITELN('------------------------');
     WRITELN('DAFTAR PERGURUAN TINGGI');
     WRITELN('------------------------');
     WRITELN('POLITEKNIK NEGERI PONTIANAK');
     WRITELN('UNIVERSITY OF HARVARD');
     Readln;
     END;
PROCEDURE Bangun_datar;
VAR PILIH:INTEGER;
BEGIN
REPEAT
      CLRSCR; 
      WRITELN('---------------------------------');
      WRITELN('SATU-SATUNYA PROGRAM DIBATULAYANG');
      WRITELN('LEBIH CEPAT DARI KURA-KURA ninja');
      WRITELN('--------------------------------- ');
      WRITELN(' ');
      WRITELN(' ');
      WRITELN('PILIH PROGRAM');
      WRITELN('1) Mengitung luas dan keliling persegi');
      WRITELN('2) Mengitung luas dan keliling persegi panjang');
      WRITELN(' ');
      WRITELN(' ');
      write('pilih programnya = ');
      readln(pilih);
      CASE PILIH OF
      1:PERSEGI;
      2:PERSEGI_PANJANG;
      end;
      UNTIL PILIH = 2;
      END;
PROCEDURE Bangun_ruang;
BEGIN
REPEAT
      CLRSCR;
      WRITELN('-------------------------------------');
      WRITELN('SATU-SATUNYA PROGARM DIMERAPI INDAH I');
      WRITELN('  LEBIH AMPUH, KUAT DAN BERTENAGA    ');
      WRITELN('-------------------------------------');
      WRITELN('  ');
      WRITELN('Pilih programnya');
      WRITELN('1) Mengitung kubus');
      WRITELN('2) Mengitung Balok');
      WRITELN(' ');
      WRITELN(' ');
      WRITE('PILIHLAH PROGRAM = ');
      READLN(PILIH);
      CASE PILIH OF
      1:kubus;
      2:balok;
      end;
UNTIL pilih = 2
END;
PROCEDURE PROFIL;
var PILIH:INTEGER;
BEGIN
REPEAT
      CLRSCR;
      WRITELN(' --------------------------');
      WRITELN(' MANA YANG INGIN ANDA LIHAT');
      WRITELN(' --------------------------');
      WRITELN('1) Biodata');
      WRITELN('2) Pendidikan');
      writeln(' ');
      WRITELN(' ');
      write('pilih program = ');
      WRITELN(' ');
      readln(PILIH);
      CASE PILIH OF
      1:Biodata;
      2:Pendidikan;
      end;
      UNTIL PILIH = 2
END;

BEGIN
REPEAT
CLRSCR;

      
       WRITELN('------------------------------------------------------');
       WRITELN('INILAH PROGRAM JITU PERTAMA DAN TERUTAMA DIBATULAYANG');
       WRITELN('            TELAH HADIR DIKOTA ANDA !!!!!!');
       WRITELN('------------------------------------------------------');
       WRITELN(' ');
       WRITELN(' ');
       WRITELN('-------------------') ;
       WRITELN('DAFTAR MENU PROGRAM');
       WRITELN('-------------------');
       WRITELN('1) Program Bangun Datar');
       WRITELN('2) Program Bangun Ruang');
       WRITELN('3) Profil Saya');
       WRITELN(' ');
       WRITELN(' ');
       WRITELN(' ');
       WRITELN(' ');
       WRITE('Ketik nomor pilihan Anda = ');
       Readln(pilih);
       case pilih of
       1:Bangun_Datar;
       2:Bangun_Ruang;
       3:Profil;
       END;
       until pilih = 5;
      
END.



Kamis, 13 Desember 2012

Cara mempertajam foto dengan photoshop

Cara mempertajam foto dengan photoshop

1) pertama duplikat foto setelah itu di ganti dengan vivid light


2) terus klik blur gausian blur masukkan angka 4,3


3) kemudian pilih high pass dan hasilnya


 4) selesai

Korps Tempur Angkatan Darat

Berikut Adalah korps tempur TNI-ANGKATAN DARAT :

 INFANTERI
             Infanteri merupakan pasukan tempur darat utama yaitu pasukan berjalan kaki yang dilengkapi persenjataan ringan, dilatih dan disiapkan untuk melaksanakan pertempuran jarak dekat.Pasukan ini adalah yang terdepan untuk bertempur bila terjadi pertempuran. Ciri khas prajurit infanteri adalah menggunakan baret hijau berlambangkan senapan bermata sangkur.



                     
KAVALERI
        Merupakan kesatuan bantuan tempur di TNI-AD. kavaleri bertempur dengan menggunakan kendaraan lapis baja. Pasukan kavaleri berperan sebagai satuan yang mampu bergerak cepat dan mobile sekaligus berfungsi sebagai penyerang pendadakan atau pendobrak yang akan membuka jalan bagi pasukan infanteri.








 
ARMED
        Artileri Medan disingkat Armed merupakan kesatuan bantuan tempur (banpur) di Tentara Nasional Indonesia Angkatan Darat. Pasukan ini menggunakan meriam sebagai bantuan tembakan jarak jauh menggunakan meriam dan senjata berat lainnya. serta melakukan  perusakan wilayah musuh secara luas.








ZENI TEMPUR
       Kesatuan ini merupakan kesatuan standar militer di seluruh dunia karena perannya dalam pertempuran sejak zaman purba, karena pada intinya fungsi bantuan tempur Zeni adalah bersifat improvisasi, insidentil, dan menggunakan standar teknik yang khusus dikualifikasikan pada Satuan Zeni. Zeni Tempur sendiri secara umum baik di luar negri maupun di Indonesia mempunyai fungsi sebagai pasukan Bantuan Tempur terhadap Pasukan Manuver (Infanteri).
Banpurzi diaplikasikan pada segala pekerjaan yang bersifat membantu gerak maju pasukan manuver, dan aksi menghambat gerak maju pasukan lawan,9 tugas Pokok Zeni AD terdiri dari: Konstruksi, Destruksi, Rintangan, Samaran, Penyeberangan, Penyelidikan, Perkubuan, Penjinakan bahan peledak (Jihandak), serta Nuklir-Biologi-Kimia (Nubika)pasif.                                                                  


KOSTRAD

lambang kostrad
        Komando Cadangan Strategis Angkatan Darat atau biasa disingkat Kostrad adalah bagian dari Komando Utama (KOTAMA) tempur yang dimiliki oleh TNI Angkatan Darat Kostrad memiliki pasukan berkisar antara 25.000 sampai 26.000 personel yang memiliki selalu siap untuk beroperasi atas perintah panglima TNI kapan saja.
tugas Komando Cadangan Strategis TNI – AD (Kostrad), diatur bahwa Kostrad sebagai Komando Utama Pembinaan berkedudukan langsung di bawah Kasad, sedangkan sebagai Komando Utama Operasional Kostrad berkedudukan langsung dibawah Panglima TNI. Kostrad bertugas pokok membina kesiapan operasional atas segenap jajaran Komandonya dan menyelenggarakan Operasi Pertahanan Keamanan tingkat strategis sesuai dengan kebijaksanaan Panglima TNI

.





KOPASSUS
       Komando Pasukan Khusus yang disingkat menjadi Kopassus adalah bagian dari Komando Utama (KOTAMA) tempur yang dimiliki oleh TNI Angkatan Darat, Indonesia. Perlu diketahui Kopassus adalah pasukan Elit Terbaik 3 didunia dibawah SAS (Inggris), dan Mossad(Israel). Kopassus memiliki kemampuan khusus seperti bergerak cepat di setiap medan, menembak dengan tepat, pengintaian, dan anti teror. Prajurit kopassus berasal dari prajurit Infanteri yang terpilih. kemudian dididik menjadi prajurit KOMANDO selama 7 bulan di PUSDIKPASSUS Batujajar.







Sabtu, 08 Desember 2012

Trik Menyembunyikan folder rahasia

untuk menyembunyikan folder rahasia caranya adalah
catatan : nama foldernya adalah rahasia.

1) Buka "run" ketikkan cmd

2) kemudian ketik D:    pada command prompt jika foldernya berada di D:

3) Cara menghilangkannya ketik "attrib rahasia +s +h " tanpa tanda petik

4)kemudian enter


cara menampilkan folder kembali

ketikkan "attrib rahasia -s -h" tanpa tanda petik.

Sekian .... hhehehe