Selasa, 23 April 2013

PENDATAAN PELAKU MENGGUNAKAN VB.NET SYARAT UNTUK BISA MENNGIKUTI UJIAN MESRAN.NET

Langkah pertama buat lah database menggunakan microsoft office acceses seperti gambar d atas kemudian kemudian simpan lah di local C dengan folder baru dengan nama vb3 setelah itu desain lah from seperti gambar d bawah ini menggunakan Microsoft visual studio 2008

Setelah itu listing program di bawah ini

Imports System.Data.OleDb

Public Class PELAKU

Public DB As OleDbConnection

Public CMD As OleDbCommand

Public ADP As OleDbDataAdapter

Public DR As OleDbDataReader

Public DS As New DataSet

Dim SQL As String

Public Sub Opendb()

Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\vb3\Database2.mdb"

DB = New OleDbConnection(LOKASI)

If DB.State = ConnectionState.Closed Then

DB.Open()

End If

End Sub

Sub TampilRecordPELAKU()

ADP = New OleDbDataAdapter("SELECT * FROM PELAKU", DB)

DS = New DataSet

ADP.Fill(DS, "PELAKU")

DataGridView1.DataSource = DS.Tables("PELAKU")

End Sub

Sub BARU()

Button1.Enabled = True

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = True

End Sub

Sub simpan()

Button1.Enabled = False

Button2.Enabled = True

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = True

Button6.Enabled = False

End Sub

Sub EDIT()

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = True

Button4.Enabled = True

Button5.Enabled = True

Button6.Enabled = False

End Sub

Sub HapusText()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

Call BARU()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

SQL = "DELETE *FROM PELAKU Where NIK='" & TextBox1.Text & "'"

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Button1_Click(sender, e)

Call TampilRecordPELAKU()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Call HapusText()

TextBox1.Focus()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

SQL = "INSERT INTO PELAKU(NIK, Nama, JEN_KELAMIN, ALAMAT, PEKERJAAN, AGAMA, SUKU, KEWARGAAN) " & _

" values('" & TextBox1.Text & "','" & _

TextBox2.Text & "','" & _

ComboBox1.Text & "','" & _

TextBox3.Text & "','" & _

TextBox4.Text & "','" & _

TextBox5.Text & "','" & _

TextBox6.Text & "','" & _

TextBox7.Text & "')"

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Button1_Click(sender, e)

Call TampilRecordPELAKU()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

SQL = "UPDATE PELAKU SET NAMA='" & TextBox2.Text & "'," & _

"JEN_KELAMIN='" & ComboBox1.Text & "'," & _

"ALAMAT='" & TextBox3.Text & "'," & _

"PEKERJAAN='" & TextBox4.Text & "'," & _

"AGAMA='" & TextBox5.Text & "'," & _

"SUKU='" & TextBox6.Text & "'," & _

"KEWARGAAN='" & TextBox7.Text & "' " & _

"Where NIK='" & TextBox1.Text & "'"

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Button1_Click(sender, e)

Call TampilRecordPELAKU()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Call HapusText()

TextBox1.Focus()

End Sub

Private Sub PELAKU_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call Opendb()

Call HapusText()

Call TampilRecordPELAKU()

ComboBox1.Text = "JENIS KELAMIN"

ComboBox1.Items.Add("LAKI-LAKI")

ComboBox1.Items.Add("PEREMPUAN")

ComboBox1.Items.Add("WARIA")

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim Tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

If Tombol = 13 Then

SQL = "SELECT *FROM PELAKU where NIK='" & TextBox1.Text & "'"

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

DR.Read()

If DR.HasRows = True Then

TextBox2.Text = DR.Item(2)

TextBox3.Text = DR.Item(4)

TextBox4.Text = DR.Item(5)

TextBox5.Text = DR.Item(6)

TextBox7.Text = DR.Item(7)

Call EDIT()

MsgBox("berhasil...berhasil...berhasil...Data ditemukan...! ")

Else

xkode = TextBox1.Text

Call HapusText()

TextBox1.Text = xkode

Call simpan()

End If

TextBox2.Focus()

End If

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Me.Close()

End Sub

End Class

selamat mencoba d rumah buat kawan-kawan sekian dan terima kasih,,,,

Minggu, 14 April 2013

Baca selengkapnya »

Cara Membuat Program Dengan Turbo Pascal

Selamat malam sobat netter, pada kesempatan kali ini saya mau berbagi tentang"Cara Membuat Program Dengan Turbo Pascal". Program yang akan saya jelaskan berikut adalah contoh pengolahan data pada sebuah klinik. Pada contoh ini saya sertakan flow/deskripsi kebutuhan user dari program dan listing kode program. Listing program bisa sobat edit sesuai kebutuhan. Program ini saya buat berdasarkan tips membuat program pada blog ini .

