vb - 'jadul'

Kuliah Transfer (Konversi), Sebuah Solusi Lanjut Studi

2022-10-03T05:37:00.005-07:00

Penulis adalah seorang staff tenaga kependidikan di salah satu PTN di Kota Semarang, dengan pengalaman dan kompetensi yang dimiliki sudah cukup nyaman untuk posisi dimana sekarang ditempatkan.

Tetapi dengan latar belakang pendidikan yang sekarang ini, tidak cukup untuk berkembang lebih baik lagi. Oleh karena itu timbul keinginan untuk menimba ilmu kembali.

Terdapat banyak pilihan Universitas dan program studi dengan akreditasi minimal B yang menerima mahasiswa transfer. Dengan pertimbangan lokasi, biaya, kualitas, waktu dan keluarga, akhirnya pilihan jatuh pada Program Studi S1-Manajemen Universitas Pandanaran Semarang.

Dengan jarak 1,3 KM dari tempat kerja, hanya membutuhkan waktu 5 menit apabila ditempuh dengan kendaraan roda 2, jadi penulis bisa mengikuti kuliah di kelas reguler pagi.

Pada tahun 2022, biaya pendidikan untuk setiap semesternya masih dalam taraf wajar dan terjangkau, setara dengan UKT golongan 3 (Rp.3.500.000,-) di PTN tempat penulis bekerja, terdiri dari Biaya KRS Rp.100.000,-/SKS dan SPP Rp.250.000,-/ bulan, tersedia pula beasiswa KIP-K untuk mahasiswa kurang mampu.

(Biaya untuk 22 sks dan SPP 4 bulan)

Dengan Akreditasi B yang disandang Program Studi S1-Manajemen (SK BAN-PT No.7035/SK/BAN-PT/Akred/S/XI/2020), sudah cukup menunjukkan kualitasnya. Lebih dari cukup bagi yang tidak sekedar mencari ijazah. Dan inilah yang menjadi faktor utama mengapa penulis kuliah di unpand.

Kuliah dengan peralatan smartclass

Unpand tidak hanya menerima mahasiswa dari lulusan SMA atau yang sederajat, tetapi juga dari lulusan Perguruan Tinggi lain yang ingin melanjutkan kuliahnya dengan cara transfer atau konversi nilai.

Yang penulis pahami, secara garis besar konversi nilai merupakan metode untuk "mengakui" transkrip nilai dari universitas asal ke dalam transkrip yang berlaku di Universitas Pandanaran.

Singkatnya sebagian mata kuliah yang dahulu pernah ditempuh di universitas lama boleh tidak ditempuh lagi di Unpand.

Dengan metode seperti ini akan menguntungkan bagi mahasiswa transfer, karena tidak harus menempuh semua mata kuliah, sehingga bisa lulus lebih cepat.

Seperti yang penulis alami, pada program studi S1 Manajemen, sesuai kurikulum terbaru minimal SKS yang ditempuh adalah 148 SKS, hasil konversi dari transkrip nilai D3 Akuntansi sebesar 77 SKS, jadi sisa sks yang harus ditempuh hanya 71 SKS, artinya bila maksimal SKS yang ditempuh setiap semester adalah 22 SKS, hanya butuh waktu kurang lebih 4 (empat) semester atau 2 tahun saja untuk mendapat gelar sarjana.

Dokumen konversi berisi antara lain :

Nama mahasiswa dan program studi;
Daftar nama mata kuliah, SKS dan nilainya dari universitas asal;
Jumlah SKS dari universitas asal;
Daftar nama mata kuliah, SKS dan nilai yang dikonversi;
Jumlah SKS yang dikonversi.

(Contoh dokumen konversi nilai)

Untuk mendapatkan dokumen konversi, sebelumnya harus menyerahkan transkrip nilai ke bagian Akademik, setelah disusun dan ditandatangani oleh bagian Akademik, Ketua Program Studi, Dekan, Dosen Wali dan Petugas PDPT, dokumen ini harus disimpan dengan baik, karena akan dipergunakan dalam penyusunan KRS setiap semesternya.

Walaupun penulis adalah mahasiswa baru, tetapi tidak semua mata kuliah yang ditawarkan pada semester 1 diambil, karena sudah ada 4 mata kuliah yang masuk dalam dokumen konversi. Jadi sisa SKS yang masih ada bisa diisi dengan mata kuliah yang ditawarkan di semester 3, 5, atau 7.

KRS Mahasiswa Transfer, yang bisa mengambil matakuliah semester selanjutnya.

Penulis rasa, dengan kondisi diatas, cukup logis apabila bagi pembaca blog ini yang sekarang sudah bekerja, yang ingin lanjut studi, khususnya yang berdomisili di daerah Semarang dan sekitarnya untuk memilih melanjutkan kuliah di Unpand dan bagi yang di luar Kota Semarang, kuliah dapat diikuti secara daring.

Tempat favorit, selasar lantai 3

Melalui Aplikasi UKT, Undip berikan kemudahan penyesuaian UKT bagi mahasiswa

2022-10-01T00:08:00.001-07:00

Pandemi Covid-19 yang mulai melanda di penghujung tahun 2019, membawa dampak pada perekonomian di tanah air, banyak usaha yang tutup, banyak juga yang terkena PHK. Tentu saja berdampak pula pada perekonomian orangtua mahasiswa Universitas Diponegoro. Hal tersebut memberikan kesulitan tersendiri bagi sebagian mahasiswa untuk memenuhi kewajiban pembayaran biaya pendidikannya. Berbagai kebijakan telah diluncurkan untuk memberikan kesempatan kepada mahasiswa yang kesulitan secara ekonomi untuk tetap dapat melanjutkan kuliahnya. diantaranya dengan memberikan penundaan pembayaran, penyesuaian, pengurangan dan pembebasan UKT.

