Pengolahan Citra Lanjutan

Desain Form Pengolahan Citra





Isi Menu

Listing Program

Public Class Form1

Dim Gambar As Bitmap

Private Sub OpenCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenCitraToolStripMenuItem.Click

OFD.Filter = "BMP|*.bmp|JPG|*.Jpg"

OFD.ShowDialog()

If OFD.FileName = "" Then Exit Sub

Pic1.Image = Image.FromFile(OFD.FileName)

Gambar = New Bitmap(Pic1.Image)

End Sub

Private Sub SaveCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SaveCitraToolStripMenuItem.Click

SFD.Filter = "BMP|*.bmp|JPG|*.Jpg"

SFD.ShowDialog()

If SFD.FileName = "" Then Exit Sub

If SFD.FilterIndex = 1 Then

Gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

End If

If SFD.FilterIndex = 2 Then

Gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Bmp)

End If

End Sub

Private Sub GrayscaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrayscaleToolStripMenuItem.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

With Gambar

For Pb = 0 To .Height - 1

For Pc = 0 To .Width - 1

vM = .GetPixel(Pc, Pb).R

vH = .GetPixel(Pc, Pb).G

vB = .GetPixel(Pc, Pb).B

Rt = (vM + vH + vB) / 3

.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))

Next

Pic2.Image = Gambar

Pic2.Refresh()

Next

End With

End Sub

Private Sub NegatifToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegatifToolStripMenuItem.Click

Dim pb, pc As Integer

Dim vM, vH, vB As Double

With Gambar

For pb = 0 To .Height - 1

For pc = 0 To .Width - 1

vM = 255 - .GetPixel(pc, pb).R

vH = 255 - .GetPixel(pc, pb).G

vB = 255 - .GetPixel(pc, pb).B

If vM <= 0 Then vM = 0

If vB <= 0 Then vB = 0

If vH <= 0 Then vH = 0

.SetPixel(pc, pb, Color.FromArgb(vM, vH, vB))

Next

Pic2.Image = Gambar

Pic2.Refresh()

Next

End With

End Sub


Private Sub BrigthnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BrigthnessToolStripMenuItem.Click

Dim pb, pc As Integer

Dim vM, vH, vB As Double

With Gambar

For pb = 0 To .Height - 1

For pc = 0 To .Width - 1

vM = .GetPixel(pc, pb).R + 5

vH = .GetPixel(pc, pb).G + 5

vB = .GetPixel(pc, pb).B + 5

If vM > 255 Then vM = 255

If vB > 255 Then vB = 255

If vH > 255 Then vH = 255

.SetPixel(pc, pb, Color.FromArgb(vM, vH, vB))

Next

Pic2.Image = Gambar

Pic2.Refresh()

Next

End With

End Sub


Private Sub DefaultGambarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultGambarToolStripMenuItem.Click

Gambar = New Bitmap(Pic1.Image)

End Sub


Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

End

End Sub


Private Sub BinerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BinerToolStripMenuItem.Click

Dim pb, pc As Integer

Dim rata, vM, vH, vB As Double

With Gambar

For pb = 0 To .Height - 1

For pc = 0 To .Width - 1

vM = .GetPixel(pc, pb).R

vH = .GetPixel(pc, pb).G

vB = .GetPixel(pc, pb).B

rata = (vM + vH + vB) / 3

If (rata < 128) Then

vM = 0

vH = 0

vB = 0

Else

vM = 255

vH = 255

vB = 255

End If

.SetPixel(pc, pb, Color.FromArgb(vM, vH, vB))

Next

Pic2.Image = Gambar

Pic2.Refresh()

Next

End With

End Sub


Private Sub RotateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.Click

Dim grb As Image

grb = Pic2.Image

If grb IsNot Nothing Then grb.RotateFlip(RotateFlipType.Rotate90FlipX)

Pic2.Image = grb

End Sub


Private Sub CountrasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CountrasToolStripMenuItem.Click

Gambar = New Bitmap(Pic1.Image)

Pic2.Image = Gambar

