Jumat, 06 April 2012

Membuat Menu Sederhana

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;


public class file_menu extends MIDlet implements CommandListener  {
    Alert a;
    Display d;
    Ticker t;
    Command keluar,M1,M2;
    private Command x;
    public file_menu(){
        a=new Alert("Menu Utama",null,null,null);
        t=new Ticker("Hello");
        keluar=new Command("keluar",Command.EXIT,0);
        M1=new Command("profil",Command.OK,0);
        M2=new Command("Visi dan Misi",Command.OK,1);
        a.setTicker(t);
        a.addCommand(keluar);
        a.addCommand(M1);
        a.addCommand(M2);
        a.setTimeout(Alert.FOREVER);
        a.setCommandListener(this);
       
    }
   
    public void startApp() {
    d=Display.getDisplay(this);
    d.setCurrent(a);
   
    }

    public void pauseApp() {
    }

    public void destroyApp(boolean unconditional) {
    }

    public void commandAction(Command x, Displayable arg1) {
        if(x==keluar){
            destroyApp(true);
            notifyDestroy();
        }
           
        }

    private void notifyDestroy() {
        throw new UnsupportedOperationException("Not yet implemented");
    }
    }

Rabu, 04 April 2012

BAB I Laporan Kerja Praktek


BAB I
PENDAHULUAN




1.1  Latar Belakang


Kerja Praktek (KP) merupakan syarat penting dalam kurikulum setiap jurusan di Sekolah Tinggi Manajemen Informatika Komputer (STMIK) dan mahasiswa diwajibkan mengikuti Kerja Praktek.
Kerja Praktek adalah penempatan seseorang pada suatu lingkungan pekerjaan yang sebenarnya untuk meningkatkan keterampilan, etika pekerjaan, disiplin dan tanggung jawab yang merupakan suatu kesempatan untuk menerapkan ilmu pengetahuan dan keterampilan yang dimiliki, yang ada hubungannya dengan latar belakang seseorang yang melaksanakan Kerja Praktek tersebut.
Bagi penulis sendiri latar belakang dilakukannya praktek kerja lapangan ini yaitu sebagai syarat pembuatan skripsi dimana juga sebagai syarat untuk menyelesaikan pendidikan di program studi Strata-1 Teknik Informatika Komputer. Dengan demikian, melalui Lapoan Kerja Praktek (LKP) ini penulis hendak mengkaji “Sistem Informasi Honor Dosen Pada Fakultas Psikologi Universitas Sumatera Utara”.


1.2  Perumusan Masalah


Setelah meninjau, meneliti dan mengikuti kegiatan-kegiatan yang ada di Fakultas Psikologi Universitas Sumatera Utara. Akhirnya penulis menemukan beberapa kendala yang timbul pada Fakultas Psikologi Universitas Sumatera Utara, kendala-kendala tersebut yaitu:
1.   Bagaimana membuat informasi data honor dosen pada Fakultas Psikologi Universitas Sumatera Utara.
2.   Membuaat sistem informasi pengolahan data honor dosen pada Fakultas Psikologi Universitas Sumatera Utara, dengan menggunakan bahasa pemrograman visual basic 6.0.


1.3  Ruang Lingkup Masalah


Pada umumnya yang terjadi dalam suatu instansi pemerintas maupun swasta mempunyai rentetan terhadap masalah lainnya. Akan tetapi untuk menghindari masalah yang akan dikaitkan dengan tugas praktek ini, disamping keterlambatan batasan masalah waktu, maka penelitian ini dibatasi hanya membahas masalah pengolahan sistem informasi honor dosen. Adapun ruang lingkup masalah penulis adalah:
1.   Sistem informasi honor dosen pada Fakultas Psikologi Universitas Sumatera Utara.
2.   Pengoperasian dan menggunakan sistem yang sudah ada pada Fakultas Psikologi Universitas Sumatera Utara, dimana sistem yang digunakan saat ini adalah Microsoft Excel.


1.4  Tujuan dan Manfaat Kerja Praktek


Dalam melakukan setiap pekerjaan tentunya ada tujuan yang hendak dicapai. Dari uraian ini penulis berkesimpulan bahwa Kerja Praktek sangat penting bagi lembaga pendidikan dan mahasiswa/i karena dapat menciptakan manusia yang bisa menangani tugas dan tanggung jawab yang ada di dalam perusahaan pemerintah dan swasta.








1.4.1 Tujuan Kerja Praktek


