tugas vb

Private Sub cmdabout_Click()
txtkt.Text = “”
txtht.Text = “”
txtjk.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttotalp.Text = “”
End Sub

Private Sub cmddelete_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdedit_Click()
Data1.Recordset.Edit
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
Dim kode As String
kode = Left(txtkt.Text, 3)
If kode = “BIM” Or kode = “bim” Then
txtjk.Text = “BIMA”
txtht.Text = “50000”
txtjb.Text = “16.00”
ElseIf kode = “EKO” Or kode = “eko” Then
txtjk.Text = “EKONOMI”
txtht.Text = “35000”
txtjb.Text = “19.00”
ElseIf kode = “MUT” Or kode = “mut” Then
txtjk.Text = “MUTIARA”
txtht.Text = “23000”
txtjb.Text = “17.00”
ElseIf kode = “SEN” Or kode = “sen” Then
txtjk.Text = “SENJA”
txtht.Text = “15000”
txtjb.Text = “20.00”
End If

txtjt.SetFocus
End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
End Sub

Private Sub TXTJT_keypress(keyascii As Integer)
If keyascii = 13 Then
txttotalp.Text = Val(txtjt.Text) * Val(txtht.Text)
End If
End Sub

Advertisements

JAKARTA- Gempa dengan kekuatan 8,5 skala richter yang mengguncang wilayah Simeuleu, Aceh, pada Rabu 11 April sore, dirasakan di seluruh Pulau Sumatera dan Negara lain. Badan Nasional Penanggulangan Bencana (BNPB) mencatat, akibat gempa tersebut satu orang tewas dan empat orang lainnya mengalami luka-luka. Selain itu, sejumlah jembatan dan bangunan roboh, Kamis (12/4/2012). Berikut sejumlah video saat gempa mengguncang Aceh: Gempa membuat warga panik Warga Nias dan Medan panik akibat gempa Gempa dirasakan di Padang Kepanikan warga Sibolga

 

KETIKA ngidam, seorang ibu hamil (bumil) kadang membuat orang-orang di sekitarnya terheran-heran. Ternyata, ada alasan tertentu bumil ngidam yang aneh-aneh.

Ingin konsumsi makanan yang tak biasa atau ingin melakukan suatu hal yang kurang lazim adalah beberapa kejadian wajar yang dialami bumil ketika ngidam. Misalnya, ingin makan duren di tengah malam, ingin mengelus kepala yang botak, atau selalu ingin konsumsi makanan asam. Semua dianggap wajar jika bumil sedang ngidam. Apakah Anda merasakan hal yang sama?

Jangan heran, itu normal, wajar, dan beralasan. Ngidam atau dalam bahasa medis disebut pica, terbagi atas dua macam. Ngidam secara fisik maupun psikologis. Demikian yang dituturkan Dr Handrawan Nadesul, konsultan sekaligus penulis buku kesehatan saat dihubungi okezone melalui telepon genggamnya, Rabu (11/4/2012).

Ngidam secara fisik mencerminkan tubuh membutuhkan asupan nutrisi tertentu. Karena itu, ibu hamil berkewajiban memenuhi secara sempurna zat gizi yang dibutuhkan tubuh.

“Secara naluriah tubuh akan mencari zat-zat yang dibutuhkan. Kalau kurang kalsium misalnya, otomatis gigi ibu akan menjadi keropos karena terdapat kapur untuk memenuhi kebutuhan kalsium,” jelasnya.

“Ada juga ngidam yang terlihat aneh. Misalnya, ada ibu yang ngidam jadi suka makan tanah, hal itu terjadi secara naluriah dari tubuhnya. Karena dalam tanah mengandung banyak mineral, zat besi dan magnesium. Zat-zat yang banyak dibutuhkan seorang ibu hamil. Hal ini banyak terjadi di Afrika yang daerahnya gersang, kurang pasokan air,” paparnya.

