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 »