Minggu, 29 Januari 2012

Tugas Quiz





Public Class TUGASHAL32
    Sub BUATTABEL()
        LV.Columns.Add("npm", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nm", 180, HorizontalAlignment.Center)
        LV.Columns.Add("jurusan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("jenjang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("tahun masuk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nangka", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nhuruf", 80, 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(nm.Text)
        LST.SubItems.Add(jurusan.Text)
        LST.SubItems.Add(jenjang.Text)
        LST.SubItems.Add(tahun masuk.Text)
        LST.SubItems.Add(nangka.Text)
        LST.SubItems.Add(nhuruf.Text)
        LV.Items.Add(LST)
    End Sub
    Private Sub TUGASHAL32_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BUATTABEL()
    End Sub

    Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
        ISITABEL()
        npm.Text = ""
        nm.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        tahun masuk.Text = ""
        nangka.Text = ""
        nhuruf.Text = ""
    End Sub

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

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

    Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
        npm.Text = ""
        nm.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        tahun masuk.Text = ""
        nangka.Text = ""
        nhuruf.Text = ""
    End Sub

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



Minggu, 09 Oktober 2011

Kegiatan Sehari -hari

Di pagi hari selepas mandi(terkadang sarapan) saya pergi bekerja, saya masuk kerja pada pukul 08.00
dan terkadang pukul 07.00 pagi. Saya pergi kerja kebanyakan menggunakan sepeda,terkadang juga naik angkot
Sore harinya pada pukul 5 sore saya pulang kerja,dan pergi kuliah yang pada pukul 6 sore,
Saya kuliah  di STMIK BUDIDARMA di jalan SM RAJA Medan jurusan T.I  dan saat ini saya duduk di semester V . Bila tidak sedang kuliah saya bekerja terkadang sampai malam.
Di waktu libur yang biasanya di hari minggu saya ibadah pagi ,sepulang dari ibadah pagi ,lalu melakukan kebersihan di antaranya mencuci,menggosok,dan merapikan kamar.

Pengalaman bekerja

Saya bekerja pertama sekali selepas dari bangku pendidikan di sebuah usaha keluarga,
dimana usaha itu adalah cuci kendaraan bermotor (di tahun 2002)
Di tahun 2003 saya bekerja di daerah Kawasan Industri Medan(KIM) tepat nya,
di pabrik pengolahan udang di PT.Central Windu Sejati sampai tahun 2005
Di pertengahan tahun 2005,saya bekerja di daerah bandara Polonia di bawah
naungan PT. Wahana Gapura Purnakarya yang menaungi pesawat STAR AIR,
saya bekerja hanya sekitar 3 bulan di karenakan perusahaan itu tutup di Medan,
Di tahun itu juga,tepatnya di bulan September saya bekerja di HYPERMART
sebuah usaha yang bergerak di bidang retail atau multi market,saya di tempatkan di bagian
Receiving(penerimaan barang )berposisi sebagai staff,dan saya masih bekerja sampai sekarang

Sejarah Singkat

Saya adalah seorang anak laki-laki yang dilahirkan dari keluarga yang sederhana
Saya anak sulung dari 4 bersaudara dimana memiliki adik perempuan 2 orang dan adik laki-laki 1 orang
Saya merasakan bangku sekolah di tahun 1990 di kelas TK(Taman Kanak-kanak)
Di tahun 1991 saya duduk di bangku Sekolah Dasar(SD)dan tamat pada tahun 1996,
(di bangku TK dan SD saya bersekolah di Antonius
di tahun 1994 saya ditinggal pergi ayah saya karena beliau pergi menghadap sang pencipta ,
sejak saat itu ibu bekerja menafkahi kami anak -anaknya(ibupun lalu meninggal dunia pada tahun 2007
di kaenakan sakit)
Selepas tamat SD saya melanjut ke SMP(Sekolah Menengah Pertama)di SLTP NEG 3 Medan
dan tamat pada tahun 1999,lalu melanjut ke tingkat SLTA  tepatnya saya bersekolah
di SMU TRI SAKTI MEDAN dan menamatkan pendidikan pada tahun 2002
Dan selepas tamat saya lalu bekerja

Biodata

Perkenalkan diri saya;
Nama                     :Vicky Ronal Fernando Panjaitan
tmpat/tgl lahir          :Medan,16 November 1983
Alamat                   :Jln.A.R.Hakim/Bakti no . 135 Medan
Agama                    :Kristen Protestan
Status                     : Belum Menikah
Tinggi/Berat badan  :168cm/62 kg

blog saya

Ini adalah blog saya yang pertama,yang saya buat sekitar seminggu yang lalu,
Di dalam nya masih terdapat postingan -postingan saya yang pertama
Dimana isi postingan saya itu adalah merupakan tugas -tugas yang di berikan oleh Pak Mesran
Dosen  yang mengajar diriku di semester V ini 
Berisi tentang pemrograman visual basic atau VBnet
Di dalam pengisian postingan saya itu ,masih terdapat kekurangan -kekurangan
ataupun keterbatasan -keterbatasan

Visual Basic 9.0 (Visual Basic 2008)


Versi ini merupakan versi terbaru yang dirilis oleh Microsoft pada tanggal 19 November 2007, bersamaan dengan dirilisnya Microsoft Visual C# 2008, Microsoft Visual C++ 2008, dan Microsoft .NET Framework 3.5.
Dalam versi ini, Microsoft menambahkan banyak fitur baru, termasuk di antaranya adalah: