Pembayaran Kuliah, Daftar Ulang, dan Ujian Her Semester Genap 2012/2013

Nomor : 092/2.02/AMIK-BSI/I/2013 Jakarta, 10 Januari 2013
Lamp : -
Hal : Pembayaran Kuliah, Daftar Ulang,
dan Ujian Her Semester Genap 2012/2013
Kepada Yth,
Mahasiswa/i D.III AMIK BSI
Di tempat
Dengan hormat,
Sesuai dengan kalender akademik AMIK BSI dan demi kelancaran proses perkuliahan pada Semester Genap 2012/2013, maka perlu diinformasikan beberapa hal antara lain; pembayaran kuliah, daftar ulang, pengumuman hasil UAS, ujian her, dll. Adapun pembayaran kuliah/daftar ulang harus dilakukan pada tanggal 4 Februari s/d 5 Maret 2013.

Beberapa hal yang perlu mendapat perhatian mahasiswa adalah :
1. Pembayaran biaya kuliah harus melalui ATM Bank yang ditunjuk (BCA, CIMB Niaga, Bukopin, Mandiri, Danamon, Mega Syariah), Internet Banking & M Banking (tgl 4 Februari s/d 5 Maret 2013) dengan mencantumkan NIM secara lengkap. Tidak diperkenankan membayar dengan slip setoran bank maupun segala jenis transfer bank ataupun transfer melalui ATM. (Prosedur pembayaran lihat lampiran).
2. Proses pembayaran kuliah melalui ATM di Bank yang ditunjuk atau melalui Internet Banking tersebut secara otomatis akan menyebabkan mahasiswa yang bersangkutan dinyatakan telah melakukan daftar ulang (registrasi).
3. Pengumuman hasil Ujian Akhir Semester (UAS) Semester Ganjil 2012/2013 pada tanggal 16 Februari 2013, dan dapat diakses melalui Internet (http://www.bsi.ac.id), melalui SMS (Satelindo/Indosat, Telkomsel) & IVR.
4. Ujian Her akan dilaksanakan dengan “Sistem Online”, Jadwal ujian her online, adalah :
a. Pendaftaran ujian her dilakukan melalui web BSI pada tanggal 16 s/d 22 Februari 2013.
b. Jadwal ujian her online dapat dilihat melalui web BSI pada tanggal 2 Maret 2013.
c. Pelaksanaan ujian her online pada tanggal 8 s/d 14 Maret 2013.
d. Perhatikan dan cermati tentang petunjuk pelaksanaan ujian online.
e. Pengumuman hasil ujian her pada tanggal 22 Maret 2013 melalui web BSI.
5. Pengumuman hasil restrukturisasi kelas dan pengumuman jadwal kuliah Semester Genap 2012/2013 pada tanggal 11 Maret 2013 mulai jam 10.00 WIB dan dapat diakses melalui Internet (http://www.bsi.ac.id) dan SMS.
6. Perkuliahan dan praktek semester genap 2012/2013 akan dimulai pada tanggal 18 Maret 2013.
PENTING UNTUK DIPERHATIKAN
1. Keterlambatan proses pembayaran kuliah/daftar ulang akan menyebabkan terhambatnya sistem alokasi dosen, prediksi jadwal kuliah, jadwal praktikum, restrukturisasi kelas, absensi mahasiswa, absensi praktikum, dll. Oleh karena itu, apabila sampai batas tanggal 5 Maret 2013, Saudara belum melakukan pembayaran kuliah/daftar ulang, maka Saudara diharuskan mengajukan (mengurus) cuti akademik sampai dengan tanggal 11 Maret 2013.
2. Mahasiswa yang tidak melakukan proses pembayaran kuliah/daftar ulang Semester Genap 2012/2013 sampai dengan tanggal 11 Maret 2013, dinyatakan mengundurkan diri/drop out (DO).
3. Bagi mahasiswa Diploma Tiga angkatan 2009 dan angkatan sebelumnya, diharuskan untuk tetap melakukan daftar ulang (registrasi) selama mahasiswa yang bersangkutan belum lulus. Mahasiswa yang tidak melakukan daftar ulang (registrasi), tidak dapat melakukan bimbingan Tugas Akhir, ujian her dan kegiatan akademik lainnya.
Agar menjadi perhatian seluruh mahasiswa, dan untuk informasi lebih lanjut dapat menghubungi Bagian Administrasi atau HALO BSI – 8000063.
AMIK BSI
ttd
Ir. Naba Aji Notoseputro

Membuat Text Format Money dengan VB 6



Hai agan2 semua pa kabar neh.. semoga selalu baek2 aja ya. Pada tutorial kali ini saya ingin berbagi bagaimana membuat text pada textbox VB6 saat diketik otomatis membuat format money dan membentuk digit grouping. coding ini sangat bermanfaat untuk  program yang bertugas melakukan pembayaran,  caranya gampang aja, pada textbox di form VB6 klik 2 kali dan pilih event TExt Change dan copy aja coding berikut  Cool:
Private Sub txtCashTend_Change()  If txtCashTend <> "" Then
  txtCashTend.Text = Format(txtCashTend.Text, "###,###,##0.00")
  starttext = Len(txtCashTend) - 3
   txtCashTend.SelStart = starttext
   End if
End Sub

untuk mencegah agar teks yang diketik tidak menerima input huruf  tambahkan event text key press berikut
Private Sub txtCashTend_KeyPress(KeyAscii As Integer)
On Error Resume Next
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = 13) Then
    Beep
    KeyAscii = 0
End If
End Sub