Jun 30 2013

SISTEM INFORMASI PEMESANAN BARANG PADA PT.HARI REZEKY KITA SEMUA MEDAN

DESAIN FORM MENU

LISTING PROGRAM
Public Class Form1

    Private Sub DataBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataBarangToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub DataPemesanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPemesanToolStripMenuItem.Click
        pemesan.Show()
    End Sub

    Private Sub DataPetugasPengirimanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPetugasPengirimanToolStripMenuItem.Click
        Form4.Show()
    End Sub

    Private Sub PemesananToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PemesananToolStripMenuItem.Click
        pemesan.Show()
    End Sub

    Private Sub PengirimanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PengirimanToolStripMenuItem.Click
        pengirim.Show()
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub LaporanDataBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanDataBarangToolStripMenuItem.Click
        Form5.Show()
        Form5.MdiParent = Me
        Dim laporan As New CachedCrystalReport1
        Form5.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LaporanDataCustumerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanDataCustumerToolStripMenuItem.Click
        Form6.Show()
        Form6.MdiParent = Me
        Dim laporan As New CachedCrystalReport2
        Form6.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LaporanDataPetugasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanDataPetugasToolStripMenuItem.Click
        Form7.Show()
        Form7.MdiParent = Me
        Dim laporan As New CachedCrystalReport3
        Form7.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LaporanToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanToolStripMenuItem1.Click
        Form8.Show()
        Form8.MdiParent = Me
        Dim laporan As New CachedCrystalReport4
        Form8.CrystalReportViewer1.ReportSource = laporan
    End Sub

    Private Sub LaporanDataPemesananToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanDataPemesananToolStripMenuItem.Click
        Form9.Show()
        Form9.MdiParent = Me
        Dim laporan As New CachedCrystalReport5
        Form9.CrystalReportViewer1.ReportSource = laporan
    End Sub
End Class

Nama Tabel: Barang
FORM DATA BARANG

LISTING PROGRAM
Imports System.Data.OleDb
Public Class Form2
    Public db As OleDbConnection
    Public cmd As OleDbCommand
    Public adp As OleDbDataAdapter
    Public dr As OleDbDataReader
    Public ds As New DataSet
    Dim sql As String
    Public Sub opendb()
        Dim lokasi = “provider=microsoft.jet.oledb.4.0;data source=c:\vb2\perpustakaan1.mdb”
        db = New OleDbConnection(lokasi)
        If db.State = ConnectionState.Closed Then
            db.Open()
        End If
    End Sub
    Sub tampilbarang()
        adp = New OleDbDataAdapter(“select * from barang”, db)
        ds = New DataSet
        adp.Fill(ds, “barang”)
        DataGridView1.DataSource = ds.Tables(“barang”)
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call hapustext()
        Call tampilbarang()
    End Sub
    Sub buttonbaru()
        btnbaru.Enabled = True
        btnsimpan.Enabled = False
        btnedit.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = False
        btnkeluar.Enabled = True
    End Sub
    Sub buttonedit()
        btnbaru.Enabled = False
        btnsimpan.Enabled = False
        btnedit.Enabled = True
        btnhapus.Enabled = True
        btnbatal.Enabled = True
        Btnkeluar.Enabled = False
    End Sub
    Sub buttonsimpan()
        btnbaru.Enabled = False
        btnsimpan.Enabled = True
        btnedit.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = True
        Btnkeluar.Enabled = False
    End Sub
    Sub hapustext()
        kode_barang.Text = “”
        nabar.Text = “”
        jenis.Text = “”
        type.Text = “”
        lebar.Text = “”
        tinggi.Text = “”
        satuan.Text = “”
        harga.Text = “”
        Call buttonbaru()
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        sql = “delete from BARANG where kodebarang= ‘” & kode_barang.Text & “‘”
        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilbarang()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call hapustext()
        kode_barang.Focus()
    End Sub

    Private Sub kode_barang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode_barang.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            sql = “select * from barang where kodebarang='” & kode_barang.Text & “‘”

            cmd = New OleDbCommand(sql, db)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows = True Then
                nabar.Text = dr.Item(1)
                jenis.Text = dr.Item(2)
                type.Text = dr.Item(3)
                lebar.Text = dr.Item(4)
                tinggi.Text = dr.Item(5)
                satuan.Text = dr.Item(6)
                harga.Text = dr.Item(7)
                Call buttonedit()
                MsgBox(“Data diTemukan..!!!”)
            Else
                xkode = kode_barang.Text
                Call hapustext()
                kode_barang.Text = xkode
                Call buttonsimpan()
            End If
            nabar.Focus()
            jenis.Focus()
            type.Focus()
            lebar.Focus()
            tinggi.Focus()
            satuan.Focus()
            harga.Focus()
        End If
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call hapustext()
        kode_barang.Focus()
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        sql = “update barang set namabarang='” & nabar.Text & “‘,” & _
                                “jenis='” & jenis.Text & “‘,” & _
                                 “type='” & type.Text & “‘,” & _
                                 “lebar='” & lebar.Text & “‘,” & _
                                 “tinggi='” & tinggi.Text & “‘,” & _
                                 “satuan='” & satuan.Text & “‘,” & _
                                 “harga='” & harga.Text & “‘,” & _
                                “where kodebarang='” & kode_barang.Text & “‘”

        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilbarang()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        sql = “insert into barang (kodebarang, namabarang, jenis, type, lebar, tinggi, satuan, harga)” & _
                        “values (‘” & kode_barang.Text & “‘,'” & _
                                      nabar.Text & “‘,'” & _
                                      jenis.Text & “‘,'” & _
                                      type.Text & “‘,'” & _
                                      lebar.Text & “‘,'” & _
                                      tinggi.Text & “‘,'” & _
                                      satuan.Text & “‘,'” & _
                                      harga.Text & “‘)”

        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilbarang()
    End Sub
End Class

Nama Tabel: PEMESAN
FORM DATA PEMESAN

