Rabu, 26 Juni 2013

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....

^_^

Minggu, 02 Juni 2013

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

Senin, 27 Mei 2013

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.
Fatin Shidqia Lubis
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
    Cara Membuat Blog WordPress
  3. Isi formulir yang telah tersedia. Jangan lupa untuk mengganti email address-nya ya!!
    Cara Membuat Blog WordPress
    kemudian klik Create Blog.
  4. Selanjutnya Anda diminta untuk melakukan aktivasi blog dengan cara mengeklik link yang dikirimkan ke email Anda.
    Cara Membuat Blog WordPress
  5. Klik link yang ada di pesan email Anda.
    Cara Membuat Blog WordPress
  6. Setelah Anda klik link tersebut maka Anda akan langsung menuju suatu halaman. Klik Next Step.
    Cara Membuat Blog WordPress
  7. Klik Next Step lagi.
    Cara Membuat Blog WordPress
  8. Tahap selanjutnya kamu diminta untuk memberi Judul Blog, Tagline, dan Bahasa pada blog yang baru saja sobat buat. Klik Next Step.
    Cara Membuat Blog WordPress
  9. Pilih satu tema yang menurut kamu cocok.
    Cara Membuat Blog WordPress
  10. Klik Next Step lagi.
    Cara Membuat Blog WordPress
  11. Tekan Finish. Sobat akan dialihkan ke halaman dashboard
    Cara Membuat Blog WordPress
  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.

Kamis, 23 Mei 2013

Intip Bahasa pemrograman di Mesran[Dot]Net Yuk...??



Mesran.net adalah salah satu website yang mana berisikan tempat pembelajaran Bahasa Pemrograman.Di Mesran.net kita juga dapat menemukan berbagai macam artikel tentang bahasa pemrograman mulai dari 

Mesran.net merupakan salah satu dari sekian banyak website yang mana berguna untuk tempat belajar bahasa pemrogramman yang menurut saya cukup lengkap.

Mesran.net di rancang oleh seorang dosen yang bernama pak Mesran, di mana mesran.net sangat berguna untuk mahasiswa/i  BUDI DARMA untuk belajar bahasa pemrograman selian itu juga dapat mengetahui informasi tentang IP,JUDUL SKRIPSI maupun JUDUL TUGAS AKHIR pastinya amat sangat berguna bagi mahasiswa/i  BUDI DARMA.

Sekian tentang Mesran.net. kalau mau tau lebih banyak lagi, penasaran dan kurang puas tentang info dari saya silahkan kunjungi  aja langsung di website Mesran.net ok ,..??? 

Terima kasih .





Rabu, 22 Mei 2013

10 hotel terunik dan teraneh di dunia




Hotel bagi sebagian orang bukan sekadar tempat untuk menginap. Dengan kenyamanan dan keunikan dalam hotel, bisa menimbulkan pengalaman sendiri bagi penghuninya. Seperti sepuluh berikut yang unik dan eskotis seperti dikutip dari Divine Caroline.


1. Penthouse bentuk karavan – Cape Town, Afrika Selatan


Penthouse dari sebuah hotel memang selalu menarik untuk diketahui isinya. Apalagi jika area penthouse dibuat dengan sangat unik seperti penthouse yang berbentuk karavan ini. Dibuat dari tujuh karavan berukuran besar dan terletak di atap Mewah Grand Daddy Hotel dengan tujuh konsep interior berbeda.


2. Penginapan kereta kayu – Christchurch, Selandia Baru





Gerobak atau kereta kayu yang berasal dari era 1870an ternyata bisa diubah menjadi sebuah kamar penginapan mewah dan nyaman. Wagon Stays Hotel, secara hati-hati merenovasi gerobak untuk menjaga keotentikannya. Tetapi dengan dilengkapi pendingin ruangan, pemanas, LCD TV dan tentu saja, lentera minyak tanah.

3. Hotel pesawat – Verde Quepos, Costa Rica



Sebuah resor unik di hotel Costa ini adalah dua kamar tidur yang dibangun di pesawat Boeing 727 tahun 1965. Ruangan pesawat suite itu juga bertengger di bagian atas di antara pepohonan, menawarkan pemandangan menakjubkan, dan penghuni bisa berinteraksi dengan alam. Jika dilihat dari luar, pesawat tampak sedang menabrak pohon, sangat unik.


4. Hotel Kapsul – The Hague, Belanda



Kapsul apung juga bisa diubah menjadi kamar hotel yang unik. Interior kamar ini berupa gantungan tulang-tulang. Untuk selimutnya terbuat dari kulit domba.


5. Hotel dalam pipa – Ottensheim, Austria



Hotel Dasparkhotel menampilkan tiga citra, ‘temporer, nyaman, dan rumah yang tak rumit’. Pipa-pipa besar diubah menjadi kamar yang nyaman dan terletak di tengah taman.


6. Hotel di bawah laut – Key Largo, Florida, Amerika Serikat





