Mau Kerja Seperti Ini?

Kantor yang nyaman bukan semata-mata gaji yang tinggi. Melainkan juga lingkungan kerja yang nyaman, rekan kerja yang kooperatif, tak ada jarak dengan bos, waktu kerja yang tidak tergantung office hours, dan apa lagi?

Tambahkan sendiri ke dalam daftar impianmu, yang jelas beberapa perusahaan ini telah menempatkan arti "bekerja" pada koridor yang sesuai sehingga perusahaan dan karyawan sama-sama menikmati keuntungan.

Kantor apa saja yang ada dalam daftar?

Google

Bekerja di Google tampaknya jadi impian banyak orang. Tempat kerjanya benar-benar enak, banyak makanan gratis, bisa bersantai dan bermain. Pokoknya sisi kreatifitas pegawainya yang paling utama. Tak heran, bbc.co.uk menulis artikel kusus tentang kantor google. Dalam artikel tersebut, ditulis bahwa kantor google itu benar-benar "wacky office".

Foto-foto diambil dari kantor google di Zurich

Facebook

Sudah nonton film "Social Network", kan? Jadi tahu seperti apa isi otak Mark Zuckerberg. Nah, seperti itulah impian "kerja nyaman" si pendiri facebook.

Menurut hasil penelitian businessinsider, berikut daftar kenyamanan kerja di facebook:

1. Opsi saham.
2. Jam kerja fleksibel, bisa bekerja dari rumah.
3. Banyak makanan.
4. Tak ada bilik kerja, jadi bisa kerja dan sosialisasi dengan siapa saja.
5. Kesempatan besar untuk meraih apa yang kamu impikan.
6. Budaya yang terbuka terhadap berbagai ide.

Akhirnya, kesimpulan Alaska Miller dan Nicholas Carson, yang menulis artikel tersebut adalah, "Manfaat yang paling berharga untuk bekerja di facebook adalah kemampuan untuk mengatur jam kerja sendiri, kebebasan untuk bekerja dari rumah ketika Anda inginkan dan sebanyak yang Anda ingin, dan semua ini dengan sedikit atau tidak ada gangguan dari manajemen."

Yahoo

Yahoo memiliki banyak kantor cabang di berbagai negara. Untuk workspace environment yang paling asik, kita ambil contoh kantor yahoo di Barcelona.

Bukan apa-apa, kantor yahoo sebenarnya belum bisa dibilang "mampu bersaing" dengan milik google atau facebook. Kantor yahoo masih terlalu "clean". Namun, untuk yang di Barcelona ini sudah lumayan seru, sih.

Kaskus

Tanpa banyak komentar, ini jawara kantor masa depan di Indonesia. Mungkin, seharusnya kaum konvensional harus mulai berkaca pada kreatifitas anak-anak muda negeri ini.

Sepertinya kaskuser sekarang bisa bilang begini, "Bos, percaya deh, mau mencari keuntungan bukan berarti harus kerja rodi, kan? Jangan warisi terus sisi feodal para penjajah, dong."





Sumber:
http://news.bbc.co.uk/
http://www.officesnapshots.com/
http://1dak.com/
http://officeal.com/
http://www.businessinsider.com/

Tugas_4 : ListBox, CheckBox

 

1.    LISTBOX

      a.  Pertama kita desain dulu tampilannya.
           Buat : textbox 1 buah, checkbox 2 buah, button 9 buah.
           lalu atur dan ganti nama sesuai tampilan berikut :

      b.  Lalu kita masukan codingnya :
         
     Double klik pada button isi masukan coding ini :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.ListBox
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox2.Items.Add(TextBox1.Text)
    End Sub

       Double klik pada button 1-10 masukan coding ini :

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For bil = 1 To 10
            ListBox2.Items.Add(bil)
        Next
    End Sub


       Double klik pada button satu > masukan coding ini :

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox2.Text = ListBox3.Items.Add(ListBox2.Text)
    End Sub

       Double klik pada button Beberapa > masukan coding ini :

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListBox2.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox2.Items.Count
        For i = 0 To j - 1
            Try
                ListBox3.Items.Add(ListBox2.Items(ListBox2.SelectedIndices(i)))
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

        Double klik pada button Semua > masukan coding ini :

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ListBox2.SelectionMode = SelectionMode.MultiExtended

        Dim Jumlah As Integer = ListBox2.Items.Count
        For i = 0 To Jumlah - 1
            ListBox3.Items.Add(ListBox2.Items(i))
        Next
    End Sub

         Double klik pada button Hapus Satu masukan coding ini :

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox3.SelectionMode = SelectionMode.One

        ListBox3.Items.Remove(ListBox3.SelectedItem)
    End Sub

         Double klik pada button Hapus Beberapa masukan coding ini :

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ListBox3.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox3.Items.Count
        For i = 0 To j - 1
            Try
                ListBox3.Items.RemoveAt(ListBox3.SelectedIndex)
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

          Double klik pada button Hapus Semua masukan coding ini :

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ListBox3.Items.Clear()
    End Sub

          Double klik pada button Tutup masukan coding ini :

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()

    End Sub
End Class

       c.  Lalu Kita Run Pogramnya. Maka Hasilnya sebagai berikut :
         
            bila kita klik tombol 1-10 maka akan muncul tampilan angka 1 sampai 10
            tombol satu kita klik maka akan menginputkan angka yang kita pilih saja..
            tombol beberapa berarti untuk menginputkan lebih dari satu pilihan...
            tombol semua berarti akan menginputkan semua yang terdaftar...
            begitu juga dengan tombol hapus satu, beberapa, dan semua akan menghapus sesuai perintah...

            kita juga bisa menginputkan huruf contoh "komputer" dengan cara ketikan di textbox 1 dan
            klik tombol isi maka tampilanya sebagai berikut :

2. CHECKBOX

    a.  Pertama Kita desain dahulu tampilannya dengan menambahkan :
         Textbox 1 buah, Check Box 6 buah, button 3 buah GroupBox 1 buah. pada GroupBox kita
         gabungkan ke enam checkbox tersebut ke dalam groupbox.  lalu desain dan ganti nama sesuai
         tampilan berikut :

 
    b.  Selanjutnya masukan coding berikut:

         Double klik pada button Tampilkan masukan coding ini :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
        For Each control In Me.GroupBox1.Controls
            If control.Checked = True Then
                TextBox1.Text &= control.Text & ","
            End If
        Next
        TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    End Sub

          Double klik pada button GroupBox masukan coding ini :

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
    End Sub

           Double klik pada button Keluar masukan coding ini :

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()

    End Sub

           Double klik pada button Hapus masukan coding ini :

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Clear()

    End Sub
End Class





     c.  Lalu jalankan programnya. maka tampilanya sebagai berikut :

            Sumber :    http://www.gakbakalmati.blogspot.com