listening entri pembayaran

ENTRI PEMBAYARAN

Kode Program :
Private Sub Cmdbatal_Click()
Kosong
End Sub

Private Sub Cmdcari_Click()
If Txtnopeserta.Text = "" Then
MsgBox "No Peserta belum diinputkan..", vbInformation, "Pesan"
Txtnopeserta.SetFocus
Else
With Data1.Recordset
.Index = "idxpeserta"
.Seek "=", Txtnopeserta.Text
If Not .NoMatch Then
If !sisaangsuran = 0 Then
MsgBox "Peserta ini sudah lunas..", vbInformation, "Pesan"
Kosong
TxtNobayar.SetFocus
Else
TxtNama.Text = !nama
Txtbiaya.Text = !biayakursus
Txtsisa.Text = !sisaangsuran
Data2.Recordset.Index = "idxkursus"
Data2.Recordset.Seek "=", !kode_kursus
If Not Data2.Recordset.NoMatch Then
Txtnamakursus.Text = Data2.Recordset!nama_Kursus
End If
Txtcicilanke.Text = Val(!cicilanke) + 1
TxtJumlahbayar.SetFocus
End If
Else
MsgBox "No Peserta tidak ada..", vbInformation, "Pesan"
Txtnopeserta.Text = ""
Txtnopeserta.SetFocus
End If
End With
End If
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub Kosong()
Dim obj As Object
For Each obj In Controls
If Left(obj.Name, 3) = "Txt" Then obj.Text = ""
If Left(obj.Name, 3) = "cbo" Then obj.ListIndex = -1
Next
End Sub

Private Sub Cmdsimpan_Click()
If TxtNobayar.Text = "" Then
MsgBox "No pembayaran belum diisi..", vbInformation, "Pesan"
TxtNobayar.SetFocus
Else
X = MsgBox("Data sudah benar ?", vbYesNo, "simpan data")
If X = vbYes Then
simpanbayar
updatepeserta
Kosong
End If
End If
End Sub
Private Sub simpanbayar()
With Data3.Recordset
.AddNew
!nobayar = TxtNobayar.Text
!tglbayar = Dtptgl.Value
!nopeserta = Txtnopeserta.Text
!jumlahbayar = TxtJumlahbayar.Text
!cicilanke = Txtcicilanke.Text
.Update
End With
End Sub
Private Sub updatepeserta()
With Data1.Recordset
.Edit
!sisaangsuran = Val(Txtsisaberikut.Text)
!cicilanke = Val(Txtcicilanke.Text)
.Update
End With
End Sub

Private Sub Cmdtambah_Click()
Kosong
TxtNobayar.SetFocus
End Sub

Private Sub Form_Load()
Kosong
End Sub

Private Sub TxtJumlahbayar_LostFocus()
Txtsisaberikut.Text = Val(Txtsisa.Text) - Val(TxtJumlahbayar.Text)

End Sub

Private Sub TxtNobayar_LostFocus()
If TxtNobayar.Text <> "" Then
With Data3.Recordset
.Index = "idxbayar"
.Seek "=", TxtNobayar.Text
If Not .NoMatch Then
MsgBox "Nomor pembayaran ini sudah ada..", vbInformation, "Pesan"
TxtNobayar.Text = ""
TxtNobayar.SetFocus
End If
End With
End If
End Sub

cara mengembalikan folder yang hilang

Mengembalikan folder yang hilang akibat virus berekstensi .scr
sakroni on April 16th, 2009

27 Maret 2009 02:18:12

Bukan rahasia lagi bila Microsoft Windows merupakan operating system (OS) yang sangat rentan terhadap serangan virus. tak ayal lagi banyak user yang senantiasa membentengi OS Windows-nya menggunakan anti virus yang senantiasa di update secara berkala. Namun, terkadang saat kita melakukan scaning pada komputer yang terinveksi, virus tersebut dapat kita hill atau di bersihkan, hanya saja folder yang terinveksi tersebut juga ikut hilang. gawatnya lagi kasus semacam ini terjadi tidak hanya pada local harddisck, tapi dapat terjadi pula pada removable disck, semisal portable harddisk, flash disk, ataupun memory card. biasanya jika terjadi kasus semacam ini, user akan mencoba mencari folder yang hilang tersebut dengan cara sebagai berikut:

* pada windows explorer masuk kedalam menu Tools , kemudian click pada sub menu folder option . untuk shortcut-nya dapat menggunakan ALT+T kemudian tekan tombol O .
* Masuk pada tab view dengan cara langsung meng-click atau menekan CLTR+TAB sebanyak satu kali untuk berpindah dari tab general ke tab view.
* Kemudian berikan chek list pada show hidden file and folder . lalu click OK .

Namun apabila telah mencoba seperti cara diatas tetapi folder yang sedang kita cari tetap tidak tampil, maka dapat disimpulkan komputer tersebut terinveksi virus yang berekstensi *.scr .

Cara kerja virus ini sangat sederhana, yaitu merubah setiap folder yang ada di komputer (baik local harddisck maupun removable disck) menjadi file applikasi dengan kapasitas yang digandakan sebesar 32 Kb. dan ketika coba di bersihkan (scaning) menggunakan antivirus dari salah satu vendor, virus tersebut dapat di hilangkan namun effect yang ditimbulkan dari proses scanning tersebut adalah folder-folder yang terserang virus ini menjadi hilang.

Sebenarnya folder tersebut tidak hilang, namun hanya disembunyikan saja (hidden). Folder yang hilang tersebut dapat kita kembalikan dengan menggunakan perintah attrib pada command prompt . Caranya sangat sederhana sekali, namun sebelum mengupas bagaimana cara mengembalikan Folder yang hilang tersebut, mari kita bahas sedikit tentang attribute ini.

Untuk melihat Properties attribute dapat dilakukan dengan beberapa cara. namun dalam kesempatan ini akan dijelaskan menggunakan command promt .

Command attribute bekerja pada DOS command prompt, memiliki beberapa fungsi, salah satunya adalah untuk men-set attribute dari suatu file apakah file tersebut akan diberi attribute antara lain:

* read-only file attribute
* Archive file attribute
* System File Attribut
* Hidden File Attribut

Adapun tahapan untuk mengembalikan folder yang hilang menggunakan command promt adalah sebagai berikut :

1. Masuk kedalam menu Start kemudian pilih RUN .
2. Maka akan terbuka jendela RUN, lalu ketikkan kata cmd kemudian tekan enter .
3. Setelah jendela command promt terbuka, kemudian ketikan attrib /? Untuk mengetahui beberapa perintah pada properties attribute melalui command prompt.
4. Selanjutnya pada prompt tersebut akan muncul sederatan kalimat yang menjelaskan tentang attribute seperti :
* Tanda (+) untuk sets an attribute.
* Tanda (– ) untuk Clears an attribute.
* Huruf R untuk read-only file attribute.
* Huruf A untuk Archive file attribute.
* Huruf S untuk System file attribute.
* Huruf H untuk Hidden file attribute.
* /S untuk proses penyamaan file di dalam folder sebelumnya dan semua subfolder yang ada di komputer.
* /D untuk proses yang akan dilakukan terhadap folder itu sendiri.
5. Kembali kepembahasan awal, untuk kasus Folder yang hilang tersebut, maka perintah yang kita ketikkan pada command prompt ini adalah :
* Ketikkan C:> atau D:> atau drive tempat folder yang hilang , kemudian tekan enter .
* Kemudian ketikan attrib –s –h *.* /S /D
6. Langkah terakhir adalah keluar dari jendela command promt kemudian refresh komputer, (shortcut F5 ).

Sekarang perhatikan perubahan yang terjadi pada komputer, folder yang hilang telah ditampilkan kembali. Jadi tidak perlu khawatir lagi dengan folder yang hilang karena terserang virus berekstensi *.scr.

Sumber : bigzone.wordpress.com

IKPI