Ingin bermalam di habitat penelitian bawah air? Anda bisa mengunjungi Jules Undersea Lodge Key Largo, Florida. Disediakan dua kamar sederhana bagi tamu yang ingin menginap. Untuk bisa menginap di tempat ini para tamu harus menyelam ke bawah laut sejauh 6,4 meter.
Barang-barang akan dibawa dalam kantong kedap udara. Para tamu tidak diperkenankan merokok di kamar bawah air ini.


7. Hotel Helikopter – Connecticut, Amerika Serikat



Penginapan dalam helikopter adalah salah satu tema dari banyak pilihan penginapan unik untuk disewakan di tempat ini. Perangkat helikopter tempat penginapan merupakan seharga £ 17.000 dilengkapi dengan berbagai tombol dan lampu yang memungkinkan para tamu untuk mensimulasikan penerbangan secara nyata.


8. Hotel Pasir – Weymouth Beach, Dorset, Inggris



Istana pasir juga bisa jadi tempat tidur yang nyaman. Seperti hotel pasir yang terdapat di Weymouth Beach, Dorset, Inggris. Tarifnya cukup murah dan terletak di pantai. Tentu harus diketahui di hotel ini tidak ada kamar mandi dan hanya beberapa meter dari laut.


9. Hotel trem – Hoogwoud, Belanda



Hotel Controversy Tram Hotel dibuat dari trem yang berasal dari Jerman dan Amsterdam. Kamar suite ini menawarkan semua fasilitas yang ada pada hotel standar. Namun dengan pengaturan warna-warni dan dekorasi interior yang unik sebagai bonus.


10. Hotel menara air – Cologne, Jerman



Salah satu menara air terbesar di Eropa, yang merupakan situs warisan resmi diubah menjadi sebuah hotel mewah, yang dikenal dengan nama Im Wasserturm. Pengunjung bisa menikmati suara air yang kencang dan pemandangan indah dari atas menara.

Selasa, 21 Mei 2013

Tugas Program Visual Basic

Tugas Bahasa Pemrograman






Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("1111046")
npm.Items.Add("1111047")
npm.Items.Add("1111045")
npm.Items.Add("1102094")
npm.Items.Add("1102086")

jabatan.Items.Add("Mandor")
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Staf")
jabatan.Items.Add("Manajer")
jabatan.Items.Add("Administrasi")

status.Items.Add("Menikah")
status.Items.Add("Tidak Menikah")

For i = 1 To 4
Janak.Items.Add(i)
Next i
For i = 1 To 10
Jlembur.Items.Add(i)
Next i
BuatTabel()
End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
Select Case jabatan.Text
Case "Mandor" : gaji.Text = 1750000
Case "Kepala Bagian" : gaji.Text = 2500000
Case "Staf" : gaji.Text = 1250000
Case "Manajer" : gaji.Text = 3000000
Case "Administrasi" : gaji.Text = 1350000
End Select
pajak.Text = 0.015 * gaji.Text
End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
Select Case status.Text
Case "Menikah" : Tistri.Text = 0.09 * gaji.Text
Case "Tidak Menikah" : Tistri.Text = 0
End Select
End Sub

Private Sub Janak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Janak.SelectedIndexChanged
If Janak.Text >= 2 And status.Text = "Menikah" Then
Tanak.Text = 0.07 * gaji.Text
ElseIf Janak.Text = 1 And status.Text = "Menikah" Then
Tanak.Text = 0.03 * gaji.Text
Else
Tanak.Text = 0
End If
End Sub

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
If jabatan.Text = "Mandor" Then
Ulembur.Text = 7500
ElseIf jabatan.Text = "Kepala Bagian" Then
Ulembur.Text = 10000
ElseIf jabatan.Text = "Staf" Then
Ulembur.Text = 5000
Else
Ulembur.Text = 0
End If

tot.Text = Val(Ulembur.Text * Jlembur.Text) + Val(gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) - Val(pajak.Text)

