apkom4 latihan 36

latihan 36
Public Class latihan36_017vb
    Dim apa As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim uphy As New ByIskandar.CariKeDataBaseByIskandar
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

    Private Sub latihan36_017vb_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & bx1_36109017.Text & "'", conect)
        a.Fill(apa)
        a.Dispose()

        dgv_36109017.DataSource = apa

        Dim dc(1) As DataColumn
        dc(0) = apa.Columns("kodebarang")
        apa.PrimaryKey = dc
    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        If bx4_36109017.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If Val(bx5_36109017.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(bx6_36109017.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = apa.Rows.Find(bx4_36109017.Text)
        If dr Is Nothing Then
            dr = apa.NewRow
            dr("KODEBARANG") = bx4_36109017.Text
            dr("UNIT") = bx5_36109017.Text
            dr("HARGA") = bx6_36109017.Text

            apa.Rows.Add(dr)

            bx4_36109017.Text = ""
            bx5_36109017.Text = ""
            bx6_36109017.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
        End If
    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        If bx1_36109017.Text.Length = 0 Then
            MsgBox("Isi rong No Transaksi na..")
            Exit Sub
        End If

        If bx3_36109017.Text.Length = 0 Then
            MsgBox("Isi rong Jenis Transaksi na..")
            Exit Sub
        End If

        If apa.Rows.Count = 0 Then
            MsgBox("Maaf...Isi rong itu datatable na..")
            Exit Sub
        End If

        uphy.AturPencarianDataBase("mastertransaksi", "notrans", bx1_36109017.Text, 1, conect)
        If uphy.JumlanBaris > 0 Then
            MsgBox("Adami notrans seperti itu")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & bx1_36109017.Text & "',#" & bx2_36109017.Value.Month & "/" & bx2_36109017.Value.Day & "/" & bx2_36109017.Value.Year & "#,'" & bx3_36109017.Text & "')", conect)
        conect.Open()
        cm.ExecuteNonQuery()
        conect.Close()

        For Each x As DataRow In apa.Rows
            cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & bx1_36109017.Text & "', '" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", conect)
            conect.Open()
            cm.ExecuteNonQuery()
            conect.Close()
        Next
        cm.Dispose()

        bx1_36109017.Text = ""
        bx3_36109017.Text = ""

        apa.Rows.Clear()
    End Sub
End Class

apkom4 latihan 35

latihan 35
Public Class latihan35_017
    Dim uphy As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
    Dim iftah As New DataTable
    Dim kecoak As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub latihan35_017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim apa As New OleDb.OleDbDataAdapter
        apa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & bx4_36109017.Text & "'", uphy)
        iftah.Rows.Clear()
        apa.Fill(iftah)
        dgv_36109017.DataSource = iftah
        apa.Dispose()
    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        If bx4_36109017.Text.Length = 0 Then
            MsgBox("kode barang belum terisi")
            Exit Sub
        End If
        If Val(bx5_36109017.Text) = 0 Then
            MsgBox("UNIT belum terisi")
            Exit Sub
        End If

        If Val(bx6_36109017.Text) = 0 Then
            MsgBox("HARGA belum terisi")
            Exit Sub
        End If
        Dim paa As DataRow

        paa = iftah.NewRow
        paa("KODEBARANG") = bx4_36109017.Text
        paa("UNIT") = bx5_36109017.Text
        paa("HARGA") = bx6_36109017.Text

        iftah.Rows.Add(paa)


        bx4_36109017.Text = ""
        bx5_36109017.Text = ""
        bx6_36109017.Text = ""
    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        If bx1_36109017.Text.Length = 0 Then
            MsgBox("no.transaksi belum terisi")
            Exit Sub
        End If


        If bx3_36109017.Text.Length = 0 Then
            MsgBox("jenis transaksi belum terisi")
            Exit Sub
        End If

        kecoak.AturPencarianDataBase("mastertransaksi", "notrans", bx1_36109017.Text, 1, uphy)

        If kecoak.JumlanBaris > 0 Then
            MsgBox("NO.TRANS sudah ada")
            Exit Sub
        End If

        If iftah.Rows.Count = 0 Then
            MsgBox("data tidak tersedia")
        End If
        Dim com As New OleDb.OleDbCommand
        com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & bx1_36109017.Text & "',#" & bx2_36109017.Value.Date & "#," & Val(bx3_36109017.Text) & ")", uphy)

        uphy.Open()
        com.ExecuteNonQuery()
        uphy.Close()

        For Each r As DataRow In iftah.Rows

            com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & bx1_36109017.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", uphy)

            uphy.Open()
            com.ExecuteNonQuery()
            uphy.Close()
            com.Dispose()

        Next

        iftah.Rows.Clear()

        bx1_36109017.Text = ""
        bx3_36109017.Text = ""

    End Sub