Coba praktekan latihan berikut ini:
Berikut deskripsi kebutuhan user dari program pembayaran pada sebuah klinik;
Berikut adalah pengolahan data sebuah klinik
Nomor pasien :
Nama pasien :
Jenis kelamin :
Keluhan:
Dokter :
Biaya dokter :
Obat :
Biaya obat:
Lama inap:
Kamar inap:
Biaya kamar:
Discount:
Total bayar:
Catatan dari user;

Jika keluhan = umum, maka dokter = dr.ilham wijaya dan biaya dokter =100000(100ribu)
Jika keluhan = gigi, maka dokter = dr. Artalya dan biaya dokter = 110000(110ribu)
Jika keluhan = anak, maka dokter = dr. Salim Hakim dan biaya dokter = 125000(125ribu)
Jika keluhan = kandungan, maka dokter = dr. Kartini, SKM dan biaya dokter = 95000(95ribu)
Jika obat “a” maka biaya obat = 50000(50ribu)
Jika obat “b” maka biaya obat = 65 ribu
Jika obat “c” maka biaya obat = 75 ribu
Jika obat “d” maka biaya obat = 100 ribu
Jika kamar inap =” vip” maka biaya kamar= 150 ribu permalam
Jika kamar inap = “kelas 1” maka biaya kamar = 125 ribu
Jika kamar inap = “kelas 2” maka biaya kamar = 110 ribu
Jika kamar inap = “sal” maka biaya kamar = 75 ribu
Discount = 5% dari transaksi
Jika Pasien rawat jalan, maka biaya kamar tidak ada

Berikut listing program dari contoh kasus ini.

program datars;
uses crt;
var bdok,bob,bkm,dsc,tby,tbr:real;
np:string[10];
nap:string[30];
jkl:string[10];
klh:string[17];
dok:string[30];
kin:string[10];
ob:string[3];
lin:byte;
begin
clrscr;
write('Nomor Pasien=');
readln(np);
write('Nama Pasien=');
readln(nap);
write('Jenis Kelamin=');
readln(jkl);
write('Keluhan=');
readln(klh);
write('Type Obat=');
readln(ob);
writeln('* Jika rawat jalan, isi kamar inap"jalan" ');
Writeln('** Pilihan jenis kamar inap adalah"vip","k1","k2","sal",dan"jalan"');
writeln('*** Jika rawat jalan, isi lama inap"1"');
write('Kelas kamar=');
readln(kin);
write('Lama Inap=');
readln(lin);
if klh='umum' then begin
dok:='dr.ilham';
bdok:=100000*lin;
end
else
if klh='gigi' then begin
dok:='dr.Artalya';
bdok:=110000*lin;
end
else
if klh='anak' then begin
dok:='dr.Salim';
bdok:=125000*lin;
end
else begin
dok:='dr.Kartini';
bdok:=95000*lin;
end;
write('Dokter=',dok);
readln;
write('Biaya Dokter=',bdok:2:0);
readln;
if ob='a' then begin
bob:=50000;
end
else
if ob='b' then begin
bob:=65000;
end
else
if ob='c' then begin
bob:=75000;
end
else begin
bob:=100000;
end;
write('Biaya Obat=',bob:2:0);
readln;
if kin='vip' then begin
bkm:=150000*lin;
end
else
if kin='k1' then begin
bkm:=125000*lin;
end
else
if kin='k2' then begin
bkm:=110000*lin;
end
else
if kin='sal' then begin
bkm:=70000*lin;
end
else begin
bkm:=0;
end;
write('Biaya Kamar=',bkm:2:0);
readln;
tby:=bdok+bob+bkm;
dsc:=tby*0.05;
tbr:=tby-dsc;
writeln('Total Bayar=',tbr:2:0);
readkey;
end.

Inilah tampilan saat program dijalankan;

Demikianlah penjelasan yang bisa saya jabarkan tentang"Cara Membuat Program Dengan Turbo Pascal"

Diposkan oleh Abdul Rasyid di 12:11 AM

Program Mencari Luas Segitiga

Wawasan Dasar : __________________________

- Uses CRT : Membuat referensi ke objek CRT
- Var : Variabel
- Begin : Mulai
- ClrScr : perintah Clear Screen.
- Write('text') : Mencetak string(text) ke layar.
- WriteLn('text') : Mencetak string(text) ke layar dan menambah baris baru.
- Read(X) : Meminta input dari pengguna ke dalam variabel X.
- ReadLn(X) : Meminta input dari pengguna ke dalam variabel X dan menambah baris baru.
- ReadKey : Perintah untuk meminta penekanan KeyBoard.
- End. : Mengakhiri/Akhir program.