Call IsiTabel()
End Sub
Sub BuatTabel()
LV.Columns.Add("Npm", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan", 80, HorizontalAlignment.Center)
LV.Columns.Add("Gaji", 80, HorizontalAlignment.Center)
LV.Columns.Add("status", 80, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Istri", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Anak", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Center)
LV.Columns.Add("Honor Lembur", 80, HorizontalAlignment.Center)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
LV.Columns.Add("Total", 180, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub

Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = Nama.Text
Lst.Text = Jabatan.Text
Lst.Text = Gaji.Text
Lst.Text = Status.Text
Lst.Text = npm.Text
Lst.SubItems.Add(Nama.Text)
Lst.SubItems.Add(Jabatan.Text)
Lst.SubItems.Add(Gaji.Text)
Lst.SubItems.Add(Status.Text)
Lst.SubItems.Add(Tistri.Text)
Lst.SubItems.Add(Janak.Text)
Lst.SubItems.Add(Tanak.Text)
Lst.SubItems.Add(Jlembur.Text)
Lst.SubItems.Add(Ulembur.Text)
Lst.SubItems.Add(Pajak.Text)
Lst.SubItems.Add(Tot.Text)
Lst.SubItems.Add(npm.Text)
LV.Items.Add(Lst)
End Sub
End Class



Hasil Design Program












Minggu, 28 April 2013

BIOGRAFI USTAD JEFRY, MANTAN PECANDU YANG TOBAT DAN KINI MENJADI USTAD YANG TERKENAL


Ustadz ganteng ini laris diminta berdakwah. Perjalanan hidup Jeffry Al Buchori sungguh dahsyat. Penuh gejolak dan tikungan tajam. Proses pergulatan yang luar biasa ia alami sampai ia menemukan kehidupan yang tenang dan menenteramkan. Simak kisahnya yang sangat memikat mulai nomor ini.
Sebetulnya aku tidak ingin bercerita banyak tentang masa laluku. Maklum, masa laluku sangat kelam. Namun, setelah kupikir, siapa tahu perjalanan hidupku ini bisa menjadi pelajaran bagi orang lain. Baiklah, aku bersedia membagi pengalaman hidupku pada para pembaca. Insya Allah, ada gunanya.
Aku lahir dengan nama Jeffry Al Buchori Modal pada 12 April 1973 di Jakarta. Waktu aku lahir, keluargaku memang sudah menetap di Jakarta. Aku lahir sebagai anak tengah, maksudku anak ke-3 dari lima bersaudara. Tiga saudara kandungku laki-laki, dan si bungsu adalah perempuan. Layaknya bersaudara, hubungan kami berlima cukup dekat. Sekadar bertengkar, sih, wajar saja. Apalagi, jarak usia kami tidak berjauhan.
Apih (panggilan Jefri untuk ayahnya, Red.), M. Ismail Modal, adalah pria bertubuh tinggi besar asli Ambon, sedangkan Umi, begitu aku biasa memanggil ibu, Tatu Mulyana asli Banten. Apih mendidik kami berlima dengan sangat keras. Tapi, kalau tidak begitu, aku tidak akan merasakan manfaat seperti sekarang. Kalau kami sampai lupa salat atau mengaji, wah, jangan ditanya hukuman yang akan diberikan Apih. Dalam hal agama, Apih dan Umi memang mendidik kami secara ketat.
Namun, sebetulnya Umi adalah seorang ibu yang amat sabar dan lembut dalam menghadapi anak-anaknya. Apih pun orang yang selalu bersikap obyektif. Dia akan membela keluarganya mati-matian bila memang keluarganya yang benar. Sebaliknya dia tidak segan-segan menyalahkan kami bila memang berbuat salah.
Berada di lingkungan keluarga yang taat agama membuatku menyukai pelajaran agama. Sewaktu kelas 5 SD, aku pernah ikut kejuaraan MTQ sampai tingkat provinsi. Selain agama, pelajaran yang juga kusukai adalah kesenian. Entah mengapa, aku suka sekali tampil di depan orang banyak. Oh ya, setelah kenaikan kelas, dari kelas 3 aku langsung melompat ke kelas 5. Jadilah aku sekelas dengan kakakku yang kedua.
BERKEPRIBADIAN GANDA
Lulus SD, Apih memasukkanku dan kedua kakakku ke sebuah pesantren modern di Balaraja, Tangerang. Beliau ingin kami mendalami pelajaran agama. Rupanya tidak semua keinginannya bersambut, semua ini karena kenakalanku.
Orang bilang, anak tengah biasanya agak nakal. Aku tidak tahu ungkapan itu benar atau tidak. Yang jelas hal itu berlaku padaku. Sebagai anak tengah, aku sering membuat orang tua kesal. Di pesantren, aku sering berulah.
Salah satu kenalakanku, di saat yang lain salat, aku diam-diam tidur. Kenakalan lain, kabur dari pesantren untuk main atau nonton di bioskop adalah hal biasa. Sebagai hukumannya, kepalaku sering dibotaki. Tapi, tetap saja aku tak jera.
Tampaknya aku seperti punya kepribadian ganda, ya. Di satu sisi aku nakal, di sisi lain keinginan untuk melantunkan ayat-ayat suci begitu kuat. Tiap ada kegiatan keagamaan, aku selalu terlibat. Bersama kedua kakakku, aku juga pernah membuat drama tanpa naskah berjudul Kembali Ke Jalan Allah yang diperlombakan di pesantren. Ternyata karya kami itu dinilai sebagai drama terbaik se-pesantren.
Bahkan, aku juga juara lomba azan, lomba MTQ, dan qasidah. Akan tetapi, entah kenapa, aku juga tak pernah ketinggalan dalam kenakalan. Tinggal dalam lingkungan pesantren, kelakuan burukku bukannya berkurang, malah makin menjadi. Puncaknya, aku sudah bosan bersekolah di pesantren.
Akhirnya, hanya empat tahun aku di pesantren. Dua tahun sebelum menamatkan pelajaran, aku keluar. Lalu, Apih memasukkanku ke sekolah aliyah (setingkat SMA, Red.). Rupanya keluar dari pesantren tidak membuatku lebih baik. Aku yang mulai beranjak remaja justru jadi makin nakal.
KENAL DUNIA MALAM
Memang, sih, tiap ada acara keagamaan aku tak pernah ketinggalan. Namun, aku juga selalu mau bila ada teman mengajak ke kantin sekolah. Bukan untuk jajan, tapi memakai narkoba! Aku juga sering kabur dan pergi tanpa tujuan yang jelas. Ya, aku seperti burung lepas dari sangkar, terbang tak terkendali.
Masa SMA memang suram bagiku. Masa yang tak pernah lengkap. Maksudnya, aku tak punya teman sebaya. Kenapa? Ya, meski usiaku masih 15 tahun, aku bergaul dengan pemuda berusia 20 tahunan. Pacaran pun dengan yang lebih tua. Di sekolah ini aku hanya bertahan setahun. Pindah ke SMA lain, keseharianku tak jauh berbeda. Malah makin parah.
Dari perkenalan dengan beberapa teman, aku mengenal petualangan baru. Umur 16 tahun, aku mulai kenal dunia malam. Aku masuk sekolah hanya saat ujian. Buatku, yang penting lulus. Aku lebih suka mendatangi diskotek untuk menari. Terus terang, aku memang tertarik pada tarian di diskotek. Tiap ke sana, diam-diam aku selalu mempelajari gerakan orang-orang yang nge-dance. Lalu kutirukan.
Aku jadi seorang penari, bertualang dari satu diskotek ke diskotek lain, tenggelam dalam dunia malam. Saat ada lomba dance, aku mencoba ikut. Usahaku tak sia-sia. Beberapa kali aku berhasil memboyong piala ke rumah sebagai the best dancer. Selain itu, aku juga berhasil jadi penari di Dufan pada tahun 1990, meski hanya selama setahun. Sampai sekarang masih banyak temanku yang jadi penari di sana.
Aku juga pernah jadi foto model, bahkan ikut fashion show di diskotek. Mungkin waktu itu aku merasa sangat cakep, ya. Tapi menurutku, kegiatan-kegiatan itu masih positif, meski terkadang aku suka minum. Dengan segala kebengalanku, tahun 1990 aku berhasil lulus SMA.
MAIN SINETRON
Aku mengalami masa yang menurutku paling dahsyat setelah tamat SMA. Ceritanya salah seorang teman penari, memperkenalkanku pada Aditya Gumai yang saat itu aktif di dunia seni peran. Dari Aditya aku mengenal dunia akting. Waktu itu, kami masih latihan menari di Taman Ismail Marzuki. Saat latihan pindah ke Gedung Pemuda di Senayan, mulailah aku main sinetron. Mulanya aku hanya mengamati para pemain yang sedang syuting, sambil diam-diam belajar.
Aku memang suka mencuri ilmu. Waktu tidur di kos salah satu temanku di dekat kampus Institut Kesenian Jakarta, aku sering mencuri ilmu juga dari para mahasiswa. Kalau mereka sedang kuliah atau praktik, aku sering mengamati mereka.
Nah, ketika para pemain sinetron sedang latihan, terkadang aku menggantikan salah satunya. Ternyata aku ditertawakan. Karena pada dasarnya aku orang yang enggak suka diperlakukan seperti itu, aku malah jadi terpacu. Aku makin giat berlatih akting secara otodidak. Akhirnya, saat yang senior belum juga dapat giliran main, aku sudah mendapat peran. Aku diajak Aditya main sinetron. Waktu dikasting, aku berhasil mendapat peran.
Tahun 1990, aku main sinetron Pendekar Halilintar. Saat itu, sinetron masih dipandang sebelah mata oleh bintang film. Namun, Apih mati-matian menentangku. Kenapa? Rupanya Apih tahu persis seperti apa lingkungan dunia film. Dulu, beliau juga pernah main film action, antara lain Macan Terbang dan Pukulan Berantai. Dari beliaulah aku menuruni darah seni.
Ditentang Apih tak membuat langkahku surut. Mungkin jalan hidupku memang harus begini. Tak satu pun larangan Apih yang mampir ke otakku untuk kujadikan bahan pikiran. Nasihat Apih tak lagi kudengarkan. Tawaran untuk main sinetron yang berdatangan membuatku makin yakin, inilah yang kucari. Aku tak mau menuruti keinginan orang tua karena merasa diriku benar. Akhirnya konflik antara aku dan orang tuaku pecah.
Sebagai bentuk perlawananku pada orang tua, aku tak pernah pulang ke rumah. Tidur berpindah-pindah di rumah teman. Rambut juga kupanjangkan. Aku seperti tak punya orang tua. Bahkan, tak pernah terlintas dalam benakku bahwa suatu hari mereka akan pulang ke haribaan. Yang kupikirkan hanya kesenangan dan egoku semata.
Pada saat bersamaan, karierku di dunia seni peran terus melaju. Aku semakin mendapatkan keasyikan. Setelah itu, aku mendapat peran dalam sinetron drama Sayap Patah yang juga dibintangi Dien Novita, Ratu Tria, dan almarhum WD Mochtar.
Aku semakin merasa pilihanku tak salah setelah dinobatkan sebagai Pemeran Pria Terbaik dalam Sepekan Sinetron Remaja yang diadakan TVRI tahun 1991. Aku bangga bukan main, karena merasa menang dari orang tua. Kesombonganku makin menjadi. Aku makin merasa inilah yang terbaik buatku, ketimbang pilihan orangtuaku.
***
“DI KABAH, KUMINTA AMPUNAN ALLAH”
Tawaran main sinetron berdatangan menghampiri Jeffry. Seiring dengan itu, ia makin tenggelam dalam dunianya yang kelam.
Sejak kenal sinetron, aku makin menyukai dunia akting. Aku tak peduli meski Apih menentangku. Namun, belakangan aku paham, di balik etidaksetujuannya, sebetulnya orang menyimpan rasa bangga. Orang tua cerita, mereka sedang ke Tanah Suci membawa rombongan ibadah haji saat sinetron Sayap Patah yang kumainkan ditayangkan.
Ternyata, mereka nonton sinetronku. Komentar mereka membanggakanku. Mereka mengakui, ternyata aku bisa berprestasi. Setelah itu, aku mendapat berbagai tawaran main, antara lain sinetron Sebening Kasih, Opera Tiga Jaman, dan Kerinduan. Selain namaku makin mencuat, rezeki juga terus mengalir.
Namun, aku malah jadi lupa diri. Ketenaran tidak penting buatku. Yang penting menikmati hidup. Dunia malam terus kugeluti. Kalau ke diskotek, aku tak lupa mengonsumsi narkoba. Bahkan, untuk urusan yang satu ini, aku bisa dibilang tamak. Biasanya, aku meminum satu pil dulu. Kalau kurasa belum “on”, kuminum satu lagi. Begitu seterusnya.
Akhirnya, aku jadi sangat mabuk. Pandanganku pun jadi kabur. Mau melihat arloji di tangan saja, aku harus mendekatkannya ke wajahku, sambil menggoyang-goyangkan kepala dan membelalakkan mata supaya bisa melihat dengan lebih jelas. Parah, ya? Begitulah kebandelanku terus berlangsung.
KECANDUAN KIAN PARAH
Suatu hari di tahun 1992, Apih meninggal karena sakit. Aku menyesal bukan main karena selama ini selalu mengabaikan nasihat Apih. Menjelang kepergiannya, aku berdiri di samping tempat tidurnya di rumah sakit sambil menangis. Melihatku seperti itu, Apih mengatakan, laki-laki tak boleh menangis. Laki-laki pantang keluar air mata. Bayangkan, bahkan di saat-saat terakhirnya pun Apih tetap menunjukkan sikapnya yang penuh kasih padaku yang durhaka ini.
Sore itu aku dimintanya pulang ke rumah dan beliau memberiku ongkos. Aku menurut. Begitu aku pulang, Allah mengambilnya. Aku syok berat. Saat Apih dimakamkan, aku turun ke liang lahat dan memeluk jasadnya. Aku tak mau beranjak meski makam akan ditutup. Aku tak mau melepas kepergiannya. Aku menyesali perbuatanku. Selama Apih masih hidup, aku tak pernah mau mendengarkan ucapannya.
Sejak itu, Umi membesarkan kami berlima. Hidupku terus berjalan. Bukan ke arah yang baik, namun aku kembali ke masa seperti dulu. Penyesalan yang sebelumnya begitu menghantuiku karena ditinggal Apih, seolah lenyap. Kebandelanku bahkan makin menjadi sepeninggal Apih. Kesombonganku juga lebih besar dari sebelumnya karena merasa berprestasi dan punya uang banyak. Tak seorang pun kudengarkan lagi nasihatnya.
Ketika temanku menasihati, aku mencibir. Siapa dia sampai aku harus mendengarkan ucapannya? Ucapan orang tua saja tak kugubris. Aku tenggelam dalam duniaku sendiri dan jadi pecandu narkoba. Waktu itu, aku beralasan karena ada masalah di rumah. Padahal, sebetulnya alasan apa pun, termasuk broken home atau teman, tidak bisa dijadikan alasan. Diri sendirilah alasannya, karena bagaimana pun, kita lah yang menentukan semua yang terjadi pada diri kita.
Jadi, tidak perlu membawa-bawa orang lain atau keadaan. Namun, kesadaran seperti ini mana mungkin muncul pada diriku yang waktu itu sangat arogan? Aku makin jauh dari Tuhan. Padahal, sebelah rumahku ada masjid. Ketika orang berpuasa di bulan Ramadan pun, aku tetap melakukan kemaksiatan. Lalu, saat Lebaran tiba dan orang-orang sibuk bertakbir, aku malah sibuk mencari celah waktu dan tempat di mana aku bisa berbuat maksiat.
Semua ilmu agama yang pernah kupelajari dan kemampuan membaca Quran seperti hilang. Akal sehatku seperti hilang. Kecanduanku pada narkoba juga makin parah, bahkan sampai mengalami over dosis dan aku hampir mati. Kejahatan demi kejahatan moral terus kulakukan.
NAMA DICORET
Tak perlu aku menceritakan detail tentang kejahatan yang kulakukan. Yang jelas, suatu hari aku merasa menderita karena ketakutan setelah melakukan sebuah perbuatan. Aku benar-benar ketakutan! Aku jadi gampang curiga pada siapa saja. Aku selalu berburuk sangka pada apa pun. Kesombonganku pada uang dan prestasi lenyap digantikan ketakutan. Yang kulakukan setiap hari adalah berdiam diri di kamar, dengan selalu berpikiran bahwa setiap orang yang datang akan membunuhku. Aku sibuk mengintip dari bawah pintu, siapa tahu ada orang datang untuk membunuhku.
Telingaku jadi sangat sensitif. Aku sering merasa mendengar ada orang sedang berjalan di atap rumah ingin membunuhku. Aku tersiksa selama berhari-hari, berminggu-minggu, bahkan berbulan-bulan. Orang-orang mengatakan, aku sudah gila.
Pada saat bersamaan, kecanduanku pada narkoba membuatku termasuk dalam daftar hitam dunia sinetron. Namaku dicoret. Tak ada lagi yang mau memakaiku sebagai pemain. Selain itu, cewek-cewek yang ada di dekatku juga menjauh. Dulu aku termasuk playboy.
Di saat aku sendiri, ada Umi yang selama ini sudah sangat sering kusakiti hatinya. Umi tetap menyayangiku dengan cintanya yang besar. Seburuk apa pun orang berkomentar tentang aku, hati Umi tetap baik dan sabar. Air matanya tak pernah kering untuk mendoakan anak-anaknya, terutama aku agar berubah jadi lebih baik.
Doa tulus Umi dikabulkan Allah. Sungguh luar biasa, Allah menunjukkan kebaikan-Nya padaku. Allah memberiku kesempatan untuk bertobat. Kesadaran ini muncul lewat suatu proses yang begitu mencekamku.
DIAJAK UMI UMRAH
Sungguh, aku merasa sangat ketakutan ketika suatu hari bermimpi melihat jasadku sendiri dalam kain kafan. Antara sadar dan tidak, aku terpana sambil bertanya pada diri sendiri. Benarkah itu jasadku? Aku juga disiksa habis-habisan. Begitulah, setiap tidur aku selalu bermimpi kejadian yang menyeramkan. Dalam tidur, yang kudapat hanya penderitaan. Aku jadi takut tidur. Aku takut mimpi-mimpi itu datang lagi.
Aku juga jadi takut mati. Padahal dulu aku sempat menantang maut. Meminta mati datang karena aku tak sanggup lagi bertahan saat ada masalah dengan seorang cewek. Sebetulnya sepele, kan? Tapi masalah itu kuberat-beratkan sendiri. Rasa takut mati itulah yang akhirnya membuatku sadar bahwa ada yang tidak meninggalkanku dalam keadaan seperti ini, yaitu Allah.
Aku teringat kembali pada-Nya dan menyesali semua perbuatanku selama ini. Pelan-pelan, keadaanku membaik. Kesadaran-kesadaran itu datang kembali. Aku menemui Umi, bersimpuh meminta maaf atas semua dosa yang kulakukan. Umi memang luar biasa. Betapa pun sudah kukecewakan demikian rupa, beliau tetap menyayangi dan memaafkanku. Umi lalu mengajakku berumrah.
Dengan kondisiku yang masih labil dan rapuh, kami berangkat ke Tanah Suci. Kali ini aku berniat sembuh dan kembali ke jalan Allah. Di sana, aku mengalami beberapa peristiwa yang membuatku sadar pada dosa-dosaku sebelumnya. Usai salat Jumat di Madinah, Umi mengajakku ke Raudhoh. Aku tak tahu apa itu Raudhoh, tapi kuikuti saja. Umi terus meminta ampunan pada Allah.
Aku lalu keluar, berjalan menuju makam Nabi Muhammad. Aku bersalawat. Begitu keluar dari pintu masjid, rasanya seperti ada yang menarikku. Aku mencoba berjalan sekuat tenaga, tapi tak bisa. Kekuatan itu rasanya sangat besar. Aku lalu bersandar pada tembok. Air mataku yang dulu tak pernah keluar, kini mengalir deras. Aku menyesali dosa-dosaku, dan berjanji tak akan melakukan lagi semua itu.
Bagai sebuah film yang sedang diputar, semua dosa yang pernah kulakukan terbayang jelas di pelupuk mataku silih berganti, mulai dari yang kecil sampai yang besar. Tiba-tiba dari mulutku keluar kalimat permintaan ampunan pada Allah. Di Mekkah, di hadapan Kabah, aku merapatkan badan pada dindingnya.
Aku bersandar, menengadahkan tangan memohon ampun karena terlalu banyak dosa yang kulakukan. Seandainya sepulang dari Tanah Suci ini melakukan dosa lagi, aku minta pada Allah untuk mencabut saja nyawaku. Namun, seandainya punya manfaat untuk orang lain, aku minta disembuhkan. Aku yang dulu angkuh, sekarang tak berdaya. Setelah pulang beribadah, aku membaik. Aku mencoba bertahan dalam kondisi bertobat itu, tapi ternyata sulit luar biasa.
*****
BIDADARI CANTIK JADI PEMBANGKIT HIDUP
Setelah berkali-kali jatuh-bangun, akhirnya Jeffry kembali dekat pada agama. Kasih sayang kekasih yang akhirnya menjadi istri ikut menjadi pembangkit semangatnya. Perjuangannya menjadi ustaz cukup berat sampai akhirnya ia sukses jadi penceramah. Sepulang umrah, aku mencoba hidup lurus. Namun, lagi-lagi aku tergoda. Suatu malam, aku dan teman-teman berencana nonton jazz di Ancol. Aku memperingatkan mereka untuk tidak bawa narkoba, karena
kami sudah sepakat untuk berhenti memakai. Ternyata, salah satu temanku masih saja membawa cimeng. Apesnya, kami dirazia polisi di depan Hailai.
Teman-temanku yang lain kabur. Tinggallah aku, temanku yang membawa cimeng, dan satu teman lain. Aku sulit kabur karena mobil yang kami pakai adalah mobilku. Akhirnya kami bertiga dibawa ke kantor polisi dan ditahan. Aku dilepas karena tak terbukti membawa. Kucoba telepon Umi untuk menjelaskan masalah ini, tapi Umi tak mau menerima teleponku.
Si penerima telepon malah diminta Umi untuk mengatakan, beliau tak anak bernama Jeffry. Hatiku tercabik-cabik. Pedih rasanya tak diakui sebagai anak oleh Umi. Kuakui, pastilah hati Umi sudah sedemikian sakitnya. Bayangkan, aku yang sebelumnya sudah mengaku bertobat, malah kembali memilih jalan yang salah. Meski aku sudah bersumpah demi Tuhan tidak memakai narkoba lagi, Umi tak percaya lagi. Itulah puncak kemarahan Umi Sungguh bersyukur, Allah masih berkenan menolongku. Datang seorang gadis cantik dalam hidupku. Ia mau menerimaku apa adanya. Sebelumnya, banyak gadis meninggalkanku sehingga aku merasa sebatang kara dalam cinta. Gadis bernama Pipik Dian Irawati ini seorang model sampul sebuah majalah remaja tahun 1995, asal Semarang.
CUEK SAAT PACARAN
(Berikut ini adalah penuturan Pipik: Aku pertama kali melihatnya sedang makan nasi goreng di Menteng sekitar tahun 1996 – 1997. Rambutnya gondrong. Waktu itu, aku bersama Gugun Gondrong. Setahuku, Jeffry adalah pemain sinetron Kerinduan, karena aku mengikuti ceritanya. Aku ingin berkenalan dengannya, tapi Gugun melarangku.
Tak tahunya, waktu buka puasa bersama di rumah Pontjo Sutowo, aku bertemu lagi dengannya. Rambutnya sudah dipotong pendek. Aku nekat berkenalan. Kami mulai dekat dan saling menelepon. Aku enggak tahu kapan kami resmi pacaran, karena enggak pernah “jadian”. Dia juga tak pernah menyatakan cinta. Waktu pacaran, dia cuek setengah mati.
Awalnya, semangatnya boleh juga. Pertama kami pergi bareng, dia datang ke rumah di Kebon Jeruk, di tengah hujan deras dari rumahnya di Mangga Dua. Jeffry naik taksi dengan memakai jins dan sepatu bot. Ia yang hanya bawa uang Rp 50 ribu, mengajakku nonton di Mal Taman Anggrek. Di dalam bioskop, kami seperti nonton sendiri-sendiri. Dia diam saja selama nonton.
Sejak itu, kami sering jalan bareng, karena kami memang hobi nonton dan makan. Semakin dekat dengannya, aku makin tahu ternyata dia pemakai narkoba kelas berat. Teman-temanku mulai bertanya, mengapa aku mau berpacaran dengannya. Aku sendiri tak tahu persis alasannya. Mungkin rasa sayang yang sudah terlanjur muncul dalam hati yang membuatku mau bertahan. Hatiku terenyuh dan tak mau meninggalkan dia sendiri.
Tentu saja keluargaku tak ada yang tahu, karena sengaja kusembunyikan. Mungkin mereka baru tahu sekarang, setelah membaca kisah hidupnya di berbagai media. Sementara itu, aku sibuk tur keluar kota sebagai model, sehingga kami sering tak ketemu. Akhirnya kami putus. Waktu akhirnya ketemu lagi, ternyata dia sudah punya pacar lagi. Karena masih sayang, aku sering membawakannya hadiah dan memberi perhatian. Setelah Jeffry putus dari pacarnya, kami kembali bersatu.)
JUALAN KUE
Pipik sangat berarti buatku. Dia mengerti, peduli dan perhatian padaku. Padahal, aku sempat hampir menikah dengan orang lain. Ternyata Allah sayang padaku. Allah menunjukkan, wanita yang nyaris kunikahi itu bukan untukku. Pipik bagai bidadari yang datang dengan cinta yang besar. Ia memberi keyakinan, menikah dengannya akan membawa perubahan besar dalam hidupku.
Aku mendatangi Umi dan minta izin untuk menikah. Luar biasa, Umi tetap menerimaku dengan segala kasih sayangnya. Sambil menangis, Umi mengizinkanku menikah. Aku sendiri terbilang nekat. Sebab, waktu itu aku tak punya-apa. Badan pun kurus kering, dengan mata belok, dan penyakit paranoid yang kuderita tak kunjung sembuh. Bahkan, pekerjaan pun aku tak punya.
Untuk menghindari maksiat, kami menikah di bawah tangan pada tahun 1999. Teman-temanku yang sekarang sudah meninggal karena over dosis, sempat menghadiri pernikahanku. Setelah itu, kami tinggal di rumah Umi. Sekitar 4 – 5 bulan setelah itu, kami menikah secara resmi di Semarang.
Namun, menikah rupanya tak cukup menghentikan kebandelanku. Istriku pun merasakan getahnya. Aku pernah memakai narkoba di depannya, dan menggunakan uangnya untuk membeli barang haram tersebut.
Kesulitan lain, aku dan Pipik sama-sama menganggur. Pernah kami mencoba berdagang kue. Malam hari kami menggoreng kacang, esok paginya bikin kue isi kacang dan susu. Lalu kami titipkan ke toko kue.
Tapi mungkin rezeki kami bukan di situ. Kue yang kami buat hanya laku beberapa buah. Dalam sehari kami hanya membawa pulang Rp 200 – 300. Akhirnya kami berhenti berjualan kue. Kehidupan kami selanjutnya kami jalani dengan penuh perjuangan sekaligus kesabaran.
MAKAN SEPIRING BERDUA
(Kesetiaan Pipik begitu luar biasa. Simak penuturannya berikut ini. Perasaan sayang yang sangat kuat membuatku mantap menikah dengannya. Aku tak peduli lagi meski dia pecandu, bahkan pernah mengalami over dosis dan hampir gila karena paranoidnya. Aku banyak mengalami hal-hal luar biasa dengannya. Kalau tidak sabar, mungkin aku sudah tidak bersamanya lagi.
Awal menikah, kami tinggal di rumah Umi. Meski hidup seadanya, beliaulah yang membiayai hidup kami. Aku dan Jeffry tak jarang makan sepiring berdua, karena memang benar-benar tak ada yang bisa dimakan. Berat rasanya jadi istri dari suami penganggur, apalagi setelah menikah aku tidak lagi bekerja.
Tapi aku yakin, Allah tidak mungkin memberikan cobaan pada umat-Nya melebihi kemampuannya. Aku yakin, pasti ada sesuatu yang akan diberikan Allah padaku. Beruntung, Umi sangat sayang padaku.
Aku sendiri tak jera memberi masukan padanya untuk mengubah hidup. Kami sama-sama saling belajar menerima kelebihan dan kekurangan satu sama lain. Pelan-pelan, hidupnya mulai berubah menjadi lebih baik, terutama setelah aku hamil. Mungkin dia sendiri sudah capek dengan kehidupannya yang seperti itu.)
HIDUP DI JALAN ALLAH
Pelan-pelan, aku kembali dekat pada agama. Perubahan besar terjadi dalam hidupku pada tahun 2000. Kala itu, Fathul Hayat, kakak keduaku yang setengah tahun silam meninggal karena kanker otak, memintaku menggantikannya memberi khotbah Jumat di Mangga Dua. Pada waktu bersamaan, dia diminta menjadi imam besar di Singapura.
Fathul memang seorang pendakwah. Selama dia di Singapura, semua jadwal ceramahnya diberikan padaku. Pertama kali ceramah, aku mendapat honor Rp 35 ribu. Uang dalam amplop itu kuserahkan pada Pipik. Kukatakan padanya, ini uang halal pertama yang bisa kuberikan padanya. Kami berpelukan sambil bertangisan.
Selanjutnya, kakakku memintaku untuk mulai menjadi ustaz. Inilah jalan hidup yang kemudian kupilih. Betapa indah hidup di jalan Allah. Aku mulai berceramah dan diundang ke acara seminar narkoba di berbagai tempat. Namun, perjuanganku tak semudah membalik telapak tangan. Tak semua orang mau mendengarkan ceramahku karena aku mantan pemakai narkoba. Tapi aku mencoba sabar.
Alhamdulillah, makin lama ceramahku makin bisa diterima banyak orang. Bahkan sekarang, aku banyak diundang untuk ceramah di mana-mana, termasuk di luar kota dan stasiun teve. Aku bersyukur bisa diterima semua kalangan. Aku pun ingin berdakwah untuk siapa saja. Aku ingin punya majelis taklim yang jemaahnya waria. Mereka, kan, juga punya hak untuk mendapatkan dakwah.
Kebahagiaan kami bertambah ketika tahun 2000 itu, lahir anak pertama kami, Adiba Kanza Az-Zahra. Dua tahun kemudian, anak kedua Mohammad Abidzan Algifari juga hadir di tengah kami. Mereka, juga istriku, adalah inspirasi dan kekuatan dakwahku. Kehidupan kami makin lengkap rasanya.
Sampai sekarang, aku masih terus berproses berusaha menjadi orang yang lebih baik. Semoga, kisahku ini bisa jadi bahan pertimbangan yang baik untuk menjalani hidup. Pesanku, cintailah Tuhan dan orangtuamu, serta pilihlah teman yang baik.