HARGA SETELAH DISKON

PERHITUNGAN HARGA DISKON

 Private Sub CmdHitung_Click()

Private Sub CmdHitung_Click()

TxtDis = Val(txtHA) * 0.1

TxtAK = Val(txtHA) – Val(TxtDis)

End Sub

 

Private Sub CmdHitung_Click()

txtHA.SetFocus

txtHA = “”

TxtDis = “”

TxtAK = “”

End Sub

 

Private Sub CmdKeluar_Click()

End

End Sub

Iklan

APLIKASI PERHTUNGAN GAJI

perhitungan gaji

Private Sub CmdHitung_Click()

TxtGK = Val(txtGP) + Val(TxtTJ) + Val(TxtPT)

TxtPJK = Val(TxtGK) * 0.2

TxtGD = Val(TxtGK) – Val(TxtPJK)

End Sub

 

Private Sub cmdUlang_Click()

txtGP.SetFocus

txtGP = “”

TxtTJ = “”

TxtPT = “”

TxtGK = “”

TxtPJK = “”

TxtGD = “”

End Sub

 

Private Sub CmdKeluar_Click()

End

End Sub

 

Private Sub TxtGD_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

BAHASA PEMOGRAMAN II

KALKULATOR MINI

            KALKULATOR MINI

 

 

Private Sub cmdhitung_Click()

txtperkalian = Val(txtn1) * Val(txtn2)

txtpenjumlahan = Val(txtn3) * Val(txtn4)

txtpengurangan = Val(txtn5) * Val(txtn6)

txtpembagian = Val(txtn7) * Val(txtn8)

End Sub

 

Private Sub cmdlagi_Click()

ttxtperkalian = “”

txtpenjumlahan = “”

txtpengurangan = “”

txtpembagian = “”

End Sub

 

Private Sub cmdbatal_Click()

ttxtperkalian = “”

txtpenjumlahan = “”

txtpengurangan = “”

txtpembagian = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub txtpembagian_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

 

Private Sub txtpengurangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

 

Private Sub txtpenjumlahan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

 

Private Sub txtperkalian_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End Sub

BAHASA PEMROGRAMAN 1

rully

Private Sub CmdBATAL_Click()

txtNPM.setfous

txtNPM = “”

TxtNAMA = “”

txtALAMAT = “”

End Sub

 

Private Sub CmdKELUAR_Click()

End

End Sub

 

Private Sub CmdLAGI_Click()

txtNPM.SETFOCUS

txtNPM = “”

TxtNAMA = “”

TxtNAMA = “”

End Sub

 

Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtALAMAT.SETFOCUS

End If

End Sub

 

Private Sub txtNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNAMA.SETFOCUS

End If

End Sub

rully1

Private Sub cmdBATAL_Click()

Txtnppm.SetFocus

TxtNPM = “”

txtNAMA = “”

txtAlamat = “”

TxtAGAMA = “”

TxtjenisKELAMIN = “”

txtnamaAYAH = “”

TxtnamaIBU = “”

Txtpekerjaanayah = “”

TxtpekerjaanIBU

End If

End Sub

 

Private Sub CmdKELUAR_Click()

End

End Sub

 

Private Sub CmdLAGI_Click()

Txtnppm.SetFocus

TxtNPM = “”

txtNAMA = “”

txtAlamat = “”

TxtAGAMA = “”

TxtjenisKELAMIN = “”

txtnamaAYAH = “”

TxtnamaIBU = “”

Txtpekerjaanayah = “”

TxtpekerjaanIBU

End If

End Sub

Private Sub txtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtAlamat.SetFocus

End If

End Sub

 

Private Sub TxtNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtNAMA.SetFocus

End If

End Sub

 

rully2

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

Private Sub cmdHITUNG_Click()

Txthasil = Val(txtn1) * Val(txtn2)

End If

End Sub

 

Private Sub CmdBERSIH_Click()

txtn1 = “”

txtn2 = “”

Txthasil = “”

End Sub

 

 

Private Sub cmdKELUAR_Click()

End

End Sub

rully2

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthasil = Val(txtn1) * Val(txtn2)

End If

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ini 5 Tanda Orang yang Punya Bakat Jenius

doodle

Orang jenius punya beberapa ciri khusus yang tidak selalu dilihat dari prestasinya di sekolah. Bahkan menurut sebuah penelitian, dari kehidupan sehari-hari yang unik ini seseorang bisa tergolong punya kemampuan berpikir yang melebihi orang lain.