Program Statis : __________________________

Program Luas_Segitiga;

Uses CRT;

Var

Alas,Tinggi:Integer;

  Luas:Real;

SL:Char;



BEGIN

ClrScr;

WriteLn('Program Mencari Luas Segitiga');

WriteLn;

Alas:=10;

Tinggi:=15;

Luas:=(Alas*Tinggi)/2;

WriteLn;

WriteLn('Luasnya Adalah ',Luas:15:2);

SL:=ReadKey;

END.

Program Dinamis : __________________________

Program Luas_Segitiga;

Uses CRT;

Var

Alas,Tinggi:Integer;

Luas:Real;

SL:Char;


BEGIN

ClrScr;

WriteLn('Program Mencari Luas Segitiga');

WriteLn;

Write('Masukkan Alas ? ');ReadLn(Alas);

Write('Masukkan Tinggi ? ');ReadLn(Tinggi);

Luas:=(Alas*Tinggi)/2;

WriteLn;

WriteLn('Luasnya Adalah ',Luas:15:2);

SL:=ReadKey;

END.

sumber dari,,,, tutorialturbopascal.

Pertemuan 2 : Operator-Operator Matematika

- Operator
Exp :

+ : tambah

- : kurang

/ : bagi

* : kali

> : lebih dari

< : kurang dari

= : sama dengan

>= : lebih dari sama dengan

<= : kurang dari sama dengan

<> : tidak sama dengan

- Penjumlahan
Exp :

Panjang:=10+A;

Sisi:=B+A+G+56;

- Pengurangan
Exp :

Panjang:=10-A;

Hasil:=Laba-Pajak;

- Perkalian
Exp :

Panjang:=10*A*K;

Luas:=P*l;

L:=s*s;

- Pembagian
Exp :

Panjang:=A/3;

Hasil:=100/3;

- Campuran
Exp :

Hasil:=(((A+B)/2)-100)*3;

Luas:=(P*l)/2;

- Pangkat Dua
Exp :

Hasil:=SQR(5); -----> lima kuadrat.

Hasil:=SQR(r); -----> r kuadrat.

- Akar Dua
Exp :

Hasil:=SQRT(5); -----> Akar 2 dari 5

Hasil:=SQRT(n); -----> Akar 2 dari n

- Campuran
Exp :

LuasLing:=3.14*SQR(r);

K:=2*3.14*r;

sumber dari;; tutorialturbopascal

Pernyataan Logika / Penyeleksian Kondisi / Rumus IF - Turbo Pascal 7

Tingkat 1 _________________________________


  If (Syarat) Then

    (yang dilakukan saat syarat terpenuhi);

  Keterangan :
  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, tidak dikerjakan sesuatu.

  Contoh :


  If A:=10 Then

    WriteLn('Selamat. Anda benar.');

Tingkat 2 _________________________________


  If (Syarat) Then

    (yang dilakukan saat syarat terpenuhi)

  Else

    (yang dilakukan saat syarat tidak terpenuhi);

  Keterangan :
  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.

  Contoh :


  If A:=10 Then

    WriteLn('Selamat. Anda benar.')

  Else

    WriteLn('Anda belum beruntung.');

Tingkat 3 _________________________________


  If (Syarat) Then

    Begin

      (yang dilakukan saat syarat terpenuhi);

      (...);

    End

  Else

    (yang dilakukan saat syarat tidak terpenuhi);

  Keterangan :
  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.

  Contoh :


  If B<>0 Then

    Begin

      H:=A/B;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End

  Else

    WriteLn('Harga H Imajiner.');

Tingkat 4 _________________________________


  If (Syarat) Then

    Begin

      (yang dilakukan saat syarat terpenuhi);

      (...);

    End

  Else

    Begin

      (yang dilakukan saat syarat tidak terpenuhi);

      (...);

    End;

  Keterangan :
  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.

  Contoh :


  If B<>0 Then

    Begin

      H:=A/B;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End

  Else

    Begin

      WriteLn;

      WriteLn('Harga H Imajiner.');

      WriteLn('Harga B tidak boleh NOL.');

      WriteLn('Silahkan coba lagi.');

    End;

Tingkat 5.A _________________________________


  If (Syarat1) Or (Syarat2) Then

    Begin

      (yang dilakukan saat salah satu syarat terpenuhi);

      (...);

    End

  Else

    Begin

      (yang dilakukan saat kedua syarat tidak terpenuhi);

      (...);

    End;

  Keterangan :
  Pernyataan Logika yang jika salah satu syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika kedua syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.

  Contoh :


  If (B<0) Or (C=0) Then

    Begin

      WriteLn;

      WriteLn('Harga H Imajiner.');

      WriteLn('Harga B tidak boleh kurang dari NOL dan.');

      WriteLn('Harga C tidak boleh NOL.');

    End

  Else

    Begin

      H:=SQRT(B)/C;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End;

