Olahraga Yang Cocok Dilakukan di Kantor

Posted by Kamis, 23 Mei 2013



Kalau sudah stress atau ngantuk banget di kantor, ada baiknya menyempatkan waktu sejenak untuk melakukan senam ini.
TAKE TIME ! 7 menit dan matikan telepon seluler Anda, ayo ikuti senam ringan ini… gerakan yang benar… 


–mulai–


ini ala TAICHI sedikit .. sebagai intro & warming up..
  tirukan gaya seperti ini… untuk mengendurkan otot bahu dan leher.. 

wa..wa.. aku lah pahlawan bertopeng, gerakan tebar pesona... 

gerak ke kanan kemudian ke kiri.. syuuut syuuut…. 

gerak ke kiri kemudian ke kanan… biar imbang balik in lagi arahnya… 

ikuti aja … jangan banyak comment... 
setelah itu buat gerakan tangan dan badan… buat gaya happy aja.. jangan lupa senyum biar enak di liat…. 
kemudian goyang-goyang kaki dan badan … memperlancar sendi bahu…. namanya goyang rege sebagian… cik..cik..bum..cik..cik.. 
buat secara aggresive pula… jangan peduli apa orang lain bilang.. lepaskan semua beban….. “lepas…lepas…lepas….” 
buat execise tambahan putar kepala … ” membuang sedikit beban yang tertingal di kepala” tahap akhir sekali, tahap manggil hokie.. “hoki…hoki.. lai…. lai….hoki hoki lai…. “ 

Semoga segala penat jadi hilang rezeki pun datang...


 Demikian artikel ini saya posting, semoga bermanfaat bagi kita, ^_^

Sumber: referensidunia

Tugas Pemrograman Visual Basic.Net

Posted by Selasa, 14 Mei 2013

Design  Daftar Gaji Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net


