Bermain-main dengan Microsoft Hierarcichal FlexGrid di Visual Basic 6

Post ini hanya buat pemula,,,buat sang master tolong di koreksi jika ada kesalahan,,,,ehehehe
Apakah kamu termasuk seseorang yang menyukai pemrograman....????terutama menggunakan Visual Basic...????Pernahkah kamu menemuai masalah ini...?
1. Ketika membuat Form One to many Kamu kesulitan membuat jumlah total dari sub total?
contoh kasus:
     Seorang customer membeli lebih dari satu barang,dengan satu no transaksi,lihat form berikut:

Form Transaksi Penjualan One To Many

Pada form diatas terdapat MSH flexGrid dimana grid tersebut di koneksikan dengan Data Base pada tabel  sementara. Pada Kolom terakhir ada Subtotal yang merupakan hasil dari harga di kalikan jumlah beli. Permasalahannya: bagaimana cara menjumlahkan subtotal-subtotal tersebut manjadi jumlah total dari semua transaksi.
SOLUSI :
 Hal ini dapat diatasi dengan solusi berikut, Lihat listing di bawah ini:
 
Sub Total()
Dim jum(3), nil(3) As Long
jum(0) = 0
jum(1) = 0
jum(2) = 0

With Grid
    For i = 0 To Grid.Rows - 1
         If IsNumeric(.TextMatrix(i, 5)) Then
           nil(0) = .TextMatrix(i, 5)
          Else
             nil(0) = Val(.TextMatrix(i, 5))
          End If
          jum(0) = jum(0) + nil(0)
           
    Next
   Text8.Text = jum(0)
End With
End Sub
Penjelasan:
jum= Variable Untuk Total
nil= Variable untuk subTotal
Grid= Nama dr MSHFlexGrid
Textmatrix(i,5)= Variable untuk memanggil Baris ke ( i ) pada Kolom (5)
Untuk menjumlahkan subtotal dari baris pertama sampai baris terakhir kita menggunakan perulangan yaitu FOR......NEXT.
Untuk menyeleksi perhitungan kita menggunakan Pernyataan perhitungan hanya akan terjadi ketika kolom berisi angka hal ini untuk menghindari looping atau perulangan perhitungan pada kolom yang tak berisi record/data.Kita menggunakan:
If....End If
Sekian Posting saya tentang Microsoft Hierarcichal FlexGrid di Visual Basic 6 semoga dapat membantu dan berguna bagi yang membaca.
Just Share What I ever Get...
Untuk pertanyaan seputar post ini silahkan tinggalkan comment..

Read more »

Kampung Bebas Rokok di India