Tingkat 5.B _________________________________


  If (Syarat1) And (Syarat2) Then

    Begin

      (yang dilakukan saat Kedua syarat terpenuhi);

      (...);

    End

  Else

    Begin

      (yang dilakukan saat salah satu / kedua syarat tidak terpenuhi);

      (...);

    End;

  Keterangan :
  Pernyataan Logika yang jika kedua syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika salah satu syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.

  Contoh :


  If (B>=0) And (C<>0) Then

    Begin

      H:=SQRT(B)/C;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End

  Else

    Begin

      WriteLn;

      WriteLn('Harga H Imajiner.');

      WriteLn('Harga B tidak boleh kurang dari NOL dan.');

      WriteLn('Harga C tidak boleh NOL.');

    End;

Tingkat 5.C* _________________________________


  Rumus Umum, sama seperti Tingkat 5.A

  Keterangan :
  Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.

  Contoh :


  If (B<0) Or (C=0) Then

    Begin

      WriteLn;

        If B<0 Then

          WriteLn('Harga B tidak boleh kurang dari NOL.');

        If C=0 Then

          WriteLn('Harga C tidak boleh NOL.');

      WriteLn('Harga H Imajiner.');

    End

  Else

    Begin

      H:=SQRT(B)/C;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End;

Tingkat 5.D* _________________________________


  Rumus Umum, sama seperti Tingkat 5.B

  Keterangan :
  Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.

  Contoh :


  If (B>=0) And (C<>0) Then

    Begin

      H:=SQRT(B)/C;

      WriteLn;

      WriteLn('Harga H = ',H:13:2);

    End

  Else

    Begin

      WriteLn;

        If B<0 Then

          WriteLn('Harga B tidak boleh kurang dari NOL.');

        If C=0 Then

          WriteLn('Harga C tidak boleh NOL.');

      WriteLn('Harga H Imajiner.');

    End;

sumber diambil dari;;; tutorialturbopascal

Class dan ID Selector

Masih ingat kan pada pelajaran syntax CSS bagian pertama yang di tulis adalah selector. Pada contoh-contoh di pelajaran sebelumnya, anda melihat penggunaan tag HTML sebagai selector.
Misalkan anda membuat kode CSS untuk tag <h1>. Sekarang bagaimana jika anda ingin memformat tag <h1> dengan warna / property berbeda? Misalkan, anda ingin tag <h1> di kolom kiri berwarna biru sementara tag <h1> di kolom tengah berwarna hitam.
Untuk kasus seperti ini, anda bisa menggunakan Class selector dan ID selector.

Class Selector

Class selector adalah penggabungan beberapa properties yang digunakan lebih dari satu kali.
Cara penulisan Class Selector:

.nama-class {property:value;}

Untuk menempelkan class ke dalam tag HTML:

taghtml.nama-class {Property:value;}

Perhatikan tanda titik di setiap awal nama Class. Jika anda ingin menggunakan class selector di luar kode HTML anda menggunakan tag <div class=nama-class> dan di akhiri dengan tag </div>.
Contoh:
Penulisan kode CSS:

.tengah {text-align:center;}
p.tengah {color:red;}
h1.kiri {color:blue;}
h1.tengah {color:black;}

Pemakaian kode CSS

<div class=tengah>
<p>Teks tengah akan berwarna merah.</p>
<h1 > Tag H1 tengah akan berwarna hitam</h1>
</div>
<h1 class=kiri>Tag H1 kiri akan berwarna biru</h1>

Hasil:

Teks tengah akan berwarna merah.

Tag H1 tengah akan berwarna hitam

Tag H1 kiri akan berwarna biru

ID Selector

ID Selector mirip dengan Class selector. Untuk membedakannya, gunakanlah ID selector untuk memformat bagian yang hanya muncul satu kali dalam satu halaman web, misalnya untuk memformat bagian menu / sidebar.
Cara penulisan ID Selector:

#nama-ID {property:value;}

Untuk menempelkan ID selector ke dalam tag HTML:

taghtml#nama-ID {Property:value;}

Perhatikan tanda # di setiap awal nama ID. Jika anda ingin menggunakan class selector di luar kode HTML anda menggunakan tag <div id=nama-ID> dan di akhiri dengan tag </div>.