Apa saja tanda atau ciri yang sering ditunjukkan oleh seseorang yang punya bakat jenius? Dilansir laman Good House Keeping, ini 5 diantaranya:

Begadang

Begadang atau tidak tidur saat hari belum lewat tengah malam, menurut ilmuwan dari London School of Economics adalah tanda orang yang pintar. Ada saja yang mereka lakukan di saat tersebut, yang biasanya menyibukkan diri dengan suatu hal.

Benci dengar suara mengunyah berisik

Studi dari Northwestern University menyebutkan bahwa orang dengan intelektual tinggi akan tak suka dengan suara mengunyah yang berisik. Misalnya makan keripik, atau segala yang mengeluarkan suara saat sedang makan.

Mata biru

Bermata biru adalah anugrah yang membuat seseorang tampak lebih cantik atau tampan. Namun selain itu, profesor dari University of Louisville di Kentucky bernama Joana Rowe juga menyatakan bahwa orang tersebut punya pola pikir yang strategis. Namun apa alasan dari pendapatnya itu, Joana belum bisa menjelaskan.

Gambar ruwet

Gambar ruwet atau doodling, juga ciri dari kejeniusan. Hanya orang dengan IQ tinggi saja yang dapat melakukannya, kata para ilmuwan. Doodling tentu berbeda dengan sekedar coret coret tak berbentuk ya.

sumber:http://sidomi.com/417087/ini-5-tanda-orang-yang-punya-bakat-jenius/

Makanan yang Dibungkus Kertas Koran Bisa Memicu Kanker

koran makanan

Hati-hati ketika menggunakan kertas sebagai pembungus makanan. Kertas yang tidak “food grade” justru bisa membahayakan tubuh. Termasuk pemakaian kertas bekas koran atau majalah untuk meniriskan gorengan, sangat tidak disarankan. Tinta yang dipakai dalam mencetak media tersebut bisa saja mengandung zat berbahaya.

“Kertas bekas termasuk koran dan majalah seharusnya tidak digunakan untuk membungkus bahan pangan secara langsung karena mengandung timbal yang jika terakumulasi dalam tubuh dapat berisiko membahayakan kesehatan,” kata Muhammad Adjidarmo, pemerhati industri kertas, seperti dikutip laman Detik Health.

Penggunaan kertas koran atau majalah untuk bungkus ini justru dianggap lumrah sebagian masyarakat saat ini. Padahal ketika kertas tersebut bersentuhan dengan makanan – apalagi makanan yang tinggal dimakan – zat timbal dapat langsung mengontaminasi. Saat makanan dikonsumsi, zat timbale beralih masuk ke dalam tubuh.

Adjidarmo mengatakan, seringnya ditemukan masyarakat memakai kertas koran untuk bungkus makanan yaitu kurangnya edukasi. Mereka masih minim pengetahuan dan kesadarannya tentang efek samping bagi tubuh.

Di sisi lain, penggunaan kertas nasi bungkus warna coklat dan karton dupeks ternyata juga tidak dianjurkan. Bahan yang lazim dipakai untuk bungkus nasi kotak, kotak makanan ringan, dan nasi bungkus ini merupakan kertas daur ulang.

“Karton duplex dan kertas nasi bungkus berwarna cokelat terbuat dari kertas daur ulang yang mungkin sudah terkontaminasi dan mengandung tinta cetak, perekat, lilin, bahan pencelup, serta bahan-bahan kimia lainnya,” ungkapnya.

Paling aman adalah memakai kertas yang sudah “food grade”. Biasanya bentuknya karton food grade yang tidak bisa ditembus minyak. Kertas ini bahannya dari serat alami berwarna putih bersih, tidak ada bintik, dan lebih bebas dari kandungan zat berbahaya .
Dia menambahkan, kemasan pangan yang aman berbasis kertas adalah karton “food grade” yang tidak akan tembus minyak.

sumber:http://sidomi.com/417311/makanan-yang-dibungkus-kertas-koran-bisa-memicu-kanker/

5 Kebiasaan Ini Bisa Merusak Sistem Metabolisme Tubuh

dehidrasi

Metabolisme adalah proses biologis esensial yang membuat sel dalam tubuh manusia menjadi aktif dan berfungsi baik. Jika sistem metabolisme bekerja dengan normal, maka kesehatan akan tetap terjaga. Namun bila terganggu, maka kesehatan sel dan tubuh pun akan terganggu.

