Penilitian Bang sigit

VIVAnews - Jika Anda pria yang memiliki penghasilan pas-pas an semasa lajang, jangan khawatir tak bisa memenuhi kebutuhan hidup keluarga saat masuk dalam jenjang pernikahan. Karena sebuah penelitian mengungkap, kebanyakan pria setelah menik...ah justru penghasilannya makin melimpah.

Seperti dikutip dari laman Daily Mail, pria yang telah menikah mendapatkan tujuh persen penghasilan lebih banyak dibanding pria lajang.

Kesimpulan itu diperoleh dari survei 12.000 orang Jerman yang dilakukan oleh University of Bielefeld. Survei itu sudah mempertimbangkan perbedaan usia, pendidikan dan pengalaman ketika melakukan penelitian.

Para akademisi itu mengatakan bahwa setelah menikah, pria mengambil kepentingan yang lebih besar dalam keuangan mereka dan melakukan upaya lebih keras untuk memperbaiki nasib.

"Hasil penelitian menunjukkan bahwa kebanyakan pria merasa tidak puas dengan pendapatan sebelumnya semasa lajang. Hal ini menyebabkan pria yang sudah menikah lebih berupaya keras mencari pendapatan lebih tinggi dalam pekerjaan mereka. Alhasil banyak pria menikah mendapatkan upah lebih tinggi," kata akademisi di Universitas Bielefeld di Jerman.

Untuk mencapai kesimpulan, para peneliti itu menganalisis data dari 12.245 orang yang diwawancarai dari berbagai status pekerjaan, jam kerja, pendapatan dan waktu yang dihabiskan untuk tugas-tugas rumah tangga.

Peneliti menyimpulkan: "Perubahan gaya hidup yang berhubungan dengan pernikahan, membuat pengeluaran rumah tangga meningkat, dan seterusnya."

Untuk itu, bagi Anda pria lajang yang memiliki pendapatan pas-pasan, jangan ragu melangkah untuk merencanakan pernikahan.Lihat Selengkapnya
30 November jam 13:28 · SukaTidak Suka

selamat pagi

selamat pagi
kamis 27 mei 2010 saya magang masuk pagi banget
padahal org karyawan belum pada datang
hari ini moga bisa buat a nyaman
saya akan merancang program dengan judul
sistem pengendalian dan monitoring penebangan kayu jati kph perum perhutani semarang

saya dah mulai magang di perum perhutani semarang
judul sistem pengedalian dan monitoring penebangan kayu jati perum perhutani semarang
dan saya akan menciptakan program multiuser... daqri software delphi

SISTEM PAKAR

WORKSHEET 1 : FORM MACAM KERUSAKAN

1. Buat folder SISTEM PAKAR
2. Buat sub folder MOTOR di bawah folder SISTEM PAKAR
3. Aktifkan program MS Access
4. Buat file database, simpan dengan nama DBMOTOR.MDB pada sub folder MOTOR
5. Buat struktur table, simpan dengan nama MACAM



6. Tutup program MS Access
7. Aktifkan program Visual Basic
8. Simpan project dengan nama PRMOTOR
9. Simpan form dengan nama MACAM
• Untuk menampilkan komponen AdoDC, klik menu Project  Components  Microsoft ADO Data Control 6.0  OK
• Untuk menampilkan komponen DataGrid, klik menu Project  Components  Microsoft DataGrid Control 6.0  OK



10. Isikan data Macam Kerusakan



WORKSHEET 2 : FORM JENIS KERUSAKAN

1. Aktifkan program MS Access
2. Buka file database DBMOTOR.MDB
3. Buat struktur table, simpan dengan nama JENIS



4. Tutup program MS Access
5. Aktifkan program Visual Basic
6. Buka file project PRMOTOR
7. Tambahkan form baru, simpan dengan nama JENIS



8. Ketik kode program di bawah ini