sumber dari;; http://www.belajarcss.com/panduan-css/class-dan-id-selector/

Implementasi CSS

Ada 4 cara memasang kode CSS ke dalam kode HTML / halaman web, yaitu:

Inline CSS
Embed atau memasang kode css ke dalam bagian <head>
Nge link ke external CSS
Import CSS file

Yuk kita bahas satu per satu…

Inline CSS

Kode CSS dituliskan langsung ke dalam tag HTML yang ingin di format. Penulisan cara ini tidak memerlukan penulisan selector dalam kode CSS.
Cara ini sebaiknya hanya digunakan jika anda mau memformat suatu elemen satu kali saja.
Contoh:

<P style=”color:blue”>
Isi paragraf.
</p>

Pada contoh di atas, elemen paragraf <P> di format agar tulisannya menggunakan warna biru. Elemen paragraf lain, tidak akan menggunakan warna biru, karena format ini hanya berlaku pada elemen paragraf yang ditentukan kode CSS nya.
Penulisan CSS dengan cara ini di mulai dengan kata style: lalu di ikuti dengan syntax property: value.

Embedded CSS

Anda bisa juga menempelkan kode CSS di antara tag <head> dan </head>. Penulisan CSS dengan cara ini diawali dengan tag <style> dan diakhiri dengan tag </style>.
Contoh:

<head>
<style type="text/css" media=screen>
p {color:blue;}
</style>
</head>

Dalam contoh di atas semua elemen <P> dalam halaman web tersebut akan diformat menggunakan font berwarna biru.

External CSS

Kode CSS external di tulis dalam satu file terpisah yang disimpan dengan akhiran .css. Anda lalu perlu memanggil file CSS tersebut ke dalam semua halaman web yang anda buat. Dengan cara ini, anda hanya perlu memiliki satu set kode CSS yang digunakan untuk semua halaman web anda. Jadi ada dua langkah dalam pengimplementasian CSS dengan cara ini.
Contoh:

Anda membuat satu file dengan notepad atau teks editor lain, dan berinama, misalkan: style.css, lalu tuliskan kode-kode css di dalam file tersebut.
```
p {font-family: arial; font-size: small;}
h1 {color: red; }
```
Langkah kedua adalah memanggil file style.css dari semua halaman web. Caranya dengan memasukkan kode di bawah ini, di antara tag <head> dan </head>

<head>
<link rel=”stylesheet” href=”style.css” type=”text/css”>
</head>

Import CSS

Anda bisa juga meng-import CSS ke dalam suatu halaman website menggunakan tag import.
Contoh:

@import "style.css";

atau

@import url("style.css");

Penggunaan Lebih dari Satu Kode CSS

Apabila ada lebih dari satu kode CSS untuk satu elemen, maka yang akan digunakan adalah kode yang lebih spesifik.
Misalkan dalam satu halaman web, menggunakan eksternal style sheet untuk memformat elemen H1 sbb:

h1 {
color: red;
text-align: left;
font-size: 8pt
}

Sementara di halaman web yang sama, di antara tag <head> ada kode CSS sbb:

h1 {
text-align: right;
font-size: 20pt
}

Perhatikan bagaimana pemformatan saling bertabrakan, dari eksternal style sheet, text-align=left sementara dari internal style sheet, text-align=right.
Dalam kasus seperti ini, maka yang akan aktif adalah kode yang lebih spesifik, dalam hal ini, internal style sheet lebih spesifik dibandingkan eksternal style sheet.
Jadi, dalam contoh di atas, kode yang akan diimplementasikan adalah sbb:

color: red;
text-align: right;
font-size: 20pt

sumber dari;;;; http://www.belajarcss.com/panduan-css/implementasi-css/

Syntax CSS

Syntax / kalimat CSS terdiri dari beberapa set peraturan yang memiliki: 1 selector, 1 property, 1 value.
Format penulisan kalimat CSS:

selector { property: value }

Selector itu untuk menunjukkan bagian mana yang hendak diatur / diformat.
Property untuk menunjukkan, bagian (properti) dari selector yang hendak diatur.
Value adalah nilai dari pengaturannya.
Contoh Syntax:

h1 { color: red }

Contoh di atas menunjukkan

Selector: h1
Property: color
Value: red

Kalau diterjemahkan ke kalimat bahasa Indonesia kira-kira begini: Mengatur color dari h1 ke warna merah (red).

Pengelompokan Selectors

Anda dapat menulis satu kode CSS untuk berbagai macam selector dengan cara menggunakan koma. Misalkan anda mau mengatur agar tag h1, h2 dan h3 semua menggunakan warna merah, maka kode CSS nya menjadi:

h1,h2,h3 { color: red }