Adapun tujuan Kerja Praktek adalah:
1.   Memperoleh wawasan sehingga dapat mengembangkan disiplin ilmu yang dimiliki dengan kebutuhan di dunia kerja nanti.
2.   Kemammpuan untuk bersosialisasi atau beradaptasi dengan situasi kerja yang sebenarnya.
3.   Membandingkan ilmu yang diperoleh di bangku kuliah dengan yang ada di lapangan.
4.   Membina kerjasama yang baik antara kampus yang bersangkutan sebagai lembaga pendidikan dengan instansi atau perusahaan yang terkait.
5.   Sebagai bahan perlindungan bagi mahasiswa untuk melihat secara nyata lingkungan pekerjaan dan kaitannya dengan teori dan praktek yang telah dilakukan di perkuliahan.


1.4.2 Manfaat Kerja Praktek


Manfaat program Kerja Praktek untuk mahasiswa atau penulis antara lain sebagai berikut:
1.   pertama kali untuk diri penulis sendiri karena dapat pengalaman yang sangat berguna, berharga, dan bermanfaat untuk masa depan kelak.
2.   Dengan adanya Kerja Praktek ini mahasiswa dapat melihat bagaimana sebenarnya operasional dari perusahaan. Mahasiswa banyak mendapat masukan baik dalam hal jenis pekerjaan yang dilakukan perusahaan maupun tindakan pada perusahaan agar mendapat kepercayaan dari banyak pihak.
3.   Memberikan kesempatan kepada mahasiswa untuk mengaplikasikan ilmu yang diperoleh dan dapat membandingkan antara teori dengan keadaan yang sebenarnya.
4.   Melatih mental daripada mahasiswa/i untuk bersikap lebih dewasa dan lebih bertanggung jawab dalam melaksanakan suatu tugas yang diberikan kepadanya.
1.5  Pelaksanaan Kerja Praktek (KP)


1.5.1   Waktu Pelaksanaan Kerja Praktek (KP)


Waktu pelaksanaan Kerja Praktek berlangsung selama 1 (satu) bulan, dimulai dari bulan Maret s/d April 2012.


1.6  Metodologi Pengumpulan Data


Metode penelitian yang digunakan dalam mengumpulkan data adalah sebagai berikut:
1.   Tahapan Persiapan
Mempersiapkan hal-hal yang perlu untuk persiapan kerja praktek, antara lain: Mencari tempat untuk melaksanakan Kerja Praktek, mengirim Surat Permohonan, pengenalan perusahaan, petunjuk operasi di lapangan dan hal-hal yang penting lainnya.
2.   Studi Literatur
Mempelajari buku-buku dan majalah-majalah yang berhubungan dengan Sistem Informasi Manajemen dan Pendataan Honorium guna mendapat pemahaman mengenai teori-teori yang mendukung penulisan dalam pemecahan masalah di laporan ini.
3.   Peninjauan Lapangan
Melihat dari dekat keadaan lapangan, pengenalan pada pimpinan dan karyawan perusahaan yang diinginkan dan selesai tepat waktu. Adapun metode-metode yang dilakukan dalam pengumpulan data adalah sebagai berikut:
a.   Melakukan pengamatan langsung.
b.   Wawancara langsung.
c.   Diskusi dengan pembimbing di perusahaan dan para karyawan langsung.




1.7  Sistematika Penulisan Laporan Kerja Praktek


Untuk memberikan gambaran umum sehingga memperjelas hal-hal yang berkenan dengan pokok-pokok uraian di dalam laporan ini, penulis membaginya dalam beberapa bab yang disusun secara sistematis dalam 4 bab dan dalam tiap-tiap bab dibagi sub-sub bab.
Adapun sistematis penulisan laporan sebagai berikut :
BAB I      : PENDAHULUAN
Bab ini berisikan uraian singkat latar belakang Kerja Praktek, perumusan masalah, ruang lingkup masalah, tujuan dan manfaat kerja praktek, metode penulisan laporan kerja praktek, dan sistematika penulisan laporan kerja praktek, serta waktu pelaksanaan kerja praktek.
BAB II    : TINJAUAN UMUM PERUSAHAAN
Uraian singkat tentang sejarah Fakultas Psikologi Universitas Sumatera Utara, visi dan misinya, struktur organisasi dan tugas pegawai, serta layanan pendidikan.
BAB III   : LANDASAN TEORI
Bab ini menguraikan tentang analisa dan pembahasan tentang sistem administrasi di Fakultas Psikologi Universitas Sumatera Utara serta laporan kerja praktek.
BAB IV   : ANALISA DAN PEMBAHASAN
Bab ini menguraikan tentang analisa sistem administrasi yang berjalan di Fakultas Psikologi Universitas Sumatera Utara serta membahas tentang kegiatan kerja praktek.
BAB V    : KESIMPULAN DAN SARAN
Bab ini berisikan kesimpulan dan saran tentang sistem yang berjalan di Fakultas Psikologi Universitas Sumatera Utara yang mungkin berguna bagi perusahaan.

