news

FRAZER - Lazimnya Anda melihat beruang di kebun binatang atau televisi. Namun, di Pittsburgh, Amerika Serikat (AS), seekor beruang dengan leluasa terlihat tengah berjalan-jalan di sebuah pusat perbelanjaan.

Beruang betina itu terlihat tengah memasuki pusat perbelanjaan Pittsburgh Mills di Fraze pada pukul 09.00 waktu setempat. Demikian seperti diberitakan Pittsburgh Post-Gazette dan dikutip UPI Selasa, (24/7/2012).

Akibat peristiwa itu, pengunjung pusat perbelanjaan Pittsburgh Mills pun sempat dievakuasi ketika petugas dari taman konservasi margasatwa berusaha menangkap beruang itu.

Dengan sigap para petugas konservasi margasatwa berusaha menarik perhatian dari beruang itu untuk menuju pintu masuk pertokoan sebelum akhirnya ia terjebak diantara dua pintu. Petugas pun segera menembak dua kali senapan beramunisi obat penenang.

Beruntung tidak ada yang terluka dalam insiden itu. Beruang betina itu pun berhasil dibawa pergi dari pusat perbelanjaan tanpa ada insiden berarti.

"Ini lebih menakutkan dari apapun karena biasanya berunag memilih untuk menjauh dari banyak orang," petugas konservasi margasatwa dan Puhala.

Tidak dijelaskan bagaimana beruang betina itu bisa mencapai pusat perbelanjaan dan leluasa berjalan-jalan di area sekitar.(rhs)

Read more »

Membangaun kepercayaan Diri

Banyak jalan menuju roma,bagitu juga banyak cara utuk mencapai sebuah kesuksesan dan keberhasilan yang di inginkan,tapi banyak orang tidak menyadarinya akan semua itu merekatidak percaya bahwa sebenarnya mereka itu mampu dan sangat mampu untuk mewujudkannya,tapi merekan tidak bisa mendaya gunakan kemampuanya untuk hal tersebut yang ada dalam pikiranya Cuma gagal dan gagal padahal itu hanya sesuatu yang membuat kita lemah untuik mewujudkan apa yang ingin kita raih.

Kepercayaan diri merupakan kemampuan dasar yang ada dalam diri seseorang,yang berhubungan dengan kondisi kejiwaan.penting bagio seorang untuk bisa mendayagunakan kepercayaan diri menjadi kekuatan yang mampu mengubah cara pikir dan bertindak seseorang secara lebih baik dan lebih semangat,agar kita bisa sadar bahwa percaya diri itu kunci utama sebuah keberhasilan.

Kepercayaan diri dapat di dayagunakan dengan cara sebagai beriut:

•  Memahami bakat dan kemampuan diri yang asli.seseorang akan mampu mencapai suatu kesuksesan jika mengetahui kemampuan dan bakat aslinya.pertama kenalilah diri anda sediri pertimbangkan kemampuan dan sumberdaya sendiri,dengan demikian anda  tidak akan ragu untuk terus maju.
• Menggali daya   kreasi dan inovasi.anda akan di perhitungkan oleh orang lain jika memiliki keunggulan dalam menciptakan hal hal yang baru.dengan tekun berfikir dan berkarya,maka percaya diri anda akan terbangun.ingant jangan takut kalau bakat anda belum muncul dalam diri anda tetap percaya diri dan berusaha pasti kalau sudah jalan nanti kalian akan menemukan bakat anda yang terendam.
• Bersikap tegas dan berfikir positif.Ketegasan akan menjauhkan anda dari keragu raguan,dan dengan berfikir positif akan menjauhkan  anda dari  prasangka yang membuat anda lemah dan tidak percaya diri serta membuat jalan anda menjadi kacau.jangan biarkan pikiran pikiran seperti itu terus berada dalam diri anda buang jauh jauh dari sekarang.
• Biasakan bergaul dengan orag orang yang tegas dan berprinsip.Tanpa kita sadari akan membuat kita menjadi lebih percaya lagi dan tanpa keragu raguan anda akan menjadi keyakinan bila anda sering bergaul dengan orang orang yang tegas dan berprinsip.
• Mulailah dengan membuat rencana harian dan di kerjakan dengan kesungguhan sungguhan,dengan cara ini kedisiplinan anda akan terasah.dan dengan demikian sedikit demi sedikit keopercayaan diri anda mulai terbangun serta tetap selalu berdoa kepada alloh swt.
• Selalu kembangkan kekuatan senyuman,baik yang tercermin dalam l dan perbuatan,cara berbicara dan berfikir,serta dalam penampilan yang menunjukan keoptimisan hidup.
• Selalu yakin pada diri kita sendiri bahwa kita akan meraihnya saat ini juga,,tuliskan kata kata yang memotivasi anda di kamar mandi atau tempat bercermin anda karena dengan itu anda akan selalu ingat denga apa yang akan lakukan.

