Jumat, 13 Desember 2013

Tetesan Air Mata Ibuku

Tetes Air Mata Ibu Menguatkanku

Saya ingat masa-masa indah bersama ibu. Waktu kecil, saya dekat dengan ibu. Tentu saja kita semua memiliki kedekatan dengan ibu, kecuali mereka yang diasuh oleh kakek/nenek atau baby sitter. Kedekatan itu sejak awal dirasakan saat saya menikmati ASI. Dari air susu ibu itulah saya bertumbuh dan berkembang hingga saat ini. Kata para ahli, anak yang kekurangan ASI memiliki pertumbuhan kurang sempurna dibanding anak yang asupan ASI-nya banyak.
Kedekatan dengan ibu amat terasa sebelum mengenyam pendidikan dasar. Ketika kakak dan bapak ke sekolah, saya hanya ditemani ibu. Ibu selalu setia menemani saya. Kadang-kadang saya mengganggu pekerjaannya, namun tak pernah saya melihat dan merasakan kebencian ibu kepada saya. Ibu memang mencintai anak-anaknya termasuk saya. Ketika pulang sekolah saya bermain dengan kakak saya. Kadang-kadang kakak memarahi saya, dan saat itulah saya berlindung kepada ibu. Begitu juga ketika bapak marah, ibu selalu menjadi tempat perlindungan.
Apakah ibu pernah marah? Tentu saja. Tetapi marah bukan karena benci, tetapi karena cinta. Cinta ibu untuk anaknya. Saya pernah dimarahi gara-gara tidak mengerjakan tugas yang dipercayakan kepada saya. Hal-hal sederhana, sesuai kemampuan saya waktu itu. Mencuci piring, memasak, atau memberi makan kepada peliharaan kami. Dari marah ini, saya sadar, betapa ibu mencintai saya.
Ibu juga yang menyemangati saya dalam pendidikan. Sebelum sekolah, saya belajar bersama ibu, setiap malam. Kami membuka buku gambar, lalu ibu menjelaskan tulisan yang ada di gambar itu. Di tempat belajar itu, ada poster besar berisi huruf abjad berukuran besar dan angka-angka dari 1-100. Ada juga perkalian, pembagian, penjumlahan, dan pengurangan. Poster itulah sarana pembelajaran kami. Sesekali ketika saya bosan, ibu membuka buku gambar, atau bercerita. Tujuannya sederhana, untuk menyemangati saya. Kadang-kadang saya tertidur karena cerita yang terlalu lama. Kebiasaan belajar bersama ibu, berkembang terus hingga saya selesai SD. Pekerjaan rumah selalu dikerjakan bersama. Sesekali dengan bapak dan kakak. Namun, seringkali bersama ibu. Ibu juga yang menguatkan saya untuk belajar menyelesaikan sekolah dasar.
Kedekatan ini begitu kuat sampai-sampai ibu merasa sepi ketika, saya tinggal jauh darinya. Ibu meneteskan air mata ketika saya dan bapak pergi ke kota kecamatan untuk melanjutkan pendidikan menengah, SMP. Saya memandangnya sebentar sebelum mobil kami berjalan. Ibu menangis sambil memeluk adik saya dan melambaikan tangan, merelakan saya pergi. Saya tahu, ia dengan berat hati melepas kepergian saya. Namun, bagaimana pun saya mesti bersekolah. Air mata itu menetes lagi ketika saya melanjutkan pendidikan ke kota kabupaten yang letaknya semakin jauh dari rumah. Ibu hanya berpesan, “Nak, belajarlah dengan rajin dan berbuat baiklah dengan sesama.” Pesan itu begitu menggema hingga saya ingat sampai sekarang.
Selama pendidikan menengah, saya jarang pulang ke rumah. Hanya 2 kali setahun, pada saat liburan panjang. Ibu tidak marah. Saya selalu mengirim surat minimal sekali dalam dua bulan. Komunikasi kami waktu itu hanya melalui surat. Ibu senang membaca surat saya. Tiap kali teman sekolah saya berkunjung ke rumah, ibu tersenyum sebelum mempersilakan teman untuk duduk. Ibu tahu, pasti ada surat dari saya. Kegembiraan ibu lebih besar ketika saya kembali saat liburan. Saat itu biasanya, ibu berlama-lama bercerita dengan saya. Kebiasaan ibu ini berlaku untuk semua kami, anak-anaknya. Kami berasal dari desa dan harus melanjutkan pendidikan menengah ke kota.
Waktu liburan adalah kesempatan emas untuk mengobati rasa rindu ibu. Saat hendak kembali ke sekolah, selesai liburan, air mata ibu jatuh lagi. Ini pertanda dia mencintai anak-anaknya. Dengan sabar, dia menyiapkan bekal secukupnya berupa makanan ringan, dan menyelipkan uang saku secukupnya. Ibu lalu berpesan, “Nak apa saja yang kalian minta-asal itu demi pendidikan-kami akan memenuhinya. Kalian harus sekolah dengan baik. Jangan khawatir dengan hidup kami di rumah. Kami mempunyai banyak makanan untuk kebutuhan sehari-hari.” Pesan ini menguatkan saya untuk terus belajar hingga akhir masa SMA.
Ibu merasa berat sekali ketika saya harus melanjutkan pendidikan ke tempat yang lebih jauh lagi. Namun, ia tetap mendukung. “Asal itu kemauan kamu, silakan pergi, kami akan mendukungmu,” kata ibu waktu itu. Saya mengarungi lautan untuk pertama kalinya. Saya dan ibu tinggal di pulau yang berbeda. Lagi-lagi air mata ibu menetes lagi. Saya juga meneteskan air mata. Saya tak tahan melihat air mata ibu kesekian kalinya. Kami berpelukan sebelum saya meninggalkan rumah. Seminggu kemudian, ibu menelepon saya, menanyakan keadaan saya di tempat yang baru. Saya bahagia dan ibu senang mendengar cerita saya. Dia sempat tertawa karena saya bercerita membuat lelucon layaknya di rumah . Sebelum menutup pembicaraan ibu menangis lagi, sambil menyerahkan gagang telepon kepada bapak.
Ibu merupakan sosok yang besar bagi saya. Apa yang dibuatnya murni untuk kebaikan kami anak-anaknya. Saat kami sakit, ibu yang huru-hara mencari bantuan ke tetangga. Saya ingat ketika saya sakit, ibu pergi ke rumah bidan pagi-pagi buta. Untung saja adik saya yang paling kecil tidak menangis mencarinya. Adik masih terlelap ketika ibu berangkat. Hebat! Perjuangan ibu sungguh luar biasa. Terlalu indah mengenang kebersamaan bersama ibu. Sekian tahun kami hidup berjauhan. Namun, kami sering berbagi cerita. Saat yang dinanti adalah masa liburan. Terima kasih ibu, kasihmu selalu kukenang, cintamu begitu besar, dan jasamu luar biasa. Tetes air matamu menguatkan saya dalam hal apa pun termasuk dalam menghadapi tantangan. Terima kasih ibu….