Selasa, 03 April 2012

Kawah Putih Dolok Tinggi Raja

Seperti rencana aku di postingan sebelumnya, aku bisa juga menapakkan kaki di Kawasan Cagar Alam Dolok Tinggi Raja. Walaupun dgn banyak perjuangan..

Starting ngumpul di rumah aku, di daerah Medan amplas. Udah ngumpul smua, Eko, Jek, Dezi, Ramli, Putri1, n Putri2. Kita langsung bergerak menuju TKP ( Tinggi Raja ).
Tepat jam 10:00 WIB kita berangkat dengan menggunakan Spd Motor. Kerna beberapa masalah teknis, perjalanan kita begitu lama dan banyak kendala.
dari Medan kita menuju L. Pakam, terus ke Galang, kemudian ke Dolok Masihul.
dari Dolok Masihul perjalanan dilanjutkan ke Nagori Dolok. Hambatan yg paling berarti adalah kondisi jalan yang sangat hancur.





Dengan waktu 4 jam, kita akhirnya sampai di lokasi. Apes... sesampainya di kawah Putih Tinggi Raja, langit sedang menuangkan air nya.. tapi, bukannya berteduh, aku n tmn" malah memilih untuk terus memulai eksplorasi setip sudut tempat yang ada di Tinggi Raja. Mulai dari kawah putih, mata air panas dan mendidih, pemandian air belerang.










Diguyur hujan yang semakin lebat disertai angin kencang, menambah semangat untuk menikmati pemandangan indah di sekitar Kawah Putih. Terlihat dari senyum teman yang sumringah, walaupun semua pakaian sudah basah.



Subhanallah...! itu lah kata yang sering keluar dari bibir tmn" ..
berkali-kali memuji akan keindahan alam yang diciptakan oleh Sang Khalik Allah SWT. ini hanya sebagian kecil dari ciptaan-Nya yg amat sangat indah. 



































Alhamdulillah! kita berhasil horeeeee.... selamat di jalan sampai kembali lagi ke Medan :)
Special Thanks For Teman aku Muhammad Joko Hariadi ( NIM: 0911232) dari Jeckers Photograf, kerna dia lah perjalanan kami sukses dan lancar.
dan yang telah mengabadikan setiap moment perjalanan kita.
Sang Fotograper

"1 2 3 senyum..!!!!"

Thank Jeck!!  :*


bagi yang ingin pergi ke tempat ini, butuh info lebih lanjut, boleh contact aku
Email : adlinhasibuan@gmail.com
Twitter : @adlinfaryan
Fb: adlin_vis45@yahoo.com


wassalam !!!


Jumat, 30 Maret 2012

Dolok Tinggi Raja

Dolok Tinggi Raja

 Kawasan Cagar Alam Dolok Tinggi Raja memiliki fenomena alam yang khas antara lain sumber air panasnya yang mengandung belerang membentuk teras-teras tanah kapur ke bawah dengan warna beraneka ragam. Aliran air panas yang menyatu dengan air sungai sering dimanfaatkan untuk mandi-mandi karena airnya terasa hangat-hangat kuku.





Pemandian air panas Tinggi Raja terletak di Nagori Dolok Marawa Kecamatan Silou Kahean Kabupaten Simalungun






Dengan menelusuri jalan setapak, kita tiba di objek wisata pemandian air panas Tinggi Raja. Mencermati alam sekitar memang lingkungan pemandian menyiratkan keasrian. Ragam tetumbuhan termasuk pohon-pohon langka diteduhi dedaunan warna hijau lebat membuat mata sejuk memandang.
Konon menurut cerita warga, di lokasi pemandian tersebut terdapat bunga yang bernama tinggi raja. Bunga yang disebut-sebut dapat memberi “keuntungan” bagi pengunjung, bila dipetik dari batangnya. Para pengunjung kerap membawa oleh-oleh bunga tersebut bilamana mereka datang ke objek wisata tersebut. , objek wisata pemandian air panas Tinggi raja banyak didatangi oleh wisatawan lokal maupun mancanegara.