India sedang meningkatkan kampanye anti-tembakau dalam dua bulan terakhir. Sebuah negara bagian di India menyatakan diri bebas tembakau, sementara beberapa desa di sana sudah lama bebas dari asap rokok.
Dengan dana dari Bill and Melinda Gates Foundation, negara bagian Andhra Pradesh dan Gujarat telah menghentikan penjualan tembakau di beberapa desa, dan mulai menerapkan denda berat untuk mereka yang merokok atau mengunyah tembakau. Negara bagian Himachal Pradesh bahkan memproklamirkan diri bebas tembakau pada Mei lalu. Sementara itu, negara bagian Haryana mengklaim bebas kedai hookah (pipa shisha, berisi campuran nikotin dan air).
Tapi, sebuah desa di Haryana bahkan sudah puluhan tahun bebas tembakau, yang dianggap tabu oleh kepercayaan setempat. Di Shankapura, tidak ada puntung rokok atau noda tembakau.
“Tak ada rokok di sini,” kata Bhajan Lal Selwal, pemilik warung di Shankapura. Senyumannya menampilkan gigi cemerlang bebas noda tembakau, yang tak pernah ia sentuh seumur hidupnya.
Lal Selwal berkata penduduk desanya tak pernah merokok atau mencicipi paan, tembakau kunyah yang mencakup 20% dari konsumsi tembakau India, berdasarkan data dari Global Adult Tobacco Survey yang dilakukan World Health Organization.
Si pemilik warung itu berkata secara finansial ia tidak merugi akibat tidak menjual produk tembakau, dan malah ia telah menyelamatkan jiwa dan keuangannya dengan tidak merokok. “Konsumsi tembakau merusak kesehatan, dan uang yang diperlukan untuk menyembuhkan penyakit akibat rokok tidak sedikit,” ujar Lal Selwal.
Menurut Suresh Selwal, dosen ilmu politik di Universitas Kurukshetra (Haryana), berkata tradisi anti-rokok di kampung halamannya itu dimulai pada zaman kemerdekaan India tahun 1947.
“Saat konflik antara Hindu dan Muslim tahun 1947, pendiri sub-kasta Selwal dikejar-kejar oleh orang Islam. Ia berlindung di balik tanaman tembakau,” urai Selwal. “Sejak itu ia bersumpah kepada si tanaman: ‘Kasta kami akan melindungimu bagai engkau melindungi aku.’ Jadi sampai sekarang tidak ada yang mengonsumsi tembakau.”
Namun, Ram Lamba (101 tahun), orang tertua di desa itu, berkata ia sudah tinggal di Shankapura selama 90 tahun dan tabu tembakau itu setidaknya sudah berlangsung sejak generasi kakeknya.
“Tidak ada yang merokok sejak saat itu, dan kalau tidak ada anggota keluarga yang merokok, kita juga tidak akan melakukannya,” ujar Lamba, yang menambahkan baik dia maupun istrinya yang berusia 84 tahun tidak memiliki masalah kesehatan.
Alasan lain di balik budaya anti-tembakau di desa itu adalah kepercayaan Sikh yang dianut sebagian besar penduduknya. Guru Sikh kesepuluh, Gobind Singh, melarang pengikutnya merokok. Menurut legenda Sikh, ia menolak memberkati seorang petani sampai si petani berjanji tak akan lagi menanam tembakau.
Sebetulnya Shankapura terletak di salah satu daerah lumbung tembakau India. Negara bagian Haryana, bersama Andhra Pradesh dan Karnataka, menyumbang 84% dari total luas lahan yang dipakai untuk menanam tembakau di negara itu tahun 2008-2009, berdasarkan data dari Departemen Pertanian dan Koperasi India.

Read more »

10 Alasan Mengapa anda harus berhenti merokok

Berhenti merokok pastinya bukan hal yang mudah terutama bagi anda yang sudah kecanduan Nikotin. Namun, tidak mudah itu bukan berarti tidak bisa. Bila anda sudah membulatkan tekad untuk berhenti merokok, anda harus konsekuen dan jangan mudah tergoda karena ketika tubuh Anda mulai bereaksi terhadap asupan tembakau dan nikotin, Anda pun harus segera berencana untuk keluar dari kebiasaan buruk tersebut. Sulit dan menyakitkan. Itu yang akan dirasakan.

Namun, banyak sekali hal baik yang akan anda rasakan setelah anda benar-benar total berhenti merokok. Berikut beberapa hal yang akan terjadi bila anda berhenti merokok :

Tekanan darah tinggi Anda turun ke normal

Perokok memiliki tingkat tekanan darah tinggi dan memberhentikan asupan nikotin membawa kembali tingkat tekanan darah normal.

Sirkulasi darah dalam tubuh meningkatkan

Setelah Anda berhenti merokok, karbon monoksida dalam darah akan banyak berkurang dalam seminggu Anda berhenti merokok. Hal ini membuat sirkulasi darah dalam tubuh meningkatkan.

Oksigen dalam tubuh meningkat

Bila Anda berhenti merokok kadar oksigen dalam tubuh Anda meningkat. Hal ini menyebabkan sirkulasi darah yang lebih baik. Merokok membangun racun dalam tubuh yang mempengaruhi warna kulit. Peningkatan sirkulasi darah mem-flushes racun dari tubuh Anda dan membantu dalam mendapatkan kembali kulit bersinar.

Memperbaiki fungsi otak

Jika Anda tidak merokok selama 2-3 hari, diyakini bahwa tingkat nikotin berkurang dari sistem anda. Nikotin memperlambat fungsi otak.

Metabolisme lebih sehat

Tubuh meningkatkan metabolisme Anda dan tingkat energi Anda menaikkan. Anda akan merasa lebih aktif dan sehat.

Read more »