Kopi Dan Kelelahan menjadi Kombinasi yang Mematikan

Pas liat beranda FB gak sengaja ada temen yang share berita tentang meniggalnya pendaki muda asal SMAN 6 Bekasi  Shizuko Rizmadhani. Dia wafat saat akan mendaki ke Gunung Gede Jawa Barat.
Melihat berita ini saya teringat pengalaman saya waktu mendaki ke gunug Gede tersebut 1 tahun yang lalu. Bersama teman-teman dari KOMA BSI Cikarang. Kalo diliat dari jalur pendakiannya memang tidak se extreem Gunung Lawu yang di Jawa Tengah atau Gunung Semeru Yang di Jawa Timur. Tapi kenapa bisa menghilangkan nyawa. KaLO mau tau kronologis kejadiannya lihat ini aja,,, saya gak akan ngulang cerita..

http://m.kaskus.co.id/thread/52bcc06c17cb1733608b45ea


Setelah membaca artikel tersebut say mulai mengaitkan kejadian ini dengan kematian salah satu Typewriter muda Mita Diran beberapa bulan yang lalu,,,
Nieh artikelnya,,,,


http://fokus.news.viva.co.id/news/read/466827-mita-diran--akhir-kisah-sang-pekerja-keras

Kalo dibaca Kronologis kejadiannya, Ada beberapa kesamaan kasus yang menimpa Shizuko Rizmadhani dan Mita Diran diatas. Yaitu mereka sama-sama memforsir tubuhnya untuk bekerja keras hingga menyebabkan kelelahan, di tambah lagi kedu korban tewas setelah mengkonsumsi KOPI..,
Entah secara kebetulan atau bagaimana memang KOPI + KELELAHAN akan menjadi Kombinasi yang mematikan..

Mudah2han ini semua bisa jadi pengalaman buat semuanya,,agar bisa terhindar dari hal yang demikian,,,
Semoga Tuhan Yang Maha Esa menerima semua Amal dan Perbuatan mereka berdua,,,Dan mendapatkan di sisiNYA,,amin,,

Read more »

Listing untuk menyesuaikan resolusi layar di Visual Basic 6

Buat agan-agan pecinta vb 6 mania,,, mungkin ada yang pernah menemukan masalah sama seperti saya. sewaktu saya menyelesaikan tugas akhir saya dulu. Karena suatu hal laptop yang biasa saya pakai untuk membuat form ternyata tidak bisa di pakai untuk presentasi. akhirnya saya putuskan untuk meminjam netbook temen yang punya resolusi 600X800 pixel,, Wal hasil program saya yang sudah jadi dan jalan di laptop saya pun jadi berantakan,, Ukuran form nya kepotong.
Hal ini di karenakan resolusi ukuran layar monitor laptop saya dan netbook temen berbeda. Setelah pusing mencari kesana kemari tidak ketemu akhirnya saya hanya mengedit posisi control yang ada di program saya.
Setelah 1 bulan berlalu saya kembali menemukan masalah ini. Saya mendapatkan order untuk membuat aplikasi Koperasi menggunakan VB6. Tidak mungkin kan saya membuat programnya di PC client..?Coba googling dan secara tidak sengaja saya menemukan caranya untuk menyesuaikan ukuran form saat form di resize atau beda resolusi.
Langsung aja nih source codenya:

Private lngFormWidth As Long
Private lngFormHeight As Long

Private Sub Form_Load()
    Dim Ctl As Control
    'Tempatkan dimensi form dalam variabel
    lngFormWidth = ScaleWidth
    lngFormHeight = ScaleHeight
'Tempatkan inisialisasi dimensi control dalam 'property Tag - dengan penanganan error untuk 'controls yang tidak memiliki properties seperti 'Top (misalnya: control Line)
    On Error Resume Next
    For Each Ctl In Me
        Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & _
            Ctl.Width & " " & Ctl.Height & " "
            Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "
    Next Ctl
    On Error GoTo 0