LISTING PROGRAM
Imports System.Data.OleDb
Public Class pemesan
    Public db As OleDbConnection
    Public cmd As OleDbCommand
    Public adp As OleDbDataAdapter
    Public dr As OleDbDataReader
    Public ds As New DataSet
    Dim sql As String
    Public Sub opendb()
        Dim lokasi = “provider=microsoft.jet.oledb.4.0;data source=c:\vb2\perpustakaan1.mdb”
        db = New OleDbConnection(lokasi)
        If db.State = ConnectionState.Closed Then
            db.Open()
        End If
    End Sub
    Sub tampilpemesan()
        adp = New OleDbDataAdapter(“select * from pemesan”, db)
        ds = New DataSet
        adp.Fill(ds, “pemesan”)
        DataGridView1.DataSource = ds.Tables(“pemesan”)
    End Sub

    Private Sub pemesan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call hapustext()
        Call tampilpemesan()
    End Sub
    Sub buttonbaru()
        btnbaru.Enabled = True
        btnsimpan.Enabled = False
        btnedit.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = False
        btnkeluar.Enabled = True
    End Sub
    Sub buttonedit()
        btnbaru.Enabled = False
        btnsimpan.Enabled = False
        btnedit.Enabled = True
        btnhapus.Enabled = True
        btnbatal.Enabled = True
        Btnkeluar.Enabled = False
    End Sub
    Sub buttonsimpan()
        btnbaru.Enabled = False
        btnsimpan.Enabled = True
        btnedit.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = True
        Btnkeluar.Enabled = False
    End Sub
    Sub hapustext()
        no_pesan.Text = “”
        kode_p.Text = “”
        nama_p.Text = “”
        alamat.Text = “”
        kode_barang.Text = “”
        nama_b.Text = “”
        jenis.Text = “”
        type.Text = “”
        lebar.Text = “”
        tinggi.Text = “”
        satuan.Text = “”
        harga.Text = “”
        tanggal.Text = “”
        tgl_selesai.Text = “”
        pembayaran_awal.Text = “”
        sisa_bayar.Text = “”
        Call buttonbaru()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        sql = “delete from pemesan where no pesan= ‘” & no_pesan.Text & “‘”
        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilpemesan()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call hapustext()
        no_pesan.Focus()
    End Sub

    Private Sub no_pesan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_pesan.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            sql = “select * from pemesan where nopesan='” & no_pesan.Text & “‘”

            cmd = New OleDbCommand(sql, db)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows = True Then
                kode_p.Text = dr.Item(1)
                nama_p.Text = dr.Item(2)
                alamat.Text = dr.Item(3)
                kode_barang.Text = dr.Item(4)
                nama_b.Text = dr.Item(5)
                jenis.Text = dr.Item(6)
                type.Text = dr.Item(7)
                lebar.Text = dr.Item(8)
                tinggi.Text = dr.Item(9)
                satuan.Text = dr.Item(10)
                harga.Text = dr.Item(11)
                tanggal.Text = dr.Item(12)
                tgl_selesai.Text = dr.Item(13)
                pembayaran_awal.Text = dr.Item(14)
                sisa_bayar.Text = dr.Item(15)

                Call buttonedit()
                MsgBox(“Data diTemukan..!!!”)
            Else
                xkode = no_pesan.Text
                Call hapustext()
                no_pesan.Text = xkode
                Call buttonsimpan()
            End If
            kode_p.Focus()
            nama_p.Focus()
            alamat.Focus()
            kode_barang.Focus()
            nama_b.Focus()
            jenis.Focus()
            type.Focus()
            lebar.Focus()
            tinggi.Focus()
            satuan.Focus()
            harga.Focus()
            tanggal.Focus()
            tgl_selesai.Focus()
            pembayaran_awal.Focus()
            sisa_bayar.Focus()
        End If
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call hapustext()
        no_pesan.Focus()
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        sql = “update pemesan set kode pemesan='” & kode_p.Text & “‘,” & _
                                “nama='” & nama_p.Text & “‘,” & _
                                 “alamat='” & alamat.Text & “‘,” & _
                                 “kodebarang='” & kode_barang.Text & “‘,” & _
                                 “namabarang='” & nama_b.Text & “‘,” & _
                                 “jenis='” & jenis.Text & “‘,” & _
                                 “type='” & type.Text & “‘,” & _
                                 “lebar='” & lebar.Text & “‘,” & _
                                 “tinggi='” & tinggi.Text & “‘,” & _
                                 “satuan='” & satuan.Text & “‘,” & _
                                 “harga='” & harga.Text & “‘,” & _
                                 “tanggal='” & tanggal.Text & “‘,” & _
                                 “tanggalselesai='” & tgl_selesai.Text & “‘,” & _
                                 “pembayaranawal='” & pembayaran_awal.Text & “‘,” & _
                                 “sisabayar='” & sisa_bayar.Text & “‘,” & _
                                 “where nopesan='” & no_pesan.Text & “‘”

        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilpemesan()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        sql = “insert into pemesan (nopesan,kodepemesan,nama,alamat,kode barang,nama barang, jenis, type, lebar, tinggi, satuan, harga,tanggal,tanggalselesai,pembayaranawal,sisabayar)” & _
                       “values (‘” & no_pesan.Text & “‘,'” & _
                                     kode_p.Text & “‘,'” & _
                                     nama_p.Text & “‘,'” & _
                                     alamat.Text & “‘,'” & _
                                     kode_barang.Text & “‘,'” & _
                                     nama_b.Text & “‘,'” & _
                                     jenis.Text & “‘,'” & _
                                     type.Text & “‘,'” & _
                                     lebar.Text & “‘,'” & _
                                     tinggi.Text & “‘,'” & _
                                     satuan.Text & “‘,'” & _
                                     harga.Text & “‘,'” & _
                                     tanggal.Text & “‘,'” & _
                                     tgl_selesai.Text & “‘,'” & _
                                     pembayaran_awal.Text & “‘,'” & _
                                     sisa_bayar.Text & “‘)”

        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilpemesan()
    End Sub
End Class

Nama Tabel: PETUGAS
FORM DATA PETUGAS PENGIRIMAN

LISTING PROGRAM
Imports System.Data.OleDb
Public Class Form4
    Public db As OleDbConnection
    Public cmd As OleDbCommand
    Public adp As OleDbDataAdapter
    Public dr As OleDbDataReader
    Public ds As New DataSet
    Dim sql As String
    Public Sub opendb()
        Dim lokasi = “provider=microsoft.jet.oledb.4.0;data source=c:\vb2\perpustakaan1.mdb”
        db = New OleDbConnection(lokasi)
        If db.State = ConnectionState.Closed Then
            db.Open()
        End If
    End Sub
    Sub tampilpetugas()
        adp = New OleDbDataAdapter(“select * from petugas”, db)
        ds = New DataSet
        adp.Fill(ds, “petugas”)
        DataGridView1.DataSource = ds.Tables(“petugas”)
    End Sub
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call hapustext()
        Call tampilpetugas()
    End Sub
    Sub buttonbaru()
        btnbaru.Enabled = True
        btnsimpan.Enabled = False
        btnedit.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = False
        btnkeluar.Enabled = True
    End Sub
    Sub buttonedit()
        btnbaru.Enabled = False
        btnsimpan.Enabled = False
        btnedit.Enabled = True
        btnhapus.Enabled = True
        btnbatal.Enabled = True
        Btnkeluar.Enabled = False
    End Sub
    Sub buttonsimpan()
        btnbaru.Enabled = False
        btnsimpan.Enabled = True
        btnedit.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = True
        Btnkeluar.Enabled = False
    End Sub
    Sub hapustext()
        kode_petugas.Text = “”
        nama_petugas.Text = “”
        no_plat.Text = “”
        Call buttonbaru()
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        sql = “delete from petugas where kode= ‘” & kode_petugas.Text & “‘”
        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilpetugas()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End
    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Call hapustext()
        kode_petugas.Focus()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Call hapustext()
        kode_petugas.Focus()
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        sql = “update petugas set namapetugas='” & nama_petugas.Text & “‘,” & _
                                “noplat='” & no_plat.Text & “‘,” & _
                                 “where kodepetugas='” & kode_petugas.Text & “‘”

        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilpetugas()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        sql = “insert into petugas (kodepetugas, namapetugas, noplat)” & _
                      “values (‘” & kode_petugas.Text & “‘,'” & _
                                    nama_petugas.Text & “‘,'” & _
                                    no_plat.Text & “‘)”

        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilpetugas()
    End Sub

    Private Sub kode_petugas_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode_petugas.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            sql = “select * from petugas where kodepetugas='” & kode_petugas.Text & “‘”

            cmd = New OleDbCommand(sql, db)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows = True Then
                nama_petugas.Text = dr.Item(1)
                no_plat.Text = dr.Item(2)
                Call buttonedit()
                MsgBox(“Data diTemukan..!!!”)
            Else
                xkode = kode_petugas.Text
                Call hapustext()
                kode_petugas.Text = xkode
                Call buttonsimpan()
            End If
            nama_petugas.Focus()
            no_plat.Focus()
        End If
    End Sub
End Class

Jun 30 2013

SISTEM INFORMASI PEMESANAN BARANG PADA PT.HARI REZEKY KITA SEMUA MEDAN

LAPORAN DATA BARANG

LAPORAN DATA CUSTUMER

LAPORAN DATA PETUGAS PENGIRIMAN

LAPORAN DATA PENGIRIMAN

LAPORAN DATA PEMESANAN

Jun 2 2013

Yuk…!! Belajar Pemrograman Visual Basik Dot Net Di Mesran.net