Tahukah Anda bahwa ada beberapa jenis kebiasaan yang bisa merusak sistem metabolisme tubuh? Karena menjaga kesehatan metabolisme sama pentingnya dengan menjaga kesehatan tubuh, maka berikut adalah kebiasaan yang perlu Anda hindari:

Kurang minum

Dilansir oleh laman Boldsky, kebiasaan kurang minum akan merusak sistem metabolisme tubuh karena air sangat berperan dalam proses tersebut. Jika sering mengalami dehidrasi, maka masalah metabolisme abnormal bisa terjadi.

Telat makan

Mengikuti jadwal makan akan membantu berjalannya proses metabolisme dengan baik. Saat Anda terlambat makan, lalu kemudian makan dalam jumlah banyak maka di pencernaan akan terjadi penumpukan lemak tambahan. Minimal kebiasaan buruk itu akan membuat proses pencernaan terganggu.

Diet ketat

Proses diet yang terlalu ketat juga bisa merusak metabolisme karena tubuh pun membutuhkan karbohidrat, lemak dan protein untuk bekerja dengan normal. Bila yang dibutuhkan itu kurang, maka kerja sel jadi tak maksimal.

Kurang tidur

Jika Anda meremehkan waktu tidur yang cukup, maka siap-siap menghadapi masalah metabolisme. Tidur nyenyak sangat membantu bagi kerja metabolisme agar dapat maksimal.

Makan junk food

Makanan ini merupakan sumber gangguan metabolisme yang utama, juga menjadi sumber penyakit bagi tubuh. Ada banyak hal merugikan di dalam junk food seperti bahan pengawet, kalori tinggi, kurang nutrisi, tinggi lemak, dan lainnya yang berakibat buruk untuk sistem metabolisme tubuh.

sumber:http://sidomi.com/417335/5-kebiasaan-ini-bisa-merusak-sistem-metabolisme-tubuh/

Sering Berdiri Dapat Menurunkan Resiko Obesitas

ANDA termasuk yang sering duduk seharian di depan komputer atau duduk semalam mengerjakan tugas dan pekerjaan yang belum terselesaikan?

Ada baiknya Anda meluangkan waktu untuk sejenak beranjak dari kursi dan sesekali berdiri dan meregangkan otot tubuh.

Sebuah studi yang dipublikasikan dalam jurnal Mayo Clinic Proceedings menemukan bahwa berdiri selama seperempat waktu seharian atau setara dengan 6 jam, dapat menurunkan resiko obesitas seseorang sebanyak 32 persen.

Ini menjadi hal yang penting diperhatikan mengingat rata-rata jumlah pekerja duduk setidaknya 10 jam sehari. Bersama itu, ditemukan pula bahwa gerakan dan aktifitas mampu membawa pengaruh dan dampak positif bagi tubuh.

Dalam survei yang dilakukan terhadap 7000 pasien dewasa, dikemukakan bahwa pria yang berdiri selama seperempat hari atau kurang lebih enam jam, mengalami penurunan resiko obesitas sebesar 32 persen. Sementara mereka yang berdiri dengan durasi selama setengah hari mengalami penurunan resiko sebesar 59 persen.

sumber:http://www.tabloidbintang.com/articles/gaya-hidup/cantik-sehat/28835-sering-berdiri-dapat-menurunkan-resiko-obesitas

Sementara, wanita yang berdiri selama enam jam, mampu mengurangi resiko obesitas sebesar 35 persen. Sementara yang berdiri selama setengah hari, resikonya dapat menurun hingga 47 persen.

Sesuai dengan penemuan ini, ditekankan pula bahwa duduk terlalu lama seharian mampu membawa dampak yang tidak baik terhadap tubuh dan otak.

Karena itu, penting bagi setiap orang memperhatikan kondisi tubuh agar tak selalu duduk menempel pada kursi. Sesekali beranjaklah dari kursi agar tubuh aktif bergerak sekaligus mencegah kemungkinan terserang obesitas.

Kendall Jenner Minta Keluarganya Tak Datang ke Victoria’s Secret