Untuk mendukung kebijakan tersebut, Universitas Diponegoro telah meluncurkan aplikasi UKT. Aplikasi berbasis web ini dapat diakses melalui akun SSO (Single Sign On) masing-masing mahasiswa Universitas Diponegoro yang telah mendapatkan izin untuk mengakses.

Update terbaru dari aplikasi ini mulai digunakan pada akhir tahun 2021 dan dapat akses pada waktu tertentu.

Aplikasi ini dibekali dengan fiture untuk mengunggah data yang dapat dilakukan dari mana saja. Hal tersebut ditujukan untuk memberikan kemudahan bagi mahasiswa dalam mengajukan permohonan tanpa harus datang ke Kampus, karena jadual penyesuaian UKT dilaksanakan pada saat mahasiswa sedang libur kuliah.

Dengan aplikasi ini mahasiswa dapat secara realtime memantau proses pengajuannya. Tim atau Pokja UKT yang bertugas malakukan verifikasi juga diberikan berbagai kemudahan dalam memeriksa data, dan terdapat formula khusus dalam pengolahan datanya sehingga keputusan yang diambil tepat sesuai dengan data yang ada.

Bagaimana cara pengajuan penyesuaian UKT?

Jadual penyesuaian UKT akan diberitahukan melalui surat edaran dari universitas secara periodik.
Menghubungi Narahubung Penyesuaian UKT sesuai Fakultas masing-masing.
Setelah mendapatkan konfirmasi, mahasiswa dapat mengakses aplikasi ukt melalui alamat https://ukt.undip.ac.id

Hadapi musim penghujan, Kelurahan Pudakpayung Lakukan Kerja Bakti Serentak

2022-09-30T23:46:00.188-07:00

Warga Kelurahan Pudakpayung, Kecamatan Banyumanik, Kota Semarang serentak melaksanakan kerja bakti di lingkungan masing-masing.

Kerja bakti di Jalan Payung Prasetya Raya , Minggu, 2 Oktober 2022

Seluruh warga tua dan muda bahu-membahu, bersama-sama, gotong royong membersihkan jalan, selokan, taman dan tempat umum lainnya.

Hal tersebut dilakukan dalam rangka menindaklanjuti Surat Lurah Pudakpayung nomor 005/134/IX/2022 tanggal 27 September 2022 perihal Kerja Bakti Serentak RW dan RT se-Kelurahan Pudakpayung. Dalam surat tersebut Lurah Pudakpayung, Ibu Pamirah, S.ST. menghimbau kepada seluruh warga Kelurahan Pudakpayung untuk secara serentak melaksanakan kerja bakti di lingkungannya masing-masing.

Fokus utama kegiatan ini adalah untuk menghadapi musim penghujan dan penanggulangan DBD. mengingat akhir-akhir ini sudah mulai turun hujan.

Seperti diketahui bersama bahwa Demam Berdarah Dongue (DBD) adalah salah satu penyakit yang berbahaya. Dikutip dari laman sehatnegeriku.kemenkes.go.id, berdasarkan catatan dari Direktorat Pencegahan dan Pengendalian Penyakit Menular (P2PM) sampai Minggu ke 36, jumlah kumulatif kasus konfirmasi DBD dari Januari 2022 dilaporkan sebanyak 87.501 kasus (IR 31,38/100.000 penduduk) dan 816 kematian (CFR 0,93%).

Dari fakta diatas sangat diperlukan keseriusan dalam pencegahan penyakit ini, salah satu contohnya adalah dengan melaksanakan kerja bakti secara serentak untuk memutus siklus hidup nyamuk aedes aigypti yang merupakan pembawa penyakit ini.

Kerja Bakti Serentak ini dilaksanakan pada hari Minggu tanggal 2 Oktober 2022 di seluruh wilayah Kelurahan Pudak Payung.

Seperti terlihat di Perum Korpri Payung Prasetya RT 04/RW XIII Kelurahan Pudakpayung. Dimulai pada pagi hari pukul 07.30 WIB, warga bersama-sama membersihkan selokan, sampah daun dan plastik yang akan menghambat aliran air dan genangan apabila turun hujan, membabat rumput, membuang barang-barang yang sekiranya dapat menampung air hujan dan menjadi sarang nyamuk.

Suasana kerja bakti di lingkungan RT 04 RW XIII Kelurahan Pudakpayung, Minggu, 2 Oktober 2022

Salah satu pengurus RT setempat menuturkan "kegiatan kerja bakti sebenarnya adalah kegiatan yang rutin dilakukan, termasuk program PSN (Pemberantasan Sarang Nyamuk), pemeriksaan jentik yang dilakukan secara periodik dan terjadwal."

"Himbauan dari Lurah Pudakpayung merupakan suatu hal yang positif, selain untuk menjaga kebersihan dan kesehatan lingkungan, yang tidak kalah penting kerja bakti kali ini adalah untuk membangkitkan semangat kebersamaan, hidup guyub rukun dengan sesama."

"Selanjutnya kami berharap kegiatan semacam ini dapat dilakukan secara rutin" tutup beliau.

Suasana kerja bakti di lingkungan RT 04 RW XIII Kelurahan Pudakpayung, Minggu, 2 Oktober 2022