Read more »

Berpikir dan Berjiwa Optimis

Berpikir dan Berjiwa Optimis

Tidak ada orang berhasil dalam semua usaha yang di lakukannya,karena langkah kita selalu di bayangi dengan ketakutan kebimbangan dan keraguan dalam diri kita,hal yang terpenting adalah jangan menjadi lemah dalam menghadapai cobaan,selalu berfikirlah yang positif dan berjiwa besar.

Setiap orang yang akan sukses pasti mengalami kegagalan bahkan meraka sering gagal tapi karena tekad mereka dan semangat yang tinggi mereka bisa meraihnya,yang terpenting jangan mudah menyerah dalam berusaha tetap berdoa kepada tuhan yang maha esa pasti semuanya akan berjalan dengan baik.

 Memang betul kata pepatah “berakit rakit ke hulu, berenang renang ketepian, bersakit sakit dahulu bersenang senang kemudian” kita tidak akan sukses tanpa adanya usaha yang gigih dan tak kenal menyerah,kebanyakan orang menginkan sukses secara tiba tiba tidak ingin berkerja keras dulu, itu tidak mungkin kalau mungkin adanya ujan duit langit hkhk,kita jangan sesekali berfikir yang berlebihan laukanlah apa adanya karena kita usaha mulai dari nol yang penting kita udah berusaha tuk maju,jangan jadi orang yang gagal sebelum anda memulainya karena itu adalah orang yang tak mau sukses.

Percaya dirilah jangan sesekali meremahkan diri kita sendiri karena dengan itu dapat menjadikan kita lemah,takut dan sulit tuk berkembang,percayalah pada kemampuan kita dengan itu pasti dengan sendirinya munculah bakat bakat yang  terpendam dalam diri kita yang nantinya menjadi modal tuk kita meraih apa yang kita inginkan.

Buang pikiran pikiran yang negatif yang membuat diri anda sendiri lemah karena pikiran tersebut dapat menghalangi kita tuk menjadi orang suskes,jangan biarkan pikiran tersebut tumbuh dala diri anda segeralah laukan yang terbaik yang membuat anda terus maju dalam menggapai apa yang anda inginkan.

Yang terpenting ingat sellalu kepada alloh karena allohlah yang menentukan semua itu berhasil atau tidaknya,yang terpenting kita selalu berusaha dan bedoa karena alloh pasti akan memberikan jalan yang cerah untuk hamba hambanya yang mau berusaha,optimis dan percaya bahwa semua itu akan berjalan dengna lancar.

Read more »

Nilai Sebuah Senyuman

senyum itu terlalu mudah untuk di lakukan,namun di balik kemudahan itu terkandung banyak makna yang tidak semua orang mampu membaca apa makna yang tersembunyi di balik senyuman.

senyum menjadi jemnbatan bagi penciptanya jalinan persahabatan.karena senym adalah tanda kasih sayang yang lebih memberi makna pada setiap hubungan manusia baik dengan keluarga,sahabat,guru bahkan dengan orang lain yang belum kenal.sedikit senyum akan sangat menghibur dan membahagiakan bagi diri sendiri maupun orang lain.misal ketika seorang yang meminta minta kepada kita,maka dengan memberikan sedikit dan di barengi dengan snyuman akan jauh lebih menyenangkan dari pada memberi banyak tapi dengan muka masam.

kata pepatah juga mengatakan seyuman itu sedekah,karena ,senyuman yang tulus iklas berarti kita telah memberikan kabahagiakan terhadap orang lain.senyuman akna tercipta penampilan yang menawan,jiwa yang riang dan bersemangat serta mampu menciptakan kekuatandan kesehatan pada tubuh kita.

