Tutorial Menampilkan dan Menyembunyikan DIV dengan jQuery

Langkah – langkah Menampilkan dan Menyembunyikan DIV dengan Menggunakan jQuery

1.                  Pengertian jQuery

jQuery adalah sebuah library Javascript yang sangat ringkas dan sederhana untuk memanipulasi  komponen di dokumen HTML, menangani event, animasi, efek dan memproses interaksi ajax. jQuery dirancang sedemikian rupa supaya membuat program menggunakan Javascript menjadi relatif sangat mudah. Sesuai slogan nya, write less, do more. Menulis kode lebih sedikit, tetapi melakukan pekerjaan lebih banyak.

jQuery ukuran nya cukup kecil, sehingga tidak memperlambat proses loading halaman web yang kita buat. jQuery juga kompatibel dengan CSS3 dan yang tak kalah penting adalah jQuery bisa berjalan di semua browser – cross browser.

 jQuery diluncurkan pada Januari 2006 oleh John Resig. jQuery adalah library Javascript yang paling populer saat ini. Karena kecanggihan nya, jQuery dipakai oleh perusahaan besar seperti Google. Dell, CBS, digg, Netflix, Bank of America, Mozilla, Drupal, dsb.

jQuery adalah library Javascript yang gratis dan open source. Oleh karena nya kita bisa menggunakan jQuery dengan bebas untuk keperluan pengembangan website kita. Tanpa library seperti jQuery, menerapkan Javascript mungkin akan lebih sulit, terutama untuk pemula yang baru belajar Javascript. Plugin tambahan seperti JQuery UI (user interface) semakin memudahkan kita mengembangkan website yang cantik dan interaktif. Selain itu tersedia plugin-plugin lain yang makin memperkaya kemampuan jQuery..

Berikut ini Adalah Fungsi JQuery :

·                     Mengakses bagian halaman tertentu dengan mudah

·                     Mengubah tampilan bagian halaman tertentu

·                     Mengubah isi dari halaman

·                     Menambah animasi tanpa harus memakai flash yang lebih berat

·                     Melalukan load data/halaman tanpa merefresh seluruh halaman6.

·                      Menyederhanakan/mempersingkat penulisan sintaks javascript biasa

2.                  Menampilkan dan Menyembunyikan DIV

a.       Souerce Code HTML

<html> <head> <title>jQuery Menampilkan/Menyembunyikan Element DIV - jaranguda.com</title>    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.0/jquery.min.js"></script>      <script type='text/javascript'> $(window).load(function(){   $("#showhide").css("display","none"); $('#clickme').change(function(){   if (this.checked) {     $('#showhide').fadeIn('slow');   }   else {     $('#showhide').fadeOut('slow');   }  }); }); </script> </head> <body> <input type="checkbox" name="clickme" id="clickme">ClickMe       <div id="showhide">               disini ditampilkan       </div> </body> </html>

b.      Source Code Javascript

<script type='text/javascript'> $(window).load(function(){   $("#showhide").css("display","none");   $('#clickme').change(function(){   if (this.checked) {     $('#showhide').fadeIn('slow');   }   else {     $('#showhide').fadeOut('slow');   }  }); }); </script>

c.       Gabung kedua Source Code kedalam Satu file HTML

<html> <head> <script type='text/javascript'> $(window).load(function(){   $("#showhide").css("display","none"); $('#clickme').change(function(){   if (this.checked) {     $('#showhide').fadeIn('slow');   }   else {     $('#showhide').fadeOut('slow');   }  }); }); </script>       <title>Menampilkan dan Menyembunyikan DIV dengan Menggunakan jQuery - gibutladimba.blogspot.com</title>    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.0/jquery.min.js"></script>      <script type='text/javascript'> $(window).load(function(){   $("#showhide").css("display","none"); $('#clickme').change(function(){   if (this.checked) {     $('#showhide').fadeIn('slow');   }   else {     $('#showhide').fadeOut('slow');   }  }); }); </script> </head> <body> <input type="checkbox" name="clickme" id="clickme">Klik Disini       <div id="showhide">             disini ditampilkan       </div> </body> </html>

Download Source Code Disini

Read More

Program FIle Pada Pascal

Contoh Program File Pada Pascal

Program FileTeman;

Uses Crt;
Var
JenisFile    : Text;
Nama         : String;
ALamat       : String;
Telp         : String;
Tanya        : Char;
Pilihan      : shortint;

Begin
Repeat
ClrScr;
Writeln;
writeln(' ____________________________________');
writeln('|        Pilih Salah Satu Menu       |');
writeln('|____________________________________|');
writeln('| 1. Membuat File Data Baru          |');
writeln('| 2. Memasukkan Data Baru            |');
writeln('| 3. Menampilkan Data                |');
writeln('| 4. Keluar                          |');
writeln('|____________________________________|');
writeln('| Masukkan Pilihan :                 |');
writeln('|____________________________________|');
gotoxy(22,10);Readln(Pilihan);
Case  Pilihan Of
1 : Begin
Assign(JenisFile,'Alamat.dat');
ReWrite(JenisFile);
Close(JenisFile);
writeln;
writeln('| File Data Berhasil Dibuat!         |');
writeln('|____________________________________|');
readkey;
End;