Walaupun dengan peralatan seadanya, pelaksanaan kegiatan ini berlangsung dengan lancar sesuai target yang ditentukan. Kegiatan diselingi dengan ramah tamah dengan konsumsi yang disediakan kelompok PKK, juga hiburan karaoke dari beberapa warga yang menyumbangkan lagu-lagu favorit mereka.

Solusi untuk Kode NTPN tidak terbaca atau hilang

2020-03-09T01:48:00.003-07:00

Sedang mengisi laporan SPT tahunan? mengalami kurang bayar? sudah bayar tapi kode NTPN tidak terbaca? atau bukti setor hilang ? seperti ini solusinya, baca sampai selesai ya.

Cara mencari kode NTPN secara online melalui e-filling DJP Online :
1. Login dengan NPWP dan Password

2. Klik pada tab Layanan,

3. pilih Rumah Konfirmasi Dokumen,

4. pilih konfirmasi NTPN,
5. pada drop-down pencarian berdasarkan, pilih Kode Billing
6. pada input-box kata kunci isi dengan id billing yang Anda cetak sebelum membayar pajak
7. isi kode keamanan,

8. klik tombol cari, dan... rincian pembayaran dengan kode billing tersebut akan muncul, termasuk kode NTPN nya.

Alhamdulillah, selamat mencoba.

Menampilkan Report dengan Crystal Report 10 dan Data dari MS Excel

2018-05-06T23:30:00.000-07:00

Berikut kami sajikan tutorial design report dengan menggunakan Crystal Report 10 dan menggunakan data dari Microsoft Excel.

Persiapan Data Microssoft Excel
1. Buka Microsoft Excel
2. Buat Data seperti contoh dibawah ini :

3. Sebaiknya judul kolom tidak menggunakan spasi
4. Setelah itu simpan dengan ekstensi *.xls

Menghubungkan Data Microsoft Excel dengan Crystal Report
1. Buka Crystal Report 10
2. Pilih As Blank Report
3. Setelah itu akan muncul jendela Database Expert
4. klik + pada Create New Connection
5. klik + pada OLE DB (ADO) *)

*) atau bisa langsung memilih Database File dan cari lokasi file Excelnya

selanjutnya bisa langsung ke langkah ke - 12

6. Setelah itu muncul jendela OLE DB (ADO)

7. Pilih Microsoft Jet 4.0 OLE DB Provider, dan klik Next

8. Pilih Database Type -- Excel 8.0
9. Cari File Excel yang akan digunakan sebagai data

10. Klik Next, dan akhiri dengan Finish
11. Setelah itu muncul kembali jendela Database Expert yang akan menampilkan list data dari file excel yang telah dikoneksikan.
12. Pilih Tabel (sheet) yang akan ditampilkan, sebaiknya gunakan tabel yang ada tanda $ - nya dibelakang namanya

Design Report dengan Crystal Report 10

Untuk menampilkan data yang sudah berhasil dikoneksikan, klik menu View >>

Langkah selanjutnya tinggal melakukan drag-drop field yang ingin ditampilkan

untuk memudahkan memahami langkah-langkah diatas tidak ada salahnya simak video dibawah ini.

Macro Excel - Menampilkan Combo Box(Active X)

2018-03-25T22:09:00.000-07:00

Untuk menampilkan combobox pada worksheet langkah-langkahnya adalah sebagai berikut :
Klik menu Developer, klik Insert dan pilih Combo Box (ActiveX Control)

Letakkan combo Box di Worksheet

Cara mengisi combo box :
Misalnya akan menampilkan bulan, langkah-langkahnya adalah sebagai berikut :

Membuat baris data untuk isian comboBox, misalnya di cell H2 sampai dengan H:13, diisi dengan nama bulan. Seperti gambar dibawah ini :

Selanjutnya klik kanan pada Combo Box, pilih properties, pada ListFillRange isikan range datanya, sesuai contoh diatas range datanya adalah dari cell H2 sampai dengan cell H13, jadi pada ListFillRange diisikan H2:H13

Sampai disini data pada combo box sudah terisi.

Demikian, untuk cara menampilkan combo box pada worksheet Microsoft Excel, dengan combobox ini dapat digunakan untuk memudahkan filter data maupun pencarian data. Terima kasih. Semoga bermanfaat

Macro Excel - Menyimpan Pekerjaan Macro Excel

2018-03-23T01:12:00.000-07:00

Untuk menyimpan File Macro Excel, Anda harus menyimpannya menjadi file Excel Macro-Enabled Workbook (*.xlsm). Apabila file pekerjaan Macro excelnya disimpan dengan exstensi *.xls atau *.xlsx maka perintah-perintah Macro tidak dapat dijalankan, karena file excel tersebut hanyalah file excel biasa bukan file excel-macro.

Berikut langkah-langkah menyimpan file excel macro :
- klik menu File > Save As
- Pilih lokasi dimana file macro excel akan disimpan.
- beri nama file pada kotak File Name
- pada pilihan (dropdown) Save as type pilih Excel Macro-Enabled Workbook (*.xlsm)

Demikian cara menyimpan file macro excel. Semoga bermanfaat.

Macro Excel - Menggunakan Command Button (ActiveX Control)

2018-03-23T00:10:00.000-07:00

Untuk menampilkan command button pada worksheet langkah-langkahnya adalah sebagai berikut :

Klik menu Developer, klik Insert dan pilih commnad button (ActiveX Control),

Letakkan commandbutton di worksheet,

Untuk dapat mengubah properties, maupun menuliskan codingnya pastikan menu Design Mode dalam posisi ON.