Dim tempbmp As New Bitmap(Pic1.Image)

Dim DX As Integer = 1

Dim DY As Integer = 1

Dim Red, Green, Blue As Integer

Dim X, Y As Integer

Dim tc As Integer

tc = 5

With tempbmp

For X = DX To .Height - DX - 1

For Y = DY To .Width - DY - 1

Red = CInt(.GetPixel(Y, X).R)

Green = CInt(.GetPixel(Y, X).G)

Blue = CInt(.GetPixel(Y, X).B)

'Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey

Red = Red * tc

Blue = Blue * tc

Green = Green * tc

If (Red > 255) Then

Red = 255

End If

If (Blue > 255) Then

Blue = 255

End If

If (Green > 255) Then

Green = 255

End If

Gambar.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))

Next

If X Mod 10 = 0 Then

Pic1.Invalidate()

Pic2.Refresh()

End If

Next

End With

End Sub


Private Sub StatementToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatementToolStripMenuItem.Click

Dim MF(2, 2) As Double

'MaskFilter.Show()

'matriks Filter

' 0 1 2

'0 a b c

'1 d e f

'2 g h i

'Filter smoothing

MF(0, 0) = 1 / 9 'a

MF(0, 1) = 1 / 9 'b

MF(0, 2) = 1 / 9 'c

MF(1, 0) = 1 / 9 'd

MF(1, 1) = 1 / 9 'e

MF(1, 2) = 1 / 9 'f

MF(2, 0) = 1 / 9 'g

MF(2, 1) = 1 / 9 'h

MF(2, 2) = 1 / 9 'i

Gambar = New Bitmap(Pic1.Image)

Pic1.Image = Gambar

Dim tempbmp As New Bitmap(Pic1.Image)

Dim DX As Integer = 1

Dim DY As Integer = 1

Dim Red As Integer, Green As Integer, Blue As Integer

Dim i As Integer, j As Integer

Pic1.Width = Pic1.Width

Pic1.Show()

With Gambar

For i = DX To .Height - DX - 1

For j = DY To .Width - DY - 1

'proses matriks filter

'point(j,i)*e --> titik tengah

Red = CInt(.GetPixel(j, i).R) * MF(1, 1)

Green = CInt(.GetPixel(j, i).G) * MF(1, 1)

Blue = CInt(.GetPixel(j, i). * MF(1, 1)

'proses titik tetangga

'point(j-1,i-1)*a--> MF(0,0)--> titik kiri atas

If j - 1 < 1 And i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)

Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 0))

Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 0))

Blue = Blue + (CInt(.GetPixel(j, i). * MF(0, 0))

Else

Red = Red + (CInt(.GetPixel(j - 1, i - 1).R) * MF(0, 0))

Green = Green + (CInt(.GetPixel(j - 1, i - 1).G) * MF(0, 0))

Blue = Blue + (CInt(.GetPixel(j - 1, i - 1). * MF(0, 0))

End If

'point(j,i-1)*b --> MF(0,1) --> titik atas

If i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)

Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 1))

Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 1))

Blue = Blue + (CInt(.GetPixel(j, i). * MF(0, 1))

Else

Red = Red + (CInt(.GetPixel(j, i - 1).R) * MF(0, 1))

Green = Green + (CInt(.GetPixel(j, i - 1).G) * MF(0, 1))

Blue = Blue + (CInt(.GetPixel(j, i - 1). * MF(0, 1))

End If

'point(j+1,i-1)*c --> MF(0,2) --> titik kanan atas

If j + 1 > .Width - DY - 1 And i - 1 > 1 Then 'jika out of border ambil nilai tengah/point(x,y)

Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 2))

Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 2))

Blue = Blue + (CInt(.GetPixel(j, i). * MF(0, 2))

Else

Red = Red + (CInt(.GetPixel(j + 1, i - 1).R) * MF(0, 2))

Green = Green + (CInt(.GetPixel(j + 1, i - 1).G) * MF(0, 2))

Blue = Blue + (CInt(.GetPixel(j + 1, i - 1). * MF(0, 2))

End If

'point(j-1,i)*d --> MF(1,0) --> titik kiri

If j - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)

Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 0))

Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 0))

