selamat datang di blog saya. saya ingin membagi apa yang bisa saya bagikan kepada anda. Komen dari pengunjung sangat saya harapkan.

Saturday 29 October 2011

SUDAH SAATNYA MAHASISWA YANG KULIAH DI PERGURUAN TINGGI SWASTA ASAL SIBOLGA MENDAPATKAN BEASISWA


Oleh   : Seftian Eko Pranata
Mahasiswa STMIK Budidarma Medan
Pendidikan merupakan salah satu faktor yang dapat meningkatkan taraf hidup manusia. Oleh karena itu, banyak orang tua berusaha menyekolahkan anaknya setinggi – tingginya.
Biaya kuliah di perguruan tinggi sangat lah mahal, terlebih yang kuliah di perguruan tinggi swasta. Menurut pengamatan saya, rata – rata uang kuliah untuk 1 tahun di perguruan tinggi swasta sekitar Rp. 4.000.000 hingga Rp. 5.000.000. Itu uang kuliah yang paling murah di perguruan tinggi swasta. Bahkan ada yang uang kuliahnya mencapai angka 16 juta per tahun . Berbanding jauh dengan biaya kuliah di perguruan tinggi negeri yang hanya berkisar 1,5 Juta per tahun.
Angka ini tentu sangat terasa berat bagi para orang tua yang ingin menguliahkan anaknya di perguruan tinggi swasta. Tidak sedikit lulusan SMA dari Sibolga yang tidak lulus di PTN tidak melanjutkan sekolahnya ke perguruan tinggi. Hal ini tentunya menjadi masalah yang perlu diperhatikan oleh Pemerintah Kota Sibolga.
Sebelumnya Pemko Sibolga telah menyalurkan beasiswa kepada beberapa mahasiswa asal Sibolga yang kuliah di USU. Namun melihat biaya kuliah di PTS yang lebih mahal daripada biaya kuliah di PTN, sudah saatnya mahasiswa asal Sibolga yang kuliah di PTS mendapatkan beasiswa agar dapat mengurangi beban biaya kuliah mereka.
Diharapkan kepada Pemko Sibolga melalui dinas terkait dapat mengapresiasi usulan ini. Sehingga mahasiswa dari Sibolga akan bertambah, yang akan berdampak pada meningkatnya taraf hidup masyarakat Sibolga, yang pada akhirnya dapat merealisasikan ilmu yang didapatnya untuk Kota Sibolga agar lebih maju lagi. Kita tunggu tanggapannya.

Friday 21 October 2011

Membuat Segitiga Angka Dengan VB 2008

Dim x, y, z As Integer
        x = 1 : y = NumericUpDown1.Value
        TextBox1.Clear()
        Do While x <= y
            z = 1
            TextBox1.Text = _
            TextBox1.Text & Space(y - x)
            Do While z <= x
                TextBox1.Text = _
                TextBox1.Text & " " & z
                z += 1
            Loop
            TextBox1.Text = _
            TextBox1.Text & vbCrLf
            x += 1
        Loop