SISTEM INFORMASI PEMESANAN BARANG PADA PT.HARI REZEKY KITA SEMUA Medan

Nama Database: Barang

Nama Tabel: Pemesan

1. FORM MENU

LISTING PROGRAM MENU

Public Class Form1

Private Sub DataPemesanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPemesanToolStripMenuItem.Click

Form2.MdiParent = Me

Form2.Show()

End Sub

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

End

End Sub

Private Sub LapDataPemesananToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapDataPemesananToolStripMenuItem.Click

Dim laporan As New rptdatapemesan

cetak.CrystalReportViewer1.ReportSource = laporan

cetak.Show()

End Sub

End Class

2. FORM INPUT

LISTING PROGRAM INPUT

Imports MySql.Data.MySqlClient

Public Class Form2

Public db As MySql.Data.MySqlClient.MySqlConnection

Public sql As String

Public cmd As MySqlCommand

Public rs As MySqlDataReader

Sub opendb()

sql = “server=localhost;uid=root;pwd;database=barang”

Try

db.ConnectionString = sql

db.Open()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Sub bersih()

kode.Text = “”

nama.Text = “”

alamat.Text = “”

telepon.Text = “”

rubahbutton(True, False, False, False, False, True)

kode.Enabled = True

End Sub

Sub rubahbutton(ByVal Btn1 As Boolean, ByVal Btn2 As Boolean, ByVal Btn3 As Boolean, ByVal Btn4 As Boolean, ByVal Btn5 As Boolean, ByVal Btn6 As Boolean)

btnbaru.Enabled = Btn1

btnsimpan.Enabled = Btn2

btnedit.Enabled = Btn3

btnhapus.Enabled = Btn4

btnkeluar.Enabled = Btn5

btnbatal.Enabled = Btn6

End Sub

Sub buattabel()

Lv.Columns.Add(“kode”, 80, HorizontalAlignment.Center)

lv.Columns.Add(“nama”, 180, HorizontalAlignment.Left)

Lv.Columns.Add(“alamat”, 80, HorizontalAlignment.Left)

Lv.Columns.Add(“telepon”, 100, HorizontalAlignment.Left)

lv.GridLines = True

lv.FullRowSelect = True

lv.View = View.Details

End Sub

Sub Isitabel()

Lv.Items.Clear()

sql = “select * from pemesan”

cmd = New MySqlCommand(sql, db)

rs = cmd.ExecuteReader

Try

While rs.Read

Dim ist As New ListViewItem

ist.Text = rs(“kode”)

ist.SubItems.Add(rs(“nama”))

ist.SubItems.Add(rs(“alamat”))

ist.SubItems.Add(rs(“telepon”))

Lv.Items.Add(ist)

End While

Catch ex As Exception

MsgBox(ex.Message)

End Try

rs.Close()

End Sub

Sub prosesdb(ByVal log As Integer)

Dim pesan As String = “”

Select Case log

Case 0

sql = “insert into pemesan(kode, nama, alamat, telepon)” & _

“values (‘” & kode.Text & _

“‘,'” & nama.Text & _

“‘,'” & alamat.Text & _

“‘,'” & telepon.Text & “‘)”

pesan = “data telah disimpan”

Case 1

sql = “update pemesan set nama='” & nama.Text & “‘, ” & _

“alamat='” & alamat.Text & “‘,” & _

“telepon='” & telepon.Text & “‘ ” & _

“where kode='” & kode.Text & “‘”

pesan = “telah di update”

Case 2

sql = “delete from pemesan where kode='” & kode.Text & “‘”

pesan = “data telah dihapus”

End Select

Try

cmd = New MySqlCommand(sql, db)

cmd.ExecuteNonQuery()

MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, “konfirmasi”)

Call bersih()

Call Isitabel()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Sub showdb()

rs.Read()

kode.Text = rs(“kode”)

nama.Text = rs(“nama”)

alamat.Text = rs(“alamat”)

telepon.Text = rs(“telepon”)

rubahbutton(False, True, True, True, True, False)

btnedit.Text = “edit”

kode.Enabled = False

End Sub

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

Call opendb()

Call bersih()

Call Isitabel()

Call buattabel()

End Sub

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call bersih()

kode.Focus()

End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call bersih()

kode.Focus()

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

End

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

Dim x As String

x = MsgBox(“anda yakin ingin menghapus”, MsgBoxStyle.Information + MsgBoxStyle.YesNo, “hapus”)

If x = vbYes Then

Call prosesdb(2)

End If

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

If btnsimpan.Text = “simpan” Then prosesdb(0) Else prosesdb(1)

End Sub

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

Dim tombol As Integer = Asc(e.KeyChar)

If tombol = 13 Then

Dim x As String

If kode.Text = “” Then

MsgBox(“isi kode terlebih dahulu”)

Else

sql = “select* from pemesan where kode='” & kode.Text & “‘”

cmd = New MySqlCommand(sql, db)

rs = cmd.ExecuteReader

Try

Call showdb()

Catch ex As Exception

x = kode.Text

bersih()

kode.Text = x

rubahbutton(False, False, True, True, True, False)

btnsimpan.Text = “simpan”

End Try

nama.Focus()

rs.Close()

End If

End Sub

End Class

3. DESAIN FORM CETAK LAPORAN

TAMPILAN FORM CETAK LAPORAN

Demikianlah Postingan Saya NAMA: FITRI WULANSARI NPM:1102094

Selamat Belajar VB Net

Mei 8 2013

SISTEM INFORMASI PENGGAJIAN KARYAWAN

BELAJAR BAHASA PEMROGRAMAN

PROGRAM SISTEM INFORMASI PENGGAJIAN KARYAWAN

DESAIN FORM MENU

LISTING PROGRAM

Public Class Form1

Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click

Form2.MdiParent = Me

Form2.Show()

End Sub

Private Sub DatabagianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatToolStripMenuItem.Click

Form3.MdiParent = Me

Form3.Show()

End Sub

Private Sub DataJabatanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataJabatanToolStripMenuItem.Click

Form4.MdiParent = Me

Form4.Show()

End Sub

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

End

End Sub

End Class

FORM PROGRAM SAAT DI JALANKAN

DESAIN FORM DATA KARYAWAN

LISTING PROGRAM

Imports System.Data.OleDb

Public Class Form2

Public db As OleDbConnection

Public cmd As OleDbCommand

Public adp As OleDbDataAdapter

Public dr As OleDbDataReader

Public ds As New DataSet

Dim sql As String

Public Sub opendb()

Dim lokasi = “provider=microsoft.jet.oledb.4.0;data source=c:\vb2\perpustakaan1.mdb”

db = New OleDbConnection(lokasi)

If db.State = ConnectionState.Closed Then

db.Open()

End If

End Sub

Sub tampilrecordkaryawan()

adp = New OleDbDataAdapter(“select *from karyawan”, db)

ds = New DataSet

adp.Fill(ds, “karyawan”)

DataGridView1.DataSource = ds.Tables(“karyawan”)

End Sub

Sub tampilkodejabatan()

kdjabatan.Items.Clear()

sql = “select *from jabatan”

cmd = New OleDbCommand(sql, db)

dr = cmd.ExecuteReader

While dr.Read

kdjabatan.Items.Add(dr(“kdjabatan”))

End While

dr.Close()

End Sub

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

Call opendb()

Call hapustext()

Call tampilrecordkaryawan()

jenis_kelamin.Items.Add(“P”)

jenis_kelamin.Items.Add(“L”)

Call tampilkodejabatan()

End Sub

Sub buttonbaru()

btnbaru.Enabled = True

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = False

btnkeluar.Enabled = True

End Sub

Sub buttonedit()

btnbaru.Enabled = False

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = True

btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub buttonsimpan()

btnbaru.Enabled = False

btnsimpan.Enabled = True

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub hapustext()