2 : Begin
Assign(JenisFile,'Alamat.dat');
Append(JenisFile);
Repeat
ClrScr;
Write(' Nama         : ');Readln(Nama);
Write(' ALamat       : ');Readln(Alamat);
Write(' Telepon      : ');Readln(Telp);
Writeln(JenisFile,Nama);
Writeln(JenisFile,Alamat);
Writeln(JenisFile,Telp);
Writeln;
Write('Apakah mau memasukan data lain (Y/T): ');
Tanya := ReadKey;
Until UpCase(Tanya) = 'T';
Close(JenisFile);
Writeln('Data telah dimasukan !');
End;

3 : Begin
Assign(JenisFile,'Alamat.dat');
Reset(JenisFile);
Repeat
Readln(JenisFile,Nama);
Readln(JenisFile,Alamat);
Readln(JenisFile,Telp);
ClrScr;
Writeln(' Nama         : ',Nama);
Writeln(' ALamat       : ',ALamat);
Writeln(' Telepon      : ',Telp);
Writeln;

If Nama = '' Then
Tanya := 'T'
Else
Begin
Write('Apakah melihat data berikut (Y/T) : ');
Tanya := ReadKey;
End;
Until UpCase(Tanya) = 'T';
Close(JenisFile);
End;

Else
End;
Until Pilihan=4;

End.

Read More

Linked List

Contoh Program Linked List

uses crt;
  type pointer=^typedata;
       Typedata = RECORD
       Nilai : INTEGER;
       Berikutnya : POINTER;
  end;
var list :pointer;

procedure mas_dep(var L : pointer; x : Integer);
var baru : pointer;
 begin
  new(baru);
  baru^.Nilai:=x;
  baru^.Berikutnya:= nil;
  if L= nil then L:=baru
  else
  begin
  baru^.berikutnya :=L;
  L:= baru;
  end;
 end;

procedure cetak (L:pointer);
var bantu : pointer;
 begin
  bantu:= L;
  while bantu <> nil do
  begin
  write (bantu^.Nilai:3);
  Bantu:=bantu^.Berikutnya;
   end;
  end;

 var bil, bil2 : integer;
 JB : char;
  begin
  clrscr;
  new(list);
  list:=nil;
  jb:='Y';
  writeln(' ________________________________');
  writeln('|      Program Linked List       |');
  writeln('|          Masuk Depan           |');
  writeln('|________________________________|');
  readkey;
  clrscr;
  while upcase(Jb)='Y' do
  begin
  clrscr;
   writeln(' ________________________________');
   writeln('| Masukkan bilangan :            |');
   writeln('|________________________________|');
   gotoxy(23,2);readln(bil);
   mas_dep(list,bil);
   writeln;
   writeln('| Lagi [Y/T]  :                  |');
   writeln('|________________________________|');
   gotoxy(17,4);readln(Jb);
   end;
   writeln('|________________________________|');
   writeln('|                                |');
   writeln('|________________________________|');
   gotoxy(3,6);cetak(list);
   writeln;
   readln;
   end.

Read More

Program Pointer Tak Bertipe Pada Pascal

Contoh Program Pointer Tak Bertipe Pada Pascal

uses crt;
var
p : Pointer;
q : ^Byte;
r : array [0..100] of Byte;
i : Byte;
n : integer;
begin
clrscr;
write('Masukkan jumlah data : '); readln(n);
writeln;
writeln;
GetMem(p, 20);
q:=p;
for i:=0 to n do
begin
r[i]:=n-i;
q^:= n-i;
inc(q);
end;
q:=p;
for i:=0 to n do
begin
writeln(' ___________________________');
writeln('|             |             |');
writeln('| r[ ', i ,' ] = ', r[i], '  | p^ ke-', i ,' = ', q^, ' |');
writeln('|_____________|_____________|');
inc(q);
end;
readln;
end.

 

Read More

Program Mencari Nilai Maksimum dan Minimum pada pascal

Contoh program mencari nilai yang sudah kita inputkan serta mencari nilai maksimum dan nilai minimum

uses crt;

label awal;

const nmin = 1;
      nmax = 100;

type  arrint = array [nmin..nmax] of integer;
var tabint : arrint;
    x,n,i,indeks,max,min,maks : integer;

function seqsearch1(xx : integer): integer;
  var i : integer;
  begin
    i := 1;
    while ((i<n) and (tabint[i] <> xx)) do
      i:=i+1;
      if tabint[i] = xx then
        seqsearch1:=i
        else
        seqsearch1:=0;
  end;

function maksimum (tabint: arrint; n : integer) : integer;
  var i, max : integer;
  begin
   for i:=2 to n do
   if max<tabint[i] then
   max:=tabint[i];
   maksimum:=max;
  end;