Perhatikan penulisan h1,h2,h3 yang dipisahkan oleh koma.

Penggunaan Banyak Properties

Untuk mengatur lebih dari satu properties gunakan pemisah titik koma ( ; ).
Contoh:

h1,h2,h3 {color:red; font-family:arial; font-size:150%;}

Pada contoh di atas, tag h1, h2 dan h3 di atur agar menggunakan warna merah, dengan type font arial, dan ukuran font 150%.

Cara Penulisan Yang Baik

Sangat disarankan untuk menulis kode CSS menggunakan beberapa baris dimana pengaturan property dan values nya di indent. Ya cuma biar rapih dan lebih mudah di baca aja sih, ga harus kok.

h1,h2,h3 {
color:red;
font-family:arial;
font-size:150%;
}

Sekarang anda sudah mengerti aturan dasar penulisan kalimat CSS. Pelajaran berikutnya akan mengajarkan anda mengaplikasikan kode CSS ke halaman website.

CSS Comment

Kadang kala, ada baiknya anda menuliskan komentar ke dalam kode CSS anda untuk memberi catatan pengingat.
Anda bisa menggunakan syntax pembuka /* dan penutup */ untuk menuliskan komentar. Segala teks yang berada di antara tag /* dan */ tidak akan dibaca sebagai kode, tapi hanya sebagai catatan untuk diri anda.

/* Tulis komentar anda di sini */
p
{
text-align: justify;
/* Tulis komentar anda di sini */
color: blue;
font-family: arial;
}

sumber ;; http://www.belajarcss.com

Pengenalan CSS

Apa Itu CSS?

CSS adalah singkatan dari Cascading Style Sheets. Kalau baca di kamus, cascading itu artinya air terjun. Tapi dalam hal ini, yang di maksud adalah, aliran dari suatu kode ke kode lain yang saling berhubungan.
Jadi kalau di tulis lengkap dalam bahasa Indonesia kira-kira arti CSS adalah: kumpulan kode-kode yang berurutan dan saling berhubungan untuk mengatur format / tampilan suatu halaman HTML.

Keuntungan Penggunaan CSS

Jika anda memiliki beberapa halaman website dimana anda menggunakan font arial untuk tulisannya, lalu suatu hari anda bosan dengan arial dan ingin mengganti ke trebuchet, anda harus merubah satu per satu halaman website anda dan merubah tipe font dari arial menjadi trebuchet.
Dengan menggunakan css, dimana semua halaman web memakai css yang sama, anda cukup merubah satu baris kode css untuk merubah font di semua halaman web dari arial ke trebuchet.
Jadi, keuntungan menggunakan CSS, lebih praktis!

Kekurangan Penggunaan CSS

Tidak semua browser mengartikan kode CSS dengan cara yang sama. Jadi kadang-kadang, tampilan web dengan CSS terlihat baik di browser yang satu, tapi berantakan di browser yang lain. Jadi anda harus memeriksa tampilan supaya terlihat baik di semua browser dan menambahkan kode-kode khusus browser tertentu jika memang dibutuhkan agar tampilan web anda terlihat baik di semua browser.

sumber di ambil dari;;; http://www.belajarcss.com

Sabtu, 13 April 2013

Kata Bijak Cinta Lucu Terbaru

Kata Bijak Cinta Lucu Terbaru 2013 jika kita mengenal dengan istilah kata bijak yang penuh makna namun kini kata bijak hanya sebagi banyolan saja yang bisa memiliki banyak manfaat yang bisa mengundang rasa keceriaan yang amat sangat di cari oleh orang yang super sibuk.

Banyak sekali istilah untuk mengundang rasa keceriaan dengan berbagai macam yakni dengan apa saja yang bisa membuat kita tertawa misal cerita lucu dan lain sebagainya.oleh sebab itu jangan lah anda menjadi risau ketika anda sedang resah oleh suatu masalah dan masih banyak obat yang mujarab ke timbang melakukan hal yang tidak baik.

Jika nada penasaran dengan kata bijak lucu paling lucu versi baliham kita simak saja dengan seksama tepat di bawah ini:

Cinta itu buta, buta itu gelap, gelap asik, lantas jika bercinta didalam ke gelapan ajah, lebih asik.

Cinta sejati adalah cinta yang tidak perlu alasan. bego ajah menyukai tidak punya alasan.

Wanita yang kerap mabuk serta keluar malam tidak pas jadikan istri, tutur mario teguh. bagaimana bila lelaki yang keluar malam serta senang mabuk ? mereka terus dapat jadi suami. mengapa ? dikarenakan mario teguh lelaki.

Jauh di mata dekat di hati. jauh di hati dekat di mata. jauh dekat tiga ribu perak naek angkot.