Untuk mengubah text, warna, dsb. Klik kanan pada commndbutton, kemudian pilih properties.

Untuk dapat menggunakannya, harus ditambahkan coding didalamnya, dengan cara sebagai berikut :

1. Klik kanan pada commandbutton dan pilih view code
2. Misalnya dengan commandbutton tersebut kita akan menampilkan sheet 2, maka pada contoh codenya adalah :

Private Sub CommandButton1_Click()
Sheet2.Activate
End Sub

Matikan menu Design Menu kemudian klik commandbutton tersebut maka sheet 2 akan ditampilkan.

Memulai Macro Excel

2018-03-22T21:13:00.003-07:00

Untuk memulai Macro Excel, langkah pertama adalah mengaktifkan mode macro-nya caranya adalah sebagai berikut :

Klik menu Developer, kemudian pilih Macro Security

Kemudian muncul jendela Trust Center

Klik pada menu Macro Setting, kemudian pilih option Enable all macros, akhiri dengan menekan tombol OK.

Setelah itu tutup workbook excel anda dan buka lagi.

Sekarang Excel Anda sudah dalam mode Macro.

Video Tutorial : Design Crystal Report 8.5 dengan database MySql

2015-05-05T07:05:00.003-07:00

Kalau tidak salah, ini adalah postingan saya yang ke 200, hehe.. tidak penting.

Ahh.. Langsung saja, berikut adalah video pendek tentang membuat/mendesign report dengan crystal report 8.5 dan mysql.
Secara singkat dapat saya gambarkan isi video ini sebagai berikut :
1. Membuat koneksi dengan odbc
2. Menghubungkan crystal report dengan mysql dengan bantuan odbc
3. Problem solving, ketika menggunakan sumber tabel lebih dari satu

Monggo disimak !
Durasi video : 2 menit 36 detik

Menyajikan Crystal Report di dalam MDI Form

2015-04-21T07:15:00.001-07:00

Lama sekali rasanya saya tidak menulis, saya mulai kembali dengan yang ringan-ringan saja ya :D

Yuph sederhana sekali tulisan saya kali ini, saya akan membagikan satu baris code untuk menampikan Crystal report agar berada di 'dalam' MDI-Form.

Apa itu MDI-Form ? Menurut saya MDI-Form atau Multiple Document Interface adalah object pada visual basic 6.0 yang dapat dipergunakan untuk menampung/memuat satu atau lebih Document (dalam hal ini dapat berupa Form dan lain-lain, termasuk crystal report tetntunya). selengkapnya silakan kunjungi rumahnya disini : https://msdn.microsoft.com/en-us/library/zkysca23%28v=vs.90%29.aspx

code menampilkan crystal report di 'dalam' MDI-Form
silakan baca link ini terlebih dahulu : http://vbjadul.blogspot.com/2009/05/code-simple-untuk-crystal-repot-control.html
untuk menampilkannya di dalam MDI-Form, langkah-langkahnya adalah sebagai berikut :
1. Tambahkan MDI-Form kedalam Project VB Anda.
2. untuk dapat menambahkan Crystal report ke dalam MDI Form, tambahkan terlebih dahulu picture-box baru kemudian letakkan crystal report dalam picture-box tersebut dan beri nama crt1.

(penjelasannya silakan baca disini : http://vbjadul.blogspot.com/2009/06/pasang-control-di-mdi-form.html)
3. Tambahkan juga satu buah command
4. codenya adalah sebagai berikut :

Private Sub Command1_Click()

On Error Resume Next

with crt1
.Reset
.Destination = crptToWindow
.ReportFileName = "C:\Data\Laporanxxx.rpt"
.WindowParentHandle = MDIForm1.hwnd
.WindowState = crptMaximized
.WindowShowPrintBtn = True
.WindowShowRefreshBtn = True
.RetrieveDataFiles
.Action = 1
End with

End Sub

*) codenya adalah yang saya beri huruf tebal dan warna merah.

selamat mencoba !

contoh tampilannya :

Video Tutorial : Cari cepat dengan SQL LIKE - ADODC + DATAGRID (vb6)

2014-08-31T03:47:00.001-07:00

Pencarian cepat dengan input pada textbox dan dimunculkan pada datagrid. Dengan bantuan syntax SQL "like" dan koneksi adodc.

Nomor urut pada Data Report VB 6.0 (2)

2014-08-12T06:30:00.000-07:00

Sebelumnya alangkah baiknya Anda simak posting saya tentang Autonumber pada Datareport pada link dibawah ini :

https://vbjadul.blogspot.co.id/2012/06/autonumber-pada-datareport.html

Pada posting tersebut saya sampaikan link download project visual basic 6.0 membuat autonumber pada Datareport

Project tersebut adalah contoh membuat nomor urut pada Datareport dengan koneksi secara manual sehingga harus mengkoneksikan ulang setiap berganti lokasi database (pindah komputer), koneksi ke tabelnya pun menggunakan pengaturan properties secara manual sehingga penomoran tidak berfungsi ketika data di Filter.

Dengan menggunakan contoh project yang sama saya sedikit memodifikasinya agar lebih fleksibel untuk digunakan, yaitu dengan menggunakan coding untuk koneksi dan commandText dataenvironmentnya.

Kurang lebih seperti ini codingnya :

Pada Form1