Belajar Java

Mulai Belajar Java Dari Mana?


java2ni adalah pertanyaan yang paling sering ditanyakan
Saya sendiri belajar Java secara otodidak. Tidak melalui bangku kuliah (saya kuliah Teknik Industri), tidak juga ikut kursus atau pelatihan. Pada waktu itu -sekitar tahun 2002- milis jug-indonesia dan jlinux belum seramai sekarang. Sehingga untuk konsultasi dan tanya-jawab agak sulit. Perlu diperhatikan juga bahwa pada masa itu blog belum ngetren.
Jarang ada blog yang membahas pemrograman Java dalam bahasa Indonesia. Singkat kata, resource di internet tidak sebanyak saat ini (awal 2006).
Sebelum mulai belajar Java, kemampuan teknis saya adalah sebagai berikut:
Bisa menggunakan Linux, tapi sebatas user, bukan administrator ahli.Mengerti tentang basic networking (IP Address, Subnet, cara kerja DNS, dan sedikit tentang routing)Mengerti sedikit tentang relational database. SELECT, INSERT, UPDATE sih bisa. Bisa PHP sedikit-sedikit. Cuma bisa HelloWorld, dan simpan isian form HTML ke dalam database. Tapi untuk aplikasi skala besar belum pernah buat.
Dengan modal pas-pasan seperti itu, saya berhasil diterima bekerja di sebuah kursus pendidikan franchise dari India. Waktu itu mereka baru membuka cabang di Surabaya, dan saya masuk sebelum grand-launching dilakukan.
Karena masih baru, siswa peserta kursus juga masih sedikit.Seingat saya, sehari cuma ada satu kelas selama 4 jam sehari. 4 jam sisanya, 20 perangkat komputer terbaru terhubung dengan jaringan termasuk satu asisten lab (tidak lain dan tidak bukan adalah saya) praktis menjadi pengangguran. Internet di sana dial-up, tapi ada beberapa buku
pelajaran dan referensi di perpustakaan mini.
Waktu luang banyak, komputer banyak, buku banyak, internet agak lemot. Ya sudah, akhirnya saya ngoprek saja sendirian. Instruktur di sana, walaupun native speaker India, nampaknya kurang kompeten, sehingga kalo tanya ke dia, yang ada malah tambah bingung.
Minggu-minggu pertama saya habiskan membuat website dengan PHP. Berusaha bikin Content Management System kecil-kecilan. Tapi karena
belum pengalaman, yang ada malah berantakan. Pengguna bukannya menjadi mudah malah menjadi sulit, karena untuk posting artikel harus mengerti
HTML dan PHP :D. Padahal niatnya mau memudahkan. Yah, mau bagaimana lagi … ada masanya ketika kita masih muda dan bodoh :P
Bosan dengan PHP, saya mulai lihat-lihat buku di perpustakaan. Ada VB, Java, Windows 2000 Server, Oracle, dan sebagainya. Entah karena background saya yang pengguna Linux, saya kurang tertarik belajar VB. Selain itu, instruktur di sana (menganggap dirinya) master VB. Jadi saya tidak mau kompetitif dengan belajar VB juga. Oracle terlalu sulit buat saya (waktu itu). Instalasi saja sulitnya setengah mati.
Installernya terlalu banyak tanya ini-itu yang saya gak ngerti apa jawabannya. Windows 2000 Server juga kelihatan kurang menarik. Jadilah akhirnya saya pilih belajar Java saja.
Saya coba belajar dari buku yang ada. Referensinya waktu itu Core Java vol 1 dan 2 karangan Cay Horstmann. Belakangan saya tau kalo buku itu sangat bagus dan lengkap. Ada beberapa konsep rumit seperti anonymous inner class yang dijelaskan dengan sangat baik di sana. Tapi untuk pemula, Core Java itu relatif sulit dimengerti.
Sekitar sebulan saya berputar-putar mencari cara belajar dan referensi yang bagus. Karena kualitas dan kecocokan referensi dengan cara belajar kita akan sangat  berpengaruh terhadap kecepatan belajar.
Setelah browsing ke website Sun, saya berhasil menemukan tutorial Java dan dokumentasi Java. Ini merupakan referensi yang benar-benar cocok buat saya. Dengan bermodalkan dua bahan tersebut, akhirnya dua bulan berikutnya menjadi terang-benderang.
Satu demi satu konsep Java saya pelajari:
Sintaks dan Semantic (for loop, statement, if-else, dsb)Konsep OOPImplementasi Class dan Object di JavaPackageI/OCollectionSwingThreadJDBCdsb
Sampai akhirnya saya lumayan bisa membuat aplikasi desktop sederhana yang mengakses database.
Pada bulan keempat, saya masuk ke kantornya instruktur dan menemukan buku baru. Modul pelatihan Java Servlet. Wah, ada mainan baru. Segera saja saya coba semua contoh kodenya. Lumayan dari buku tersebut saya bisa memahami web.xml, servlet, dan application server. Waktu itu Tomcat belum terkenal seperti sekarang. Saya pakai Java Web Server untuk mendeploy servlet.
Sekitar enam bulan kemudian, saya sudah cukup mengerti apa itu EJB (waktu itu masih versi 1.x) dan bisa mendeploy EJB kecil-kecilan.
Kemudian saya ditugaskan menjadi dosen di Stikom, sebagai bagian dari paket kerjasama kursus tempat saya bekerja dengan Stikom. Di sana lebih banyak teman diskusi dan buku.
Dari titik ini, perjalanan belajar Java menjadi lebih mudah. Karena selain perpustakaan cukup lengkap, milis java juga sudah lumayan aktif.
Sehingga saya dapat mainan baru seperti Hibernate dan Ant. Sudah cukup panjang ceritanya. Pesan moral dari cerita ini adalah:
Dengan waktu luang dan referensi yang tepat, belajar Java secara otodidak sangat mungkin dilakukan Download tutorial dan dokumentasi Java yang dikeluarkan Sun. Banyak berlatih (saya berlatih 6-8 jam sehari, setelah jam kantor saya masih stay untuk belajar)Untuk dapat melakukan poin #1 dan #2, kemampuan bahasa Inggris (read-only sudah cukup) wajib dimiliki.
Sedikit saran dari saya, cobalah berkontribusi di milis. Baik bertanya maupun menjawab. “Bagaimana kalo saya menjawab tapi jawabannya salah? Nanti diketawain … ”
Jangan takut. Menjawab itu bagian dari belajar. Ini berarti kita mengujicoba pemahaman kita terhadap sesuatu.
Kalau pemahaman kita benar, komunitas akan memperkuat, dan kadang menambahkan sudut pandang yang berbeda sehingga pengetahuan kita semakin kaya.
Kalau kita salah, akan ada yang mengoreksi. Sehingga pemahaman kita yang salah tersebut tidak akan terbawa sampai tua dan terungkap dalam event yang jauh lebih memalukan.

