Manipulasi Citra Lanjutan

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 = "JPG|*.jpg|BMP|*.bmp"
        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 BrightnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrightnessToolStripMenuItem.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 Btnred_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhijauk.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double

        Dim gambar2 = New Bitmap(Pic2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G + 10
                vB = gambar2.GetPixel(Pc, Pb).B
                If vH >= 255 Then vH = 255
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Pic2.Image = Pic1.Image
    End Sub

    Private Sub Btnhijau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhijau.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double

        Dim gambar2 = New Bitmap(Pic2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G - 10
                vB = gambar2.GetPixel(Pc, Pb).B
                If vH <= 0 Then vH = 0
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next
    End Sub

    Private Sub ContrasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContrasToolStripMenuItem.Click

        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, 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()
                    Pic1.Refresh()
                End If
            Next
        End With
    End Sub

    Private Sub SmoothingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmoothingToolStripMenuItem.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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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).B) * 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

Read more »

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

www.mesran.blogspot.com/2013/06/contoh-kasus-pemrograman-pemakaiann-listrik.html

berikut jawaban program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
    End Sub
    Sub BuatTabel()
        LV.Columns.Add("ID PELANGGAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        LV.Columns.Add("ALAMAT", 80, HorizontalAlignment.Center)
        LV.Columns.Add("TARIF VA", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

        BLN.Items.Add("JANUARI")
        BLN.Items.Add("FEBRUARI")
        BLN.Items.Add("MARET")
        BLN.Items.Add("APRIL")
        BLN.Items.Add("MEI")
        BLN.Items.Add("JUNI")
        BLN.Items.Add("JULI")
        BLN.Items.Add("AGUSTUS")
        BLN.Items.Add("SEPTEMBER")
        BLN.Items.Add("OKTOBER")
        BLN.Items.Add("NOVEMBER")
        BLN.Items.Add("DESEMBER")

        THN.Items.Add("2010")
        THN.Items.Add("2011")
        THN.Items.Add("2012")
        THN.Items.Add("2013")
        THN.Items.Add("2014")

    End Sub



    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = ID.Text
        lst.SubItems.Add(NAMA.Text)
        lst.SubItems.Add(ALAMAT.Text)
        lst.SubItems.Add(TARIF.Text)
        LV.Items.Add(lst)
    End Sub
    Private Sub BTNSIMPANKELISTVIEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPANKELISTVIEW.Click
        IsiTabel()
        ID.Text = " "
        NAMA.Text = " "
        ALAMAT.Text = " "
        TARIF.Text = " "

    End Sub

    Private Sub BTNCARI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCARI.Click
        Dim x As String
        THN.Text = "2010"
        Microsoft.VisualBasic.Left(ID.Text, 2)
        x = Microsoft.VisualBasic.Mid(ID.Text, 3, 1)
        If x = "1" Then
            NAMA.Text = " puji lestari "
        ElseIf x = "3" Then
            NAMA.Text = " friska pratiwi "
        ElseIf x = " 4 " Then
            NAMA.Text = " suvita sari "

        End If
        x = Microsoft.VisualBasic.Mid(ID.Text, 4, 2)
        If x = "10" Then
            ALAMAT.Text = " perbaungan "
        ElseIf x = "11" Then
            ALAMAT.Text = " pakam "
        ElseIf x = " 12 " Then
            ALAMAT.Text = " medan "

        End If
        If x = "2010" Then
            TARIF.Text = " 20000 "
        ElseIf x = "2011" Then
            TARIF.Text = " 25000 "
        ElseIf x = " 2012 " Then
            TARIF.Text = " 30000 "
        End If
    End Sub
  
End Class

http://mesran.net/

Read more »

Cara Diet Cepat | Menurunkan Berat Badan | Cara Diet Alami

Cara Diet Cepat | Menurunkan Berat Badan | Cara Diet Alami - Kita brtemu lagi di info terkini yang selalu berbagi informasi dan solusi untuk anda, nah sekarang kita akan membahas masalah kelebihan berat badan yang pastinya mengganggu anda. Ingin cara menurunkan berat badan dengan cepat, aman dan alami? Ikuti langkah – langkah berikut ini.

Pada artikel ini kita akan membahas tips2 untuk langsing cepat, program diet yang bisa anda lakukan untuk mengurangi berat badan anda yang tinggi :

Menjadi kurus dan langsing merupakan impian banyak orang, terutama wanita. Tubuh yang kurus dan langsing memang sering dianggap sebagai patokan ideal apabila ingin disebut cantik ataupun seksi.

Meskipun banyak yang mengatakan bahwa kecantikan itu relatif dan tidak hanya dipandang dari ukuran tubuh saja, namun pada kenyataannya hal ini tidak selalu benar. Dapat dilihat setiap hari ada semakin banyak wanita yang berlomba-lomba untuk cepat menurunkan berat badan dan membuat tubuh mereka tampak seperti model-model di televisi.
Progam diet yang bisa anda lakukan

anda hanya saya anjurkan untuk mengikuti beberapa tips dari saya, tips ini sangatlah efektif untuk menurunkan berat badan anda dengan drastis dan tidak sulit :
riset dokter anda dianjurkan dulu untuk :
1. Meminum 8 gelas air putih setiap harinya, atau setara dengan 2 liter air putih / hari. Jangan mengkonsumsi air dingin apalagi air es.

program diet2. Jika Anda mengkonsumsi nasi (karbohidrat), jangan dicampur dengan ikan atau daging (protein). Lebih baik Anda memakan sayuran sebagai lauknya.

3. Jangan makan setelah pukul 19.00 atau 3 jam sebelum Anda tidur.

4. Jangan mengkonsumsi makanan kalengan. Lebih banyak perbanyak konsumsi sayur dan buah-buahan.

5. Selalu siapkan buah – buahan segar di rumah. Untuk makan pagi atau sarapan, lebih baik Anda mengkonsumsi oatmeal atau buah-buahan alami.

6. Sayuran yang paling ideal untuk dikonsumsi pada program diet adalah sawi putih dan brokoli.


Selain mengkonsumsi seperti di atas anda juga di anjurkan untuk :

1. Berolahraga

Olahraga menjadi hal yang sangat dianjurkan bagi mereka yang menginginkan cara cepat menurunkan berat badan. Olahraga merupakan hal yang sangat penting untuk membakar kalori dalam tubuh dan membuat tubuh menjadi lebih sehat. Anda tidak harus melakukan berbagai macam olahraga berat, cukup dengan olahraga ringan seperti jogging setiap pagi selama 15 menit saja. Jika dilakukan secara teratur, Anda pun akan merasakan manfaatnya.

Dalam berolahraga, sebaiknya tidak di forsir atau memaksakan diri. Yang penting disini adalah konsistensi atau kebiasaan untuk berolahraga. Karena itu, mulailah dengan perlahan, kemudian jadwalkan waktu tertentu setiap minggunya untuk berolahraga. Cara ini dapat memberikan hasil yang lebih optimal agar anda dapat tetap langsing lebih lama. Tentunya anda tidak mau kembali menjadi gendut lagi setelah berhasil menjadi langsing bukan?

2. Hindari Terlalu Banyak Duduk

Jika Anda melakukan pekerjaan yang mengharuskan Anda duduk diam dalam waktu yang panjang, berilah jeda atau istirahat setiap satu jam sekali. Lakukan gerakan untuk meregangkan otot atau stretching  agar badan tidak terasa kaku. Selain itu bergerak lebih aktif layaknya anak kecil juga akan membuat berat badan Anda lebih cepat berkurang.

3.Minum vitamin

Meminum multivitamin sehari-hari dapat membuat rasa lapar berkurang. Setidaknya hal itu dibuktikan dalam dua studi yang telah dimuat dalam British Journal of Nutrition. Disebutkan, orang yang rutin meminum multivitamin cenderung memiliki berat badan yang lebih rendah daripada yang tidak meminumnya. Maka itu, coba cari suplemen multivitamin yang mengandung kromium, tembaga, asam folat, yodium, mangan, molibdenum, niasin, asam pantotenat, riboflavin, thiamin, vitamin B6 dan B12, dan seng

4.Bernapas dan kalahkan nafsu

Ketika sedang stres, kita cenderung mencari cara cepat yang juga akan menambah kalori. “Lakukanlah latihan pernapasan seperti pada yoga ini. Ketika merasa rileks, Anda tidak akan merasakan kelaparan,” kata Ralph LaForge, seorang ahli fisiologi dari Duke University Medical Center. “Orang biasanya akan membuat pilihan makanan yang lebih baik ketika sedang santai.”

5.Makan Sedikit Tapi Teratur

Anda sangat dianjurkan untuk makan secara teratur, bahkan sering – sering makan, tetapi dalam jumlah atau porsi makanan makan buahyang lebih sedikit. Hal ini berguna untuk membantu metabolisme pencernaan dalam tubuh. Dalam suatu program diet, hindari untuk sama sekali tidak makan. Hal ini akan membawa dampak yang negatif bagi tubuh, selain itu tidak makan sama sekali malah terkadang akan membuat seseorang lebih gemuk dalam prosesnya (karena metabolisme yang terganggu).

Hindarilah lemak, karbohidrat, serta gula dalam proses makan sehari-hari. Perbanyak makan protein serta sayur-sayuran sangat dianjurkan, karena makanan tersebut akan sangat baik jika dikonsumsi setiap hari dan tidak akan menimbulkan kegemukan. Makanan lainnya yang bagus dikonsumsi jika ingin cepat menurunkan berat badan adalah ikan sarden, buah anggur, buah labu dan daging sapi.

Read more »

Pengenalan Perangkat Lunak Komputer

4.1  Pengertian Perangkat Lunak (Software)
Merupakan suatu program yang dibuat oleh pembuat program untuk menjalankan perangkat keras computer. Perangkat Lunak adalah program yang berisi kumpulan instruksi untuk melakukan proses pengolahan data. Software sebagai penghubung antara manusia sebagai pengguna dengan perangkat keras computer,berfungsi menerjemahkan bahasa manusia ke dalam bahasa mesin sehingga perangkat keras computer memahami keinginan pengguna dan menjalankan instruksi yang diberikan dan selanjutnya memberikan hasil yang diinginkan oleh manusia tersebut.

4.2  Fungsi Perangkat Lunak Komputer
1. mengatur Input atau output dari computer.
2. Menyediakan dan Mengatur serta memerintah Hardware agar dapat      berjalan denagan baik.
3. Menjalankan Perintah tertentu pada sebuah system.
4.3 Macam-macam Perangkat Lunak
1. Sistem Operasi(Operating System).
Merupakan perangkat lunak yang mengoprasikan komputer dan menyediakan antar muka dengan perangkat lunak yang lain atau juga dengan user. Beberapa contohnya adalah Ms. DOS, Ms. Windows, Linux.
Sistem operasi adalah perangkat lunak sistem yang bertugas untuk melakukan kontrol dan manajemen perangkat keras serta operasi-operasi dasar sistem, termasuk menjalankan software aplikasi seperti program-program pengolah kata dan Web browser.
Software ini mempunyai tugas dan fungsi, yaitu :
Secara lebih detail, fungsi-fungsi dari OS meliputi:
a. Pengaturan Processor, yaitu mengatur processor untuk dapat dijalankan oleh sistem komputer.
b. Pengaturan Memori, yaitu mengatur pembagian dan mengirimkan instruksi dari memori utama dan tempat penyimpanan lain ke sistem komputer.
c. Pengaturan Input/Output, yaitu koordinasi dan penugasan dari berbagai perangkat input/output ketika satu atau lebih program sedang dieksekusi atau dijalankan.
d. Pengaturan File, yaitu mengatur penyimpanan file dari berbagai tempat ke perangkat penyimpanan lainnya. Juga memungkinkan semua file dapat dengan mudah diubah dan dimodifikasi dengan menggunakan text editor atau dengan lainnya.
e. Menjalankan sistem prioritas, yaitu menentukan urutan pekerjaan yang harus dilaksanakan dalam sistem komputer, mulai dari yang paling utama, lalu yang kedua, dan seterusnya.
f. Interpretasi atau penerjemahan perintah-perintah dan instruksi-instruksi.
g. Sebagai fasilitas komunikasi yang mudah antara sistem komputer dan komputer operator (manusia).
i. Bertanggung jawab atas keamanan data dan integritas.
2. Program Aplikasi(Application Programs).
Merupakan program yang dikembangkan untuk memenuhi kebutuhan yang spesifik. Beberapa contohnya adalah Aplikasi perbangkan, Aplikasi perkantoran.
Program Aplikasi adalah suatu subkelas perangkat lunak komputer yang memanfaatkan kemampuan komputer langsung untuk melakukan suatu tugas yang diinginkan pengguna. Biasanya dibandingkan dengan perangkat lunak sistem yang mengintegrasikan berbagai kemampuan komputer, tapi tidak secara langsung menerapkan kemampuan tersebut untuk mengerjakan suatu tugas yang menguntungkan pengguna dan perangkat lunak yang siap digunakan untuk keperluan tertentu.
Program Aplikasi ini terdiri dari beberapa macam paket program, antara lain :

1. Program Pengolah Kata
2. Program Pengolah Angka (Spread Sheet)
3. Program presentasi/Animasi.

3. BahasaPemrograman(Programming Language),
Merupakan perangkat lunak yang digunakan untuk membuat dan mengembangkan perangkat lunak yang lain. Bebrapa contohnya adalah Bahasa C++, Pascal, Visual Basic, Delphi, Java, PHP.
Program merupakan sebuah instruksi yang digunakan untuk mengendalikan komputer. Deretan program dibuat dengan menggunakan bahasa pemrograman (language programming), yaitu sebuah software yang berfungsi untuk menerjemahkan bahasa yang ditulis dalam bahasa pemrograman ke dalam bahasa mesin sehingga dapat dimengerti oleh komputer. Jadi, bahasa program melaksanakan suatu tugas aturan-aturan gramatik untuk memberikan perintah kepada komputer untuk kosa kata yang disebut kumpulan aturan syntax. Contoh: BASIC, pascal, bahasa C, bahasa C++, java, dan ActiveX., Visual basic (VB )
Ada 3 level bahasa pemrograman, yaitu :
1. Bahasa tingkat rendah (low level language)
Bahasa ini disebut juga bahasa mesin (assembler), dimana pengkodean bahasanya menggunakan kode angka 0 dan 1.
2. Bahasa tingkat tinggi (high level language)
Bahasa ini termasuk dalam bahasa pemrograman yang mudah dipelajari oleh pengguna komputer karena menggunakan bahasa Inggris. Contohnya : BASIC, COBOL, PASCAL.
3. Bahasa generasi keempat (4 GL)
Bahasa pemrograman 4 GL (Fourth Generation Language) merupakan bahasa yang berorientasi pada objek yang disebut Object Oriented Programming (OOP). Contoh software ini adalah : Visual Basic, Delphi, Visual C++.
4. Program Utilitas (Sistem Utility).
Software Utility yaitu software yang melakukan tugas-tugas khusus yang berkaitan dengan penanganan kinerja komputer, perangkat input, dan outputnya, serta program lain dalam sebuah komputer. Fungsi yang dilakukan oleh program utility ini antara lain, melihat file (file viewer), men-scan (memeriksa) disk dan merawat sistem, meng-kompress (memadatkan) file, serta mendeteksi dan menghilangkan virus
Contoh software ini diantaranya :

1. Norton Utility.
2. Winzip.
3. Norton Ghost.
4. Antivirus.

4.4 Pengertian Installasi dan Uninstall Aplikasi.
1. Pengertian Installasi.
Merupakan penambahan sebuah program Aplikasi di directory computer dengan proses dan persyaratan tertentu.
2. Pengertian Uninstall.
Merupakan cara untuk menghapus sebuah program aplikasi yang sudah ada atau sudah terinstall sebelumnya dalam sebuah directory computer.

Read more »

Pengenalan Perangkat Lunak

Perangkat lunak ( software) adalah program yang berisi kumpulan instruksi untuk melakukan proses pengolahan data. Software sebagai penghubung antara manusia sebagai pengguna dengan perangkat keras komputer, berfungsi menerjemahkan bahasa manusia ke dalam bahasa mesin sehingga perangkat keras komputer memahami keinginan pengguna dan menjalankan instruksi yang diberikan dan selanjutnya memberikan hasil yang diinginkan oleh manusia tersebut.
Fungsi Perangkat Lunak
1.    Mengidentifikasi program
2.    Menyiapkan aplikasi program sehingga tata kerja seluruh perangkat komputer terkontrol.
3.    Mengatur dan membuat pekerjaan lebih efisien.
4.    Mengatur input dan output dari komputer.
5.    Menyediakan dan mengatur serta memerintah hardware agar dapat berjalan dengan baik.
6.    Menjalankan perintah tertentu pada sebuah sistem komputer.
7.    Mengatur dan membuat pekerjaan lebih efisien dan maksimal.
Macam- Macam Perangkat Lunak
A. Berdasarkan fungsinya perangkat lunak terbagi menjadi 4 macam, yaitu :
1. Sistem Operasi (Operating System)
Sistem Operasi yaitu program yang berfungsi untuk mengendalikan sistem kerja yang mendasar sehingga mengatur kerja media input, output, tabel pengkodean, memori, penjadwalan prosesor, dan lain-lain. Sistem operasi berfungsi sebagai penghubung antara manusia dengan perangkat keras dan perangkat lunak yang akan digunakan. Adapun fungsi utama sistem operasi adalah :
•    Menyimpan program dan aksesnya
•    Membagi tugas di dalam CPU
•    Mengalokasikan tugas-tugas penting
•    Merekam sumber-sumber data
•    Mengatur memori sistem termasuk penyimpanan, menghapus dan mendapatkan data
•    Memeriksa kesalahan sistem
•    Multitugas pada OS/2″, Windows ‘95″, Windows ‘98″, Windows NT”, /2000/XP
•    Memelihara keamanan sistem, khusus pada jaringan yang membutuhkan kata sandi (password) dan penggunaan ID
Contoh Sistem Operasi, misalnya : Disk operating System (DOS), Microsoft Windows, Linux, dan Unix.
2. Program Aplikasi (Aplication Programs)
Program Aplikasi adalah perangkat lunak yang dirancang khusus untuk kebutuhan tertentu, misalnya program pengolah kata, mengelola lembar kerja, program presentasi, design grafis, dan lain-lain. Atau dengan kata lain program yang di desain untuk membantu pengguna supaya dapat lebih produktif atau membantu dengan tugas- tugas khusus.
Beberapa perangkat lunak aplikasi dasar diantaranya adalah browser, pengolah kata seperti Microsoft Word, pengolah grafik, game, sistem manajemen, dll.
Ada 2 macam tipe perangkat lunak aplikasi, antara lain :
•    Customized application software, Perangkat lunak yang dapat disesuaikan dengan kebutuhan atau industri tertentu.
•    Package applicatio software, Perangkat lunak yang sudah merupakan paket dari vendor ( perusahaan) yang umumnya dijual di toko- toko untuk memenuhi kebutuhan masyarakat banyak.
3. Bahasa Pemrograman (Programming Language)
Perangkat lunak bahasa yaitu program yang digunakan untuk menerjemahkan instruksi-instruksi yang ditulis dalam bahasa pemrograman ke bahasa mesin dengan aturan atau prosedur tertentu, agar diterima oleh komputer.
Ada 3 level bahasa pemrograman, yaitu :
•    Bahasa tingkat rendah (low level language)
Bahasa ini disebut juga bahasa mesin (assembler), dimana pengkodean bahasanya menggunakan kode angka 0 dan 1.
•    Bahasa tingkat tinggi (high level language)
Bahasa ini termasuk dalam bahasa pemrograman yang mudah dipelajari oleh pengguna komputer karena menggunakan bahasa Inggris. Contohnya : BASIC, COBOL, PASCAL, FORTRAN.
•    Bahasa generasi keempat (4 GL)
Bahasa pemrograman 4 GL (Fourth Generation Language) merupakan bahasa yang berorientasi pada objek yang disebut Object Oriented Programming (OOP). Contoh software ini adalah : Visual Basic, Delphi, Visual C++
4. Program Bantu (Utility)
Perangkat Lunak merupakan perangkat lunak yang berfungsi sebagai aplikasi pembantu dalam kegiatan yang ada hubungannya dengan komputer, misalnya memformat disket, mengopi data, mengkompres file, dan lain-lain.
Contoh software ini diantaranya :
•    Norton Utility
•    Winzip
•    Norton Ghost
•    Antivirus
B. Berdasarkan cara mendapatkan dan hak pemakaian, perangkat lunak terdiri dari :
1. Perangkat lunak komersial ( Commercial software )
Perangkat lunak yang dijual secara komersial. Setiapa orang yang ingin menginstalnya harus membelinya. Jika tidak membayar berarti dianggap melakukan pembajakan perangkat lunak dan dapat dikenai sanksi hukuman karena ada hak cipta.
Hak cipta adalah suatu hak yang dilindungi hukum yang melarang seseorang untuk menyalin hak atas kekayaan intelektual tanpa izin pemegangnya.
Perangkat lunak komersial biasanya dikembangkan oleh kalangan bisnis untuk memperoleh keuntungan daru penggunanya. Contoh :
•    MYOB bersifat komersial dan diproduksi oleh MYOB Inc.
•    SAP ( System Application and Product ) bersifat komersial dan diproduksi oleh SAP Inc.
•    Microsoft Office
2. Perangkat lunak domain- publik
Perangkat lunak yang tidak disertai hak cipta dan memungkinkan siapa saja melakukan tindakan apa saja terhadap program tersebut, termasuk membuang nama pencipta aslinya dan memakai hak cipta, atau dengan kata lain adalah suatu software yang tidak dilindungi hak ciptanya atau gratus dan tidak terikat secara hukum.
Versi penuh,, source code tersedian secara bebas untuk dimodifikasi dan di distribusikan ulang dengan lisensi apapun. Contoh : Apache, MySQL.
3. Shareware
Perangkat lunak yang mengizinkan orang untuk mendistribusikan salinannya, tetapi mereka yang terus menggunakannya diminta untuk membayar biaya lisensi. Atau dengan kata lain adalah suatu software yang membatasi penggunaannya dengan mengurangi fitur- fitur tertentu atau membatasi masa penggunaannya selama jangka waktu tertentu.
Ada beberapa istilah yang sering ditemukan, antara lain :
•    Demo/Trial : Software tersebut bisa dipakai, tapi biasanya terbatas oleh jangka waktu tertentu ( Misal 90 Hari ) atau terbatas oleh fitur- fitur tertentu.
•    Beta : Software yang dalam proses pembuatan dan developingnya belum selesai, tapi sudah bisa kita gunakan. Jika sudah fix biasanya disebut dengan istilah Stable.
Contoh software shareware pada umumnya adalah program antivirus, software gratis, Internet download manager, Tune up utilities, WinRAR, dll.
4. Freeware
Perangkat lunak bebas yang mengacu pada kebebasan para penggunanya untuk menjalankan, menggandakan, menyebarluaskan, mempelajari, mengubah dan meingkatkan kinerja perangkat lunak. Perangkat lunak tersebut dibagikan secara Cuma- Cuma tanpa mewajibkan pengguna untuk membeli software tersebut serta dapat digunakan untuk jangka waktu juga dengan hak distribusi yang tak terbatas.
Suatu program merupakan freeware, apabila setiap pengguna memiliki semua dari kebebasan tersebut sehingga kita bebas untuk menyebar luaskan salinan program itu, dengan atau tanpa modifikasi ( perubahan), secara gratis ataupun dengan memungut biaya penyebarluasan, kepada siapapun dan dimanapun.
Software yang termasuk dalam freeware antara lain seperti browser Mozilla firefox, Opera, Smadav, dll.
5. Rentalware
Perangkat lunak yang dapat digunakan oleh perorangan atau institusi dengan cara menyewa. Penyewaan rentalware biasanya dalam jangka waktu per ta-hun. Teknisnya hampir sama seperti software shareware, bedanya disini yaitu jika sudah mencapai jangka waktu atau batas pemakaian tertentu, maka software tidak bisa digunakan lagi ( lock), dan pengguna harus memperpanjang kontrak sewa pemakaian software tersebut, bukan membeli passcode seperti shareware. Jadi tujuan rentalware tidak untuk diperjualbelikan.
Contoh perangkat lunak rentalware biasany adalah sejenis software yang penggunaannya hanya dalam jangka waktu tertentu dan tidak permanen, misalnya dalam menyelesaikan suatu project yang tidak permanen. Jadi apabila project yang dikerjakan telah selesai, maka perangat lunak tidak lagi digunakan dan masa penyewaannya pun habis.
6. Software Open Source
Pengertian software open source hampir sama dengan software freeware, yang membedakan adalah pada software open source pihak pembuat/ developer turut menyediakan source code atau keseluruhan bahasa pemrograman yang menciptakan software tersebut hingga berjalan. Situs paling terkenal untuk mendapatkan software- software berjenis open source tersebut dapat langsung mengunjungi http://www.sourceforge.net .

Read more »