Berbeda cerita dengan ngidam secara psikologis.

“Ngidam piskologis itu maunya aneh, senangnya merepotkan. Lagi enggak musim duren, maunya makan duren, malam-malam lagi. Ibu hamil akan merasa seneng dan puas jika melihat suaminya bersusah payah memenuhinya. Ini biasanya karena ingin lebih banyak diperhatikan. Bisa jadi karena sebelumnya merasa kurang diperhatikan suami,” ungkapnya.

Sedangkan suami yang ikut-ikutan ngidam, dikatakan Handrawan lebih karena kesensitifan terhadap sebuah mitos.

“Kalau suami yang ngidam itu karena suami menjadi sensitif. Kan ada mitos yang bilang kalau ingin sesuatu tapi tidak terpenuhi, maka nanti sang anak lahir akan terus- menerus ngeces. Padahal tidak sama sekali,” tandasnya.
(tty)

SAAT usia semakin tua, daya ingat seseorang dalam jangka pendek akan menurun. Tetapi, hal itu bisa diatasi dengan trik sederhana. Anda mungkin lupa tempat menaruh sesuatu, janji, dan sesuatu yang biasa mudah diingat. Jika Anda khawatir menjadi pikun, ada beberapa latihan dan teknik yang membantu ingatan jangka pendek. Berikut hal-hal sederhana dapat Anda terapkan guna mengasah kekuatan daya ingat, sebagaimana dijelaskan Dr Mirriam Stoppard dalam bukunya “Panduan Kesehatan Keluarga”. – Saat Anda membaca buku atau artikel majalah, ringkaslah alur cerita atau poin di dalamnya bagi seorang teman. Sebutkan nama, tempat, dan tanggal. – Saat berbelanja, cobalah mengambil barang sebanyak mungkin tanpa melihat daftar belanjaan. – Jika ada beberapa hal yang harus dilakukan, cobalah mengingatnya dengan “jembatan keledai”. Misalnya, tugas seperti menyetrika, menelepon, dan mengetik surat dapat disingkat menjadi sebuah kata. Ambil satu atau dua huruf pertama dari setiap tugas, dan bentuklah menjadi sebuah kata, misalnya “seteltik” (setrika/telepon/mengetik) yang dapat membantu ingatan. – Jika Anda masuk ke dalam kamar dan lupa alasannya, kembalillah ke tempat semula dan jangan pergi sebelum mengingat alasan pergi ke kamar tersebut. – Jika Anda kehilangan sesuatu, lacaklah dengan proses eliminasi. Tuliskan enam hal terakhir yang Anda lakukan sebelum kehilangan benda itu dan tempat selama beraktivitas. Jika perlu, buatlah tabel di kertas dengan hal yang dilakukan di satu sisi dan tempat Anda berada di sisi bawah. Benda yang hilang ada dalam kotak tersebut. Periksalah satu per satu dan Anda akan menemukannya. (tty)

BEROLAHRAGA sangat bermanfaat bagi kesehatan tubuh dan pikiran. Bahkan, tidur nyenyak pun dapat Anda miliki jika rutin berolahraga.

Dengan berolahraga, banyak hal positif yang bisa diperoleh dalam berbagai cara dan membantu Anda menjalani gaya hidup sehat. Salah satunya, waktu untuk tidur nyenyak. Olahraga juga memungkinkan Anda bangun dengan kondisi segar keesokan harinya.

Sebagaimana dilansir Boldsky, untuk mendapatkan tidur malam yang baik, Anda harus berolahraga keras sebelum tidur atau tiga jam sebelum waktu tidur.

Orang cenderung berpikir bahwa olahraga berat saat waktu menjelang tidur membuat mereka merasa sangat lelah di malam hari. Hal ini tidak mungkin terjadi karena olahraga berat sebelum waktu tidur merangsang jantung Anda, otak, dan otot. Hal ini pada gilirannya menjamin tidur malam yang baik.