nik.Text = “”

nama.Text = “”

jabatan.Text = “”

jenis_kelamin.Text = “”

bagian.Text = “”

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

sql = “delete from karyawan where nik= ‘” & nik.Text & “‘”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnhapus_Click(sender, e)

Call tampilrecordkaryawan()

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

End

End Sub

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call hapustext()

nik.Focus()

End Sub

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

Dim tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

Dim xkd As String

If tombol = 13 Then

sql = “select *from karyawan where nik='” & nik.Text & “‘”

cmd = New OleDbCommand(sql, db)

dr = cmd.ExecuteReader

dr.Read()

If dr.HasRows = True Then

nama.Text = dr.Item(1)

xkd = dr.Item(2)

jenis_kelamin.Text = dr.Item(3)

bagian.Text = dr.Item(4)

MsgBox(“Data diTemukan..!!!”)

Else

xkode = nik.Text

Call hapustext()

nik.Text = xkode

Call buttonsimpan()

dr.Close()

End If

nama.Focus()

kdjabatan.Text = xkd

jabatan.Focus()

jenis_kelamin.Focus()

bagian.Focus()

End If

End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call hapustext()

nik.Focus()

End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

sql = “UPDATE karyawan SET Nama='” & nama.Text & “‘,” & _

” kdJabatan='” & kdjabatan.Text & “‘,” & _

“Jeniskelamin='” & jenis_kelamin.Text & “‘,” & _

” Bagian='” & bagian.Text & “‘ ” & _

” Where Nik='” & nik.Text & “‘”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilrecordkaryawan()

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

sql = “INSERT INTO karyawan(Nik, Nama, Jabatan, Jeniskelamin, Bagian) ” & _

” values(‘” & nik.Text & “‘,'” & _

nama.Text & “‘,'” & _

kdjabatan.Text & “‘,'” & _

jenis_kelamin.Text & “‘,'” & _

bagian.Text & “‘)”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilrecordkaryawan()

End Sub

Private Sub kdjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdjabatan.SelectedIndexChanged

sql = “select *from jabatan where kdjabatan='” & kdjabatan.Text & “‘ “

cmd = New OleDbCommand(sql, db)

dr = cmd.ExecuteReader()

If dr.HasRows Then

dr.Read()

jabatan.Text = dr(“kdjabatan”)

End If

End Sub

End Class

FORM PROGRAM SAAT DI JALANKAN

DESAIN FORM DATA BAGIAN

LISTING PROGRAM

Imports System.Data.OleDb

Public Class Form3

Public db As OleDbConnection

Public cmd As OleDbCommand

Public adp As OleDbDataAdapter

Public dr As OleDbDataReader

Public ds As New DataSet

Dim sql As String

Public Sub opendb()

Dim lokasi = “provider=microsoft.jet.oledb.4.0;data source=c:\vb2\perpustakaan1.mdb”

db = New OleDbConnection(lokasi)

If db.State = ConnectionState.Closed Then

db.Open()

End If

End Sub

Sub tampilrecordbagian()

adp = New OleDbDataAdapter(“select *from bagian”, db)

ds = New DataSet

adp.Fill(ds, “bagian”)

DataGridView1.DataSource = ds.Tables(“bagian”)

End Sub

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

Call opendb()

Call hapustext()

Call tampilrecordbagian()

End Sub

Sub buttonbaru()

btnbaru.Enabled = True

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = False

btnkeluar.Enabled = True

End Sub

Sub buttonedit()

btnbaru.Enabled = False

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = True

btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub buttonsimpan()

btnbaru.Enabled = False

btnsimpan.Enabled = True

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub hapustext()

kdbagian.Text = “”

nmbagian.Text = “”

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

sql = “delete from bagian where kdbagian= ‘” & kdbagian.Text & “‘”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnhapus_Click(sender, e)

Call tampilrecordbagian()

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

End Sub

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call hapustext()

kdbagian.Focus()

End Sub

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

Dim tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

If tombol = 13 Then

sql = “select *from bagian where kdbagian='” & kdbagian.Text & “‘”

cmd = New OleDbCommand(sql, db)

dr = cmd.ExecuteReader

dr.Read()

If dr.HasRows = True Then

nmbagian.Text = dr.Item(1)

MsgBox(“Data diTemukan..!!!”)

Else

xkode = kdbagian.Text

Call hapustext()

kdbagian.Text = xkode

End If

nmbagian.Focus()

End If

End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call hapustext()

kdbagian.Focus()

End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

sql = “update bagian set nmbagian='” & nmbagian.Text & “‘ ” & _

“where kdbagian='” & kdbagian.Text & “‘”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilrecordbagian()

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

sql = “insert into bagian (kdbagian,nmbagian)” & _

“values (‘” & kdbagian.Text & “‘,'” & _

nmbagian.Text & “‘)”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilrecordbagian()

End Sub

End Class

FORM PROGRAM SAAT DI JALANKAN

DESAIN FORM DATA JABATAN

LISTING PROGRAM

Imports System.Data.OleDb

Public Class Form4

Public db As OleDbConnection

Public cmd As OleDbCommand

Public adp As OleDbDataAdapter

Public dr As OleDbDataReader

Public ds As New DataSet

Dim sql As String

Public Sub opendb()

Dim lokasi = “provider=microsoft.jet.oledb.4.0;data source=c:\vb2\perpustakaan1.mdb”

db = New OleDbConnection(lokasi)

If db.State = ConnectionState.Closed Then

db.Open()

End If

End Sub

Sub tampilrecordjabatan()

adp = New OleDbDataAdapter(“select *from jabatan”, db)

ds = New DataSet

adp.Fill(ds, “jabatan”)

DataGridView1.DataSource = ds.Tables(“jabatan”)

End Sub

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

Call opendb()

Call hapustext()

Call tampilrecordjabatan()

End Sub

Sub buttonbaru()

btnbaru.Enabled = True

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = False

btnkeluar.Enabled = True

End Sub

Sub buttonedit()

btnbaru.Enabled = False

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = True

btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub buttonsimpan()

btnbaru.Enabled = False

btnsimpan.Enabled = True

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub hapustext()

kdjabatan.Text = “”

nmjabatan.Text = “”

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

sql = “delete from jabatan where kdjabatan= ‘” & kdjabatan.Text & “‘”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnhapus_Click(sender, e)

Call tampilrecordjabatan()

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

End Sub

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call hapustext()

kdjabatan.Focus()

End Sub

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

Dim tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

If tombol = 13 Then

sql = “select *from jabatan where kdjabatan='” & kdjabatan.Text & “‘”

cmd = New OleDbCommand(sql, db)

dr = cmd.ExecuteReader

dr.Read()

If dr.HasRows = True Then

nmjabatan.Text = dr.Item(1)

MsgBox(“Data diTemukan..!!!”)

Else

xkode = kdjabatan.Text

Call hapustext()

kdjabatan.Text = xkode

End If

nmjabatan.Focus()

End If

End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call hapustext()

kdjabatan.Focus()

End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

sql = “update jabatan set nmjabatan='” & nmjabatan.Text & “‘ ” & _

“where kdjabatan='” & kdjabatan.Text & “‘”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilrecordjabatan()

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

sql = “insert into jabatan (kdjabatan,nmjabatan)” & _

“values (‘” & kdjabatan.Text & “‘,'” & _

nmjabatan.Text & “‘)”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilrecordjabatan()

End Sub

End Class

FORM PROGRAM SAAT DI JALANKAN

Apr 24 2013

Sistem Informasi Pemesanan Barang Pada PT.HARI REZEKI KITA SEMUA Medan

Nama Database: Perpustakaan1

Nama Tabel: Barang

Listing Program

Imports System.Data.OleDb

Public Class Form2

Public db As OleDbConnection

Public cmd As OleDbCommand