Bagaimana kondisi sekarang? Saat ini kondisi objek wisata pemandian air panas Tinggi Raja memprihatinkan. Selain jalan menuju ke lokasi rusak parah, kondisi jalan setapak menuju pemandian juga kurang terawat. Berbicara soal atensi wisatawan mengunjungi daerah tersebut, praktis minim. Paling banter datang ke tempat tersebut hanya penduduk lokal.

 
 

Kawasan Cagar Alam Dolok Tinggi secara administratif pemerintahan terletak di Kecamatan Silau Kahean Kabupaten Simalungun Propinsi Sumatera Utara. Untuk dapat mencapai lokasi ini ditempuh melelui jalan darat dengan trayek/route :
  • Medan - Lubuk Pakam - Tebing Tinggi - Dolok Tinggi Raja sejauh lebih kurang 110 Km dengan waktu tempuh 3 jam.
  • Medan - Lubuk Pakam - Galang - Dolok Masihul - Dolok Tinggi Raja 97 Km.

Berikut beberapa foto Kawasan Cagar Alam Dolok Tinggi, hasil copas dari blog tetangga, XD




gambar di atas adalah air panas mendidih dengan suhu 80*c ,,membuat kita bisa memasak telur disini (hal ini sering dilakukan pengunjung)banyak lagi jenis jenis seperti ini diatas tepatnya dipuncak tinggi raja.















kenapa foto-foto inisaya ambil dari tetangga? kerna saya sendiri belum ke sana. Rencananya saya baru akan ke sana hari Minggu (1/04). Hehehehe...



Kawasan Cagar Alam Dolok Tinggi secara administratif pemerintahan terletak di Kecamatan Silau Kahean Kabupaten Simalungun Propinsi Sumatera Utara. Untuk dapat mencapai lokasi ini ditempuh melelui jalan darat dengan trayek/route :
  • Medan - Lubuk Pakam - Tebing Tinggi - Dolok Tinggi Raja sejauh lebih kurang 110 Km dengan waktu tempuh 3 jam.
  • Medan - Lubuk Pakam - Galang - Dolok Masihul - Dolok Tinggi Raja 97 Km.
sekian duluu!!!

Sabtu, 28 Januari 2012

Jawaban No 2 (adlinhasibuan)

Kasus : Lihat di sini KASUS



Public Class Form1

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

    End Sub
    Sub bersih()
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        tahun.Text = ""
        nilai_angka.Text = ""
        Nilai_Huruf.Text = ""

    End Sub

    Sub RancangTabel()
        With LV
            .Columns.Add("NPM", 70, HorizontalAlignment.Center)
            .Columns.Add("Nama", 120, HorizontalAlignment.Left)
            .Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
            .Columns.Add("Jenjang", 100, HorizontalAlignment.Left)
            .Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)
            .Columns.Add("Nilai Angka", 90, HorizontalAlignment.Center)
            .Columns.Add("Nilai Huruf", 90, HorizontalAlignment.Center)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details


        End With
    End Sub
    Sub IsiTabel()
        Dim ist As New ListViewItem
        With ist
            .Text = npm.Text
            .SubItems.Add(nama.Text)
            .SubItems.Add(jurusan.Text)
            .SubItems.Add(jenjang.Text)
            .SubItems.Add(tahun.Text)
            .SubItems.Add(nilai_angka.Text)
            .SubItems.Add(nilai_huruf.Text)
            lv.Items.Add(ist)

        End With
    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
        Dim x As String

        tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "21" Then
            jurusan.Text = "Sistem Informasi"
        ElseIf x = "31" Then
            jurusan.Text = "Manajemen Informatika"
        End If



        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)
        If x = "1" Then
            jenjang.Text = "Strata I"
        ElseIf x = "2" Then
            jenjang.Text = "Diploma III"
        ElseIf x = "3" Then
            jenjang.Text = "Diploma I"
        End If
    End Sub

    Private Sub nilai_angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nilai_angka.TextChanged
        Select Case nilai_angka.Text
            Case Is >= 80
                nilai_huruf.Text = "A"
            Case 70 To 79
                nilai_huruf.Text = "B"
            Case 60 To 69
                nilai_huruf.Text = "C"
            Case 50 To 59
                nilai_huruf.Text = "D"
            Case Is <= 49
                nilai_huruf.Text = "E"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        IsiTabel()
        bersih()
    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 = ""
        tahun.Text = ""
        nilai_angka.Text = ""
        nilai_huruf.Text = ""
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        bersih()
    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 btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class