End Class

apkom4 latihan 34

Latihan 34A

Public Class latihan34A_36109017
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        If latihan34B_36109017.Visible = False Then
            latihan34B_36109017.MdiParent = Me
            latihan34B_36109017.Show()
        Else
            latihan34B_36109017.Activate()
        End If
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        If latihan34C_36109017.Visible = False Then
            latihan34C_36109017.MdiParent = Me
            latihan34C_36109017.Show()
        Else
            latihan34C_36109017.Activate()
        End If
    End Sub

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
        If latihan34B_36109017.Visible = False Then
            latihan34B_36109017.MdiParent = Me
            latihan34B_36109017.Show()
        Else
            latihan34B_36109017.Activate()
        End If
    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
        If latihan34C_36109017.Visible = False Then
            latihan34C_36109017.MdiParent = Me
            latihan34C_36109017.Show()
        Else
            latihan34C_36109017.Activate()
        End If
    End Sub

End Class

latihan 34B

Public Class latihan34B_36109017

    Dim uphy As New DataTable
    Dim kecoak As New OleDb.OleDbCommand
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub latihan34B_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select * from barang", conect)
        uphy.Rows.Clear()
        adapter.Fill(uphy)
        adapter.Dispose()
        dgv_36109017.DataSource = uphy
    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click
        If latihan34C_36109017.Visible = False Then
            latihan34C_36109017.Show()
        Else
            latihan34C_36109017.Activate()
        End If
    End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        Dim apa As String = "delete * from barang where kodebarang = '" & dgv_36109017.CurrentRow.Cells("kodebarang").Value & "'"
        kecoak = New OleDb.OleDbCommand(apa, conect)
        conect.Open()
        kecoak.ExecuteNonQuery()
        conect.Close()
        kecoak.Dispose()

        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select * from barang", conect)
        uphy.Rows.Clear()
        adapter.Fill(uphy)
        adapter.Dispose()
        dgv_36109017.DataSource = uphy
    End Sub

    Private Sub btn3_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3_36109017.Click
        If latihan34C_36109017.Visible = False Then
            latihan34C_36109017.Show()
        Else
            latihan34C_36109017.Activate()
        End If
        latihan34C_36109017.b5_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan34C_36109017.bx1_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan34C_36109017.bx2_36109017.Text = dgv_36109017.CurrentRow.Cells("namabarang").Value
        latihan34C_36109017.bx3_36109017.Text = dgv_36109017.CurrentRow.Cells("jumlahbarang").Value
        latihan34C_36109017.bx4_36109017.Text = dgv_36109017.CurrentRow.Cells("hargajual").Value

    End Sub
End Class

latihan 34C