Blue = Blue + (CInt(.GetPixel(j, i). * MF(1, 0))

Else

Red = Red + (CInt(.GetPixel(j - 1, i).R) * MF(1, 0))

Green = Green + (CInt(.GetPixel(j - 1, i).G) * MF(1, 0))

Blue = Blue + (CInt(.GetPixel(j - 1, i). * MF(1, 0))

End If

'point(j+1,i)*f --> MF(1,2) --> titik kanan

If j + 1 > .Width - DY - 1 Then 'jika out of border ambil nilai tengah/point(x,y)

Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 2))

Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 2))

Blue = Blue + (CInt(.GetPixel(j, i). * MF(1, 2))

Else

Red = Red + (CInt(.GetPixel(j + 1, i).R) * MF(1, 2))

Green = Green + (CInt(.GetPixel(j + 1, i).G) * MF(1, 2))

Blue = Blue + (CInt(.GetPixel(j + 1, i). * MF(1, 2))

End If

'point(j-1,i+1)*g --> MF(2,0) --> titik kiri bawah

If j - 1 < 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)

Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 0))

Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 0))

Blue = Blue + (CInt(.GetPixel(j, i). * MF(2, 0))

Else

Red = Red + (CInt(.GetPixel(j - 1, i + 1).R) * MF(2, 0))

Green = Green + (CInt(.GetPixel(j - 1, i + 1).G) * MF(2, 0))

Blue = Blue + (CInt(.GetPixel(j - 1, i + 1). * MF(2, 0))

End If

'point(j,i+1)*g --> MF(2,1) --> titik bawah

If i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)

Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 1))

Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 1))

Blue = Blue + (CInt(.GetPixel(j, i). * MF(2, 1))

Else

Red = Red + (CInt(.GetPixel(j, i + 1).R) * MF(2, 1))

Green = Green + (CInt(.GetPixel(j, i + 1).G) * MF(2, 1))

Blue = Blue + (CInt(.GetPixel(j, i + 1). * MF(2, 1))

End If

'point(j+1,i+1)*h --> MF(2,2) --> titik kanan bawah

If j + 1 > .Width - DY - 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)

Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 2))

Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 2))