End Sub

Private Sub Form_Resize()


    Dim D(4) As Double
    Dim i As Long
    Dim TempPoz As Long
    Dim StartPoz As Long
    Dim Ctl As Control
    Dim TempVisible As Boolean
    Dim ScaleX As Double
    Dim ScaleY As Double
    'Hitung skala-nya
    ScaleX = ScaleWidth / lngFormWidth
    ScaleY = ScaleHeight / lngFormHeight
    On Error Resume Next
    'Untuk setiap control yang terdapat di form
    For Each Ctl In Me
        TempVisible = Ctl.Visible
        Ctl.Visible = False
        StartPoz = 1
        'Baca data dari property Tag
        For i = 0 To 4
            TempPoz = InStr(StartPoz, Ctl.Tag, " ", _
                vbTextCompare)
            If TempPoz > 0 Then
                D(i) = Mid(Ctl.Tag, StartPoz, _
                    TempPoz - StartPoz)
                StartPoz = TempPoz + 1
            Else
                D(i) = 0
            End If
            'Pindahkan control berdasarkan data
            'di property Tag dan di skala form
            Ctl.Move D(0) * ScaleX, D(1) * ScaleY, _
                D(2) * ScaleX, D(3) * ScaleY
            Ctl.Width = D(2) * ScaleX
            Ctl.Height = D(3) * ScaleY
            'Ganti ukuran huruf
            If ScaleX < ScaleY Then
                   Ctl.FontSize = D(4) * ScaleX
            Else
                   Ctl.FontSize = D(4) * ScaleY
            End If
        Next i
        Ctl.Visible = TempVisible
    Next Ctl
    On Error GoTo 0
End Sub


Nah buat yang di aplikasinya menggunakan DCBUTTON. agan harus hapus fontsize properti yang ada di source code user controlnya.


ini saja tutorial saya kali ini tentang Microsoft Visual Basic 6. semoga sedikit trit ini bisa membantu.
Thanks buat www.FirdausTech.com

Read more »

Ospek Mesum

Dari judulnya aja udah jelas bingung mau nulis apa,,ya gini lah jadinya,,, O,,ya sebelumnya saya mau sapa dulu sobat blogger yang ada di seluruh jagad dunaia maya...Lama banget nie gak nulis di blog kesayanganku ini. Bukan karena kesibukkan melainkan karena males aja mau nulis apa,,,mau kopy paste juga gak nemu artikel yang bagus belakangan ini.,,, Pagi ini Tgl 13 Desember 2013 gua liat fb pas di beranda muncul gambar yang menurutku kurang seronok nieh aku kasih liat screenshootnya.

Gila gak tuh acara OSpek Kaya gitu? seneng di cowoknya dong,,,namun sempat gw bertanya-tanya, seandainya peserta ospeknya jelek n item apa ya di perlakuin seperti itu?ahhaha <becanda.red>

Itu Ospek macam apa? Benar-benar mencoreng dunia pendidikan Indonesia. Entah benar atau tidak menurut sumber yang gw baca ini dilakukan oleh  seglintir Mahasiswa di Malang. Mungkin ini juga ada kaitanya atau emang sengaja di kait-kaitkan dengan kasus yang terjadi beberapa minggu yang lalu. Tentang terbunuhnya mahasiswa baru ITN Malang asal Sumbawa.

Sungguh bejat anak muda ini,,, Setahu saya dan menurut wikipedia ini lho arti ospek yang sebenarnya:

"Ospek merupakan kegiatan untuk memperkenalkan kampus kepada mahasiswa baru. Kegiatan ini merupakan kegiatan institusional yang menjadi tanggung jawab Universitas untuk mensosialisasikan kehidupan di Perguruan Tinggi dan proses pembelajaran yang pelaksanaannya melibatkan unsur pimpinan universitas, fakultas, mahasiswa dan unsur-unsur lainnya yang terkait."