Public Class latihan34C_36109017

    Dim uphy As New ByIskandar.CariKeDataBaseByIskandar
    Dim kecoak As New OleDb.OleDbCommand
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub btn_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109017.Click
        If b5_36109017.Text = "" Then
            uphy.AturPencarianDataBase("Barang", "KodeBarang", bx1_36109017.Text, 1, conect)
            If uphy.JumlanBaris > 0 Then
                MsgBox("kode barang telah ada")
                bx1_36109017.Text = ""
                Exit Sub
            ElseIf bx1_36109017.Text.Length = 0 Then
                MsgBox("kode barang harus tercantum")
                Exit Sub
            ElseIf bx2_36109017.Text.Length = 0 Then
                MsgBox("nama barang harus tercantum")
                Exit Sub
            ElseIf bx3_36109017.Text.Length = 0 Then
                MsgBox("harga jual harus tercantum")
                Exit Sub
            ElseIf bx4_36109017.Text.Length = 0 Then
                MsgBox("jumlah barang harus tercantum")
                Exit Sub
            End If
            Dim apa As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & bx1_36109017.Text & "','" & bx2_36109017.Text & "'," & Val(bx3_36109017.Text) & "," & Val(bx4_36109017.Text) & ")"
            kecoak = New OleDb.OleDbCommand(apa, conect)
            conect.Open()
            kecoak.ExecuteNonQuery()
            conect.Close()
            kecoak.Dispose()
            bx1_36109017.Text = ""
            bx2_36109017.Text = ""
            bx3_36109017.Text = ""
            bx4_36109017.Text = ""
        Else
            If b5_36109017.Text <> bx1_36109017.Text Then
                uphy.AturPencarianDataBase("Barang", "KodeBarang", bx1_36109017.Text, 1, conect)
                If uphy.JumlanBaris > 0 Then
                    MsgBox("kode barang tidak dapat diupdate")
                    Exit Sub
                End If
            End If
            If bx1_36109017.Text.Length = 0 Then
                MsgBox("kode barang harus tercantum")
                Exit Sub
            ElseIf bx2_36109017.Text.Length = 0 Then
                MsgBox("nama barang harus tercantum")
                Exit Sub
            ElseIf bx3_36109017.Text.Length = 0 Then
                MsgBox("harga jual harus tercantum")
                Exit Sub
            ElseIf bx4_36109017.Text.Length = 0 Then
                MsgBox("jumlah barang harus tercantum")
                Exit Sub
            End If
            Dim monyong As String = "update barang set kodebarang = '" & bx1_36109017.Text & "', namabarang = '" & bx2_36109017.Text & "', hargajual = " & Val(bx3_36109017.Text) & ", jumlahbarang = " & Val(bx4_36109017.Text) & " where kodebarang = '" & b5_36109017.Text & "'"
            kecoak = New OleDb.OleDbCommand(monyong, conect)
            conect.Open()
            kecoak.ExecuteNonQuery()
            conect.Close()
            kecoak.Dispose()
            b5_36109017.Text = "-"
            bx1_36109017.Text = ""
            bx2_36109017.Text = ""
            bx3_36109017.Text = ""
            bx4_36109017.Text = ""
        End If
    End Sub
End Class

apkom4 latihan 33

latihan 33

Public Class latihan_33A_36109017

    Dim dt As New DataTable
    Dim uphy As New OleDb.OleDbCommand
    Dim kecoak As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub latihan_33A_36109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select * from barang", kecoak)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt

    End Sub

    Private Sub btn2_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109017.Click

        If latihan33B_36109017.Visible = False Then
            latihan33B_36109017.Show()
        Else
            latihan33B_36109017.Activate()
        End If
            End Sub

    Private Sub btn1_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109017.Click
        Dim apa As String = "delete * from barang where kodebarang = '" & dgv_36109017.CurrentRow.Cells("kodebarang").Value & "'"
        uphy = New OleDb.OleDbCommand(apa, kecoak)
        kecoak.Open()
        uphy.ExecuteNonQuery()
        kecoak.Close()
        uphy.Dispose()

        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select * from barang", kecoak)
        dt.Rows.Clear()
        adapter.Fill(dt)
        adapter.Dispose()
        dgv_36109017.DataSource = dt

    End Sub

    Private Sub btn3_36109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3_36109017.Click
        If latihan33B_36109017.Visible = False Then
            latihan33B_36109017.Show()
        Else
            latihan33B_36109017.Activate()
        End If
        latihan33B_36109017.b4_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan33B_36109017.bx1_36109017.Text = dgv_36109017.CurrentRow.Cells("kodebarang").Value
        latihan33B_36109017.bx2_36109017.Text = dgv_36109017.CurrentRow.Cells("namabarang").Value
        latihan33B_36109017.bx4_36109017.Text = dgv_36109017.CurrentRow.Cells("jumlahbarang").Value
        latihan33B_36109017.bx3_36109017.Text = dgv_36109017.CurrentRow.Cells("hargajual").Value
         End Sub
End Class

Sungguh Terlalu

hmm...
gini nigh susahnya jadi orang rajin, pagi ini seperti biasa saya berangkat ke kampus pukul 06.35.
Bukannya saya sok rajin, saya cuman ga' mau telat masuk kelas.