Public adp As OleDbDataAdapter

Public dr As OleDbDataReader

Public ds As New DataSet

Dim sql As String

Public Sub opendb()

Dim lokasi = “provider=microsoft.jet.oledb.4.0;data source=c:\vb2\perpustakaan1.mdb”

db = New OleDbConnection(lokasi)

If db.State = ConnectionState.Closed Then

db.Open()

End If

End Sub

Sub tampilbarang()

adp = New OleDbDataAdapter(“select * from barang”, db)

ds = New DataSet

adp.Fill(ds, “barang”)

DataGridView1.DataSource = ds.Tables(“barang”)

End Sub

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

Call opendb()

Call hapustext()

Call tampilbarang()

End Sub

Sub buttonbaru()

btnbaru.Enabled = True

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = False

btnkeluar.Enabled = True

End Sub

Sub buttonedit()

btnbaru.Enabled = False

btnsimpan.Enabled = False

btnedit.Enabled = True

btnhapus.Enabled = True

btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub buttonsimpan()

btnbaru.Enabled = False

btnsimpan.Enabled = True

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub hapustext()

kode_barang.Text = “”

nabar.Text = “”

jenis.Text = “”

type.Text = “”

lebar.Text = “”

tinggi.Text = “”

satuan.Text = “”

harga.Text = “”

Call buttonbaru()

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

sql = “delete from BARANG where kodebarang= ‘” & kode_barang.Text & “‘”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilbarang()

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

End Sub

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call hapustext()

kode_barang.Focus()

End Sub

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

Dim tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

If tombol = 13 Then

sql = “select * from barang where kodebarang='” & kode_barang.Text & “‘”

cmd = New OleDbCommand(sql, db)

dr = cmd.ExecuteReader

dr.Read()

If dr.HasRows = True Then

nabar.Text = dr.Item(1)

jenis.Text = dr.Item(2)

type.Text = dr.Item(3)

lebar.Text = dr.Item(4)

tinggi.Text = dr.Item(5)

satuan.Text = dr.Item(6)

harga.Text = dr.Item(7)

Call buttonedit()

MsgBox(“Data diTemukan..!!!”)

Else

xkode = kode_barang.Text

Call hapustext()

kode_barang.Text = xkode

Call buttonsimpan()

End If

nabar.Focus()

jenis.Focus()

type.Focus()

lebar.Focus()

tinggi.Focus()

satuan.Focus()

harga.Focus()

End If

End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call hapustext()

kode_barang.Focus()

End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

sql = “update BARANG set nabar='” & nabar.Text & “‘,” & _

“jenis='” & jenis.Text & “‘,” & _

“type='” & type.Text & “‘,” & _

“lebar='” & lebar.Text & “‘,” & _

“tinggi='” & tinggi.Text & “‘,” & _

“satuan='” & satuan.Text & “‘,” & _

“harga='” & harga.Text & “‘,” & _

“where kodebarang='” & kode_barang.Text & “‘”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilbarang()

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

sql = “insert into barang (kodebarang, namabarang, jenis, type, lebar, tinggi, satuan, harga)” & _

“values (‘” & kode_barang.Text & “‘,'” & _

nabar.Text & “‘,'” & _

jenis.Text & “‘,'” & _

type.Text & “‘,'” & _

lebar.Text & “‘,'” & _

tinggi.Text & “‘,'” & _

satuan.Text & “‘,'” & _

harga.Text & “‘)”

cmd = New OleDbCommand(sql, db)

cmd.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilbarang()

End Sub

End Class

Hasil Program Setelah Di Jalankan

Apr 23 2013

Belajar pemograman di mesran.net yuukkkk…!!!

Bingung mau belajar bahasa pemograman..???

Nah disini nich tempat nya di website mesran.net.

Di website mesran.net ini adalah blog yang membahas tentang bahasa – bahasa pemograman, yang mana di dalam nya terdapat seperti:

Selain membahas masalah pemrograman,di Mesran.net kita juga bisa download software, download-ebook dan Download Program.

Saya mengira belajar pemrograman itu sangat sulit, ternyata setelah saya pelajari perlahan-lahan gampang juga tidak sesulit yang saya bayanngkan,walaupun gak pandai tetapi bisa lha. hehe

Biasa nya Di Mesran.Net sering di kunjungi Mahasiswa/i STMIK BUDIDARMA untuk melihat nilai tugas,Jadwal kuliah,Judul Tugas Akhir dan Judul Skripsi,

Di mesran.net tidak hanya membahas bahasa pemrogran saja tetapi memberikan cerita-cerita lucu yang dapat menghilangkan kejenuhan belajar program , dan di mesran.net juga menyajikan berita tentang selebriti juga loch….

Demikian informasi yang dapat saya sampaikan mengenai mesran.net

Lebih dan kurang saya mohon maaf, semoga dapat bermanfaat yaaa…..

Apr 22 2013

Resep Membuat Kue Bolu Lembut Dan Enak

Berbagai kumpulan Resep Membuat Kue Bolu Lembut Dan Enak – Kue bolu atau cake merupakan salah satu jenis kue yang paling banyak digemari oleh masyarakat Indonesia, karena dengan teksturnya yang lembut dan rasanya yang mantap, sehingga membuat kita menjadi ketagihan untuk mencobanya. Kue bolu mempunyai bentuk dan rasa yang beraneka ragam, mulai dari kue bolu coklat, kue bolu keju, kue bolu pandan, kue bolu marmer dan berbagai jenis kue bolu lainnya yang sayang untuk dilewatkan.

Sumber gambar : blogspot.com

Bagi sahabat Cantikinfo yang ingin mencoba bagaimana cara membuat kue bolu sendiri di rumah, silahkan lihat selengkapnya dalam artikel berikut ini yang akan membahas mengenai resep membuat kue bolu lembut dan enak dalam 2 cara, yaitu dengan cara di kukus dan di panggang berikut ini :

Resep Kue Bolu Coklat

Bahan :
– 1/4 kg mentega
– 3/8 kg gula halus
– 3 1/2 ons tepung terigu
– 1/2 coklat bubuk
– 1/2 sendok makan ovalet
– 5 sendok makan susu bubuk putih
– 12 butir telur
– 2 bungkus vanili kecil

Cara Membuat :

Pisahkan telur (kuning dan putih) pada tempat yang berbeda, putih telur bisa ditempatkan di dalam mangkok, sedangkan kuning telur bisa tetap berada di dalam cangkang telur.
Masukkan mentega, gula halus, vanili dan ovalet ke dalam baskom, kemudian mixcer dengan kecepatan tinggin selama 10 menit atau hingga adonan mengembang.
Setelah mengembang, campurlah adonan tersebut dengan kuning telur yang dimasukkan satu persatu ke dalam baskom ( adonan harus tetap di mixcer terus menerus selama kuning telur dimasukkan ) selama 10 menit.
Setelah selesai, kemudian masukkan tepung terigu sedikit demi sedikit ke dalam adonan, aduk hingga rata.
Masukkan susu bubuk sedikit demi sedikit ke dalam adonan, aduk hingga rata.
Masukkan coklat bubuk sedikit demi sedikit ke dalam adonan, aduk hingga rata.
Mixcer putih telur yang telah dipisahkan sebelumnya selama 5 menit, kemudian masukkan putih telur yang telah di mixcer ke dalam adonan, lalu di mixcer lagi selama 10 menit hingga adonan rata dan mengembang.
Setelah selesai, masukkan adonan tersebut ke dalam loyang, kemudian panggang dalam oven selama kurang lebih 40 menit dengan suhu 25 derajat celcius.
Angkat dan dinginkan, kue bolu coklat siap untuk dihidangkan.

Resep Kue Bolu Keju

Bahan :

– 8 butir kuning telur

– 4 butir putih telur

– 200 gram tepung terigu

