Sabtu, 11 Februari 2012

Suka Duka Kuliah Informatika


gue pengen masuk tuh ke jurusan impian gue. Mengabdi menjadi Dokter sekaligus menekuni bidang yang selalu gue impi - impikan. Menjadi seorang ahli komputer yang handal dan bisa memajukan teknologi di negeri ini. Agak muluk - muluk juga ya impian gue??? Namanya juga impian, terserah donk mau seberapa tingginya. Dalam benak gue, kuliah jurusan informatika tuh asik, ngga pusing terus pokoknya menyenangkan gitu. Secara pengalaman di SMA gue kan pas pelajaran komputer paling cuman gitu - gitu doang. Rumus Excel, Make word bikin tulisan yang layoutnya dianeh - anehin, internetan, terus paling sedikit ngulik blog. Nah kebayang betapa asyiknya kalo jadi guru SMA gitu.Nah dari situ gue ambil deh nih jurusan impian gue.


Awal mula kuliah. Wah seneng banget ternyata orang kuliah ya??? Bisa masuk sesuai keinginan, bisa bangun siang - siang, bisa internetan gratis dengan kecepatan dewa, bisa ngapa- ngapain tanpa diawasin orang tua. Bisa ngapain aja pokoknya.Intinya di kampus tuh asyik ngga kayak di SMA yang harus belajar kaya kerja rodi mulai jam setengah delapan ampe jam 2. Terus dirumah kudu belajar lagi. Kuliah mah enak bener. paling sehari 1, 5 x 3 jam. Udah gitu, asyik lagi. Mau masuk ngga ada yang ngeganggu, mau bolos juga terserah. Namanya juga kuliah. Kagak ada ceritanya dosen marahin gara - gara kita ngga pernah masuk. Nilai - nilai kita, jadi kalo ngga kuliah ya terserah toh itu nilai kita.Ternyata oh ternyata dugaan gue waktu SMA soal kuliah di jurusan komputer yang menyenangkan sangat menyimpang sodara - sodara. Ternyata dari awal kuliah gue disuguhi materi yang sangat asing ditelinga gue dan belum pernah sekalipun gue coba di kehidupan gue. dan gue saranin sodara - sodara kalo ngga mahir beneran ngga usah mencoba deh. Ada banyak banget materi yang gue jujur susah banget buat memahaminya. dan satu yang paling gue lemah dan memang itu adalah makanan wajib bagi anak informatika adalah pemprograman. Yah pemprograman. Everything about coding makes me wanna die. Ngga kebayang kan ketika kita ngga suka sesuatu tapi kita mau ngga mau harus menghadapinya setiap hari??? Kadang gue ampe mikir, kalo gue kelamaan belajar bahasa pemprograman bisa - bisa gue lupa ama bahasa sehari - hari??? Ya walaupun kalo dirasa - rasain emang enak juga jadi anak informatika. Soalnya bukannya mau takabur ya, cuman jurusan kita yang selalu up to date dan real time mengikuti perkembangan zaman. Bayangin aja coba sekarang??? Kehidupan mana sih yang bisa lepas dari pemprograman??? dan asyiknya lagi, anak informatika ngga perlu tuh bawa banyak buku - buku buat nyatet materi. Cukup loe bawa tuh laptop satu seumur hidup, loe udah bisa kuliah dengan nyaman sob.


Yah intinya itu sedikit sharing masalah suka dukanya kuliah di jurusan gue. Tapi intinya dari semua itu gue belajar. Dengan kesulitan yang semakin besar kita bisa semakin menyikapi dengan kedewasaan yang semakin tinggi. Dengan adanya tugas yang berjibun dan dengan sibuknya kita memikirkan nilai kita, disitulah kita bertanggung jawab atas pilihan kita. Karena setiap pilihan pasti mengandung konsekuensinya masing - masing. Bisa kok sebenernya kita kagak usah pusing - pusing mikirin nilai akhir, mikirin tugas yang berjibun, bisa kok seenaknya masuk kuliah, tapi apakah kita bisa mempertanggung jawabkan perbuatan kita??? terus kira - kira ntar kalo kita udah lulus kuliah apa kita ngga kaget dengan kehidupan sebenarnya yang justru real kejam??? *KesambetFilsafat

Apakah benar dunia keras???

Banyak hal yang ingin ku tahu didunia ini yg banyak orang bilang keras :) ,,,ingin aku membuktikan itu semua tapi aku pun gak tahu bagaimana caranya :'( , , ,aku mulai perjalanan ku disaat aku mengenal dunia ini dari aku dilahirin (disaat masih unyu-unyu) :p banyak orang yang sering cubit pipi aku karna tembem banget (jahat banget tu orang :'(  ya), ,disaat aku merangkak yang selalu jatuh-jatuh tersungkur karna gak kuat nahan berat badan yg hanya menompang pada kaki dan tangan yg mungil (jiah gayanya :D) , saat diajari belajar berdiri dan berjalan sama Mama n Papa (ditata-tatain) thanks buat my parent's dan akhirnya bisa berjalan sendiri seperti sekarang ,,,dan aku akui dunia ini memang keras.penuh tantangan dan butuh usaha keras tuk hidup..ajib gile bener,,