Private Sub Combo1_Click()
Adodc2.RecordSource = "SELECT " + _
"1 + (SELECT COUNT(*) FROM (select * from nilai where kelas='" + Combo1.Text + "') where nama < a.nama) AS AUTONUM, " + _
"a.nama AS NAME, a.kelas as KELAS, a.nilai as NILAI " + _
"FROM nilai a where a.kelas='" + Combo1.Text + "' " + _
"ORDER BY nama "
Adodc2.Refresh

DataGrid1.Refresh
End Sub

Private Sub Command1_Click()

DataEnvironment1.Commands("command1").CommandText = Adodc2.RecordSource
Set DataReport1.DataSource = DataEnvironment1

DataReport1.Show
End Sub

Private Sub Form_Load()
Combo1.Clear
Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" + _
"Data Source=" + App.Path + "\Data1.mdb;" + _
"Persist Security Info=False"

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select distinct(kelas) from nilai"
Adodc1.Refresh
Do Until Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset(0)
Adodc1.Recordset.MoveNext
Loop

Adodc2.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Data1.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "SELECT " + _
"1 + (SELECT COUNT(*) FROM nilai where nama < a.nama ) AS AUTONUM, " + _
"a.nama AS NAME, a.kelas as KELAS, a.nilai as NILAI " + _
"FROM nilai a " + _
"ORDER BY nama "
Adodc2.Refresh

DataGrid1.Refresh
End Sub

Pada DataReport1

Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)

If DataEnvironment1.rsCommand1.State = adStateOpen Then

DataEnvironment1.rsCommand1.Close

End If

End Sub

coding pada datareport diatas digunakan untuk menutup recordset, sehingga saat datareport dibuka lagi akan menggunakan recordset yang baru. (refresh)

Bingung kan? hehehe..

saya juga, download saja langsung sourcecodenya pada link dibawah ini :

1. ~~http://downloads.ziddu.com/download/23967939/autonumber_pada_datareport2.rar.html~~ atau

2. https://www.mediafire.com/?ks132et9ol4sct7

Step by step design Datareport tanpa DataEnvironment

2014-05-18T04:49:00.000-07:00

Sebenarnya saya pernah posting tentang hal yang sama disini, akan tetapi selalu error link downloadnya. Agar tidak hilang lagi saya posting ulang tutorialnya saja.

Step 1 - Koneksi database dengan Adodc

contoh code koneksi database dengan Adodc, database yang saya gunakan adalah MS Access 2003

Adodc1.ConnectionString = "" + _
"Provider=Microsoft.Jet.OLEDB.4.0;" + _
"Data Source=D:\DATA\data.mdb;Persist Security Info=False"

Adodc1.RecordSource = "select * from jurnal"

Adodc1.Refresh

Step 2 - Menghubungkan datareport dengan Adodc

Set DataReport5.DataSource = Adodc1

Step 3 - Design Report

- Menambahkan data report, pilih menu Project (1) >> Add Data Report (2)

- Kemudian muncuk jendela data report untuk menampilkan field-field nya adalah sebagai berikut :
-- klik kanan pada section Detail (section1) (3)
-- pilih Insert Control (4)
-- pilih TextBox (5) atau yang lain (Label, line, image, shape, dll)

-- klik pada textboxt yang baru saja ditambahkan (6)
-- atur propertiesnya, terutama pada dataField, isi dengan nama field yang akan ditampilkan (7)

-- Ulangi langkah (3) sampai (5) untuk menambahkan textBox baru atau cukup dengan copy-paste, kemudian atur propertiesnya seperti langkah (6) dan (7)

-- hal tersebut berlaku untuk section-section yang lain

Step 4 - Menampilkan Report

Tambahkan code-code pada step 1 dan 2 pada 1 command, kemudian tambahkan code di bawah ini untuk menampilkan reportnya.

DataReport5.Refresh
DataReport5.Show
DataReport5.ZOrder 0

Demikian, Selamat mencoba.

Reset nomor urut setiap berganti group pada Crystal Report

2014-05-03T07:43:00.001-07:00

Membuat nomor urut pada crystal report itu sangat mudah, tinggal menambahkan special field RecordNumber ke section detail, maka secara otomatis nomor urut akan ditampilkan.

Mudah bukan? tapi apa yang terjadi jika model report kita ubah, misalnya dengan mengelompokkan -nya berdasarkan kode barang,

Yah,, masih sama saja, nomor tidak mulai dari 1 (satu) lagi ketika berpindah group, tentunya ini akan mengurangi estetika report-nya (-lihat record yang diarsir-)

Untuk dapat membuat nomor urut mulai dari awal lagi setiap berpindah group tidak dapat dilakukan dengan special field recordNumber tetapi dengan menggunakan Running Total Field

Bagaimana caranya ? Mari kita lakukan bersama! :D

-Tambahkan Field Object Running Total Field - Menu >> Insert >> Filed Object (1)

- Kemudian muncul jendela Field Explorer
- Pilih Running Total Field (2)
- Pilih New atau tekan Tombol Ctrl dan N secara bersamaan (3)

- Kemudian muncul jendela Create Running Total Field

- Tulis Nama Field-nya, misalnya : "NomorUrut" (4)
- Pilih field apa saja yang penting dari tabel "detail" bukan dari tabel "master", (-contoh seperti gambar di atas saya menggunakan field ID dari t_beli-), kemudian klik tombol ">" yang paling atas (5)
- Pilih count pada dropdown Type of summary (6)
- Pilih For each record untuk evaluate-nya (7)
- Terakhir pilih On Change of group untuk Reset-nya (8)
- Akhiri dengan tombol "OK" (9)

- Drag Field NomorUrut yang baru saja dibuat ke section detail untuk menggantikan RecordNumber sebelumnya (10) dan hasilnya adalah ....