– 125 gram mentega, cairkan

– 100 gram gula kastor

– 100 gram keju parut

– 6 lembar keju kraft

– 4 buah cherry

Cream :

– 75 gram whipped cream

– 50 gram mentega putih

– 50 cc air dingin

Cara Membuat Cream :

Mixer semua bahan cream dengan kecepatan tinggi

Cara Membuat :

Kocok telur dan gula hingga mengembang, kemudian masukkan mentega cair dan gula hingga mengembang. Aduk rata hingga bahan tercampur dan mengembang.
Setelah itu tuang kedalam loyang, dan masukkan ke dalam oven dengan api sedang.
Setelah kue bolu berwarna kecoklatan, angkat dan dinginkan.
Belah kue bolu menjadi 2 bagian, letakkan keju lembaran ke dalamnya, tutup kue bolu dan olesi dengan cream dan taburi dengan keju parut.
Setelah itu hias dengan cherry merah diatasnya.
Kue bolu keju siap untuk dihidangkan.

Resep Kue Bolu Pandan

Bahan :

– 100 gram mentega, lelehkan
– 120 gram tepung terigu protein rendah
– 75 gram gula pasir (untuk putih telur)
– 50 gram gula pasir, yang butirannya lembut (untuk kuning telur)
– 30 ml air daun suji
– 5 kuning telur
– 5 putih telur
– 1/2 sendok teh cream of tartar
– 1/2 sendok teh garam

Cara Membuat :

Kocok kuning telur dan 50 gram gula pasir hingga kental, kemudian masukkan tepung terigu sambil di ayak, setelah itu tambahkan mentega yang telah di lelehkan dan air daun suji, lalu aduk hingga rata.
Kocok putih telur, cream of tartar dan garam hingga setengah mengembang, tambahkan gula pasir sedikit demi sedikit sambil terus di kocok hingga mengembang.
Tuang adonan putih telur ke dalam adonan tepung terigu sedikit demi sedikit sambil di aduk secara perlahan-lahan.
Tuang adonan tersebut ke dalam loyang, lalu kukus selama 50 menit hingga air mendidih, kemudian angkat dan dinginkan.
Potong-potong sesuai selera, dan bolu pandan siap untuk dihidangkan.

Resep Kue Bolu Marmer

Bahan :

– 150 gram tepung terigu

– 150 gram mentega

– 100 gram gula pasir

– 3 butir telur (putih dan kuningnya)

– 5 butir kuning telur

– 1 sendok teh ovalet

– 1 sendok teh baking powder

– 1/2 sendok teh garam halus

– 1/2 sendok teh pasta coklat

– 1/2 sendok makan coklat bubuk

Cara Membuat :

Campur tepung terigu dengan baking powder, lalu aduk hingga rata, kemudian sisihkan.
Kocok mentega, gula pasir dan garam hingga lembut dan ringan.
Di tempat terpusah, kocok telur hingga mengembang, kemudian tambahkan ovalet, lalu kocok hingga adonan mengembang kaku.
Tuang kocokan telur ke dalam kocokan margarin, lalu aduk hingga rata, kemudian tambahkan campuran tepung terigu, aduk dengan mixer kecepatan sedang, hingga adonan tercampur rata.
Ambil 2 sendok sayur adonan, setelah itu masukkan pasta coklat dan coklat bubuk, kemudian aduk hingga rata.
Siapkan loyang yang telah diolesi mentega sebelumnya, lalu tuang adonan cake hingga separuh dari tinggi loyang, setelah itu ratakan. Tuang adonan coklat pada bagian tengah adonan, lalu tutup atas adonan tersebut dengan adonan putih hingga loyang hampir penuh.
Ambil garpu, aduk secara memutar pada adonan tersebut, agar adonan coklat di bagian tengah teraduk dan membentuk motif marmer.
Panggang adonan ke dalam oven dengan suhu 180 derajat celcius selama 40 menit atau hingga cake matang, kemudian angkat.
Keluarkan cake dari loyang, dan potong-potong sesuai selera.
Bolu marmer siap untuk dihidangkan.

Resep Kue Bolu Kukus Pelangi

Bahan :

– 6 butir telur

– 200 gram gula pasir

– 200 gram tepung terigu

– 80 ml santan kental

– 50 ml minyak sayur

– 1 sendok makan emulsifier

– 1/2 sendok teh garam

– pewarna makanan, merah, hijau, kuning, coklat secukupnya

Cara Membuat :

Mixer telur, gula, emulsifier dan garam hingga adonan berwarna pucat dan kaku, kemudian tambahkan tepung terigu, lalu aduk rata secara perlahan-lahan.
Tambahkan santan dan minyak sayur, lalu aduk rata dengan spatula.
Kemudian bagi adonan menjadi 4 bagian, satu bagian di beri warna merah, satu bagian warna hijau, satu bagian warna kuning, dan satu bagian lagi berwarna coklat.
Siapkan loyang yang telah diolesi mentega sebelumnya yang telah dialasi kertas roti, setelah itu tuanglah adonan berwarna hijau, kukus selama 10 menit, sebelum 10 menit sebaiknya tutup kukusan jangan dibuka dahulu, agar cakenya mengembang dengan sempurna.
Setelah 10 menit masukkan lapisan yang berwarna merah, kukus lagi selama 10 menit, kemudian lapisan berwarna kuning selama 10 menit, dan 10 menit terakhir lapisan coklat.
Setelah tercampur semua warnanya, kukus cake selama 30 menit hingga benar-benar matang.
Angkat dan cake siap untuk dihidangkan.

Itulah berbagai kumpulan resep kue bolu lembut dan enak, semoga artikel ini dapat menambah wawasan sahabat mengenai dunia kuliner.

http://cantikinfo.blogspot.com/2013/03/resep-membuat-kue-bolu-lembut-dan-enak.html

Apr 22 2013

Aneka kuliner khas jawa barat

Aneka kuliner khas jawa barat – Kuliner adalah hasil olahan yang berupa masakan. Masakan tersebut berupa lauk-pauk, makanan (penganan) dan minuman. Karena setiap daerah memiliki citarasa tersendiri, maka tak heran jika setiap daerah juga memiliki tradisi kuliner yang berbeda-beda. Di trit itu ane cuman nyantumin kuliner yang paling terkenal diantara yang lainnya. Mungkin agans agans yang dari luar kota Bandung ada yang ingin tau kuliner apa saja sih yang bisa ditemui di Bandung dan tentunya asli dari Bandung. Maka dari itu sekarang ane posting 25 Kuliner Khas Bandung yang bisa menjadi referensi agans agans ketika liburan ke kota Bandung. Check this out gans :

info kuliner dan makanan khas jawa barat yang patut di icipi :

Karedok

Karedok atau keredok adalah makanan khas daerah di Indonesia. Karedok dibuat dengan bahan-bahan sayuran mentah antara lain; ketimun, tauge, kol, kacang panjang, daun kemangi, dan terong. Sedangkan sausnya adalah bumbu kacang yang dibuat dari cabai merah, bawang putih, kencur, kacang tanah, air asam, gula jawa, garam, dan terasi.

Batagor

Batagor (akronim dari bakso tahu goreng) adalah makanan tradisional khas Jawa Barat yang dibuat dari tahu berbalut tepung lalu digoreng.

Mie Kocok Bandung

Mie Kocok adalah makanan berbahan dasar mie kuning dan tauge, yang diberi kuah panas dari kaldu kaki sapi yang berasa lemaknya dan diberi toping potongan kaskus kecil. Rasanya panas dan segar, dan kalau anda pencinta pedas tinggal tambahkan sambel yang akan membuat lidah dan dahi kita berkeringat.

Perkedel Bondon