Akupun berangkat ke kampus dengan mata yang masih ingin istirahat dan jiwa yang masih nyangkut di kamar. begadang semalam membuat pagiku cukup berantakan.
" semalam dengan niat semangat juang 45 aku mulai berusaha untuk mengerjakan seluruh tugas-tugas yang diberikan oleh DOSEN. Akupun mulai menerapkan pesan singkat dari Bang Oma "begadang jangan begadang, kalau tiada artinya. begadang boleh saja kalau ada artinya"  yah begadang kali ini di sponsori oleh tugas METODE PENELITIAN BISNIS. Dengan semangat Mahasiswa dan semangat juang 45 akhirnya akupun menyelesaikan tugas tepat pukul 02.00 pagi." (senangnya hidupku menjelng pagi, lega!)


Aku fikir pagi ini deritaku hanya sampai sebatas ngantuk, namun dewi fortuna berkata lain. waktu lagi di jalan HP tiba-tiba bernyanyi dengan riang pertanda ada pesan singkat yang masuk ke HP.
aku membuka pesan tanpa ada rasa curiga, isinya kira-kira kayak gini "Maaf pagi ini IBU tidak bisa masuk karena ada sesuatu hal yang menggangu. Tugasnya simpan di meja saya saja".
DAMN!! serasa roh naik ke ubun-ubun hampir keluar dari tubuh!! hanya bisa menarik nafas dan terima nasib.
Ngapain coba sms pemberitahuannya baru masuk pas gue udah ada di jalan.
apa salahKU? (tiba-tiba terdengar sayup-sayup suara RYAN D'masiv nyanyi di kuping kiri dan kanan)
apa saya yang terlalu rajin ke kampus?
padahal semalam gue udah mampus-mampusan ngerjain tugas, bela-belain begadang nemanin ayam menyambut pagi..!!!
cuman bisa  bilang "yaah saya mesti terima nasib"
#satu pesan buat para pengajar baik itu Dosen maupun Guru dan sejenisnya "please jangan labil (kalau ada sesuatu hal yang menghambat kedatangan ibu/bapak jangan segan-segan ngomong kekita langsung. yah paling lambat sehari sebelum jadwal atau setidaknya di malam hari kami masih menerima pemberitahuan ibu/bapak dengan senang hati dan tangan terbuka) karna itu membuat aku galau"
*salam mahasiswa RAJIN

KONSEP DASAR KEWIRAUSAHAAN

KONSEP DASAR KEWIRAUSAHAAN

A.    OBYEK STUDI KEWIRAUSAHAAN

Kewirausahaan merupakan ilmu yang mempelajari tentang nilai, kemampuan, dan perilaku seseorang dalam menghadapi tantangan hidupnya Kewirausahaan merupakan disiplin ilmu tersendiri karena berisi body of knowledge yang utuh dan nyata ada objek, konsep dan metodenya. Objek studi kewirausahaan adalah kemampuankemampuan merumuskan tujuan hidup. Konsep dasar kewirausahaan kemampuan hidup, memotivasi diri, berinisiatif, membentuk modal, mengatur waktu dan membiasakan diri untuk belajar dari pengalaman.

B.     HAKIKAT KEWIRAUSAHAAN

Kewirausahaan pada hakikatnya adalah sifat, ciri, dan watak seseorang yang memiliki kemauan dalam mewujudkan gagasan inovatif ke dalam dunia nyata secara kreatif. Kreatifitas adalah berfikir sesuatu yang baru, keinovasian adalah bertindak melakukan sesuatu yang baru. Secara epistimologis kewirausahaan hakikatnya adalah suatu kemampuan dalam berfikir kreatif dan berperilaku inovatif yang dijadikan dasar, sumber daya, tenaga penggerak, tujuan, siasat, kiat dalam menghadapi tantangan hidup.

Proses kreatif dan inovatif biasanya diawali dengan munculnya ide-ide dan pemikiran-pemikiran baru untuk mencipatakan sesuatu yang baru. Dalam hal organisasi perusahaan misalnya, proses kreatif dan inovatif dilakukan melalui kegiatan penelitian dan pengembangan (research and development) dengan tujuan untuk meraih pasar. Baik ide, pemikiran, maupun tindakan kreatif merupakan nilai tambah yang bisa dijadikan sumber keunggulan untuk dijadikan peluang. Jadi, kewirausahaan merupakan suatu kemampuan dalam menciptakan nilai tambah di pasar melalui proses pengelolaan sumber daya dengan cara-cara baru dan berbeda, melalui: (1)Pengembangan teknologi baru, (2) Penemuan pengetahuan ilmiah baru, (3)Perbaikan produk barang dan jasa yang ada, dan (4)Penemuan cara-cara baru untuk menghasilkan barang lebih banyak dengan sumber daya yang lebih efisien.

Kreatifitas adalah kemampuan untuk mengembangkan ide-ide baru dalam pemecahan masalah dan menemukan peluang (thinking new thing). Sedangkan Inovasi adalah kemapuan untuk menerapkan kreatifitas alam rangka pemecahan masalah dan menemukan peluang (doing new thing).

Wirausahawan yang unggul yang mampu menciptakan kreativi­tas dan inovasi sebagai dasar untuk hidup, tumbuh dan berkembang umumnya memiliki karakteristik atau ciri-ciri yang merupakan proses jangka panjang berdasarkan pengalaman dan pendidikan.

C.    KARAKTERISTIK  WIRAUSAHAAN

Beberapa karakteristik yang melekat pada diri wirausahawan (Zimmerer, and Scarborough, 1998; Kuratko & Hoodgets, 2007) sebagai berikut:

1.      Desire for responsibility

Wirausaha yang unggul merasa bertanggungjawab secara pribadi atas hasil usaha yang dia lakukan. Mereka lebih dapat mengendalikan sumberdaya sumberdaya yang dimiliki dan menggunakan sumberdaya tersebut untuk mencapai cita-cita. Wirausaha yang berhasil dalam jangka panjang haruslah memiliki rasa tanggung jawab atas usaha yang dilakukan. Kemampuan untuk menanggung risiko usaha se­perti: risiko keuangan, risiko teknik adakalanya muncul, sehingga wirausaha harus mampu meminimalkan risiko.

2.      Tolerance for ambiguity

Ketika kegiatan usaha dilakukan, mau-tidak mau harus berhubung­an dengan orang lain, baik dengan karyawan, pelanggan, pe­masok bahan, pemasok barang, penyalur, masyarakat, maupun aturan legal formal. Wirausaha harus mampu menjaga dan mem­pertahankan hubungan baik dengan stakeholder. Keberagaman bagi wirausaha adalah sesuatu hat yang biasa. Kemampuan un­tuk menerima keberagaman merupakan .suatu ciri khas wirausaha guna menjaga kelangsungan hidup bisnis atau perusahaan dalam jangka panjang.

3.      Vision

Wirausaha yang berhasil selalu memiliki cita-cita, tujuan yang jelas kedepan yang harus dicapai secara terukur. Visi merupakan filosofi, cita-cita dan motivasi mengapa perusahaan hidup, dan wi­rausaha akan menterjemahkan ke dalam tujuan, kebijakan, ang­garan, dan prosedur kerja yang jelas. Wirausaha yang tidak jelas visi kedepan ibarat orang yang berjalan tanpa arah yang jelas, se­hingga kecenderungan untuk gagal sangat tinggi.

4.      Tolerance for failurer

Usaha yang berhasil membutuhkan kerja keras, pengorbanan balk waktu biaya dan tenaga. Wirausaha yang terbiasa dengan kreativitas dan inovasi kadangkala atau bahkan sering mengalami ketidakberhasilan. Proses yang cukup panjang dalam mencapai kesuksesan tersebut akan meningkatkan kepribadian toleransi terhadap kegagalan usaha.

5.      Internal locus of control

Didalam diri manusia ada kemampuan untuk mengendalikan diri yang dipengaruhi oleh internal diri sendiri. Wirausaha yang ung­gul adalah yang memiliki kemampuan untuk mengendalikan diri dari dalam dirinya sendiri. Kerasnya tekanan kehidupan, persaingan binis, perubahan yang begitu cepat dalam dunia bisnis akan meningkatkan tekanan ke­jiwaan balk mental, maupun moral dalam kehidupan kesehari­an. Wirausaha yang mampu mengendalikan dirinya sendiri akan mampu bertahan dalam dunia bisnis yang makin komplek.

6.      Continuous Improvement

Wirausaha yang berhasil selalu bersikap positif, mengangap peng­alaman sebagai sesuatu yang berharga dan melakukan perbaikan terus-menerus. Pengusaha selalu mencarihal-hal baru yang akan memberikan manfaat balk dalam jangka pendek maupun jangka panjang. Wirausaha memiliki tenaga, keinginan untuk terlibat dalam petualangan inovatif yang akan membawa konsekuensi menguntungkan dimasa depan.

7.      Preference for moderate risk.

Dalam kehidupan berusaha, wirausaha selalu berhadapan dengan intensitas risiko. Sifat wirausaha dalam menghadapi resiko dapat digolongkan ke dalam 3 macam sifat mengambil resiko, yaitu risk seeking (orang yang suka dengan risiko tinggi), moderat risk (orang yang memiliki sifat suka mengambil risiko sedang), dan risk averse (orang memiliki sifat suka menghidari risiko) Pada umumnya wirausaha yang berhasil memiliki kemampuan untuk memilih risiko yang moderate/sedang, di mana ketika mengambil keputusan memerlukan pertimbangan yang matang, hal ini seja­lan dengan risiko wirausaha yang apabila mengalami kegagalan di tanggung sendiri. Wirausaha akan melihat sebuah bisnis dengan tingkat pemahaman pribadi yang disesuaikan dengan perubahan lingkungan (Zimmerer, and Scarborough, 1998)

8.      Confidence in their ability to success.

Wirausaha umumnya memiliki keyakinan yang cukup tinggi atas kemampuan diri untuk berhasil. Mereka memiliki kepercayaan yang tinggi untuk meiakukan banyak hal dengan balk dan sukses. Mereka cenderung untuk optimis terhadap peluang keberhasilan dan optimisme, biasanya berdasarkan kenyataan. Tanpa keyakin­an kepercayaan untuk sukses dan mampu menghadapi tantangan akan menurunkan semangat juang dalam melakukan bisnis.

9.      Desire for immediate feedback.

Perkembangan yang begitu cepat dalam kehidupan usaha menunut wirausaha untuk cepat mengantisipasi perubahan yang terjadi agar mampu bertahan dan berkembang. Wirausaha pada umumnya memiliki keinginan untuk mendapatkan respon atau umpan balik terhadap suatu permasalahan. Persaingan yang begitu ketat dalam dunia usaha menuntut untuk berpikir cerdas, cepat menanggapi perubahan. Wirausaha memiliki kecenderungan untuk mengetahui sebaik apa ia bekerja dan mencari pengakuan atas prestasi secara terus-menerus.

10.  High energy level

Wirausaha pada umumnya memiliki energi yang cukup tinggi dalam melakukan kegiatan usaha sejalan dengan risiko yang ia tanggung. Wirausaha memiliki semangat atau energi yang cukup tinggi dibanding kebanyakan orang. Risiko yang harus ditanggung sendiri mendorong wirausaha untuk bekerja keras dan dalam jangka waktu yang cukup lama. Bergairah dan mampu menggu­nakan daya geraknya, ulet tekun dan tidak mudah putus asa.

ide dan peluang dalam kewirausahaan

Ide Dan Peluang Dalam Kewirausahaan

A.    Ide Kewirausahaan

Nilai suatu barang atau produk dapat diciptakan melalui:

a)      Inovasi