Berolahraga membantu Anda jauh dari stres dan meringankan suasana hati Anda. Ini pun yang menyebabkan tidur malam menjadi lebih baik.

Anda dapat menyisipkan waktu untuk berolahraga saat sore menuju malam, atau setelah seharian sibuk dengan pekerjaan. Olahraga sebelum waktu tidur pun membantu meningkatkan suhu tubuh di atas normal. Suhu menurun sebelum Anda siap untuk tidur. Suhu tubuh yang rileks memicu Anda tidur dan nyenyak. Latihan kardio selama 20 menit atau renang, skipping, atau senam salsa lewat aerobik selama 20 menit dapat Anda jadikan pilihan olahraga sebelum tidur.
(tty)

Penjualan Obat di Internet Potensi Palsu

PEREDARAN obat palsu tidak mudah dideteksi karena memiliki kemasan sempurna. Karenanya, lakukan antisipasi ketika membeli obat-obatan melalui internet. Pasalnya, banyak obat-obatan palsu yang dijual melalui website.

Obat palsu dibuat dengan tidak memenuhi syarat baku atau standar pembuatan obat. Bahan aktif yang terkandung dalam obat-obatan palsu tidak sesuai dengan standar produk obat. Bisa jadi bahan aktif yang digunakan di bawah standar atau tidak mengandung bahan aktif sama sekali.

Alih-alih mendapatkan kesembuhan, bisa jadi penggunaan obat palsu justru menimbulkan masalah pada kesehatan.

“Permasalahan dengan pembelian lewat internet karena sumbernya tidak jelas, tidak bisa diverifikasi,” tutur Widyaretna Buenastuti, Ketua Umum Masyarakat Indonesia Anti Pemalsuan (MIAP) dalam talkshow mengenai peredaran obat palsu di @america, Pacific Place, Jakarta, Selasa (10/4/2012).

World Intellectual Property Organization (WIPO) mengungkapkan, bahwa sekira 50 persen obat palsu diperdagangkan melalui internet dengan sasaran negara berkembang. Suatu riset di Amerika Serikat pun mengindikasikan 80 persen barang yang dibeli dari situs internet adalah ilegal.
(tty)

Kijang Innova Terguling di Tol Cikampek, 1 Tewas

PURWAKARTA – Kecelakaan kembali terjadi di ruas lajur tol Cikampek, Jawa Barat. Seorang tewas dan lima lainnya luka-luka setelah minibus Kijang Innova terguling di KM 71+600 arah Jakarta menuju Cikampek.

Mobil bernomor polisi BE 2166 CV terbalik perbatasan Kampung Cinangka, Kecamatan Bungursari, Kabupaten Purwakarta dengan Kampung Kamojing, Kecamatan Cikampek, Kabupaten Karawang, Selasa (7/3/2012) pagi.

Selain bagian depan kendaraan ringsek, kaca jendela belakang, samping, kanan, dan kiri pecah. Ban belakang sebelah kiri juga pecah.

Mobil ditumpangi sembilan orang berangkat dari Bandarlampung tujuan Kebumen, Jawa Tengah. Penumpang yang tewas dalam perjalanan menuju RS Efarina Etaham diketahui bernama Sugianto (65).

Heni, salah seorang penumpang selamat, menuturkan mobilnya mengerem mendadak karena gagal menyalip kendaraan di depannya. Sopir langsung kehilangan kendali hingga kendaraan terguling berkali-kali.

Berbeda disebutkan sopir mobil, Jack, yang juga lolos dari maut. Menurutnya mobilnya terguling karena ban belakang sebelah kiri pecah.

Hingga kini, semua korban baik yang tewas maupun luka-luka masih berada di RS Efarina Etaham Purwakarta. Kasus ini ditangani petugas Unit Laka Lantas Polres Karawang.

visual basic

Aside

 
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

End Sub