Perkedel kentang yang dimasak atau digoreng di atas tungku api, dan bahan bakan untuk menyalakan api/baranya menggunakan kayu atau arang. Mungkin cara memasaknya ini lah yang membuat perkedel ini sangat nikmat disajikan panas panas dan dengan sambal saja sudah cukup untuk menemani nasi sebagai lauk untuk bersantap.

Lotek

Lotek hampir sama dengan pecel, yakni makanan berupa rebusan sayuran segar yang disiram dressing berupa sambal dicampur bumbu kacang. Keunikannya, sebagai bahan sambal di samping kacang seringkali ditambahkan tempe dan dalam bumbunya ditambahkan terasi, gula merah, dan bawang putih. Secara umum, lotek terasa lebih manis daripada pecel. Selain itu, kalau sambal pecel bumbu sudah dicampur sebelumnya, untuk lotek bumbu baru ditambahkan ketika akan dihidangkan. Lotek dapat disajikan dengan lontong atau nasi hangat, disertai dengan kerupuk dan bawang goreng.

Surabi Bandung

Serabi kadang disebut srabi atau surabi merupakan salah satu makanan ringan atau jajanan pasar yang berasal dari Indonesia. Serabi serupa dengan pancake (pannekoek atau pannenkoek) namun terbuat dari tepung beras (bukan tepung terigu) dan diberi kuah cair yang manis (biasanya dari gula kelapa). Kuah ini bervariasi menurut daerah di Indonesia. Daerah yang terkenal dengan kue serabinya adalah Jakarta, Bandung, Solo, Pekalongan dan Purwokerto yang masing-masing memiliki keunikan tersendiri.

Combro