Keberhasilan wirausaha dicapai apabila wirausaha menggunakan produk, proses, dan jasa-jasa inovasi sebagai alat untuk menggali perubahan.

b)      Mengubah tantangan menjadi peluang

Menciptakan permintaan melalui penemuan baru (market driven).

Menurut Zimmerer, ide-ide yang berasal dari wirausaha dapat menciptakan peluang untuk memenuhi kebutuhan pasar. Dalam mengevaluasi ide, wirausaha perlu mengidentifikasi dan mengevaluasi semua resiko yang mungkin terjadi dengan cara:

1.      Pengurangan resiko melalui strategi yang proaktif

2.      Penyebaran resiko pada aspek yang paling mungkin

3.      Pengelolaan resiko yang mendatangkan nilai atau manfaat

Ada tiga resiko yang perlu dievaluasi, yaitu:

1.       Resiko pasar atau resiko persaingan, terjadi akibat adanya ketidakpastian pasar

2.       Resiko finansial, terjadi akibat rendahnya hasil penjualan dan tingginya biaya

3.       Resiko teknik, terjadi akibat kegagalan teknik

Bagaimana ide dapat menjadi peluang, ada beberapa cara untuk melakukannya yaitu:

1.       Ide dapat digerakkan secara internal melalui perubahan cara-cara/metoda yang lebih baik untuk dapat memenuhi kepuasan pelanggan