kalau anda merasa selama ini masih pelit memberikan senyuman terhadap orang lain,mulailah hari ini juga untuk belajar mengembangkan senyuman yang membuat orang lain suka terhadap sikap kita.kekuatan senyuman akan memmancarkan energi positif bagi diri anda dan orang lain.orang lain di sekitar kita merasa tercerahkan dengan ketulusan senyum kita,sebagaimana alam semesata ini menumbuhkankan bahasia manusai yag menumbuhkan keindahanya,laut indah,bungan yang cantik dan pemandangan yang luas dan menawan itulah bentuk senyuman indah. senyum yang membawa manfaat adalah senyuman yag tidak dari bibir saja,melainkan tersujud dari seluruh jiwa kita yang keluar dari hati kita.

untuk itu sekarang sadar apa manfaat senyuman bagi diri kita maupun orang lain,nilai yang sederhana tapi membuat banyak orang bahagia itulah senyuman.

Read more »

KONSEP DIRI , PERKEMBANGAN DAN FAKTOR – FAKTOR YANG MEMPENGARUHINYA

            Perkins (1958) menyatakan bahwa konspe diri adalah semua persepsi, kepercayaan, perilaku dan nilai-nilai yang digunakan diri seseorang untuk mendeskripsikan dirinya sendiri, dan konsep diri seorang anak berubah seiring dengan cara pandang dirinya pada suatu periode waktu. Sementara itu, Smith dkk (1977) mengungkapkan bahwa konsep diri adalah suatu cara pandang yang kompleks dan dinamis dalam diri seseorang terhadap dirinya sendiri dan konsep diri adalah sesuatu yang terukur. Konsep diri diukur dalam dua area yaitu akademik dan non akademik. Gunawan (2005) menyebutkan bahwa konsep diri akademik terkait dengan kemampuan verbal/bahasa dan matematika. Sedangkan untuk non akademik, menurut Marsh dalam Yan dan Haihui (2005), konsep diri diukur melalui delapan parameter yang mencakup: penampilan fisik, kemampuan fisik, hubungan sesama jenis, hubungan lain jenis, hubungan dengan orang tua, kestabilan emosi, kepercayaan dan kejujuran, serta konsep diri secara umum. 

          Terkait dengan pembentukannya, konsep diri mulai berkembang sejak masa bayi dan akan terus berkembang sejalan dengan perkembangan individu itu sendiri. Konsep diri individu terbentuk melalui imajinasi individu tentang respon yang diberikan oleh orang lain. Dalam proses tersebut, konsep diri dipengaruhi oleh beberapa factor. Puspasari (2007) menyatakan bahwa perkembangan dari proses pengenalan diri sendiri dipengaruhi oleh factor yang mengikuti perkembangan seorang anak seperti pengaruh keterbatasan ekonomi, isolasi lingkungan, ataupun pengaruh usia individu tersebut.

Read more »

form2

Public Class frmtambahdata
    Dim connsql As SqlClient.SqlConnection
    Dim dataadapteranggota As SqlClient.SqlDataAdapter
    Dim tabelanggota As New DataTable
    Dim cmdtabelanggota As SqlClient.SqlCommandBuilder
    Dim strkoneksi As String
    Dim recordanggota As DataRow
    Dim posisirecord As Integer

    Private Sub frmtambahdata_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        connsql.Close()
        connsql.Dispose()
    End Sub

    Private Sub frmtambahdata_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        strkoneksi = "Data Source=JAHIR-19D23153D\SQLEXPRESS;Initial " _
         & "Catalog=dbsimpin;Integrated Security=True"
        'bukakoneksi()
        connsql = New SqlClient.SqlConnection(strkoneksi)
        connsql.Open()
        dataadapteranggota = New SqlClient.SqlDataAdapter("select noanggota,namaanggota,alamat," _
                    & "jeniskelamin from tbanggota", connsql)
        dataadapteranggota.Fill(tabelanggota)
        cmdtabelanggota = New SqlClient.SqlCommandBuilder(dataadapteranggota)
        recordanggota = tabelanggota.Rows(0)
        txtnoanggota.Text = ""
        txtnama.Text = ""
        txtalamat.Text = ""
        cmbkelamin.Text = ""
    End Sub

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

    Private Sub cmdbuat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbuat.Click
        If txtnoanggota.Text <> "" And txtnama.Text <> "" And txtalamat.Text <> "" _
           And cmbkelamin.Text <> "" Then
            tabelanggota.Rows.Add()
            posisirecord = tabelanggota.Rows.Count - 1
            recordanggota = tabelanggota.Rows(posisirecord)
            recordanggota("noanggota") = txtnoanggota.Text
            recordanggota("namaanggota") = txtnama.Text
            recordanggota("alamat") = txtalamat.Text
            recordanggota("jeniskelamin") = cmbkelamin.Text
            'recordanggota("tgllahir") = Now()
            dataadapteranggota.Update(tabelanggota)
            Me.Close()
        Else
            MsgBox("Data harus diisi semua", MsgBoxStyle.Information, "Informasi")
        End If
    End Sub