Combro atau kadang disebut comro atau gemet merupakan makanan khas dari Jawa Barat. Combro terbuat dari parutan singkong yang dibentuk bulat yang bagian dalamnya diisi dengan sambal oncom kemudian digoreng, karena itulah dinamai combro yang merupakan kependekan dari oncom di jero (bahasa Sunda (Namun nama tradisionalnya combro bukan comro), artinya: oncom di dalam, begitu juga halnya dengan gemet merupakan kependekan dari dage saemet artinya dage di dalam yang artinya kurang lebih sama. Makanan ini lebih enak disantap saat masih hangat.

Misro

Misro merupakan makanan khas dari Jawa Barat. Terbuat dari parutan singkong yang bagian dalamnya diisi dengan gula merah kemudian digoreng, karena itulah dinamai Misro yang merupakan kependekan dari amis di jero (bahasa Sunda, artinya: manis di dalam). Bentuknya bulat. Makanan ini enak disantap saat hangat.

Nasi Timbel

Nasi timbel adalah yang nasi putih biasa yang panas lalu dibungkus daun pisang, karena dibungkus daun pisang maka akan menimbulkan aroma yang khas. Biasa disajikan dengan berbagai tambahan seperti tahu dana tempe goreng, ayam goreng, sambal dan juga lalap.

Cendol

Cendol merupakan minuman khas Indonesia yang terbuat dari tepung beras, disajikan dengan es parut serta gula merah cair dan santan. Rasa minuman ini manis dan gurih. Di daerah Sunda minuman ini dikenal dengan nama cendol sedangkan di Jawa Tengah dikenal dengan nama es dawet. Berkembang kepercayaan populer dalam masyarakat Indonesia bahwa istilah “cendol” mungkin sekali berasal dari kata “jendol”, yang ditemukan dalam bahasa Sunda, Jawa dan Indonesia; hal ini merujuk sensasi jendolan yang dirasakan ketika butiran cendol melalui mulut kala tengah meminum es cendol.

Tepung beras diolah dengan diberi pewarna berwarna hijau dan di cetak melalui saringan khusus, sehingga berbentuk buliran. Pewarna yang digunakan awalnya adalah pewarna alami dari daun pandan, namun saat ini telah digunakan pewarna makanan buatan. Di Sunda cendol dibuat dengan cara mengayak kukusan tepung beras yang diwarnai dengan daun suji dengan ayakan sehingga diperoleh bentuk bulat lonjong yang lancip di ujungnya. Di Sunda minum cendol disebut nyendol.

Pisang Molen

Pisang molen adalah suatu hidangan ringan berbahan baku pisang yang dilapisi lembar-lembar adonan dan kemudian digoreng. Hidangan ini merupakan variasi dalam pengolahan dari pisang goreng.

Peuyeum

Peuyeum adalah sejenis makanan khas yang terbuat dari singkong yang direbus dan diberi ragi sehingga menjadi terfermentasi.

Gepuk

Gepuk adalah makanan khas Jawa Barat yang terbuat dari daging sapi,terasa sedikit manis dan gurih. Biasanya gepuk dibuat dengan daging sapi,yang diiris searah dengan serat daging dan direbus setengah mateng, kemudian di pukul pukul hingga agak empuk. Daging yang sudah empuk direndam kedalam bumbu yang dicampur dengan santan.kemudian direbus kembali hingga air santan menyusut.Jika akan disajikan gorenglah gepuk dengan sedikit minyak hingga kecokelatan dan angkat.Gepuk akan lebih enak di santap dengan nasi hangat dan sambel yang kami sediakan.

Colenak

Colenak adalah singkatan dicocol enak (bahasa sunda),merupakan makanan yang dibuat dari peuyeum (tape singkong) yang dibakar kemudian disajikan dengan saus yang terbuat dari parutan kelapa dan gula merah. Makanan khas Bandung yang masih bertahan meski saat ini agak jarang yang menjualnya. Karena kandungan gula di dalam tape maka tape tersebut mudah gosong, meski ini adalah bagian yang terenak bagi beberapa orang.

Bandrek

Bandrek adalah minuman tradisional orang Sunda dari Jawa Barat, Indonesia yang dikonsumsi untuk menaikkan kehangatan tubuh. Minuman ini biasanya dihidangkan pada cuaca dingin, seperti di kala hujan ataupun malam hari. Bahan dasar bandrék yang paling penting adalah jahe dan gula merah, tapi daerah-daerah tertentu menambahkan rempah-rempah tersendiri untuk memperkuat efek hangat yang diberikan bandrék, seperti serai, merica, pandan, telur ayam kampung, dan sebagainya. Susu juga dapat ditambahkan tergantung dari selera penyajian. Banyak orang Indonesia percaya bahwa bandrék dapat menyembuhkan penyakit ringan seperti sakit tenggorokan. Ada juga bandrék yang dikhususkan untuk orang dewasa karena efek panasnya.

Cireng

Cireng (singkatan dari aci goreng, bahasa Sunda untuk ‘tepung kanji goreng’) adalah makanan ringan yang berasal dari daerah Sunda yang dibuat dengan cara menggoreng campuran adonan yang berbahan utama tepung kanji. Makanan ringan ini sangat populer di daerah Priangan, dan dijual dalam berbagai bentuk dan variasi rasa. Makanan ini cukup terkenal pada era 80-an. Bahan makanan ini antara lain terdiri dari tepung kanji, tepung terigu, air, merica bubuk, garam, bawang putih, kedelai, daun bawang dan minyak goreng.

Seblak

Seblak adalah makanan yang terbuat dari kerupuk rebus, yang dicampur racikan bumbu pedas yang terdiri dari Cabai, Bawang Putih, Garam dan Kencur. Seblak ini ada 2 macam yaitu Seblak Kering dan Seblak Basah.

Bajigur

Bajigur adalah minuman hangat khas masyarakat Sunda dari daerah Jawa Barat, Indonesia. Bahan utamanya adalah gula aren, dan santan. Untuk menambah kenikmatan dicampurkan pula sedikit jahe, garam dan bubuk vanili.

Minuman yang disajikan panas ini biasa dijual dengan menggunakan gerobak yang menyertakan kompor. Bajigur paling cocok diminum pada saat cuaca dingin dan basah sehabis hujan. Makanan yang sering dihidangkan bersama bajigur adalah pisang rebus, ubi rebus, atau kacang rebus.

Keripik Setan

Keripik Setan adalah keripik singkong yang dibumbui dengan bumbu cabai yang sangat pedas. Keripik setan ini ada berbagai merek tapi yang akhir akhir ini paling hits adalah Keripik Maicih yang mulai dikenal oleh masyarakat luas.

Es Goyobod

Goyobod adalah minuman khas Priangan. Goyobod sendiri adalah tepung sagu aren yang diproses seperti agar-agar. Dicampur macam-macam tambahan seperti sekoteng, alpukat, yang dicampur dalam santan kelapa dan es serut dengan pemanis sirup gula dan susu kental manis serta tambahan roti manis.

Ulukutek Leunca

Ulukutek Leunca ini adalah hidangan khas sunda. Campuran antara oncom dan buah leunca yang dimasak dengan bahan bahan lain sesuai selera.

Tutut

Tutut adalah hewan sejenis keong yang ukrannya kecil kecil. Biasa dimasak dengan bumbu pedas dengan ditambahi banyak daun salam dan sereh supaya bau amis tutut itu sendiri bisa hilang.

Rujak Cuka

Rujak cuka adalah makanan tradisional yang terbuat dari campuran berbagai macam sayuran atau buah dan dibubuhi bumbu rujak yang juga ditambah cuka.

Wajit

Wajit adalah suatu penganan yang terbuat dari beras ketan, gula merah dan kelapa yang dimasak menjadi satu. Wajit merupakan oleh-oleh asli Cililin, Kabupaten Bandung Barat. Ada banyak macam wajit, tapi wajit Cililin memiliki keunikan tersendiri karena dibungkus dengan cangkang buah jagung.

Es Lilin

Es yang juga menjadi judul salah satu lagu sunda ini adalah es yang terbuat dari campuran santan, gula dan susu. Sekarang varian es lilin ini sudah bermacam macam, ada rasa strawberry, melon, bahkan leci.

http://infokuliner.org/kuliner-dan-makanan-khas-jawa-barat

Apr 22 2013

Resep dan Cara Membuat Kue Donat Empuk

Resep dan Cara Membuat Kue Donat Empuk. Hai apa kabar bunda, pasti sibuk dengan buah hati tercinta nih. kali ini Resep komplit memberikan tip cara membuat kue donat empuk ala Resep Komplit. bahan utama untuk membuat kue donat ini adalah kentang.

Kue Dunat merupakan kue yang sangat populer di Indonesia. Baik kaum muda ataupun orang tua menyukai dengan kue Donat. Tak perlu bingung bila bunda mau membuat kue donut yang empuk untuk si buah hati ataupun suami dirumah, bunda tinggal mengikuti resep berikut ini.

Bahan yang Digunakan :

200 gram kentang kukus dan haluskan
500 gram tepung terigu protein tinggi
50 gram gula pasir
11 gram fermipan
1 sdt garam
1 sdm susu bubuk
50 gram margarine
200 ml air es
1 butir telur ayam

Cara Membuat Kue Donut Empuk :

Campur terigu, kentang, gula pasir, fermipan, susu bubuk dan garam
Aduk bahan tersebut diatas sambil di tuangi air es sedikit demi sedikit hingga rata.
Kemudian masukkan telur dan margarine.Uleni adonan sampai kalis.
Bulatkan adonan kemudian diamkan (simpan) selama 50 menit sehingga adonan menjadi 2x lebih besar.
Ambil adonan dan timbang masing masing seberat 30 gram.
Bentuk adonan yang telah ditimbang 30 gram tersebut seperti bola.
Setelah itu cetak dengan cetakandonut atau cukup dilubangi bagian tengahnya saja.
Diamkan adonan selama 20 menit lagi.
Panaskan wajan penggorengan dan goreng sampai matang dan berwarna kecokelatan.
Angkat dari wajan dan tunggu donut sampai dingin dan baru bunda bisa menghiasi dengan selera bunda.

http://resep-komplit.blogspot.com/2012/12/resep-dan-cara-membuat-kue-donat-empuk.html

Apr 22 2013

7 Manfaat Berolahraga

1. Olah raga mengurangi risiko penyakit

Olah raga menjaga Anda dari berbagai penyakit seperti tekanan darah tinggi, diabetes tipe 2,penyakit jantung dan osteoporosis. Bila Anda sudah mengidap penyakit itu, berolah raga secara teratur akan membantu mengelolanya sehingga tidak berkembang membahayakan.

Olah raga bahkan mengurangi risiko stroke, sakit punggung bawah (LBP), kanker usus besar, kanker payudara, kanker paru dan endometrium.

Jogging, bermain tenis atau berenang bermanfaat mencegah stroke pada kaum pria. Sebuah riset baru menemukan bahwa pria yang berolah raga secara teratur dengan intensitas sedang dan berat lebih kecil kemungkinannya terkena stroke dibandingkan pria yang kurang aktif. Riset tersebut meneliti 3.298 orang dengan usia rata-rata 69 tahun yang tinggal di Manhattan Utara, New York. Pria yang berolah raga 63% lebih kecil kemungkinannya terkena stroke dibandingkan mereka yang tidak berolah raga (Neurology, 24 November 2009). Namun, olah raga tampaknya tidak memberikan dampak yang sama bagi kaum wanita.

2. Olah raga mengurangi stres

Kegiatan fisik merangsang berbagai zat kimia dalam otak yang akan membuat Anda lebih bahagia dan rileks. Anda juga akan merasa lebih bugar, percaya diri dan terhindar dari depresi bila Anda berolahraga secara teratur.

3. Olah raga menjaga berat badan

Melakukan kegiatan fisik membakar kalori dalam tubuh kita. Semakin intensif, semakin banyak kalori yang terbakar sehingga mengurangi timbunan lemak dalam tubuh. Tentu saja, Anda juga harus mengimbanginya dengan pola makan yang sehat agar lemak tidak kembali tertimbun dalam tubuh. Berat badan yang ideal sangat penting bagi kita agar tetap sehat dan panjang umur.

4. Olah raga meningkatkan energi

Kegiatan fisik membuat sistem kardiovaskuler berjalan dengan baik, memperlancar jumlah oksigen dan sari makanan yang didistribusikan ke seluruh jaringan tubuh. Akibatnya, Anda akan memiliki energi yang lebih besar untuk menjalani kehidupan Anda.

5. Olah raga membuat tidur lebih nyenyak

Tukang becak, kuli bangunan dan penyapu jalanan tidak pernah mengalami insomnia! Lihatlah, mereka bahkan bisa tidur lelap di udara terbuka di tengah keramaian orang. Itu karena mereka selalu melakukan kegiatan fisik.

Berolah raga secara teratur membuat Anda tidur lebih mudah dan lebih lelap. Kualitas tidur yang baikpada gilirannya akan meningkatkan konsentrasi, produktivitas dan kualitas emosi Anda. Namun demikian,jangan berolah raga terlalu dekat dengan waktu tidur Anda sehingga justru membuat Anda sulit tidur.

6. Olah raga membuat gairah seksual Anda tetap membara

Berolah raga secara teratur membuat wanita berusia lanjut tetap bersemangat menjalani kehidupan seksualnya dan menurunkan risiko disfungsi ereksi pada laki-laki. Tidak ada yang lebih merusak gairah seksual dibandingkan rasa lelah terus-menerus karena badan yang kurang fit.

7. Olah raga meningkatkan kualitas hubungan antar manusia

Cobalah berolah raga bersama anggota keluarga Anda, misalnya pergi ke kolam renang atau bersepeda santai bersama. Keakraban di antara Anda akan meningkat. Anda juga bisa menggalakkan olahraga bersama di kantor dan lingkungan Anda untuk meningkatkan keakraban.

http://majalahkesehatan.com/7-manfaat-berolahraga/