Private Sub Form_Activate()
TBMACAM.Recordset.MoveFirst
Do While Not TBMACAM.Recordset.EOF
XNOMACAM.AddItem Nomor Macam dan Macam Kerusakan
TBMACAM.Recordset.MoveNext
Loop
TBJENIS.CommandType = adCmdText
TBJENIS.RecordSource = Aktifkan table JENIS yang Nomor Jenisnya kosong
TBJENIS.Refresh
Kosongkan Nomor Macam, Macam, Nomor Jenis, Jenis dan Gejala
XNOMACAM.SetFocus
End Sub




Private Sub Timer1_Timer()
If XNOJENIS.Text = "" Then
CMDSIMPAN.Enabled = False
CMDHAPUS.Enabled = False
Else
CMDSIMPAN.Enabled = True
CMDHAPUS.Enabled = True
End If
End Sub
Private Sub XNOMACAM_DropDown()
XNOMACAM.Width = 5000
End Sub
Private Sub XNOMACAM_Click()
NOMACAM.Text = Left(XNOMACAM.Text, 4)
XNOMACAM.Width = 1250
XNOJENIS.SetFocus
End Sub
Private Sub XNOMACAM_LostFocus()
If XNOMACAM.Text <> "" Then
XNOMACAM.Text = NOMACAM.Text
TBMACAM.Recordset.MoveFirst
TBMACAM.Recordset.Find "NOMACAM='" & XNOMACAM.Text & "'"
XMACAM.Text = TBMACAM.Recordset!MACAM
TBJENIS.RecordSource = Aktifkan data table JENIS yang Nomor Macamnya
Sama dengan XNOMACAM.Text
TBJENIS.Refresh
End If
End Sub
Private Sub XNOJENIS_Change()
If Len(XNOJENIS.Text) = 4 Then XJENIS.SetFocus
End Sub
Private Sub XNOJENIS_LostFocus()
TBJENIS.RecordSource = Aktifkan semua data pada table JENIS
TBJENIS.Refresh
TBJENIS.Recordset.MoveFirst
TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'"
If Nomor Jenis sudah ada Then
Tampilkan Jenis dan Gejala ke form
X = Pesan Nomor Jenis sudah ada, Data diEdit
If X = vbYes Then
XJENIS.SetFocus
Else
Kosongkan Nomor Jenis, Jenis dan Gejala
XNOJENIS.SetFocus
End If
End If
TBJENIS.RecordSource = Aktifkan data table JENIS yang Nomor Macamnya
Sama dengan XNOMACAM.Text
TBJENIS.Refresh
End Sub
Private Sub CMDSIMPAN_Click()
TBJENIS.Recordset.MoveFirst
TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'"
If Nomor Jenis belum ada Then Tambahkan record baru
Tambahkan data ke table JENIS
TBJENIS.Recordset.Update
Kosongkan Nomor Jenis, Jenis dan Gejala
XNOJENIS.SetFocus
End Sub


Private Sub CMDHAPUS_Click()
TBJENIS.Recordset.MoveFirst
TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'"
If Nomor Jenis tidak ada Then
X = Tampilkan pesan Nomor Jenis tidak ada
Else
X = Tampilkan pesan Nomor Jenis mau dihapus
If X = vbYes Then Hapus data
End If
Kosongkan Nomor Jenis, Jenis dan Gejala
XNOJENIS.SetFocus
End Sub
Private Sub CMDSTOP_Click()
Unload Me
End Sub


9. Isikan data Jenis Kerusakan
(Data Jenis Kerusakan ada di file MS Excel DBMOTOR tab JENIS)











































WORKSHEET 3 : FORM CIRI KERUSAKAN

1. Aktifkan program MS Access
2. Buka file database DBMOTOR.MDB
3. Buat struktur table, simpan dengan nama CIRI



4. Tutup program MS Access
5. Aktifkan program Visual Basic
6. Buka file project PRMOTOR
7. Tambahkan form baru, simpan dengan nama CIRI



8. Ketik kode program di bawah ini