Private Sub CMDBATAL_Click()
Txtkb.SetFocus
Txtnb.Text = “”
Txtjs.Text = “”
Txttj.Text = “”
Txthj.Text = “”
Txtth.Text = “”
Txttb.Text = “”
Txtss.Text = “”
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
Dim KB As String
KB = Right(Txtkb.Text, 1)
If KB = “T” Then
Txtnb.Text = “TAPE”
Txthj.Text = “275000”
ElseIf KB = “S” Then
Txtnb.Text = “SOUND SISTEM”
Txthj.Text = “350000”
ElseIf KB = “C” Then
Txtnb.Text = “COMPACT”
Txthj.Text = “480000”
End If
Txtjs.SetFocus
End Sub

Private Sub THGJUAL_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TTOTAL.SetFocus
End Sub

Private Sub TKODE_Change()
If TKODE.Text = “HB002T” Then
TBARANG.Text = “TAPE”
THGJUAL.Text = “275000”
ElseIf TKODE.Text = “HB002S” Then
TBARANG.Text = “SOUND SISTEM”
THGJUAL.Text = “350000”
ElseIf TKODE.Text = “HB002C” Then
TBARANG.Text = “COMPACT”
THGJUAL.Text = “480000”
TXTTOK.SetFocus
End If
End Sub

Private Sub TXTJS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttj.SetFocus
End If
End Sub

Private Sub Txtkb_Change()

End Sub

Private Sub Txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtss.Text = Val(Txtjs.Text) – Val(Txttj.Text)
Txtth.Text = Val(Txttj.Text) * Val(Txthj.Text)
End If
End Sub

Tak Dukung Putin Jadi Presiden, Medvedev Dikritik

MOSKOW – Ketua tim kampanye Perdana Menteri Rusia Vladimir Putin mengkritik Presiden Dmitry Medvedev yang tampak kurang mendukung Putin di pemilihan Presiden Rusia pada Maret 2012.

“Saya rasa, akan jauh lebih baik bila Medvedev bergabung secara aktif mendukung kampanye dari Putin yang ingin menggantikan posisinya,” ujar pimpinan tim kampanye Putin, Stanislav Govorukhin, seperti dikutip Irish Times, Sabtu (28/1/2012).

“Saya juga merasa aneh melihat pria yang dahulu menominasikan Putin sebagai kandidat Presiden Rusia,” imbuhnya.

Putin yang sudah pernah menjabat sebagai Presiden Rusia selama dua priode meninggalkan Kremlin pada 2008. Putin pun langsung menunjuk kawan lamanya, Medvedev untuk menggantikannya.

Pada September 2011, Medvedev yang berasal dari partai yang sama dengan Putin mencalonkan Putin untuk kembali menjadi presiden di Negeri Beruan Merah itu. Sebaliknya, Putin menawarkan Medvedev untuk menduduki posisi perdana menteri, bila mantan pejabat intelijen Rusia itu kembali ke Kremlin. Namun, ide pertukaran posisi yang digagas oleh Putin banyak dikecam oleh publik demonstrasi pun muncul di Moskow.

Medvedev bahkan berkomentar, dirinya akan sangat senang bila Rusia mengalami sebuah revolusi ekstrem. Medvedev yang dahulu memutuskan untuk tidak mencalonkan diri sebagai Presiden Rusia mengatakan, dirinya masih ingin duduk di kursi Presiden Rusia. Medvedev yakin, para pendukungnya juga ikut bergabung dalam protes massal di Moskow dan memintanya agar maju menjadi kandidat Presiden Rusia untuk bersaing dengan Putin.

Salah satu alasan Medvedev yang tidak mau mencalonkan diri menjadi kandidat Presiden Rusia adalah karena alasan politis. Medvedev menilai, dua orang dari kubu politik yang sama tidak boleh saling sikut. Sementara itu kandidat yang diprediksi sanggup meraih kursi Presiden Rusia harus dimajukan.(AUL)