Berhasil, Alhamdulillah :)

Selamat mencoba, semoga bermanfaat.

Membuat Nomor Zig-zag pada Crystal Report (Kolom tanda tangan)

2014-04-24T06:42:00.001-07:00

Nomor Zig-zag? Ini hanyalah istilah penulis untuk menggambarkan nomor urut yang disusun pada sisi kiri untuk nomor ganjil dan disisi kanan untuk nomor genap. Susunan nomor tersebut lazim ada pada daftar penerimaan uang atau barang. Susunan seperti itu bertujuan untuk memungkinkan space yang cukup untuk membubuhkan tanda tangan.

Apabila menggunakan Excel pekerjaan tersebut adalah pekerjaan yang mudah dilakukan. Pada tulisan kali ini saya akan memberikan tips untuk membuat Nomor Zig-zag dengan menggunakan Crystal Report.

Ilustrasi nomor zig-zag

Langkah-langkahnya adalah sebagai berikut :
Pertama, menambahkan field recordnumber , Menu >> Insert >> pilih Field Object

Kemudian akan muncul jendela Field Explorer, klik (expand) pada spesial fields (1) pilih record number dengan cara double-click sampai terlihat tanda hijau disamping kiri recordnumber (2)

dan drag ke section detail (3) untuk menampilkan recordnumber-nya, lakukan sekali lagi dan tempatkan disamping kanannya (4)

Klik tab preview untuk melihat hasilnya

Hapus labelnya (5) kemudian Klik kanan pada recordnumber-nya untuk menyesuaikan formatnya (6)
Tambahkan label untuk menambahkan "........." di belakang nomornya (7) dan (8)

Yeah... sudah mulai ada bentuknya tu !!!

Selanjutnya bagaimana membuat nomor itu Zig-zag ?
Ini rahasianya, prinsipnya adalah dengan menyembunyikan atau menampilkan recordnumber dan label "......." di samping kanannya. Untuk baris pertama yang disembunyikan adalah recordnumber dan label "........." yang sisi sebelah kanan, baris selanjutnya berlaku sebaliknya.

Hal itu dapat dilakukan dengan membedakan recordnumber itu genap atau ganjil, sehingga recordnumber itu akan disembunyikan jika record itu genap atau ganjil

Menyembunyikan recordnumber genap
klik kanan pada recordnumber dan label "........." yang sisi sebelah kanan, kemudian pilih Format Object ...

Kemudian akan muncul jendela Format Editor, pilih tab common
Centang pilihan suppress (a), di klik tombol pensil di sebelah kanannya (b)

Tuliskan code sebagai berikut (c) :
recordnumber mod 2 <> 0

"artinya bahwa object akan disembunyikan jika sisa hasil pembagian recordnumber dibagi 2 adalah tidak sama dengan 0 (tidak habis dibagi), jadi pada baris pertama dan baris dengan recordnumber ganjil recordnumber dan label "........." disebelah kanan akan disembunyikan"

Selanjutnya klik tombol disket (d) dan akhiri dengan menekan tombol OK pada jendela Format Editor

Dan lihat apa yang terjadi :D, nomor 1, 3, 5, dst akan hilang dari sisi recordnumber sebelah kanan

Nah sekarang tinggal recordnumber dan label "........." disebelah kiri yang belum di format, caranya sama seperti langkah (a) sampai (d) diatas hanya mengubah code pada Format Formula Editornya dengan code berikut :

recordnumber mod 2 = 0

dan hasilnya adalah :

Dan Nomor Zig-Zagnya sudah jadi. Alhamdulillah :)

Selamat mencoba, Semoga bermanfaat.

Menghentikan Looping dengan tombol ESC (VB 6)

2014-04-12T02:04:00.000-07:00

Suatu ketika saya mendapatkan data pembayaran biaya pendidikan mahasiswa di Fakultas tempat saya bekerja, yang terdiri dari beberapa ratus file MS excel yang saya download dari sistem informasi pembayaran tingkat Universitas, tugas saya adalah membuat report penerimaan/pendapatan Fakultas dari pembayaran biaya pendidikan, padahal data yang saya peroleh adalah data induk yang memuat beribu-ribu data dari seluruh Fakultas. Akhirnya saya putuskan untuk membuat aplikasi sendiri dengan database sendiri. Dengan metode looping dan filter berdasarkan Fakultas akhirnya saya berhasil mempunyai database pembayaran khusus Fakultas, Alhamdulillah.

Tapi bukan itu permasalahannya, Hehehe..

Waktu itu jam di kantor menunjukkan sesaat lagi harus berkemas untuk pulang, padahal proses import data baru saja saya mulai, ahh.. berarti saya telat pulang. Sebenarnya bisa saja saya hentikan prosesnya dengan CTRL+ALT+DEL, atau langsung Turn Off PC-nya, tapi sepertinya langkah itu sedikit Arogan :D

Di lain kesempatan saya putuskan memperbaiki aplikasi tersebut, akhirnya setelah beberapa kali mencari saya mendapatkan inspirasi dan referensi di sini :

1. Cancelling a long running process in VB6.0 without DoEvents?

2. A Thread to Visual Basic: Multi-Threading In VB5 and VB6

3. http://msdn.microsoft.com/en-us/library/ms646301%28VS.85%29.aspx

Kemudian saya terapkan dalam project VB 6 saya persis seperti yang ada dalam referensi nomor 1 diatas, seperti ini :

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Function WasKeyPressed(ByVal plVirtualKey As Long) As Boolean
If (GetAsyncKeyState(plVirtualKey) And &H8000) Then WasKeyPressed = True
End Function