Minggu, 08 Desember 2013

Jawaban Quis no 1



Sub BuatTabel()
        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = pembeli.Text
        lst.SubItems.Add(kdbrg.Text)
        lst.SubItems.Add(nmbrg.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(jmlbeli.Text)
        lst.SubItems.Add(harga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub kdbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kdbrg.Text, 2)
        y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)
        Select Case X
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : nmbrg.Text = "Flashdisk 4GB"
            Case "002" : nmbrg.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            harga.Text = 80000

        End If

    End Sub

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

        kdbrg.Items.Add("TS001")
        kdbrg.Items.Add("TS002")
        kdbrg.Items.Add("VG001")
        kdbrg.Items.Add("VG002")

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        pembeli.Text = ""
        kdbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        jmlbeli.Text = ""
        harga.Text = ""
    End Sub

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

    Private Sub pembeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembeli.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
        lv.Items.Clear()
    End Sub

    Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
        pembeli.Text = ""
        kdbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        jmlbeli.Text = ""
        harga.Text = ""

    End Sub

End Class

Selasa, 03 Desember 2013

Belajar microsoft visual basic

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110011")
        NPM.Items.Add("12110012")
        NPM.Items.Add("12110013")

        KodeDosen.Items.Add("111")
        KodeDosen.Items.Add("112")
        KodeDosen.Items.Add("113")

        KodeMatakuliah.Items.Add("A01")
        KodeMatakuliah.Items.Add("A02")
        KodeMatakuliah.Items.Add("A03")

        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110011"
                Nama.Text = "Maruli s"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik informatika"
            Case "12110012"
                Nama.Text = "Lasmian"
                Jenjang.Text = "D3"
                Jurusan.Text = "Sistem informasi"
            Case "12110013"
                Nama.Text = "Eflinda Sarumaha"
                Jenjang.Text = "S1"
                Jurusan.Text = "Manajemen informatika"
            Case Else
                Nama.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "111"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "112"
                NamaDosen.Text = "Sinar sinurat ST, Mkom"
            Case "113"
                NamaDosen.Text = "Mesran S.kom, M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "001" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "002" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "003" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "004" Then
            Jurusan.Text = "Akuntansi"
        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    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 NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A01"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A02"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A03"
                NamaMatakuliah.Text = "Programan visual"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class