function minimum (tabint: arrint; n : integer) : integer;
  var i, min : integer;
  begin
   for i:=1 to n do
   if min>tabint[i] then
   min:=tabint[i];
   minimum:=min;
  end;


begin
  clrscr;
  writeln;
  writeln('      Progaram Pencarian Nilai');
  writeln;
  writeln;
  writeln;
  write('Masukkan Jumlah Data = '); readln(n);
  writeln;
  writeln;
  for i:=1 to n do
    begin
       write('Data[',i,'] = '); readln(tabint[i]);
     end;
     clrscr;
    writeln;
    writeln;
        write ('  Nilai yang dicari : '); readln(x);
    indeks:=seqsearch1(x);
    writeln;
      if indeks <> 0 then
      write ('  Nilai : ',x,' ditemukan pada indeks ke-',indeks)
       else
      write('   Nilai : ',x,' tidak ditemukan !');

 begin
 writeln;
  maks:=maksimum(tabint,n);
  min:=minimum(tabint,n);
  writeln;
  writeln ('* Nilai maksimum : ',maks);
  writeln ('* Nilai minimum  : ',min );
  readln;
  end;
 end.

Read More

Contoh Proogram Selection Sort Data Mahasiswa pada Pascal

Berikut contoh program pengurutan nilai IPK pada data mahasiswa

uses crt;
type mhs= record
     Nama, NIM: string;
     IPK : real;
end;
var Data : array [1..100] of mhs;
    i, j, n, temp : integer;
    pilih : char;

procedure input;
begin
clrscr;
write('Masukkan jumlah mahasiswa : ');
readln(n);
for i := 1 to n do
begin
  writeln(' ___________________________________');
  writeln('|        Data Mahasiswa Ke-',i,'        |');
  writeln('|-----------------------------------|');
  writeln('| Nama    :                         |');
  writeln('| NIM     :                         |');
  writeln('| IPK     :                         |');
  writeln('|___________________________________|');
  gotoxy(13,5+(7*(i-1)));readln(Data[i].Nama);
  gotoxy(13,6+(7*(i-1)));readln(Data[i].NIM);
  gotoxy(13,7+(7*(i-1)));readln(Data[i].IPK);
  writeln;
 end;
end;

Procedure Table;
Begin
  writeln('|    |                          |           |           |');
  writeln('|____|__________________________|___________|___________|');
end;


procedure Tampil;
begin
clrscr;
 writeln(' _______________________________________________________');
 writeln('|                                                       |');
 writeln('|                 DATA NILAI MAHASISWA                  |');
 writeln('|_______________________________________________________|');
 writeln('|    |                          |           |           |');
 writeln('| No |         Nama             |    NIM    |    IPK    |');
 writeln('|____|__________________________|___________|___________|');
for i:=1 to n do
begin
 gotoxy(1,7+i);Table;
 gotoxy(3,7+i);writeln(i);
 gotoxy(8,7+i);writeln(Data[i].Nama);
 gotoxy(35,7+i);writeln(Data[i].NIM);
 gotoxy(50,7+i);writeln(Data[i].IPK:2:0);
 end;
readkey;
end;

procedure Selection;
var max: integer;
temp: mhs;
begin
 for i:=1 to n-1 do
  begin
   max:=i;
   for j:= i+1 to n do
    if Data[j].IPK< Data[max].IPK then
    max:=j;
    temp:= Data[max];
    Data[max]:= Data[i];
  Data[i]:= temp;
  end;
Tampil;
end;

begin
input;
Selection;
end.

Screenshot

Read More

Contoh Program Rekursif pada pascal

uses crt;
function kali(a,b:integer):longint;
begin
if b>1 then
begin
        kali:= kali(a,b-1)+a;
end else
kali:=a;
end;

procedure  Volume;
var a,b,c:integer;
    v:real;
begin clrscr;
      write('Panjang Limas  : '); readln(a);
      write('Lebar Limas    : '); readln(b);
      write('Tinggi Limas   : '); readln(c);
      v:=1/3*kali(a,b)*c;
      writeln('Volume Limas : ',v:2:0); readln;
end;

procedure Luas;
var a,b,c :integer;
        l :real;
begin
clrscr;
      write('Panjang Limas  : '); readln(a);
      write('Lebar Limas    : '); readln(b);
      write('Tinggi Limas   : '); readln(c);
      l:=kali(a,b)+1/2*kali(b,c)*4;
      writeln('Luas Limas   : ',l:2:0);  readln;
end;

var Pilih : char;
begin
repeat
clrscr;
writeln(' 1. Volume Limas Segi Empat');
writeln(' 2. Luas Limas Segi Empat');
writeln(' 3. Keluar');
writeln;
write('Pilih  : ');readln(Pilih);
case Pilih of
'1' : Volume;
'2' : Luas;
'3' : exit;
end;
until Pilih = '3';
end.

Read More