Nah kalo kejadiannya seperti gambar diatas..? Sebagai orang yang pernah mengenyam bangku kuliah, saya benar-benar mengutuk pelaku diatas. Memanfaatkan situasi hanya untuk kepuasan pribadi.

Bukannya mau menyombongkan Almamater saya, tetapi memang seperti itulah keadaanya. dan sampai sekarang tradisi ospek di Lingkungan Kampus BINA SARANA INFORMATIKA masih dijaga. Tidak ada ospek macam itu. Plonco-ploncoan oleh senior juga tidak ada...Adanya adalah mahasiswa baru berkumpul disuatu gedung, dulu saya di SENAYAN. Memakai baju sopan dan menggunakan Jas Almamater stelah itu kami mendengarkan seminar dan motivasi dari beberapa narasumber terkenal,. Ini screenshootnya.








Kalo di bandingkan dengan gambar diatas gimana?
Harusnya seperti ini lho Ospek itu,,, justru inilah yang akan membuat Mahasiswa baru bersemangat dalam kuliah.
pesan saya untuk Rekan-rekan mahasiswa, tolonglah ospek yang melenceng dari makna yang sebenarnya ini dirubah. Mau di bawa kemana negara ini jika Mahasiswanya berkelakuan bejat seperti itu,

Read more »

Cara Membuat Daftar Isi Dengan Titik-titik Rapi di MS. Word, daftar isi rapi di ms. word 2007, agar daftar isi rapi di word.

Daftar Isi merupakan halaman penting dalam suatu karya tulis ilmiah, baik berupa makalah, skripsi, tesis, disertasi, buku, dan karya tulis ilmiah lainnya, karena dengan adanya halaman ini, memudahkan bagi pembaca untuk menemukan topik tertentu dalam sebuah karya tulis ilmiah. Selain itu, dengan Daftar Isi pula, memudahkan pembaca untuk mempelajari pokok-pokok bahasan dari sebuah karya tulis yang akan dibacanya. Namun demikian, mungkin ada orang yang kebingungan ketika harus membuat sebuah daftar isi agar baik dan rapi, terlebih harus merapikan posisi titik-titik dalam sebuah halaman daftar isi.

Berikut adalah cara membuat titik-titik pada daftar isi agar terlihat rapi menggunakan Microsoft Office 2007

Bukalah program microsoft office sehingga muncul lembar kerja yang masih kosong. Lalu, pastikan batang “ruler” yang ada pada lembar kerja dalam keadaan aktif. Jika belum aktif, aktifkan dengan memilih menu “view” lalu beri centang pada “ruler”,

Ketikkan “DAFTAR ISI”. Pada baris kedua, ketikkan “KATA PENGANTAR”
Pada posisi kursor sebaris dengan KATA PENGANTAR, klik pada area batang ruler yang berwarna putih sehingga muncul tanda seperti huruf “L” berwarna hitam. Buatlah tanda tersebut sebanyak 2 buah, dan aturlah posisinya seperti gambar berikut:



Langkah selanjutnya adalah klik dua kali tanda “L” yang pertama yang berwarna hitam di atas hingga muncul jendela Tab seperti di bawah ini:



Lalu aturlah hal-hal sebagai berikut :
Nilai pada tab stop position abaikan
Nilai pada default tab stops abaikan
Pada Alignment klik “Right”
Pada Tab Leader pilih No.2
Lalu Klik tombol Set
Lalu Klik OK
Setelah itu, perhatikan bahwa tanda “L” yang pertama berganti posisi menjadi seperti “L” terbalik sebagaimana gambar berikut:

Langkah selanjutnya, masih pada posisi kursor sebaris dengan KATA PENGANTAR, pada papan keyboard tekan tombol Tab, sehingga posisi kursor meloncat pada tanda “L” terbalik, Maka secara otomatis akan muncul titik-titik sebagaimana gambar berikut :