Sabtu, 28 Januari 2012

Jawaban QUIS Soal No 3

Listing Program

Login

Public Class Form1

    Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masuk.Click
        If Nama.Text = "Sasty" And Password.Text = "123" Then
            formmenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf! Password salah!")
            Nama.Text = ""
            Password.Text = ""
        End If
    End Sub

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

    Private Sub Password_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Masuk_Click(sender, e)
        End If
    End Sub
End Class

Hasil Program





Public Class formmenu

    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
        penggajian.show()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class
Hasil Program








Listing Program 

Public Class penggajian
        Sub clearisian()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        Janak.Text = ""
        Tanak.Text = ""
        Jam.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
        No.Focus()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Pegawai", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
        Lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = No.Text
        Lst.SubItems.Add(Kode.Text)
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(Tistri.Text)
        Lst.SubItems.Add(Janak.Text)
        Lst.SubItems.Add(Tanak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        Lv.Items.Add(Lst)
    End Sub
    Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("B001")
        Kode.Items.Add("B002")
        Jabatan.Items.Add("MANDOR")
        Jabatan.Items.Add("KEPALA BAGIAN")
        Jabatan.Items.Add("STAF")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("TIDAK MENIKAH")
        Jam.Items.Add("1")
        Jam.Items.Add("2")
        Jam.Items.Add("3")
    End Sub
    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        Call clearisian()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama.Text = "Ardiansyah"
        ElseIf Kode.Text = "A002" Then
            Nama.Text = "Dwi Sastya ningsih"
        ElseIf Kode.Text = "B001" Then
            Nama.Text = "Deni Sufriyadi"
        ElseIf Kode.Text = "B002" Then
            Nama.Text = "Sri Wahyuningsih"
        End If
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "MANDOR" Then
            Gaji.Text = 1750000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Gaji.Text = 2500000
        ElseIf Jabatan.Text = "STAF" Then
            Gaji.Text = 1250000
        End If
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Status.Text = "MENIKAH" Then
            Tistri.Text = (0.09 * Gaji.Text)
        ElseIf Status.Text = "TIDAK MENIKAH" Then
            Tistri.Text = 0
        End If
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Janak.Text = 1 Then
            Tanak.Text = (0.03 * Gaji.Text)
        ElseIf Janak.Text >= 2 Then
            Tanak.Text = (0.07 * Gaji.Text)
        End If


        If Jabatan.Text = "STAF" And Jam.Text = 1 Then
            Lembur.Text = 5000
        ElseIf Jabatan.Text = "STAF" And Jam.Text = 2 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "STAF" And Jam.Text = 3 Then
            Lembur.Text = 15000

        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 1 Then
            Lembur.Text = 7500
        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 2 Then
            Lembur.Text = 15000
        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 3 Then
            Lembur.Text = 22500

        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 1 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 2 Then
            Lembur.Text = 20000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 3 Then
            Lembur.Text = 30000
        End If


        Pajak.Text = (0.015 * Gaji.Text)

        Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)

    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 Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class

Hasil Program














Jawaban QUIZ NO 2

Listing Program

Public Class Form1
    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun Masuk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Angka", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 50, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Jurusan.Text)
        lst.SubItems.Add(Jenjang.Text)
        lst.SubItems.Add(Tahun.Text)
        lst.SubItems.Add(Angka.Text)
        lst.SubItems.Add(Huruf.Text)
        LV.Items.Add(lst)
    End Sub

    Sub clearisian()
        NPM.Text = ""
        Nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        Tahun.Text = ""
        Angka.Text = ""
        Huruf.Text = ""
        NPM.Focus()

    End Sub

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

    End Sub

    Private Sub NPM_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NPM.KeyPress

        Dim xNPM As String
        Tahun.Text = "20" &
        Microsoft.VisualBasic.Left(NPM.Text, 2)
        xNPM = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)

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

        xNPM = Microsoft.VisualBasic.Mid(NPM.Text, 4, 2)

        If xNPM = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf xNPM = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf xNPM = "03" Then
            Jurusan.Text = "Tehnik Informatika"
        ElseIf xNPM = "04" Then
            Jurusan.Text = "Akuntansi"
        End If

      
    End Sub

    Private Sub Tahun_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tahun.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Angka.Text = Huruf.Text
        End If
    End Sub

    Private Sub Angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Angka.KeyPress
        Select Case Angka.Text
            Case Is >= 80
                Huruf.Text = "A"
            Case 70 To 79
                Huruf.Text = "B"
            Case 60 To 69
                Huruf.Text = "c"
            Case 50 To 59
                Huruf.Text = "D"
            Case Is <= 49
                Huruf.Text = "E"

        End Select

    End Sub


    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click
        isitabel()
        NPM.Text = ""
        Nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        Tahun.Text = ""
        Angka.Text = ""
        Huruf.Text = ""
    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click
        LV.Items.Clear()
    End Sub

    Private Sub cmdhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapusdata.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click
        End
    End Sub
End Class


Hasil Program