adlinhasibuan
Follower blog ini berhak men-copy isi blog ini tanpa link balik ke blog ini ;) keep blogging blogger indonesia ^^ Kalo bisa baca tanpa diganggu iklan ngapain ke tempat lain ;) Ke nyamanan anda saat membaca adalah kebahagiaan untuk saya
Sabtu, 20 Oktober 2012
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");
}
}
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 :
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 :
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.
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
Langganan:
Postingan (Atom)