Blue = Blue + (CInt(.GetPixel(j, i). * MF(2, 2))

Else

Red = Red + (CInt(.GetPixel(j + 1, i + 1).R) * MF(2, 2))

Green = Green + (CInt(.GetPixel(j + 1, i + 1).G) * MF(2, 2))

Blue = Blue + (CInt(.GetPixel(j + 1, i + 1). * MF(2, 2))

End If

'normalisasi

If Red < 0 Then

Red = 0

Else

If Red > 255 Then

Red = 255

End If

End If

If Green < 0 Then

Green = 0

Else

If Green > 255 Then

Green = 255

End If

End If

If Blue < 0 Then

Blue = 0

Else

If Blue > 255 Then

Blue = 255

End If

End If

'simpan warna hasil smoothing ke point j,i

Gambar.SetPixel(j, i, Color.FromArgb(Red, Green, Blue))

Next

If i Mod 10 = 0 Then

Pic1.Invalidate()

Me.Text = Int(100 * i / (Pic1.Image.Height - 2)).ToString & "%"

Pic1.Text = Int(100 * i / (Pic1.Image.Height - 2))

Pic1.Refresh()

End If

Next

End With

Pic1.Image = Gambar

Pic1.Refresh()

Me.Text = "Proses Smoothing Image berhasil"

End Sub

End Class





Hasil pengolahan Citra Grayscale





Hasil pengolahan Citra Negatif






Hasil pengolahan Citra Brigthness






Hasil pengolahan Citra Biner







Hasil pengolahan Citra Rotate





Hasil pengolahan Citra Countras






Hasil pengolahan Citra Smoothing








Sekian dan Terima Kasih....

^_^

Yuk! Belajar Pemrograman Visual Basic Dot Net Di Mesran.Net

Latihan Listview Perhitungan Penjualan Barang







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

KD.Items.Add(“TS001″)
KD.Items.Add(“TS002″)
KD.Items.Add(“VG001″)
KD.Items.Add(“VG002″)

End Sub

Sub buattabel()
LV.Columns.Add(“NO.PEMBELIAN”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“KODE BARANG”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“NAMA BARANG”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“MERK”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“HARGA”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“JUMLAH BELI”, 100, HorizontalAlignment.Center)
LV.Columns.Add(“TOTAL HARGA”, 100, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True

End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = NO.Text
Lst.SubItems.Add(KD.Text)
Lst.SubItems.Add(NB.Text)
Lst.SubItems.Add(MERK.Text)
Lst.SubItems.Add(HARGA.Text)
Lst.SubItems.Add(JB.Text)
Lst.SubItems.Add(TH.Text)
LV.Items.Add(Lst)
End Sub

Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(KD.Text, 2)
If x = “TS” Then
MERK.Text = “TOSHIBA”
ElseIf x = “VG” Then
MERK.Text = “V-GEN”

End If

Dim y As String
y = Microsoft.VisualBasic.Mid(KD.Text, 3)
If y = “001″ Then
NB.Text = “FLASHDISK 4GB”
ElseIf y = “002″ Then
NB.Text = “FLASHDISK 2GB”

End If
Dim z As String
z = Microsoft.VisualBasic.Left(KD.Text, 5)
If z = “TS001″ Then
HARGA.Text = “105000″
ElseIf z = “TS002″ Then
HARGA.Text = “75000″
ElseIf z = “VG001″ Then
HARGA.Text = “90000″
ElseIf z = “VG002″ Then
HARGA.Text = “60000″
End If

End Sub

Private Sub JB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JB.TextChanged
TH.Text = HARGA.Text * JB.Text
End Sub
Private Sub JB_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JB.KeyPress

Dim TOMBOL As Integer = Asc(e.KeyChar)
If TOMBOL = 13 Then
BTNSIMPAN_Click(sender, e)
End If
End Sub

Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
IsiTabel()
NO.Text = ” “
KD.Text = ” “
NB.Text = ” “
MERK.Text = ” “
HARGA.Text = ” “
JB.Text = ” “
TH.Text = ” “
End Sub

Private Sub BTNHAPSEM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPSEM.Click
LV.Items.Clear()
End Sub

Private Sub BTNHAPDAT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPDAT.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
NO.Text = ” “
KD.Text = ” “
NB.Text = ” “
MERK.Text = ” “
HARGA.Text = ” “
JB.Text = ” “
TH.Text = ” “
End Sub



Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub
End Class

Biodata Fatin X-Factor Indonesia

Biodata Fatin X-Factor Indonesia So Pasti Sahabat banyak yang lagi nyari Biodata Fatin Khan ??, Siapakah Fatin ???, Fatin merupakan salah satu Peserta dari X-Factor Indonesia, sebuah acara reality Show salah satu Televisi Swasta Nasional. Nama Lengkapnya adalah Fatin Shidqia Lubis, cewek manies yang paling manis, imut, sederhana, hitam manis dan yang selalu memakai kerudung saat tampil.

Kostum yang dikenakan para kontestas The X Factor Indonesia memang beragam. Mulai dari nuansa rocker hingga religius. Seperti Fatin Shidqia, yang mengenakan berjilbab. Kontestan yang berstatus pelajar  SMA ini tampil apa adanya saat di panggung. Malah, jilbab yang dikenakan Fatin jadi keunggulan tersendiri untuk dirinya. Demikian juga dengan kontestan lain yang memakai jilbab, seperti Lisa Sulistyowati. Dia mengombinasikan jilbab dengan topi, sehingga semakin gaya. Penampilan Fatin yang bersahaja, mengenakan pakaian sekolah tak mempengaruhi penilaian juri atas penampilannya.

Meski menggunakan jilbab para peserta tersebut dapat membuktikan dengan suara bahwa mereka tidak kalah dengan yang lain. Bahkan mereka dapat memberikan pertunjukan yang terbaik.

Berikut ini Biodata lengkap Fatin Shdqia Lubis:

• Nama Lengkap : Fatin Shidqia Lubis
• Nama Panggilan : Fatin
• Umur : 16 Tahun
• Status : Pelajar
• Hobi : Musik
• Aktifitas : Ngeband, Sekolah
• Twitter Fatin Shidqia Lubis : @fshidqia

Di ajang pencarian bakat menyanyi, dan diudarakan setiap episode selama 200 menit, dan ditayangkan sejak 28 Desember 2012 itu, perhatian publik akhir-akhir ini mengarah pada nama remaja berumur 16 tahun bernama Fatin Shidqia Lubis.
Apa yang istimewa dari gadis yang masih mengenakan seragam putih abu-abu, dan mengenakan jilbab dengan cara paling sahaja, layaknya anak tetangga yang lewat di depan rumah kita itu? Sehingga membuat para juri tetap X Factor Indonesia; yaitu Ahmad Dhani, Anggun, Bebi Romeo, dan Rossa seperti tidak kehabisan bahan untuk melayangkan sanjung puji kepadanya?
Sampai-sampai –paling tidak hingga saat ini– setelah ajang itu menyaring pesertanya di kota Medan, Bandung, Surabaya, Yogyakarta, dan Jakarta, nama Fatin paling banyak menyedot perhatian via Youtube! Ya, dalam X Factor Indonesia, ajang yang diklaim sebagai The Ultimate Singing Competition yang telah sukses di lebih dari 40 negara, dan sekarang mampir di Indonesia, Fatin bahkan telah menjadi “bintang” bahkan sebelum ajang itu purna, dan merangkum pemenangnya.
Lihatlah, bahkan dalam tahap audisi, Fatin yang aktifitas sehari-harinya adalah bersekolah dan ngeband, dan jika lolos ke tahap berikutnya, katanya pada sebuah ketika, hanya berharap, “Dapat pelatihan vokal yang bagus, dan nambah pengalaman,” itu, membawakan single “Grenade”.
Masih berseragam putih abu-abu, ketika membawakan single yang dipopulerkan oleh Bruno Mars, dan dicomot dari debut albumnya bertajuk Doo-Wops & Hooligans, seketia dia langsung mencuri perhatian. Sampai-sampai membuat Mulan Jamela, Bebi Remoe, Rossa dan Ahmad Dhani, yang saat itu ada di depannya, dibuat ternganga-nganga.
Hal itu terbukti ketika dia membawakan single “Pumped Up Kicks” di episode ke 6 X Factor. Single milik sebuah grup band dari Amerika Serikat bernama Foster the People, beraliran indie pop itu, lagi-lagi membuat jatuh hati para juri. Di Youtube, ketika Fatin membawakan single itu, telah ditonton oleh 884.425 orang.

Berat Badan Turun dengan Minum 10 Gelas Air Sehari

Manfaat minum air putih telah diketahui banyak orang. Selain mencegah dehidrasi minuman ini juga dapat menjaga kesehatan pencernaan. Banyak minum air putih juga dapat membantu menurunkan berat badan.

Anjuran konsumsi air putih dalam sehari berkisar 8 sampai 10 gelas, atau satu setengah liter hingga dua liter air. Anjuran konsumsi ini bertujuan untuk memenuhi kebutuhan volume air dalam tubuh dengan rata-rata 65% per berat badan.

Air putih yang mengandung mineral ini sangat efektif dalam membantu menurunkan berat badan. Cara alami yang mudah ini bisa dilakukan untuk Anda yang sedang berdiet. Air mampu menurunkan indeks massa tubuh. Cara ini dapat efektif jika sebanyak 500 ml air diminum sebelum makan.

Air yang terserap ditubuh juga dapat membakar lemak sekitar 50 persen lemak. Karena itulah, air putih dikatakan efektif dapat menurunkan berat badan.

Seperti dilansir webmd, air juga dikatakan dapat membantu mengontrol kalori. Hal inipun diakui oleh Barbara Rools, PhD, seorang peneliti di Penn State.

“Penurunan berat badan terjadi karena Anda memilih minum air putih dibandingkan minuman berkalori, makanan kaya air juga jauh lebih sehat dan mengenyangkan untuk memangkas asupan kalori.”

Sumber bahan makanan degan kadar ait tertinggi bisa di dapatkan dari buha-buahan, sayuran, kaldu pada sup, oatmeal dan kacang-kacangan. Kadar airnya yang tinggi pastilah akan membuat kenyang lebih lama.

Selain itu, air juga dikatakan dapat mencegah mabuk. Minuman beralkohol yang bisa membuat dehidrasi bisa diatasi dengan minum beberapa gelas air putih beberapa saat sebelum mulai meminum bir atau wine. Jika hendak melalukan perjalanan jauh dengan pesawat terbang, Anda juga bisa minum air putih sebelumnya untuk mencegah mual berlebih.

Inilah 12 Pelajar dengan Nilai UN Murni Tertinggi

JAKARTA - Hasil Ujian Nasional (UN) tingkat SMA/SMK/MA akan diumumkan secara serentak pada 24 Mei 2013. Namun, Kementerian Pendidikan dan Kebudayaan (Kemendikbud) telah merilis 12 pelajar dengan rerata nilai UN murni tertinggi.

Pelajar dengan nilai UN murni tertinggi kembali diperoleh siswa asal Bali, yakni Ni Kadek Vani Apriyanti. Pelajar asal SMAN 4 Denpasar itu meraih rerata nilai UN murni 9,87.

"Kemudian dengan rerata nilai UN murni 9,78 ada dua, yaitu Aditya Agam Nugraha dari SMAN 1 Surakarta dan Helena Marthafriska Saragi Napitu dari SMA Swasta Methodist 2 Medan," kata Menteri Pendidikan dan Kebudayaan (Mendikbud) Mohammad Nuh, dalam konferensi pers di Kemendikbud, Senayan, Jakarta Selatan, Kamis (23/5/2013).

Selanjutnya, dua pelajar asal SMAN 4 Denpasar juga turut mendapat nilai terbaik di peringkat empat dan lima. Mereka adalah Made Hyang Wikananda dan Luh Putu Lindayani dengan rerata nilai UN murni 9,76.

Terpaut 0,01 poin, yakni 9,75, diraih oleh empat pelajar yang menempati peringkat enam hingga sembilan. Mereka adalah Elva Vidya dari SMA Kristen 5 BPK Penabur, Gracia Isaura Raulina dari SMAN 8 Jakarta, Putu Siska Apriliyani dari SMAN 4 Denpasar, dan Nadia Anindita Vandari dari MAN Insan Cendekia Ciater Serpong.

Posisi 10-12 dihuni oleh tiga pelajar yang memperoleh rerata nilai UN murni 9,73. Mereka ialah Sarah Alya Firnadya dari SMAN 8 Jakarta, Zulva Fachrina dari SMAN 10 Samarinda, dan Putu Indri Widiani dari SMAN 4 Denpasar. (ade) 

CARA MEMBUAT BLOG WORDPRESS.COM

1.  Jalankan browser Anda kemudian buka http://www.wordpress.com. Tunggu hingga muncul tampilan awal WordPress.com.
2. Klik Get Started
   
3. Isi formulir yang telah tersedia. Jangan lupa untuk mengganti email address-nya ya!!
   
   kemudian klik Create Blog.
4. Selanjutnya Anda diminta untuk melakukan aktivasi blog dengan cara mengeklik link yang dikirimkan ke email Anda.
   
5. Klik link yang ada di pesan email Anda.
   
6. Setelah Anda klik link tersebut maka Anda akan langsung menuju suatu halaman. Klik Next Step.
   
7. Klik Next Step lagi.
   
8. Tahap selanjutnya kamu diminta untuk memberi Judul Blog, Tagline, dan Bahasa pada blog yang baru saja sobat buat. Klik Next Step.
   
9. Pilih satu tema yang menurut kamu cocok.
   
10. Klik Next Step lagi.
    
11. Tekan Finish. Sobat akan dialihkan ke halaman dashboard
    
12. Selesai.

Nah, itu tadi cara membuat blog wordpress.com. Cepat, mudah, instan, dan gratis. Selamat mencoba!

CARA MEMBUAT BLOG DI BLOGGER DENGAN MUDAH DAN CEPAT

Cara Membuat Blog. Bagi anda yang ingin sekali membuat blog, kali ini saya akan mencoba berbagi tips kepada anda bagaimana Cara Membuat Blog dengan mudah dan cepat. Sebenarnya banyak sekali situs yang menyediakan blog gratisan tersebut, namun saya disini menjelaskan membuat blog dengan menggunakan layanan dari blogger atau blogspot. Blogger ini salah satu layanan blog gratisan yang terbesar dan paling banyak penggunanya.

Sebenarnya membuat blog itu sangat mudah sekali seperti halnya membuat facebook maupunmembuat email. Dari pada banyak basa-basi langsung saja untuk melihat tutorialnya di bawah ini.

Pertama untuk memulai membuat blog silahkan untuk mengenjungi situs blogger.com. Setelah halamannya terbuka, silahkan anda cari tombol Sign Up di pojok kanan atas seperti contoh gambar dibawah ini


Kedua, kalau sudah di klik terus muncul form seperti gambar di bawah ini.


Name: Isi dengan nama anda.
Choose Your Username: Isikan username pilihan anda, ini nanti juga dibuat menjadi alamat email anda.
Birthday: Isi tanggal lahir, bulan dan tahun anda.
Gender: Kalau anda pria pilih yang male, kalau anda wanita pilih sebaliknya yakni yang female. Kalau anda masih belum yakin dengan gender anda, anda bisa memilih other hehehehe.
Mobile Phone: Isikan no handphone anda, nanti untuk dibuat verifikasi akun anda.
Your Current Email Address: Di kosongi juga tidak apa-apa
Lalu isi kode verifikasi seperti gambar diatas, kemudian centang untuk menyutujui pembuatan akun tersebut.
Kemudian tekan tombol next step.

Kemudian akan muncul gambar seperti dibawah ini, anda lewati saja dengan menekan tombol next step. Untuk mengunggah foto di akhir tahap juga bisa.


Kemudian muncul seperti gambar dibawah ini, langsung saja anda klik Back to Blogger.


NB: akhirrudinblog@gmail.com itu untuk masuk kedalam akun kita, jadi jangan sampai lupa dengan alamat email anda sendiri.

Jika anda melihat gambar seperti dibawah ini abaikan saja, untuk mempercepat proses pembuatan blog tersebut. Langsung saja untuk klik tombol Lanjutkan ke blogger.


Jika sudah menekan tombol lanjutkan ke blogger, anda akan masuk kedalam tampilan utama pada blogger. Di situ anda bisa melakukan apa saja untuk blog anda. Langsung saja membuat blog klik new blog atau blog baru seperti gambar di bawah ini.


Setelah memilih tombol new blog atau blog baru tadi, akan dibawa menuju halaman blog. Kemudian isi title atau judul blog dengan keinginan anda. Pada bagian address atau alamat, anda bisa mengisi alamat tersebut dengan keinginan anda, kalau sudah pilih template atau tema kesukaan anda. Contoh seperti gambar dibawah ini, jika sudah klik tombol create blog atau buat blog.


Selamat blog anda sudah berhasil di buat. Untuk mengisi artikel di blog anda, anda bisa mengeklik tombol gambar pensil seperti gambar dibawah ini.


Ok sampai disini dulu tutorial dari berita terkini mengenai Cara Membuat Blog, semoga artikel diatas bisa bermanfaat dan dapat membantu anda untuk membuat blog baru. Ikuti terus tutorial menarik lainnya seperti
Cara Membuat Blog di Blogger Dengan Mudah dan Cepat ini.