Langkah selanjutnya adalah tekan sekali lagi tombol Tab pada papan keyboard, sehingga kursor meloncat pada tanda L yang kedua, lalu isikan angka halaman untuk KATA PENGANTAR (biasanya halaman i). Selesai membuat titik-titik dan mengisi nomor halaman pada KATA PENGANTAR, selanjutnya tekan tombol enter, maka tanda L yang telah anda buat pada langkah sebelumnya akan terbawa pada baris selanjutnya. Artinya, Anda tidak perlu lagi mengulangi langkah di atas, yang diperlukan adalah melanjutkan mengetik elemen dari DAFTAR ISI, seperti DAFTAR ISI, ABSTRAK, dan lain-lain.

Catatan : posisi tanda tab (L) di atas dapat anda atur dengan mendrag salah satu tanda tab (L) lalu geser sesuai posisi yang diinginkan.

Selamat mencoba

Sumber

Read more »

Penanganan String pada Visual Basic 6.0

Penanganan string sering terjadi pada pemrograman visual basic untuk berbagai keperluan.

Variable string bisa berisi anda namun masih tetap dianggap string.

Contoh: K001,B002 dsb.

Berikut akan saya jelaskan beberapa fungsi bawaan visual basic yang sering digunakan untuk menangani string ini.

1. Left
Fungsi left digunakan untuk mengambil satu atau beberapa karakter dihitung dari sisi kiri.

contoh:
k = left(“Visual Basic”,6)

2. Right

Fungsi Right adalah lawan dari fungsi left. Jika left mengambil karakter dari kiri maka right mengambil kata dari kanan.

contoh:
k = right(“Visual Basic”,5)

3. Mid
Fungsi Mid digunakan untuk mengambil karakter yang ada di tengah-tengah kata walaupun dengan trik tertentu bisa saja digunakan untuk mengambil karakter yang ada di kiri maupun di kan an kata.

contoh:
k = Mid(“Visual Basic”,6,3)

4. Len

Fungsi ini adalah singkatan dari length yang berarti panjang. Fungsi ini digunakan untuk mengetahui panjang karakter dari kata atau kalimat

contoh:
p = Len(“Visual Basic”)

5. Instr
Fungsi ini digunakan untuk mengetahui posisi dari sebuat karakter dari kata atau kalimat.

contoh:
posisi  = Instr(“Visual Basic”,”B”)

6. Lcase
Fungsi ini digunakan untuk mengubah huruf besar (capital) menjadi huruf kecil.

contoh:
k  = LCase(“Visual Basic”)


7. Ucase
Fungsi ini digunakan untuk mengubah huruf kecil menjadi huruf besar (capital).

contoh:
k  = UCase(“Visual Basic”)


8. Chr

Fungsi ini digunakan untuk mendapatkan karakter ASCII (American Standard Code for Information Interchange). Dari nomor ASCII yang diberikan

contoh:
k  = Chr(65)


9. ASC

ASC kebalikan dari fungsi Chr. Fungsi ini digunakan untuk mendapatkan nomor ASCII (American Standard Code for Information Interchange). Dari huruf yang diberikan

contoh:
k  = Asc(“A”)

10. Penggabungan Karakter
Anda dapat menggabungkan karekter dengan operator + atau &. Untuk memudahkan pegertian terhadap kode program yang anda buat sebaiknya anda menggunakan tanda & daripada tanda +. Anda lebih baik menggunakan tanda + untuk penjumlahan angka.

contoh:
a = "Visual"

b = "Basic"

c = a & b

11.  Space(n)

Fungsi ini digunakan untuk memberikan ruang kosong (space) sebanya n buah.


contoh:

a = "Visual"

b = "Basic"

c = a & space(1) & b

sumber : http://xbasicpro.com/

Read more »

