Rabu, 09 Mei 2012

Cara Menghilangkan Navbar pada Blogspot


Cara Menghilangkan Navbar pada Blogspot

Cara Menghilangkan Navbar pada Blogspot - Apakah Navbar itu, Navbar adalah merupakan singakatan dari navigation bar, sesuai namanya navbar adalah frame yang terdapat pada sebuah blog atau website, pada umumnya Navbar terdapat pada top (diatas) yang ada dalam sebuah web atau blog. Dengan demikian bagi sebagian blogger, penggunaan navbar dirasa kurang bagus jika dilihat oleh penunjung, karena kurang bagus jika dilihat oleh pengunjung makanya banyak yang mencari cara tentang menghilangkan navbar yang ada pada blog.
Apakah navbar boleh dihilangkan atau tidak? Sebagian ada yang mengatakan, dengan menghilangkan navbar pada blogspot bisa menyebabkan blog tersebut banned karena melanggar TOS (Term of Service), tetapi aktualnya hal seperti itu sepertinya  tidak akan terjadi jika blog tersebut jika tidak benar-benar melakukan modifikasi ekstrim, banyak  Blogspot yang bertebaran di dunia maya dan  rame tetapi mereka menghilangkan navbar tersebut.berikut gambar jenis navbar tersebut di bawah ini:

Cara menghilangkan navbar
Untuk menghilangkan navbar pada blogspot silahkan sobat ikuti langkah-langkah berikut :
  • login ke dashboard terlebih dahulu
  • Klik tab Design atau template untuk versi bahasa indonesia
  •  klik lanjutkan
  • Kemudian masuk ke halaman Edit HTML
  • Lalu cari kode ]]></b:skin>, cara mudahnya tekan Ctrl+F lalu ketikkan ]]></b:skin>
  • Jika sudah ketemu letakkan kode berikut di atas koda  ]]></b:skin> tersebut :

#navbar-iframe {

height:0px;

visibility:hidden;

display:none;
}

ketikkan kode tersebut tepat sebelum kode:    ]]></b:skin> 
  • Jika sudah selesai klik Save Template
Jika ingin mengembalikan navbar tersebut cukup hapus kode tadi.
link terkait blogspot klik sini
atau klik sini

Sabtu, 05 Mei 2012

Belajar Delphi Chart

Cari Jodoh
program untuk menginputkan data X sebanyak 10 data, pada saat pengguna menginputkan data X maka program mengihitung nilai X2 dan memasukkannya kedalam Grid.
•    Ketika pengguna mengklik tombol Rekap, maka program menampilkan Jumlah dan rata-rata dari data-data X dan data X2 .
•    Ketika pengguna mengklik tombol Grafik X, maka program menampilkan Grafik untuk Data X
•    Ketika pengguna mengklik tombol Grafik X^2, maka program menampilkan Grafik untuk Data X2
•    Ketika pengguna mengklik tombol Reset, maka seluruh isi data pada grid, hasil rekapitulasi  dan chart dikosongkan kemabali.
Ketika pengguna mengklik tombol Tutup, maka program ditutup
Desain Form - String Grid dan Chart
1.    Tuliskan pengaturan properti masing-masing object/control (30 point)
2.    Tuliskan pengkodeaanya (70 point)
Jawaban
1. Pengaturan Properti
Pengaturan Form StringGrid dan Chart
untuk pengaturan properti pada Chart, ikuti langkah berikut:
·         klik kanan control chart.
·         Klik tab Series
·         Klik tombol Add
·         Klik tipe Bar chart
·         Klik Ok
2. Pengkodean
01
procedure TForm1.FormCreate(Sender: TObject);
02
var i:integer;

03
begin
04
   stringgrid1.Cells[0,0]:='Data ke';

05
   stringgrid1.Cells[1,0]:='X';
06
   stringgrid1.Cells[2,0]:='X^2';

07

08
   for i:=1 to 10 do

09
      begin
10
         combobox1.Items.Add(inttostr(i));

11
         stringgrid1.Cells[0,i]:=inttostr(i);
12
         stringgrid1.Cells[1,i]:='0';

13
         stringgrid1.Cells[2,i]:='0';
14
      end;

15
end;
16


17
procedure TForm1.Button1Click(Sender: TObject);
18
 var x,xpangkat2:real;

19
begin
20
  x   := strtoint(edit1.Text);

21
  xpangkat2 := x*x;
22
  Stringgrid1.Cells[1,combobox1.ItemIndex+1]:=floattostr(x);

23
  Stringgrid1.Cells[2,combobox1.ItemIndex+1]:=floattostr(xpangkat2);
24
end;

25

26
procedure TForm1.Button2Click(Sender: TObject);

27
var i:integer;
28
begin

29
  for i:=1 to 10 do
30
  begin

31
     stringgrid1.Cells[1,i]:='0';
32
     stringgrid1.Cells[2,i]:='0';

33
  end;
34
  edit1.Text:='';

35
  edit2.Text:='';
36
  edit3.Text:='';

37
  edit4.Text:='';
38
  edit5.Text:='';

39

40
end;

41

42
procedure TForm1.Button3Click(Sender: TObject);

43
var jumX, jumXpangkat2, rataX, rataXpangkat2 :real;
44
    i: integer;

45
begin
46
    JumX:=0;

47
    JumXpangkat2:=0;
48


49
    for i:=1 to 10 do
50
    begin

51
       jumX:=jumX+strtofloat(stringgrid1.Cells[1,i]);
52
       jumXpangkat2:=jumXpangkat2 + +strtofloat(stringgrid1.Cells[2,i]);

53
    end;
54
    rataX:=jumX/10;

55
    rataXpangkat2:=jumXpangkat2/10;
56
    edit2.Text := floattostr(jumX);

57
    edit3.Text := floattostr(jumXpangkat2);
58
    edit4.Text := floattostr(rataX);

59
    edit5.Text := floattostr(rataXpangkat2);
60
end;

61

62
procedure TForm1.Button5Click(Sender: TObject);

63
var i:byte;
64
begin

65
  Chart1.Series[0].clear;
66
  Chart1.Title.Text.Clear;

67
  Chart1.Title.Text.Add('Grafik X');
68
  for i:=1 to 10 do

69
    Chart1.Series[0].Add(strtofloat(stringgrid1.Cells[1,i]),inttostr(i),clred);
70


71
end;
72


73
procedure TForm1.Button6Click(Sender: TObject);
74
 var i:byte;

75
begin
76
  Chart1.Series[0].clear;

77
  Chart1.Title.Text.Clear;
78
  Chart1.Title.Text.Add('Grafik X*2');

79
  for i:=1 to 10 do
80
    Chart1.Series[0].Add(strtofloat(stringgrid1.Cells[2,i]),inttostr(i),clred);

81
end;