Listing Programnya :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Nik.Items.Add("001")
        Nik.Items.Add("002")
        Nik.Items.Add("003")
        jabatan.Items.Add("mandor")
        jabatan.Items.Add("kepala bagian")
        jabatan.Items.Add("staf")
        status.Items.Add("menikah")
        status.Items.Add("tidak menikah")
        buattabel()
    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = Nik.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(gaji.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(tunjkeluarga.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(Total.Text)
        Lv.Items.Add(lst)
    End Sub

    Sub buattabel()
        Lv.Columns.Add("Nik", 50, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama", 70, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 90, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 60, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 90, HorizontalAlignment.Center)
        Lv.Columns.Add("Tunjangan keluarga", 130, HorizontalAlignment.Left)
        Lv.Columns.Add("Pajak", 60, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Gaji", 90, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "mandor" : gaji.Text = 1750000
            Case "kepala bagian" : gaji.Text = 2500000
            Case "staf" : gaji.Text = 1250000
        End Select
        pajak.Text = 0.15 * gaji.Text
    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Select Case Nik.Text
            Case "001" : nama.Text = "oncom"
            Case "002" : nama.Text = "udin"
            Case "003" : nama.Text = "ujang"
        End Select
    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "menikah" : tunjkeluarga.Text = 0.15 * gaji.Text
            Case "tidak menikah" : tunjkeluarga.Text = 0
        End Select
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        isitabel()
        Nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjkeluarga.Text = ""
        pajak.Text = ""
        Total.Text = ""
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Total.Text = Val(gaji.Text) + Val(tunjkeluarga.Text) - Val(pajak.Text)
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Lv.Items.Clear()
    End Sub

    Private Sub BtnDataDiPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDataDiPilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

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

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        Nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjkeluarga.Text = ""
        Total.Text = ""
        pajak.Text = ""
    End Sub
End Class



Form Gaji Saat Di Input Data




Berikut Hasil Program Daftar Gaji Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net





Tugas Pemrograman Visual Basic.Net, Silakan Klik  Di Sini


Pengurutan Bubble Sort Dengan Visual Basic 6.0

Posted by Senin, 06 Mei 2013


Algoritma bubble sort dalam metode pengurutan data secara sederhana bisa diibaratkan seperti halnya gelembung udara (bubble). Algoritma ini akan menggeser  nilai yang terkecil atau terbesar (sesuai dengan jenis pengurutan, ascending atau descending) ke posisi ujung dari daftar. Demikian seterusnya hingga semua daftar dalam keadaan terurut. 

Berikut saya memberikan contoh program dengan menggunakan Visual Basic untukprogram penggurutan Bubble Sort ini, yaitu :

Komponen :

Textbox1 --> bil
Textbox2 --> n
Textbox3 --> hasil
Command1 --> nama nya tetap Command1


Private Sub Command1_Click()
    Dim bila() As String
    Dim i As Integer
    Dim temp As String
    bila = Split(Bil.Text, ",")

    For i = 1 To n
        j = n - 1
        Do While j >= i
            If Val(bila(j)) < Val(bila(j - 1)) Then
                temp = bila(j)
                bila(j) = bila(j - 1)
                bila(j - 1) = temp
            End If
            j = j - 1
        Loop
    Next i

    Hasil.Text = ""
    For i = 0 To n - 1
        If i = 0 Then
            Hasil.Text = Hasil.Text & bila(i)
        Else
            Hasil.Text = Hasil.Text & "," & bila(i)
        End If
    Next i
End Sub

Private Sub Form_Load()
    Bil = ""
    Hasil = ""
    n = ""
End Sub

ini hasilnya :


Penggunaan Listview Pada Pemrograman Visual Basic

Posted by Minggu, 05 Mei 2013

Listview sering membantu dalam pemrograman visual basic. Dengan adanya listview kita mampu menampilkan beberapa data sekaligus dalam suatu objek yang di kenal listview.

Penggunaan listview ternyata sangat mudah, lihat saja program berikut ini :)

Design penggunaan listview pada pemrograman visual basic




Listing program.

Dim lst As ListItem

Private Sub cmdbersihkan_Click()
    ListView1.ListItems.Clear
End Sub

Private Sub cmdhapus_Click()
    NPM.Text = ""
    Nama.Text = ""
    Jenjang.Text = ""
    Jurusan.Text = ""
    Tahun.Text = ""
    NPM.SetFocus
End Sub

Private Sub cmdhapuspilih_Click()
    ListView1.ListItems.Remove ListView1.SelectedItem.Index
End Sub

Private Sub cmdsimpan_Click()
    Set lst = LV.ListItems.Add(, , NPM.Text)
    lst.SubItems(1) = Nama.Text
    lst.SubItems(2) = Jenjang.Text
    lst.SubItems(3) = Jurusan.Text
    lst.SubItems(4) = Tahun.Text
    Call cmdhapus_Click
End Sub

Private Sub Form_Activate()
    cmdhapus_Click
End Sub

Sub BuatTabel()
    With LV
        .ColumnHeaders.Add , , "NPM", 1000
        .ColumnHeaders.Add , , "Nama", 2500
        .ColumnHeaders.Add , , "Jenjang", 900
        .ColumnHeaders.Add , , "Jurusan", 1700
        .ColumnHeaders.Add , , "Tahun", 1000
        .GridLines = True
        .FullRowSelect = True
        .View = lvwReport
    End With
End Sub

Private Sub Form_Load()
    NPM.AddItem "1211030"
    NPM.AddItem "1111010"
    NPM.AddItem "1102111"
    NPM.AddItem "1211101"
    
    Call BuatTabel
    For i = 2005 To 2013
        Tahun.AddItem i
    Next i
    
    Jenjang.AddItem "S1"
    Jenjang.AddItem "D3"
    Jurusan.AddItem "Teknik Informatika"
    Jurusan.AddItem "Manajemen Informatika"
End Sub

Private Sub NPM_Click()
    Select Case NPM
    Case "1211030": Nama.Text = "Dian Sostro"
    Case "1111010": Nama.Text = "Susi Andriyani"
    Case "1102111": Nama.Text = "Arista Triani"
    Case "1211101": Nama.Text = "Aldyan"
    End Select
End Sub


Berikut hasil program dengan menggunakan listview pada pemrograman visual basic.

Akan Terbit, Jurnal Ilmiah Pornografi Pertama

Posted by




Topik tentang seks dan produk budaya yang merujuk kepadanya biasanya selalu dianggap tabu untuk dibicarakan. Namun, Routledge akan memicu perbincangan serius tentangnya dengan menerbitkan jurnal khusus pornografi pertama di dunia, Porn Studies.


Porn Studies akan dipublikasikan mulai tahun 2014. Routledge mendeskripsikan jurnal ini sebagai "jurnal peer review internasional pertama yang didedikasikan untuk secara kritis menggali produk budaya dan pelayanan yang dianggap pornografi serta konteks budaya, ekonomi, sejarah, legal, institusional, dan sosial yang dimiliki."



Diberitakan New York Times, Selasa (30/4/2013), jurnal terutama akan menaruh perhatian khusus pada masalah seksualitas, jender, ras, kelas, usia, dan kemampuan seksual.



Meski masih akan terbit setahun lagi, jurnal yang akan diedit oleh dua akademisi Inggris, Feona Attwood dan Clarisaa Smith, ini sudah menarik perhatian banyak ilmuwan dunia.



Julie Peakman, sejarawan University of London dan penulis buku "Mighty Lewd Books: The Development of Pornography in the Eighteenth-Century England" itu mengatakan, "kita telah menunggu lama kehadiran jurnal akademik yang menaruh perhatian pada representasi seksualitas manusia secara serius seperti seharusnya didapatkan."



"Saya menantikan perdebatan yang hidup dan serius lintas bidang kajian lewat jurnal ini," sambung Peakman.



Ilmuwan dari belahan dunia mana pun berhak memasukkan artikel atau hasil kajiannya ke jurnal ini. Salah satu syaratnya adalah panjang artikel sekitar 5000-8000 kata untuk tiap makalah, 500-1500 kata untuk forum, dan 800 - 1500 kata untuk resensi buku.



Topik tentang seksualitas mendapat perhatian setelah beberapa universitas ternama, seperti Harvard dan Yale, mengadakan beragam acara yang membahas seputar seks. Di antaranya adalah Sex Weekyang menawarkan pameran dan workshop dengan sex toys, serta kuliah dari para bintang porno.

Ditinggal Pasangan, Yuk Cari Apa Sebabnya

Posted by



Alih-alih pasangan membahas tentang kelanjutan hubungan, si dia justru menyudahi hubungan selesai sampai di sini. Sering kali untuk menghibur diri, lalu berpikir bahwa dia digoda wanita lain. Padahal 'kesalahan' itu bisa juga dari kita sendiri. Sebelum terburu-buru berkesimpulan ada orang ketiga diantara kalian, tak ada salahnya Anda introksi diri mengapa si dia memilih mengambil langkah seribu dari kehidupan Anda, seperti dikutip dari boldsky.


  • Mungkin Anda wanita terlalu materialistis

Sebuah hubungan bagaimanapun akan melibatkan materi demi kesejahteraan bersama. Tapi kalau yang Anda minta terlalu berlebihan, ini juga akan membuat pria ketakutan dan lari tunggang langgang karena memikirkan dirinya akan menjadi sapi perahan Anda.

  • Mungkin Anda wanita terlalu manja

Pria suka kok dengan perempuan manja, ini membuat mereka lebih manis dan membuat pria seperti hanya dialah yang Anda butuhkan. Tapi ingat pria tidak suka kemanjaan Anda berbuah harus 24 jam diperhatikan sehingga membatasi aktivitas dan ruang geraknya karena mata Anda selalu mengikuti.

  • Mungkin Anda terlalu banyak mengomel

Pria sudah paham kalau wanita itu makhluk cerewet dan suka mengomel, tapi kalau itu berlangsung 24 jam atau sehari dan tujuh dari dalam seminggu, Pria Anda juga bukan pantung yang hanya akan diam saja. Dia bisa gerah dan muak dengan omelan Anda yang terkadang hal sepele.

Diam seringkali adalah hal terbaik membuat situasi tenang, baru setelah itu lakukan komunikasi.

  • Mungkin Anda bicara tentang pernikahan terlalu cepat

Siapa sih yang tak ingin mengakhiri hubungan pacaran dengan pernikahan. Tapi di bulan kedua usia hubungan, Anda tiba-tiba bicara tentang pernikahan dan kehidupan setelahnya mungkin juga bukan ide baik.

Semua ada tahapnya dan ikuti apa saja bagian itu. Jika Anda mulai mendorong untuk mengusulkan pernikahan sebulan setelah kencan pertama Anda, Ini juga akan membuatnya takut.

  • Anda mungkin terlalu 'ramah' terhadap orang lain

Pria suka wanita yang mereka kencani memiliki reputasi supel dan hangat kepada orang lain. Tapi ini berbeda ketika Anda terlihat seperti 'terlalu ramah' atau mudah bagi orang lain.

Pria tidak ingin perempuan yang dianggap 'cepat' atau 'mudah'.

  • Anda terlalu semnagat bekerja.

Wanita suka dengan pria pekerja keras, tapi tidak semua lantas hari dan waktu didedikasikan untuk bekerja keras. Pria Anda tidak perlu merasa diabaikan atau .

  • Mungkin Anda terlalu meremehkannya

Pria suka kok perempuan mandiri dan tangguh. Tapi ada beberapa hal yang memang seharusnya dan lebih tepat dilakukan oleh pria. Jangan pernah ragu memintanya melakukan itu, karena kalau iya, sama artinya Anda meremehkan kaberanian dan kemampuannya.

  • Mungkin Anda terlalu dingin di ranjang

Urusan ranjang adalah urusan berdua, Tidak bisa dibebankan hanya kepada satu orang untuk saling memuaskan. Anda juga berperan untuk memberinya kesenangan, jadi belajar dan berlatihlah.

  • Mungkin Anda terlalu mengendalikannya

Pria tidak suka dikendalikan atau diperlakukan seperti anak-anak. Anda harus memperlakukan pria seperti orang dewasa. Berhenti menjadi ibunya karena ia sudah memiliki satu. [mor]

Alih-alih pasangan membahas tentang kelanjutan hubungan, si dia justru menyudahi hubungan selesai sampai di sini.



Sering kali untuk menghibur diri, lalu berpikir bahwa dia digoda wanita lain. Padahal 'kesalahan' itu bisa juga dari kita sendiri.


Sebelum terburu-buru berkesimpulan ada orang ketiga diantara kalian, tak ada salahnya Anda introksi diri mengapa si dia memilih mengambil langkah seribu dari kehidupan Anda, seperti dikutip dari boldsky.


  • Mungkin Anda wanita terlalu materialistis


Sebuah hubungan bagaimanapun akan melibatkan materi demi kesejahteraan bersama. Tapi kalau yang Anda minta terlalu berlebihan, ini juga akan membuat pria ketakutan dan lari tunggang langgang karena memikirkan dirinya akan menjadi sapi perahan Anda.


  • Mungkin Anda wanita terlalu manja


Pria suka kok dengan perempuan manja, ini membuat mereka lebih manis dan membuat pria seperti hanya dialah yang Anda butuhkan. Tapi ingat pria tidak suka kemanjaan Anda berbuah harus 24 jam diperhatikan sehingga membatasi aktivitas dan ruang geraknya karena mata Anda selalu mengikuti.


  • Mungkin Anda terlalu banyak mengomel


Pria sudah paham kalau wanita itu makhluk cerewet dan suka mengomel, tapi kalau itu berlangsung 24 jam atau sehari dan tujuh dari dalam seminggu, Pria Anda juga bukan pantung yang hanya akan diam saja. Dia bisa gerah dan muak dengan omelan Anda yang terkadang hal sepele.


Diam seringkali adalah hal terbaik membuat situasi tenang, baru setelah itu lakukan komunikasi.


  • Mungkin Anda bicara tentang pernikahan terlalu cepat


Siapa sih yang tak ingin mengakhiri hubungan pacaran dengan pernikahan. Tapi di bulan kedua usia hubungan, Anda tiba-tiba bicara tentang pernikahan dan kehidupan setelahnya mungkin juga bukan ide baik.


Semua ada tahapnya dan ikuti apa saja bagian itu. Jika Anda mulai mendorong untuk mengusulkan pernikahan sebulan setelah kencan pertama Anda, Ini juga akan membuatnya takut.


  • Anda mungkin terlalu 'ramah' terhadap orang lain


Pria suka wanita yang mereka kencani memiliki reputasi supel dan hangat kepada orang lain. Tapi ini berbeda ketika Anda terlihat seperti 'terlalu ramah' atau mudah bagi orang lain.


Pria tidak ingin perempuan yang dianggap 'cepat' atau 'mudah'.


  • Anda terlalu semnagat bekerja.


Wanita suka dengan pria pekerja keras, tapi tidak semua lantas hari dan waktu didedikasikan untuk bekerja keras. Pria Anda tidak perlu merasa diabaikan atau .


  • Mungkin Anda terlalu meremehkannya


Pria suka kok perempuan mandiri dan tangguh. Tapi ada beberapa hal yang memang seharusnya dan lebih tepat dilakukan oleh pria. Jangan pernah ragu memintanya melakukan itu, karena kalau iya, sama artinya Anda meremehkan kaberanian dan kemampuannya.


  • Mungkin Anda terlalu dingin di ranjang


Urusan ranjang adalah urusan berdua, Tidak bisa dibebankan hanya kepada satu orang untuk saling memuaskan. Anda juga berperan untuk memberinya kesenangan, jadi belajar dan berlatihlah.


  • Mungkin Anda terlalu mengendalikannya

Pria tidak suka dikendalikan atau diperlakukan seperti anak-anak. Anda harus memperlakukan pria seperti orang dewasa. Berhenti menjadi ibunya karena ia sudah memiliki satu.