Private Sub BLANKFORM()
TBCIRI.CommandType = adCmdText
TBCIRI.RecordSource = Aktifkan table CIRI yang Nomor Cirinya Kosong
TBCIRI.Refresh
Kosongkan Nomor Jenis, Jenis, Nomor Ciri, Ciri dan Diagnosa
End Sub
Private Sub Form_Activate()
TBJENIS.Recordset.MoveFirst
Do While Not TBJENIS.Recordset.EOF
XNOJENIS.AddItem Isikan combo box dengan Nomor Jenis dan Jenis
TBJENIS.Recordset.MoveNext
Loop
BLANKFORM
End Sub


Private Sub Form_Load()
TBJENIS.CommandType = adCmdText
TBJENIS.RecordSource = Aktifkan table JENIS
TBJENIS.Refresh
End Sub
Private Sub Timer1_Timer()
If XNOCIRI.Text = "" Then
CMDSIMPAN.Enabled = False
CMDHAPUS.Enabled = False
Else
CMDSIMPAN.Enabled = True
CMDHAPUS.Enabled = True
End If
End Sub
Private Sub XNOJENIS_Click()
NOJENIS.Text = Left(XNOJENIS.Text, 4)
XNOJENIS.Width = 1250
XNOCIRI.SetFocus
End Sub
Private Sub XNOJENIS_DropDown()
XNOJENIS.Width = 5000
End Sub
Private Sub XNOJENIS_LostFocus()
If XNOJENIS.Text <> "" Then
XNOJENIS.Text = NOJENIS.Text
TBJENIS.Recordset.MoveFirst
TBJENIS.Recordset.Find Cari Nomor Jenis
XJENIS.Text = TBJENIS.Recordset!JENIS
TBCIRI.RecordSource = Aktikan table CIRI yang Nomor Jenisnya sesuai
TBCIRI.Refresh
End If
End Sub
Private Sub XNOCIRI_Change()
If Len(XNOCIRI.Text) = 4 Then XCIRI.SetFocus
End Sub
Private Sub XNOCIRI_LostFocus()
TBCIRI.RecordSource = Aktifkan table CIRI
TBCIRI.Refresh
TBCIRI.Recordset.MoveFirst
TBCIRI.Recordset.Find Cari Nomor Ciri
If Nomor Ciri Sudah ada Then
Tampilkan Ciri dan Diagnosa
X = Pesan Nomor Ciri sudah ada
If X = vbYes Then
XCIRI.SetFocus
Else
Kosongkan Nomor Ciri, Ciri dan Diagnosa
End If
End If
TBCIRI.RecordSource = Aktifkan table CIRI yang Nomor Jenisnya sesuai
TBCIRI.Refresh
End Sub
Private Sub CMDSIMPAN_Click()
TBCIRI.Recordset.MoveFirst
TBCIRI.Recordset.Find Cati Nomor Ciri
If Nomor Ciri belum ada Then Tambahkan record baru
Simpan Nomor Jenis, Nomor Ciri, Ciri dan Diagnosa
TBCIRI.Recordset.Update
Kosongkan Nomor Ciri, Ciri dan Diagnosa
End Sub

Private Sub CMDHAPUS_Click()
TBCIRI.Recordset.MoveFirst
TBCIRI.Recordset.Find "NOCIRI='" & XNOCIRI.Text & "'"
If TBCIRI.Recordset.EOF Then
X = MsgBox("NOMOR CIRI " & XNOCIRI.Text & " TIDAK ADA !", vbOKOnly)
Else
X = MsgBox("DATA NOMOR CIRI " & XNOCIRI.Text & " MAU DIHAPUS !", vbYesNo)
If X = vbYes Then TBCIRI.Recordset.Delete
End If
XNOCIRI.Text = ""
XCIRI.Text = ""
XDIAGNOSA.Text = ""
XNOCIRI.SetFocus
End Sub
Private Sub CMDSTOP_Click()
Unload Me
End Sub

9. Isikan data Ciri Kerusakan
(Data Ciri Kerusakan ada di file MS Excel DBMOTOR tab CIRI)









































WORKSHEET 4 : FORM PENELUSURAN KERUSAKAN

1. Buka file project PRMOTOR
2. Tambahkan form baru, simpan dengan nama PENELUSURAN



3. Ketik kode program di bawah ini