End Class

Read more »

desain form login

Public Class frmanggota
    Dim connsql As SqlClient.SqlConnection
    Dim dataadapteranggota As SqlClient.SqlDataAdapter
    Dim tabelanggota As New DataTable
    Dim cmdtabelanggota As SqlClient.SqlCommandBuilder
    Dim strkoneksi As String
    Dim recordanggota As DataRow
    Dim posisirecord As Integer
    Sub tampilkandata()
        dgView.DataSource = tabelanggota

        If tabelanggota.Rows.Count <> 0 Then
            txtnoanggota.Text = recordanggota("noanggota")
            txtnama.Text = recordanggota("namaanggota")
            txtalamat.Text = recordanggota("alamat")
            cmbkelamin.Text = recordanggota("jeniskelamin")
        Else
            MsgBox("Data Kosong", MsgBoxStyle.Information, "Informasi")
        End If
    End Sub

    Private Sub frmanggota_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'tutupkoneksi()
        connsql.Close()
        connsql.Dispose()
    End Sub

    Private Sub frmanggota_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        strkoneksi = "Data Source=JAHIR-19D23153D\SQLEXPRESS;Initial Catalog=dbsimpin;Integrated Security=True"
        'bukakoneksi()
        connsql = New SqlClient.SqlConnection(strkoneksi)
        connsql.Open()
        dataadapteranggota = New SqlClient.SqlDataAdapter("select noanggota,namaanggota,alamat," _
                    & "jeniskelamin from tbanggota", connsql)
        dataadapteranggota.Fill(tabelanggota)
        cmdtabelanggota = New SqlClient.SqlCommandBuilder(dataadapteranggota)
        recordanggota = tabelanggota.Rows(0)
        tampilkandata()
    End Sub

    Private Sub cmdtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtambah.Click
        frmtambahdata.ShowDialog()
        dataadapteranggota.Fill(tabelanggota)
    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click
        tabelanggota.Rows(posisirecord).Delete()
        dataadapteranggota.Update(tabelanggota)
        posisirecord = 0
        tampilkandata()
    End Sub

    Private Sub smdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smdsimpan.Click
        recordanggota("noanggota") = txtnoanggota.Text
        recordanggota("namaanggota") = txtnama.Text
        recordanggota("alamat") = txtalamat.Text
        recordanggota("jeniskelamin") = cmbkelamin.Text
        dataadapteranggota.Update(tabelanggota)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If tabelanggota.Rows.Count <> 0 Then
            posisirecord = 0
            recordanggota = tabelanggota.Rows(posisirecord)
            tampilkandata()
        Else
            MsgBox("Data Kosong", MsgBoxStyle.Information, "Informasi")

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If tabelanggota.Rows.Count > 0 Then
            posisirecord = posisirecord - 1
            recordanggota = tabelanggota.Rows(posisirecord)
            tampilkandata()
        Else
            MsgBox("Data Kosong", MsgBoxStyle.Information, "Informasi")

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If posisirecord < (tabelanggota.Rows.Count - 1) Then
            posisirecord = posisirecord + 1
            recordanggota = tabelanggota.Rows(posisirecord)
            tampilkandata()
        Else
            MsgBox("Data Kosong", MsgBoxStyle.Information, "Informasi")
        End If
    End Sub
End Class

Read more »