Menggunakan Sub Report di Crystal Report

Menggunakan Sub Report di Crystal Report

Report di dalam report disebut sub report? Jika Anda ingin menampilkan lebih dari 1 jenis tabel di crystal report Anda bisa menggunakan sub report (maksudnya membuat tampilan lebih dari 1 tabel pada crystal report). 

Disini saya ingin menampilkan laporan nilai mata pelajaran dan nilai ekstrakurikuler per siswa. Di karena kan struktur tabel dimana satu orang siswa mempelajari beberapa pelajaran dan satu orang siswa boleh mengikuti ekstrakurikuler lebih dari satu dan tidak mungkin semua tabel di jejerkan di bagian detail crystal report secara horisontal, inginnya nilai mata pelajaran dibagian atas dan ekstrakurikuler dibagian bawah untuk itu saya menggunakan sub report. Untuk memasukan sub report ke dalam report utama, lakukan langkah-langkah berikut :

--> Pastikan sudah membuat dua report (1 sebagai report utama/master report, dan ke dua sebagai sub report)

Pada  contoh ini report utama/master reportnya berisi nilai mata pelajaran dan sub report nya berisi tabel ekstrakurikuler.

--> Buka master reportnya, kemudian klik kanan pada bagian Group Footer (karena memang saya buat laporannya per group yaitu berdasarkan NIS, sesuaikan section penempatannya dengan kebutuhan tampilan Anda).... pilih Insert--> Subreport

--> Pilih Subreport nya, disini file subreport yang saya buat bernama mix.rpt---> kemudian klik OK

--> Atur posisinya, kemudian klik kanan pada sub report pilih Change Subreport Links...

--> Kemudian hubungkan attribut yang berelasi antara master report dengan subreport , disini ada 3 attribut/fields yaitu nis, tahunajar, dan semester. Kemudian tekan tombol OK.

--> Sekarang dapat dilihat melalui Report Preview, tabel nilai mata pelajaran dan ekstrakurikuler berdiri sendiri dan masing-masing menampilkan lebih dari 1 record. Sehingga ketika nis, tahunajar, dan semester yang sebagai masukan berubah maka data di kedua laporan juga ikut berubah menyesuaikan.

^^ Semoga Bermanfaat ^^

Read more »

Mengatasi Error Crystal Report Tidak Me-Refresh Data

Awalnya saya juga bingung kenapa Crystal Report 8.5 yang saya gunakan dengan database MySQL dan Visual Basic 6 tidak bisa membaca data baru yang dimasukkan, dan harus me-refresh report nya langsung dari Crystal Report nya. Jika anda mengalami Crystal Report tidak otomatis me-refresh data baru yang dimasukkan ke database, mungkin tips berikut bisa anda coba. Awalnya saya juga bingung kenapa Crystal Report 8.5 yang saya gunakan dengan database MySQL dan Visual Basic 6 tidak bisa membaca data baru yang dimasukkan, dan harus me-refresh report nya langsung dari Crystal Report nya. Repot juga kalau tiap kali dimasukkan data baru, harus refresh report nya.Dan akhirnya setelah Googling, cara berikut saya coba, dan berhasil.
1.     Buka Crystal Report, masuk ke File > Option > Reporting > uncheck ‘Save Data With Report‘ > OK.

2.     Sekarang tambahkan perintah berikut di Visual Basic nya.

1	CrystalReport1.DiscardSavedData = True

3.     simpan di bagian button untuk mencetak, contoh nya seperti berikut :

1 2 3 4 5 6 7 8

Private Sub cmdCetak_Click() CrystalReport1.ReportFileName = App.Path + "\lapCalonBayar.rpt" CrystalReport1.DiscardSavedData = True CrystalReport1.ReplaceSelectionFormula "{pembayaran_calon.no}=" & Adodc3.Recordset!no CrystalReport1.Destination = crptToWindow CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 1 End Sub

Read more »