Rajin pangkal pintar, irit pangkal kaya, maka orang kaya pada irit dengan kata lain pelit. duitnya dikumpulin terus-terusan seh.

Bimbang tidak cuma pilihan, tetapi bimbang yakni kewajiban untuk mereka yang sedang jomblo, patah hati, dan mereka yg sedang melacak perhatian.

Kecemburuan itu yakni penyakit, seandainya tidak ingin disebut penyakitan hindarilah cemburu.

Kebahagiaan ada pada dirimu, oleh karena itu jangan sampai melacak kebahagiaan pada orang lain.

Sahabat yg baik yakni sahabat yg dapat mendaratkan pukulannya di pipi mu untuk menyadarkanmu.

Menerima ajakan seseorang untuk berpacaran yakni obat untuk menghilangkan kebimbangan.

Duit bukan hanya segala nya, namun segala-segala perlu duit.

Uang tidak cuma semua nya terus ada mastercard dan visa.

Cintailah tetanggamu sebagaimana anda suka istrimu, tetapi awas jangan sampai ketahuan mertua atau istri, bisa-bisa di tampar.

Uang tidak bisa beli kebahagian, tetapi memiliki uang lebih bahagia daripada tidak memiliki

Sepandai-pandai menyimpan istri muda, setelah itu tua juga.

Itulah sedikit tentang Kata Bijak Lucu tentang cinta yang mudah mudahan ada manfaatnya,sekian dan terimakasih

Cerita Lucu Abu Nawas Terbaru

Cerita Lucu Abu Nawas Terbaru adalah seorang penyair terkenal asal negri arab yang menjadi salah satu aktor yang terkenal di cerita seribu satu malam, dia di lahirkan di kota ahvas di negri persia yang mengalir dua darah negara di tubuhnya yaitu arab dan persia. abu nawas tersebut di lansirkan sebagai salah satu dari sekian banyaknya penyair yang di anggap sebagai penyair klasik paling terbesar di negri nya.

dari sekian banyaknya cerita lucu abu nawas saya akan bagikan pada anda sebagianya saja yang di anggap sebagi cerita yang paling lucu sekali yang bisa membuat anda semakin senang akan mengoleksi cerita abu nawas tersbut.

dari banyaknya cerita lucu yang di ambil dari salah satu kisah aslinya cerita ini lah yang menjadi aktor yang paling terpopuler yang banyak di cari oleh orang orang, nah jika anda penasaran akan cerita tersebut ayo kita simak aja langsung beberapa judul yang sangat populer di jamanya sampai sekarang ini, berikut cerita lucu abu nawas:

(Memindahkan Istana ke atas Gunung)

Baginda Raja baru saja membaca kitab tentang kehebatan Raja Sulaiman yang mampu memerintahkan, para jin memindahkan singgasana Ratu Bilqis di dekat istananya. Baginda tiba-tiba merasa tertarik. Hatinya mulai tergelitik untuk melakukan hal yang sama. Mendadak beliau ingin istananya dipindahkan ke atas gunung agar bisa lebih leluasa menikmati pemandangan di sekitar. Dan bukankah hal itu tidak mustahil bisa dilakukan karena ada Abu Nawas yang amat cerdik di negerinya.

Tanpa membuang waktu Abu Nawas segera dipanggil untuk menghadap Baginda Raja Harun Al Rasyid. Setelah Abu Nawas dihadapkan, Baginda bersabda, "Abu Nawas engkau harus memindahkan istanaku ke atas gunung agar aku lebih leluasa melihat negeriku?" tanya Baginda sambil melirik reaksi Abu Nawas.

Abu Nawas tidak langsung menjawab. Ia berpikir sejenak hingga keningnya berkerut. Tidak mungkin menolak perintah Baginda kecuali kalau memang ingin dihukum. Akhirnya Abu Nawas terpaksa menyanggupi proyek raksasa itu. Ada satu lagi, permintaan dari Baginda, pekerjaan itu harus selesai hanya dalam waktu sebulan. Abu Nawas pulang dengan hati masgul.

Setiap malam ia hanya berteman dengan rembulan dan bintang-bintang. Hari-hari dilewati dengan kegundahan. Tak ada hari yang lebih berat dalam hidup Abu Nawas kecuali hari-hari ini. Tetapi pada hari kesembilan ia tidak lagi merasa gundah gulana. Keesokan harinya Abu Nawas menuju istana. Ia menghadap Baginda untuk membahas pemindahan istana. Dengan senang hati Baginda akan mendengarkan, apa yang diinginkan Abu Nawas.