2.       Ide dapat dihasilkan dalam bentuk produk dan jasa baru

3.       Ide dapat dihasilkan dalam bentuk modifikasi, bagaimana pekerjaan dilakukan atau dimodifikasi cara melakukan suatu pekerjaan

B.     Sumber-sumber Potensial Peluang

Seorang calon pengusaha harus berani mengambil resiko sebesar dan seberat apapun. Hal yang perlu diingat adalah menjalankan segala sesuatu dengan perhitungan matang dan selalu memiliki sikap optimistis bahwa semua masalah dapat diatasi. Perlu dicamkan bahwa semakin besar resiko yang dihadapi, semakin besar pula peluang memperoleh keuntungan tidak hilang dan segala kendalaresiko yang bakal dihadapi dapat diatasi atau diminimalkan, sebelum melakukan bisnisnya seorang calon pengusaha perlu atau harus memperhitungkannya.

Diperlukan kemauan keras untuk memupuk jiwa kewirausahaan mau belajar hal hal baru, mau mencari peluang, berani mencoba formula bisnis dan tentu saja belajar mengelola resiko. Menjadi wirausaha berarti memiliki kemampuan menemukan dan mengevaluasi peluang-peluang mengumpulkan sumber-sumber daya yang diperlukan dan bertindak untuk memperoleh keuntungan dan peluang peluang itu. Dalam kaitannya dengan peluang dalam berwirausaha ada beberapa sumber peluang usaha antara lain:

1.      Perubahan teknologi

2.      Perubahan kebijakan dan politik

3.      Perubahan sosial demografi

Proses penjaringan ide disebut screening yang merupakan suatu cara terbaik untuk menuangkan ide potensial menjadi produk atau jasa riil. Adapun langkah-langkah dalam penjaringan ide (screening) ide dapat dilakukan dengan cara: Menciptakan produk baru dan berbeda, mengamati pintu peluang, analisis produk dan proses produksi secara mendalam, menaksi biaya awal, dan memperhitungkan resiko yang mungkin terjadi.

C.    Bekal Pengetahuan dan Kompetensi Kewirausahaan

Sebenarnya di sekitar kita ini banyak sekali macam usaha atau bisnis yang bisa diraih, hanya saja kita harus betul-betul memahami kebutuhan masyarakat konsumen. Barang kali sekarang ini belum banyak yang kita temukan, jika kita kreatif akan mampu melihat peluang bisnis sebanyak-banyaknya dan mampu menangkap satu atau dua diantaranya.

Pendek kata, peluang bisnis tidak akan pernah habisnya, selama minat manusia masih menjalankan hajat hidupnya didunia ini. Peluang bisnis bisa datang dari mana saja, misalnya ketrampilan yang kita miliki juga bisa dijadikan peluang bisnis, trampil di bidang elektronika misalnya. Tingkat pendidikan kita juga bisa menjadi bisnis dengan pengembang profesi, misal membuka kursus privat. Peluang itu juga terdapat dilingkungan pekerjaan, organisasi dan tetangga.Dengan begitu, kita tidak hanya jeli mencari peluangbisnis tapi juga mampu menciptkan pasar. Begitu pula hobi dari hasil hobi kita juga bisa menjadi peluang bisnis melukis misalnya.

Peluang bisnis itu hanya bisa diraih jika kita jeli dan gigih. Oleh karena itu sebaiknya jangan ragu di dalam setiap meraih peluang bisnis di sekitar kita. Untuk menjadi wirausaha yang berhasil, persyaratan utama yang harus dimiliki adalah memiliki jiwa dan watak kewirausahaan. Jiwa dan watak kewirausahaan tersebut dipengaruhi oleh keterampilan, kemampuan, atau kompetensi. Komptensi itusendiri ditentukan oleh pengetahuan dan pengalaman.

Wirausahawan adalah seseorang  yang memiliki jiwa dan kemampuan tertentu dalam berkreasi dan berinovasi, ia memiliki kemampuan untuk menciptakan sesuatu yang baru dan berbeda.Kemampuan kreatif dan inovatif tersebut tercermin dalam:

1.      Kemampuan dan kemauan untuk memulai usaha (start-up)

2.      Kemampuan untuk mengerjakan sesuatu yang baru (creative)