WORKSHEET 5 : FORM MENU

1. Buka file project PRMOTOR
2. Tambahkan form baru, simpan dengan nama MENU
3. Buat struktur menu seperti di bawah ini :



4. Tambahkan kode program untuk mengaktifkan Form Macam, Form Jenis, Form Ciri dan Form Penelusuran dari Menu Utama
5. Tambahkan form baru, simpan dengan nama LOGIN
6. Buat desain form Login seperti di bawah ini :



7. Tambahkan kode program dengan ketentuan sebagai berikut :
a. Jika OptionButton PAKAR diklik maka Nama dan Password harus diisi dengan STEKOM (bisa huruf kecil maupun huruf kapital) lalu diklik tombol LOGIN maka akan membuka Form Menu dengan menu yang aktif hanya menu PAKAR dan menu SELESAI.
b. Jika OptionButton PEMAKAI diklik maka Nama dan Password tidak perlu diisi tapi langsung diklik tombol LOGIN maka akan membuka Form Menu dengan menu yang aktif hanya menu PEMAKAI dan menu SELESAI.

Upgrade Vista ke 7


Masih ingat Windows me? Nah, the inquirer, dalam sebuah artikelnya di bulan April 2007, menyebutkan kalau Windows Vista itu Windows Me versi kedua. Media massa asal Amerika Serikat itu menyebut pula kalau Microsoft pun mengakui hal itu. “Mickosoft mengakui apa yang sudah kami selalu bilang . Vista alias Me II adalah dagelan yang tidak di inginkan orang,” tulis The inquirer.
 Kini Microsoft mempunyai Windows 7, Mocrosoft melalui Faycal Bouchlaghem, chief oprating Officer Mocrosoft Indonesia, tegas-tegas menyatakan kalau Windows 7 bukan Windows Vista. “Terlepas dari beberapa fitur yang mirip, keduanya merupakan produk yang berbeda,” katanya pada saat peluncuran Windows 7 di Jakarta, Kamis (22/10). Faycal menjelaskan lebih lanjut ”fitur-fitur seperti Windows Aero dan Parental Control, merupakan standar sistem operasi.”
 Windows 7 disebut bisa memaksimalkan hardware yang ada dalam sebuah komputer. Microsoft menyebut kalau Windows 7 bisa memanfaatkan memory lebih baik sehingga lebih efisien juga efektif. Dari pengalaman PCplus pakai Windows 7 dan Windows Vista, PCplus lebih suka Windows 7.
 Dari sisi fitur, salah satu pembeda Windows Vista dengan Windows 7 adalah hanya HomeGroup. Fitur itu mempermudah orang dalam berbagi file dalam jaringan di rumah. Tentu saja ada pula fitur-fitur baru lain, selain fitur yang dihapus, seperti Windows Mail, Calender, dan Movie Maker.
 Ah sudahlah, intinya upgrade dari Windows Vista ke Windows 7 merupakan hal yang tidak merugikan. Lagipula upgrade dari Windows Vista ke Windows 7 mudah, tak seperti upgrde dari Windows XP ke Windows 7.
 Ada pilihan upgrade yang bisa dipakai, tak perlu install dari awal. Untungmya upgrade adalah kita tak perlu mengatur berbagai hal, seperti akun Windows, program, serta internet. Kita juga tak perlu kehilangan data.





Cara upgrade seperti ini 
1. Di Windows Vista, masukan DVD Windows 7. Begitu muncul jendela, klik “Instal Now”.
2. Enggak perlu online untuk instal update, nanti saja. Klik “Do not get the latest update for installation“.
3. Pilih “ I accept the lisence terms” lalu klik “Next“.
4. Pilih yang ”Upgrade“.
5. Muncul penjelasan hal-hal yang bisa jadi tidak kompatibel dengan Windows 7. kalau masalah perlu dibereskan, misalnya harus bersihkan hard disk dulu agar ruang untuk install Windows lega, bereskan dulu. Kalau tidak. Lanjutkan instalasi kayak biasa.

my campus stekom n tmn2 comunity bissnis class,,,,,,,

from cah poetratani