"Ampun Tuanku, hamba datang ke sini hanya untuk mengajukan usul untuk memperlancar pekerjaan hamba nanti." kata Abu Nawas.
"Apa usul itu?"
"Hamba akan memindahkan istana Paduka yang mulia tepat pada Hari Raya Idul Qurban yang kebetulan hanya kurang dua puluh hari lagi."
"Kalau hanya usulmu, baiklah." kata Baginda.
"Satu lagi Baginda..." Abu Nawas menambahkan.
"Apa lagi?" tanya Baginda.
"Hamba mohon Baginda menyembelih sepuluh ekor sapi yang gemuk untuk dibagikan langsung kepada para fakir miskin." kata Abu Nawas. "Usulmu kuterima." kata Baginda menyetujui. Abu Nawas pulang dengan perasaan riang gembira. Kini tidak ada lagi yang perlu dikhawatirkan. Toh nanti bila waktunya sudah tiba, ia pasti akan dengan mudah memindahkan istana Baginda Raja. Jangankan hanya memindahkan ke puncak gunung, ke dasar samudera pun Abu Nawas sanggup.

Desas-desus mulai tersebar ke seluruh pelosok negeri. Hampir semua orang harap-harap cemas. Tetapi sebagian besar rakyat merasa yakin atas kemampuan Abu Nawas. Karena selama ini Abu Nawas belum pemah gagal melaksanakan tugas-tugas aneh yang dibebankan di atas pundaknya. Namun ada beberapa orang yang meragukan keberhasilan Abu Nawas kali ini. Saat-saat yang dinanti-nantikan tiba. Rakyat berbondong-bondong menuju lapangan untuk melakukan sholat Hari Raya Idul Qurban.

Dan seusai sholat, sepuluh sapi sumbangan Baginda Raja disembelih lalu dimasak kemudian segera dibagikan kepada fakir miskin. Kini giliran Abu Nawas yang harus melaksanakan tugas berat itu. Abu Nawas berjalan menuju istana diikuti oleh rakyat. Sesampai di depan istana Abu Nawas bertanya kepada Baginda Raja, "Ampun Tuanku yang mulia, apakah istana sudah tidak ada orangnya lagi?"

"Tidak ada." jawab Baginda Raja singkat. Kemudian Abu Nawas berjalan beberapa langkah mendekati istana. Ia berdiri sambil memandangi istana. Abu Nawas berdiri mematung seolah-olah ada yang ditunggu. Benar. Baginda Raja akhirnya tidak sabar.

"Abu Nawas, mengapa engkau belum juga mengangkat istanaku?" tanya Baginda Raja.

"Hamba sudah siap sejak tadi Baginda." kata Abu Nawas. "Apa maksudmu engkau sudah siap sejak tadi? Kalau engkau sudah siap. Lalu apa yang engkau tunggu?" tanya Baginda masih diliputi perasaan heran.

"Hamba menunggu istana Paduka yang mulia diangkat oleh seluruh rakyat yang hadir untuk diletakkan di atas pundak hamba. Setelah itu hamba tentu akan memindahkan istana Paduka yang mulia ke atas gunung sesuai dengan titah Paduka." Baginda Raja Harun Al Rasyid terpana. Beliau tidak menyangka Abu Nawas masih bisa keluar dari lubang jarum.

bagainama kesan anda tentang Cerita Lucu Abu Nawas tersebut mudah mudahan bisa membantu anda menghilangkan rasa kejenuhan anda yang lagi melanda,selain cerita lucu ada juga yang bisa membuat anda tertawa riang yaitu dengan melihat foto lucu yang sangat lucu sekali , terimakasih

http:heri sianipar.com

Halaman

Hamster

Selasa, 23 April 2013

Minggu, 14 April 2013

Cara Membuat Program Dengan Turbo Pascal

Program Mencari Luas Segitiga

Pertemuan 2 : Operator-Operator Matematika

Pernyataan Logika / Penyeleksian Kondisi / Rumus IF - Turbo Pascal 7

Class dan ID Selector

Class Selector

Tag H1 tengah akan berwarna hitam

Tag H1 kiri akan berwarna biru

ID Selector

Implementasi CSS

Inline CSS

Embedded CSS

External CSS

Import CSS

Penggunaan Lebih dari Satu Kode CSS

Syntax CSS

Pengelompokan Selectors

Penggunaan Banyak Properties

Cara Penulisan Yang Baik

CSS Comment

Pengenalan CSS

Apa Itu CSS?

Keuntungan Penggunaan CSS

Kekurangan Penggunaan CSS

Sabtu, 13 April 2013

Kata Bijak Cinta Lucu Terbaru

Cerita Lucu Abu Nawas Terbaru

Mengenai Saya