Private Sub Command1_Click()
For i = 1 to MsFlexgrid1.Rows-1
'masukkan perintah-perintah anda disini
If WasKeyPressed(vbKeyEscape) Then Exit For
Next i
Label1.Caption = "Exited loop successfully"
End Sub

Dan akhirnya saya bisa menghentikan impor data (proses looping) hanya dengan menekan tombol ESC kapan pun saya inginkan dan pulang tepat waktu :D

ilustrasi menghentikan looping

Selamat mencoba. Semoga bermanfaat. Good Luck ! :p

Formula Field Saldo Debet Kredit Pada Crystal Report 8.5

2014-04-10T16:29:00.000-07:00

Beberapa pekan yang lalu saya mendapatkan masalah, bagaimana menyusun buku besar yang ada saldonya, pertama saya berpikir untuk memasukkannya ke dalam tabel. akh... tapi kan "HARAM" hukumnya membuat field (kolom) perhitungan didalam database.

Kemudian saya browsing berusaha mencari referensi sebanyak-banyaknya, akhirnya saya menemukan solusi sederhana untuk permasalahannya, waktu itu saya berkunjung ke sini : https://scn.sap.com/thread/1871405

Intinya adalah membuat Formula field saldo pada crystal report, kurang lebih seperti ini codenya :

whileprintingrecords;
if OnFirstRecord then Shared numbervar saldox := ToNumber ({t_jurnal.DEBET})-ToNumber ({t_jurnal.KREDIT} )
else
shared numbervar saldox := saldox + ToNumber ({t_jurnal.DEBET})-ToNumber ({t_jurnal.KREDIT} )

Untuk cara membuat formula field silakan baca-baca dulu disini : http://www.vbjadul.blogspot.com/2009/09/menambahkan-formula-field-pada-crystal_03.html

Demikian, semoga bermanfaat.

CETAK FAKTUR / INVOICE / KUITANSI DENGAN VB 6 DAN CRYSTAL REPORT 8.5

2013-12-27T14:53:00.000-08:00

Berikut saya berikan link download source code "sangat sederhana" untuk mencetak langsung faktur, invoice atau kuitansi langsung ke printer.

Cara Cetak Faktur

1. Faktur Baru

- Klik tombol baru, secara otomatis aplikasi akan memunculkan nomor faktur/urut baru
- Pilih dropdown kode barang
- Masukkan kuantitas yang dijual
- Klik tombol Tambah, maka grid (MSFlexgrid - red) akan terisi dengan item barang yang dijual lengkap dengan harga dan kuantitasnya, ulangi langkah mulai dari memilih dari dropdown barang sampai dengan menekan tombol tambah untuk mengisi grid.

- Tekan tombol simpan untuk menyimpan dan mencetak atau tekan tombol baru untuk mengisingkan form

2. Cetak Faktur Yang Sudah Pernah diinput

- Cari Faktur dengan memilih dari dropdown (combobox) No Faktur, kemudian tekan tombol (command) Cetak untuk mencetak langsung ke printer.

Component yang perlu ditambahkan
- MSFlexgrid Control 6.0
- Crystal Report Control

Secara singkat dapat saya sampaikan untuk mencetak faktur langsung ke printer dengan vb6 dan crystal report langkah-langkahnya adalah sebagai berikut,
- Menyimpan data ke database dengan identitas tertentu, seperti nomor faktur dll.

- Untuk memungkinkan hanya satu data yang tercetak yaitu data yang baru saja disimpan, maka crystal report harus dipanggil dan ditambahkan selection formula agar hanya data tersebut yang tampil/tercetak (contoh code : crt1.selectionFormula = "{jual.nofaktur}='" & Combo1.Text & "'")

- setting destination crystal report ke to printer (contoh code di vb6 : crt1.Destination = crptToPrinter)

NB :

Bila setting destination crystal report langsung ke printer maka aplikasi tidak memberikan pilihan akan di print di printer yang mana, karena aplikasi akan langsung memilih printer yang diset sebagai default

Source code :

~~http://www.ziddu.com/download/23481200/cetakfaktur.rar.html~~

Link Baru, klik tombol download dibawah ini :

DOWNLOAD

Membuat Icon untuk digunakan pada visual basic 6

2013-05-23T07:37:00.001-07:00

Tidak semua icon dapat digunakan, seringkali akan muncul pesan error "invalid picture" saat memasukkan icon di vb6, baik untuk mengganti icon pada form, toolbar, dll.

1 : Gambar asli 2 : Setelah menjadi icon 3 : Setelah saya gunakan di vb6

Berikut ini saya berikan link download cara membuat icon yang akan digunakan pada vb 6 dalam file doc tulisan bergambar.

http://www.ziddu.com/download/22242868/MembuatIconuntukvb6.doc.html

Menampilkan Periode Mingguan dalam 1 bulan dengan visual basic 6.0

2013-02-16T15:45:00.000-08:00

Komponen yang diperlukan :
3 buah combo box; 3 buah DTPicker

Setting propertiesnya sebagai berikut :
1. Combo1, name=cmbBulan,    visible=true
2. Combo2, name=cmbTahun,    visible=true
3. Combo3, name=cmbMinggu, visible=true
4. DTPicker1, visible=true, enable=false
5. DTPicker2, visible=true, enable=false
6. DTPicker3, visible=false, enable=false

Code :

Private Sub Form_Load()
On Error Resume Next
Call loadbulan
Call loadtahun
Call settanggal