Liputan6.com, Jakarta Pada Selasa (10/11/2015) malam waktu setempat, aktris Kendall Jenner menjalani debutnya sebagai model brand pakaian dalam Victoria’s Secret. Dalam fashion show bergengsi itu, tidak tampak keluarga besarnya yang sering menghias layar kaca itu untuk menonton Kendall. Kecuali orangtua Kendall, Kris dan Caitlyn (sebelumnya Bruce) Jenner.

Ternyata, seperti dikutip dari Popsugar, Rabu (11/11/2015), Kendall sengaja tidak mengundang saudara-saudaranya seperti Kylie Jenner, Kim Kardashian, Khloé Kardashian, ataupun Kourtney Kardashian. Ia hanya meminta ibu dan ayahnya untuk hadir.

“Orangtuaku datang dan itu keren, tetapi aku minta keluarga besarku untuk tidak datang,” ujar wanita 20 tahun itu.

Kendall ternyata punya alasan tersendiri tidak mengundang saudara-saudaranya. Ia ingin tekanan yang diterimanya sedikit lebih berkurang. Kendall memang mengaku sedikit gugup untuk berjalan sebagai model Victoria’s Secret.

“Tekanannya sangat besar. Jadi saya pikir ibu dan ayah sudah cukup. Aku berusaha mengurangi tekanan karena sudah cukup banyak,” kata wanita yang sempat menghebohkan dengan tindik puting payudara itu.

sumber:http://lifestyle.liputan6.com/read/2363698/kendall-jenner-minta-keluarganya-tak-datang-ke-victorias-secret

Hanya Orang Introvert yang Ahli Atasi Situasi Ini

Liputan6.com, Jakarta Bercakap dengan orang yang Memiliki kepribadian tertutup atau introvert memang terkadang memang sulit untuk memahaminya. Untuk yang tidak terbiasa berbincang dengan orang introvert memang seringkali terjadi kesalahpahaman.

Seperti dilansir dari Lifehack.org pada Rabu (11/11), mereka yang introvert ternyata juga gemar untuk bersosialisasi. Hanya saja mereka memiliki standar yang berbeda norma sosialnya.

Liputan6.com merangkum beberapa situasi di mana hanya orang introvert saja yang mampu menjalaninya ketimbang extrovert (terbuka) dan ambievert (2 kepribadian).

1. Bukan karena mereka pendiam, berarti tak mampu untuk mengikat hubungan.

Orang introvert lebih suka untuk mendengarkan dan observasi lingkungan mereka. Oleh karenanya, mereka jauh lebih mudah menyelaraskan diri dengan lingkungan sekitar terlepas dari kurangnya mereka melakukan interaksi. Kecenderungan ini membuat mereka jauh lebih teliti dalam menyerap informasi ketimbang ekstrovert.

2. Mereka lebih suka berbincang tentang sesuatu yang dalam.

Orang dengan kepribadian introvert cenderung tidak memilih untuk melakukan perbincangan kecil, tetapi lebih mendalam. Namun, menurut Jennee Rasavong, ahli komunikasi dari lifehack.org, perbincangan kecil terkadang sulit untuk dihindari dan akhirnya mereka cenderung membawa topik obrolan lebih dalam lagi.

3. Meskipun mereka memilih untuk menghindar dari konflik dengan teman atau keluarga, tetapi orang introvert lebih handal untuk mewujudkannya.

Orang introvert adalah pendengar yang baik dan seringkali konflik dan konfrontasi datang dari para ekstrovert. Namun, jangan memandangnya sebelah mata karena orang introvert lebih memahami situasi dan masalah. Ketika konfrontasi terjadi, mereka dapat menggunakan wawasan mereka untuk menjawab permasalahan tersebut.

4. Meskipun mereka tidak menyukai perbincangan kecil, orang introvert jauh lebih pandai dalam presentasi.

Orang introvert dikenal sebagai seorang yang pandai dalam hal public speaking. Mereka jauh lebih bisa memengaruhi massa ketimbang orang extrovert. Mereka jauh lebih matang dalam mempersiapkan materi dan membaca situasi audiens sehingga mudah untuk mengolah pesan untuk orang banyak.

5. Sikap diam mereka dalam sebuah perbincangan berarti berpikir sebelum berbicara.

Perilaku pendiam dan penyendiri adalah alasan orang introvert mendapatkan reputasi sebagai pendengar yang baik. Mereka merefleksikan diri sendiri terlebih dahulu sebelum berbicara sehingga pesan yang disampaikan tepat guna.

Sumber. Lifehack.org