Seputar IKPI
IKPI atau di singkat dengan Institute Komputer dan Perhotelan Indonesia adalah sebuah lembaga pendidikan Komputer yang berada di Pekanbaru - Riau. Tepatnya berada di Jl. Jend. Sudirman No. 419 B Nah untuk anda yang berada di Riau atau berada di luar daerah pekanbaru Untuk mencari alamat kami cukup Gampang.
Jika anda sudah sampai di pekanbaru maka telusurilah Jl. Jend. Sudirman, Jalan tersebut merupaka jalan Protokol diman jika anda datang ke Pekanbaru jalan ini merupakan jalan utama dan pasti anda akan melewatinya. Nah setelah itu Mungkin anda akan menjumpai sebuah hotel yang cukup terkenal di pekanbaru yaitu Hotel Pangeran, Jika anda sudah menemukan Hotel Pangeran maka kurang lebih 100 M anda akan menemukan plang nama IKPI dan Hotel akasia, Karena IKPI satu gedung dengan hotel akasia dan hotel akasia itu merupakan hotel IKPI.
Kalo anda masih ragu mengenai alamatnya IKPI juga berdekatan dengan Bank Muamalat, begitu juga berdekatan dengan Plasa Soto dan Asuransi Kesehatan (Askes). Nah kalau anda kurang faham juga silahkan hubungi kami di (0761) 862873 IKPI berdiri sejak Tahun 1998, Dulu IKPI tidak menerima mahasiswa tetapi IKPI hanya mengadakan Pelatihan² saja. Nah setelah di latih IKPI juga memagangkan para diklat. Untuk pemagangan IKPI memberikan dua alternatif tempat magang yaitu magang di Dalam neger dan Magang di Luar Negeri. Untuk magang di dalam negeri yaitu disekitar Pekanbaru dan Untuk magang di Luar Negeri itu di Malaysia. Jurusan yang kami sediakan Untuk Tahun 2007 - 2008 itu ada 5 jurusan diantaranya :

1. Perhotelan
2. Teknisi & Informatika
3. Akuntansi Komputer
4. Sekretaris Perbankan
5. Management Bisnis

puisi lebaran

Dikala Takbir Dan Tahmid Bergema
Dari bumi Nusantara Sampe K' Mekah
Pertanda nan fitri t'lah tiba
Teringat segala salah dan dosa
Khilaf dan Salah pernah terlaksana
Ampun dan Maaf Mohon di buka

Bila ada langkah membekas lara
Ada kata merangkai dusta
Ada tingkah menoreh luka
Mohon maaf lahir dan bathin
Selamat hari raya Idul Fitri 1429 H

Pergi berlayar ke Pulau Bintan
Dengan Membawa kain Tenunan
Khilaf Dan salah yang pernah ku lakukan
Di hari nan fitri mohon di maafkan
Minal Aidzin Wal Faidzin

MATA kadang salah melihat
MULUT kadang salah mengucap
HATI kadang salah menduga
Dengan niat tulus suci dengan ikhlas
Mohon Maaf Lahir dan Bathin

Jika langkahku membekas lara,
Kataku merangkai dusta;
Lakuku menoreh luka;
Dari jeritan lubuk bathinku
Dengan ketulusan hatiku
Komohonkan maaf lahir bathinku
Minal Aidin wal Faizin
Mohon Maaf Lahir dan Bathin
Selamat Hari Raya Idul Fitri
1 Syawal 1429 H

Untuk LISAN yang tak terJAGA
Untuk JANJI yang terABAIKAN
Untuk HATI yang berPRASANGKA
Untuk SIKAP yang meNYAKITKAN
Di hari yang FITRI ini, dengan TULUS HATI
Saya mengucapkan mohon MAAF LAHIR & BATHIN

Mata bisa salah lihat
Kuping bisa salah dengar
Mulut bisa salah bicara
Hati bisa salah sangka
Di hari yang fitri ini
Mohon maaf lahir dan bathin

SELAMAT DATANG DI WEB PRIBADIKU

ini contoh animasi marquee

hidup adalah sebuah perjalanan yang penuh dengan tantangan dan rintangan dalam arti kehidupan ini keras maka kita haruslah lebih keras dalam menghadapi segala hal.
kemajuan dan kesuksesan serta keberhasilan berada ditangan kita masing-masing oleh karena itu siapa yang mau berhasil dan sukses maka harus mau berkorban dan berjuang dengan keras demi masa depan dan cita-cita yang yang di impikan serta kita harus memili keyakinan yang kuat bahwa apapun yang menjadi impian kita harus lah menjadi kenyataan. jika tidak memiliki kepercayaan yang kuat hal yang harus kita lakukan adalah belajar dari oarang yang telah memilikinya.