cmbBulan.Text = Month(Date)
cmbTahun.Text = Year(Date)

Call cariperiode
End Sub
'______________________________________________________________________
Private Sub cmbbulan_Click()
Call cariperiode
End Sub
'______________________________________________________________________
Private Sub cmbtahun_Click()
Call cariperiode
End Sub

'______________________________________________________________________
Sub settanggal()
On Error Resume Next
    DTPicker1.Month = Val(cmbBulan.Text)
    DTPicker1.Year = Val(cmbTahun.Text)

    If Not Val(cmbBulan.Text) = 12 Then
        DTPicker2.Month = Val(cmbBulan.Text) + 1
        DTPicker2.Year = Val(cmbTahun.Text)
    Else
        DTPicker2.Month = 1
        DTPicker2.Year = Val(cmbTahun.Text) + 1
    End If

    DTPicker1.Day = 1
    DTPicker2.Day = 1
    DTPicker2.Value = DTPicker2.Value - 1
    DTPicker3.Value = DTPicker1.Value

End Sub

Sub loadbulan()
    cmbBulan.Clear
    For i = 1 To 12
        cmbBulan.AddItem i
    Next i
End Sub

'______________________________________________________________________
Sub loadtahun()
    cmbTahun.Clear
    For i = 1 To 5
        cmbTahun.AddItem Year(Date) + i - 5
    Next i
End Sub

'______________________________________________________________________
Sub cariperiode()
    Call settanggal
    satu = 1
    minggu = 1
    CmbMinggu.Clear
    For i = 1 To (DTPicker2.Value - DTPicker1.Value) + 1
        DTPicker3.Value = DTPicker3.Value + 1

        dua = i
        If Weekday(DTPicker3.Value, vbMonday) = 1 Then
            If satu = 1 Then satu = 1
            CmbMinggu.AddItem "minggu ke-" & minggu & " : " & Right("0" & satu, 2) & " s.d " & Right("0" & dua, 2)
            satu = i + 1
            minggu = minggu + 1
        Else
            If i = (DTPicker2.Value - DTPicker1.Value) + 1 Then CmbMinggu.AddItem "minggu ke-" & minggu & " : " & Right("0" & satu, 2) & " s.d " & Right("0" & dua, 2)

        End If
Next i
End Sub

Screenshot :

Source Code :
http://www.ziddu.com/download/21608628/periodemingguan.rar.html

Pindah halaman otomatis saat berganti group pada crystal report

2013-02-07T05:45:00.003-08:00

Masih soal Crystal Report, misalnya Anda membuat report penjualan dengan mengelompokkan berdasarkan kota tempat pemasaran. Secara default hasilnya akan ditampilkan seperti gambar dibawah ini :

Apabila ingin memisahkan setiap group pada halaman berbeda, dapat dilakukan dengan langkah-langkah sebagai berikut :

1. Klik kanan pada tab design, kemudian
2. pilih Format Section ...

3. Pilih Group Footer yang dijadikan parameter perpindahan (misalnya group footernya 'KOTA')
4. Centang New Page After, yang berarti report akan berpindah halaman setelah group bersangkutan berakhir.
5. Suppress Report Footernya, pindahkan judul reportnya ke section page header
Berikut hasilnya :

Sekian, Semoga bermanfaat

'Wrap Text' pada Crystal Report

2013-02-07T04:56:00.000-08:00

Wrap text biasa kita kenal saat bekerja dengan MS Excel, yaitu format pada cell yang memungkinkan tinggi baris (row) mengikuti berapa banyak karakter teks yang dimuat dalam sebuah cell, semakin banyak karakternya semakin tinggi barisnya, sehingga tidak perlu kita sesuaikan tingginya.

Pada Crystal Report format 'wrap text' ini ada dalam bentuk format lain yaitu dengan istilah 'CAN GROW' dalam bahasa indonesia (versi google translate) berarti 'dapat tumbuh', artinya field/object dapat menyesuaikan dengan banyaknya karakter pada field tersebut.

Format tersebut dapat Anda lihat dengan cara : klik kanan pada object, pilih format object atau format text atau format field sehingga muncul jendela format editor sbb :

Contoh hasil yang menggunakan (mencentang) can grow

Contoh hasil yang tidak mencentang can grow :

Ya .. begitulah kira-kira, hehehe. Semoga bermanfaat !!

Format Painter, si sapu ajaib word dan excel

2012-11-12T00:41:00.000-08:00

Format painter adalah salah satu tool yang terdapat pada MS word dan Excel yang digunakan untuk mengcopy format dari suatu baris kalimat atau cell, manfaatnya adalah untuk menyamakan format pada kata, kalimat, paragraph, yang berupa bentuk, warna, jenis, besar huruf, bullet, numbering dll. Pada Excel bisa digunakan untuk menyamakan format pada cell-cell nya, misalnya format angka, font, border dll.Wah muter-muter ya kalimatnya, hihihi.. oke langsung ke gambarnya saja, berikut ini :

Cara menggunakan :

Hasilnya :

Untuk di excel sama saja penggunaannya, semoga bermanfaat.

*Yang penting posting

Menghitung Pecahan Uang dengan Microsoft Excel

2012-11-12T00:36:00.001-08:00

Kali ini saya berikan contoh file excel untuk menghitung pecahan uang dengan menggunakan fungsi MOD dan INT.
Silakan download filenya pada bagian akhir postingan ini.

Screen Shot

Link Download :

http://www.ziddu.com/download/20858199/hitungpecahanuang.xlsx.html