m

Private Sub CMDPROSES_Click()

kodetiket = Left(TXTKT.Text, 3)

If kodetiket = “bim” Then

jeniskereta = “bima”

hargatiket = “50000”

jamberangkat = “16.00”

ElseIf kodetiket = “eko” Then

jeniskereta = “ekonomi”

hargatiket = “35000”

jamberangkat = “19.00”

ElseIf kodetiket = “mut” Then

jeniskereta = “mutiara”

hargatiket = “23000”

jamberangkat = “17.00”

ElseIf kodetiket = “sen” Then

jeniskereta = “senja”

hargatiket = “15000”

jamberangkat = “20000”

End If

TXTKT.Text = kodetiket

TXTJK.Text = jeniskereta

TXTHT.Text = hargatiket

TXTJB.Text = jamberangkat

TXTJT.SetFocus

End Sub

Private Sub Form_Activate()

TXTKT.SetFocus

End Sub

Private Sub TXTJT_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTTP.Text = Val(TXTHT.Text) * Val(TXTJT.Text)

End If

End Sub

Private Sub CMDKELUAR_Click()

End

End Sub

Private Sub CMDLAGI_Click()

TXTKT = “”

TXTHT = “”

TXTJK = “”

TXTJB = “”

TXTJT = “”

TXTTP = “”

End Sub

tugas vb pertemuana2

Posted: December 7, 2012 in Uncategorized

MICROSOF  VISUAL BASIC

Private Sub ChkBold_Click()

If ChkBold.Value = 1 Then

lbl1.FontBold = True

Else

lbl1.FontBold = False

End If

End Sub

Private Sub ChkItalic_Click()

If ChkItalic.Value = 1 Then

lbl1.FontItalic = True

Else

lbl1.FontItalic = False

End If

End Sub

Private Sub Chkst_Click()

If Chkst.Value = 1 Then

lbl1.FontStrikethru = True

Else

lbl1.FontStrikethru = False

End If

End Sub

Private Sub Chkund_Click()

If Chkund.Value = 1 Then

lbl1.FontUnderline = True

Else

lbl1.FontUnderline = False

End If

End Sub

Private Sub CmdExit_Click()

End

End Sub

Private Sub OptBlue_Click()

lbl1.ForeColor = vbBlue

End Sub

Private Sub OptGreen_Click()

lbl1.ForeColor = vbGreen

End Sub

Private Sub Optred_Click()

lbl1.ForeColor = vbRed

End Sub

Private Sub OptYellow_Click()

lbl1.ForeColor = vbYellow

End Sub

2

APLIKASI PERHITUNGAN  GAJI

Private Sub CmdProses_Click()

Text4.Text = Val(Text1.Text + Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub Cmdulang_Click()

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

3

HURUF MUTU MAHASISWA STMIK PRINGSEWU

. Private Sub CmdBatal_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub CmdProses_Click()

Text3 = Val(Text3.Text)

Text4 = Val(Text4.Text)

Text5 = Val(Text5.Text)

Text6 = Val(Text6.Text)

Text7 = (Text3 + Text4 + Text5 + Text6) / 4

Text7.Text = Text7

Select Case Text7.Text

Case Is > 80

Text8 = “A”

Case Is > 70

Text8 = “B”

Case Is > 60

Text8 = “C”

Case Is > 50

Text8 = “D”

Case Is < 50

Text8 = “E”

End Select

Text8.Text = Text8

End Sub

Private Sub Combo1_Click()

Select Case Combo1.Text

Case “12100011”

nama = “NENG RATIH”

jurusan = “sistem informasi”

Case “12100027”

nama = “SEKTI INDRA MAYU”

jurusan = “sistem informasi”

Case “12100023”

nama = “vivi MARVIATNA”

jurusan = “manajemen”

End Select

Text1.Text = nama

Text2.Text = jurusan

Text3.SetFocus

End Sub

Private Sub Form_Load()

Combo1.AddItem “12100011”

Combo1.AddItem “12100027”

Combo1.AddItem “12100023”

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

5

PERHITUNGAN HARGA SETELAH DISKON 10%

Private Sub Cmdhitung_Click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub CmdQuit_Click()

End

End Sub

Private Sub Cmdulang_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

4

PERKALIAN DUA BILANGAN

Private Sub cmdbersih_Click()

txtbil1.Text = “”

txtbil2.Text = “”

txthasil.Text = “”

End Sub

Private Sub cmdhitung_Click()

txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub txtbil1_Change()

End Sub

1

8 Cara Menumbuhkan Bulu Mata

Posted: November 28, 2012 in Uncategorized

1. Sikat bulu mata

Kedengarannya aneh bukan? Ada benar-benar kecil combs kecil yang dapat Anda gunakan untuk sikat bulu mata Anda keluar sebelum Anda menaruh di maskara itu, tetapi apakah Anda tahu bahwa dengan menyikat bulu mata Anda, Anda dapat benar-benar membuat mereka tumbuh sedikit lebih lama? Ini adalah benar-benar salah satu tips favorit bagaimana membuat bulu mata Anda tumbuh yang mudah untuk dilakukan!

2. Gunakan Vaseline

Alih-alih menghabiskan uang Anda pada sesuatu yang bisa menggelapkan mata Anda, mengapa tidak mencoba sesuatu yang mudah dan cepat? Hanya sedikit babatan vaseline pada kelopak mata Anda sebelum Anda pergi tidur akan meningkatkan bulu mata Anda dan akan membuat mereka lebih lama! Ini akan memakan waktu beberapa saat untuk melihat hasil, tapi percayalah, itu bekerja dan sangat mudah!

3. Cobalah Lash Accelerator

Apakah Anda tahu bahwa sebenarnya ada lash accelerator di luar sana? rimmel london yang hebat dan itu benar-benar bekerja! Sementara Anda mungkin menghabiskan sedikit lebih maskara, pada akhirnya, Anda akan menghemat karena bulu-bulu Anda akan tumbuh lebih lama dan lebih tebal. Cobalah dan katakan padaku bagaimana Anda menyukainya! Ini tip tentang cara untuk membuat bulu mata Anda tumbuh yang sederhana seperti menerapkan mantel maskara!

4. Minyak zaitun

Aku benar-benar bersumpah dengan tips ini tentang cara untuk membuat bulu mata Anda tumbuh. Itu benar-benar bekerja! Hanya menambahkan sedikit minyak zaitun untuk tutup pada malam hari akan benar-benar membantu bulu mata Anda menyerap semua vitamin dan mineral dalam minyak zaitun!

5. Pijat kelopak

Bulu mata dapat jatuh, mereka bahkan dapat mematahkan dan menjadi rapuh jika kita kebetulan menganiaya mereka. Ini berarti bahwa menggosok kelopak mata Anda dan benar-benar merangsang folikel rambut dapat benar-benar benar-benar membantu membuat bulu mata Anda tumbuh lebih kuat dan lebih lama!

6. Pemanjangan Mascara

Akhirnya wanita, jika Anda benar-benar tidak bisa bulu mata Anda tumbuh, selalu ada cara memanjang maskara yang dapat Anda coba. Stiletto adalah salah satu favorit saya, apa yang menjadi milikmu?

7. Vitamin E

Sebelum Anda menyerah dan pergi meskipun dengan hanya pemanjangan  maskara, mengapa tidak mencoba beberapa Vitamin E? Vitamin e lotion adalah cara yang bagus untuk benar-benar meningkatkan bulu mata Anda dan benar-benar, vitamin yang akan mendorong bulu mata Anda ke max pertumbuhan.

8. Diet

Apakah Anda tahu bahwa diet Anda benar-benar dapat mempengaruhi bagaimana bulu mata Anda tumbuh? Jika Anda telah diet yang benar-benar buruk dan terus-menerus makan makanan berlemak, Anda mungkin melihat bahwa bulu mata Anda tidak selama mereka bisa. Beralih ke makanan dan mendapatkan buah-buahan dan sayuran di sana dan Anda akan melihat perbedaan besar!

Bahan
  • 175 gram dark cooking chocolate, dipotong-potong
  • 100 gram margarin
  • 3 butir telur
  • 250 gram gula pasir
  • 1/4 sendok teh garam
  • 200 gram tepung terigu
  • 20 gram cokelat bubuk
  • 1/4 sendok teh baking powder
Cara Membuat
  • Tim dark cooking chocolate dan margarin, sisihkan.
  • Kocok telur dan gula hingga kental.
  • Masukkan tepung terigu, cokelat, dan baking powder sambil diayak dan diaduk rata.
  • Tuang adonan ke dalam loyang brownies 11 x 22 cm yang dioles margarin dan dialas kertas roti.
  • Oven selama 1 jam dan Cara Membuat Kue Brownies ini dengan suhu 160 derajat Celsius.
  • Setelah Matang, berilah hiasan sesuai selera anda. Dan kue brownies pun siap di hidangkan.

Berikut tips cara berkomunikasi yang baik dengan orang lain, berkomunikasi dengan orang yang baru dikenal, berkomunikasi dengan atasan, berkomunikasi dengan lawan jenis.
1. Berikan kesan bahwa anda antusias berbicara dengan mereka – Beri mereka kesan bahwa anda lebih suka berbicara dengan mereka daripada orang lain di muka bumi ini. Ketika anda memberi mereka kesan bahwa anda sangat antusias berbicara dengan mereka dan bahwa anda peduli kepada mereka, anda membuat perasaan mereka lebih positif dan percaya diri. Mereka akan lebih terbuka kepada anda dan sangat mungkin memiliki percakapan yang mendalam dengan anda.

2. Ajukan pertanyaan tentang minat mereka – Ajukan pertanyaan terbuka yang akan membuat mereka berbicara tentang minat dan kehidupan mereka. Galilah sedetail mungkin sehingga akan membantu mereka memperoleh perspektif baru tentang diri mereka sendiri dan tujuan hidup mereka.

3. Beradaptasi dengan bahasa tubuh dan perasaan mereka – Rasakan bagaimana perasaan mereka pada saat ini dengan mengamati bahasa tubuh dan nada suara. Dari sudut pandang ini, anda dapat menyesuaikan kata-kata, bahasa tubuh, dan nada suara anda sehingga mereka akan merespon lebih positif.

4. Tunjukkan rasa persetujuan: Katakan kepada mereka apa yang anda kagumi tentang mereka dan mengapa – Salah satu cara terbaik untuk segera berhubungan dengan orang adalah dengan menjadi jujur dan memberitahu mereka mengapa anda menyukai atau mengagumi mereka. Jika menyatakan secara langsung dirasakan kurang tepat, cobalah dengan pernyataan tidak langsung. Kedua pendekatan tersebut bisa sama-sama efektif.

5. Dengarkan dengan penuh perhatian semua yang mereka katakan – Jangan terlalu berfokus pada apa yang akan Anda katakan selanjutnya selagi mereka berbicara. Sebaliknya, dengarkan setiap kata yang mereka katakan dan responlah serelevan mungkin. Hal ini menunjukkan bahwa anda benar-benar mendengarkan apa yang mereka katakan dan anda sepenuhnya terlibat di dalam suasana bersama dengan mereka. Juga pastikan untuk bertanya setiap kali ada sesuatu yang tidak mengerti pada hal-hal yang mereka katakan. Anda tentu saja ingin menghindari semua penyimpangan yang mungkin terjadi dalam komunikasi jika anda ingin mengembangkan hubungan yang sepenuhnya dengan orang tersebut.

6. Beri mereka kontak mata yang lama – kontak mata yang kuat mengkomunikasikan kepada orang lain bahwa anda tidak hanya terpikat oleh mereka dan apa yang mereka katakan tetapi juga menunjukkan bahwa anda dapat dipercaya. Ketika dilakukan dengan tidak berlebihan, mereka juga akan menganggap anda yakin pada diri anda sendiri karena kesediaan anda untuk bertemu mereka secara langsung. Akibatnya, orang secara alami akan lebih memperhatikan anda dan apa yang anda katakan.

7. Ungkapkan diri anda sebanyak mungkin – Salah satu cara terbaik untuk mendapatkan kepercayaan seseorang adalahdengan mengungkapkan diri seterbuka mungkin. Bercerita tentang kejadian yang menarik dari hidup anda atau hanya menggambarkan contoh lucu dari kehidupan normal sehari-hari. Ketika anda bercerita tentang diri anda, pastikan untuk tidak menyebutkan hal-hal yang menyimpang terlalu jauh dari minat mereka atau bahkan berlebihan. Anda dapat membiarkan mereka mengetahui lebih jauh tentang diri anda seiring berjalannya waktu.

8. Berikan kesan bahwa anda berdua berada di tim yang sama – Gunakan kata-kata seperti “kami, kita ” untuk segera membangun sebuah ikatan. Bila anda menggunakan kata-kata tersebut, anda membuatnya tampak seperti anda dan mereka berada di tim yang sama, sementara orang lain berada di tim yang berbeda.

9. Berikan mereka senyuman terbaik anda – Ketika anda tersenyum pada orang, anda menyampaikan pesan bahwa anda menyukai mereka dan kehadiran mereka membawa anda kebahagiaan. Tersenyum pada mereka akan menyebabkan mereka sadar ingin tersenyum kembali pada anda yang secara langsung akan membangun hubungan antara anda berdua.

10. Menawarkan saran yang bermanfaat – Kenalkan tempat makan yang pernah anda kunjungi, film yang anda tonton, orang-orang baik yang mereka ingin temui, buku yang anda baca, peluang karir atau apa pun yang terpikirkan oleh anda. Jelaskan apa yang menarik dari orang-orang, tempat atau hal-hal tersebut. Jika anda memberi ide yang cukup menarik perhatian mereka, mereka akan mencari anda ketika mereka memerlukan seseorang untuk membantu membuat keputusan tentang apa yang harus dilakukan selanjutnya.

Kewajiban Terhadap Sesama Muslim

Posted: November 28, 2012 in Uncategorized

Dalam kehidupan kita mengenal beberapa sebab yang menjadikan seseorang bisa menjadi saudara satu sama lain. Di antara sebab yang paling indah dan kekal adalah saudara karena keimanan atau agama yang sama. Sebagai seorang mu’min atau muslim kita mempunyai saudara seiman atau seagama, yang tentunya akan mempunyai kewajiban untuk saling membantu, saling menolong, saling menopang, bagaikan sebuah bangunan yang saling menguatkan.

Rasulullah Saw bersabda, “Sesungguhnya muslim satu dengan yang lain adalah umpama bangunan yang saling menopang satu sama lainnya.” Allah Swt telah mensyari’atkan pada kita semua agar saling menguatkan ikatan dengan rasa cinta dan kasih sayang serta menghindari perpecahan dan permusuhan.

Di samping itu Allah Swt melalui Rasulullah Saw mengajarkan kepada kita untuk saling memberi dan menjawab salam. Salam merupakan ungkapan rasa cinta, maka ketika sesama muslim saling bertemu ucapkanlah salam, karena yang terbaik dari kalian adalah orang yang pertama mengucapkan salam.

Dan jika diantara saudara kita ada yang sakit maka kewajiban kita untuk menjenguk dan mendo’akannya, karena hal tersebut bisa menghibur yang menghasilkan kebahagiaan dan kedamaian bagi yang sakit. Di samping itu juga bisa mempererat persaudaraan yang telah terjalin dan pada akhirnya Allah Swt akan memberikan pahala yang besar. Maka barangsiapa menjenguk orang yang sedang sakit dan dia mendo’akan atas kesembuhannya maka itu adalah obat baginya. Rasulallah SAW bersabda, “Barang siapa menjenguk orang yang sedang sakit dan ia mendo’akannya maka ia selalu berada di Khorafatil jannah (Keindahan taman surga) sampai ia pulang. Barang siapa menjenguk orang sakit maka ia akan dimudahkan dalam berbagai masalah dan pintu taubatnya selalu terbuka lebar.”

Syariat Allah yang lain adalah agar kita selalu berbuat baik pada sesama muslim, Allah Swt berfirman, “Tiada kebaikan yang bisa menyelamatkan kalian, kecuali orang yang menyeru kepada shodaqoh dan berbuat baik antara sesama.”

Termasuk berbuat baik kepada sesama muslim adalah ketika melihat saudara muslim kita berada dalam kerusakan maka kewajiban kita untuk memperbaikinya, ketika mereka menjauh maka dekatilah dan ketika melihat dua orang saling bermusuhan maka damaikanlah.

Ketika seorang di antara kamu yang batuk ataupun bersin maka pujilah Allah dengan ucapan Alhamdulillah dan kewajiban yang mendengar untuk mengucapkan “Yarhamukallah“ dan diteruskan dengan ucapan, “Yahdikumullah Wayasluhu bainakum.”

Jika dalam suatu kelompok ada perselisihan maka duduklah bersama sama lalu musyawarahlah, karena musyawarah berguna untuk mencapai kesepakatan yang paling benar untuk kemaslahatan bersama tanpa adanya seseorang yang merasa dirugikan.

Rasulullah Saw mencegah suatu ucapan atau perkataan yang bisa membuat perpecahan atau permusuhan bahkan melaknat bagi siapa saja yang bermusuhan atau tidak saling menyapa sampai 3 hari lamanya. Sabda Rasulullah Saw, “Tidak halal (haram) hukumnya bagi dua orang Islam yang saling bermusuhan atau tidak saling tegur sapa selama 3 hari dan jika ia mati dalam keadaan tersebut maka ia akan masuk neraka.” Naudzubillah min dzalik.

Rasulullah Saw melarang bagi siapa saja yang mengadu domba, dan beliau juga melarang membicarakan keburukan (aib) orang lain, karena hal tersebut bisa menimbulkan kerusakan dan pertikaian.

Bersilaturrahim termasuk sesuatu yang sangat dianjurkan oleh Rasulullah Saw. Dalam shaheh Bukhori Muslim diceritakan, “Datang seorang sahabat pada Nabi Saw, dan berkata, ‘Ya Rasulullah, kabarkan pada kami sesuatu yang bisa memasukkan kami pada surga dan menjauhkan kami pada neraka?’ Rasulullah Saw menjawab, ‘Sembahlah Allah Swt, dirikanlah sholat, dan sambunglah silatur rahim.”

Dalam hadits lain, beliau bersabda, “Sambunglah rahimmu atau bersilaturrahimlah karena hal tersebut bisa memanjangkan umur dan meluaska rizqi,”

“Sesungguhnya sanak saudaramu itu digantungkan dengan Arsy, maka barangsiapa yang menyambungnya maka ia bersambung dengan Allah Swt, dan barangsiapa yang memutusnya , maka ia telah putus dengan Allah Swt.”

Begitu pentingnya silturrahim maka Allah akan melaknat orang-orang yang memutuskannya, sesuai dengan sabda Rasulullah Saw bahwa ada 4 golongan yang dilaknat oleh Allah ta’ala:1.Orang yang membohongi Allah ta’ala,2.Orang yang memutus silatur rahim,3.Orang yang menyebarkan berita palsu atau fitnah,4.Orang yang merubah penerangan atau petunjuk jalan (munarul ardli).

TIPS UNTUK MENJADI ORANG SUKSES

Posted: November 28, 2012 in Uncategorized
  1. Ikutilah seminar-seminar bisnis yang diadakan di kota anda. Coba beli koran dan lihatlah iklan-iklan seminar di kota  anda dan coba hadir di seminar-seminar tersebut. Kadang seminar-seminar itu membutuhkan biaya, tapi coba sisihkan uang anda untuk ikut dalam seminar-seminar itu. Wawasan anda pasti akan lebih luas dan terbuka.
  2. Coba praktekkan apa yang anda dengar di dalam seminar. Karena pengetahuan tanpa praktek adalah nol besar. Dan anda tidak akan jadi besar jika anda tidak segera take action.
  3. Buatlah sasaran atau goal anda di masa depan. Buat planning 10 tahun ke depan anda ingin jadi seperti apa, 5 tahun depan, dan 1 tahun depan.
  4. Jangan patah semangat jika anda mendengar bahwa rencana yang telah anda susun tidak akan berhasil. Banyak orang akan mengatakan jangan lakukan itu, jangan bisnis, bisnis itu beresiko, anda pasti tidak bisa, seminar itu hanya teori, dsb. Coba tetap fokus akan planning/rencana anda.
  5. Terus asah pengetahuan anda di bisnis yang anda geluti, jika anda fokus pasti anda akan berhasil. Semakin lama anda belajar di bisnis yang sama, maka anda akan semakin ahli.
  6. Buatlah SOP untuk bisnis anda, agar segala sesuatu bisa menjadi teratur dan bisa didelegasikan. Jika anda sudah bisa mendelegasikan bisnis anda, maka anda akan bebas jalan-jalan tanpa perlu mengkhawatirkan bisnis anda. Anda tinggal memantau tim anda, dan anda bisa jalan-jalan, atau membuka bisnis yang lain. Ingat, ini bisa anda lakukan jika anda sudah membuat semua SOP untuk bisnis anda. Pada saat membuka bisnis, usahakan jangan langsung ditinggalkan, coba anda fokus dulu disitu 6 bln – 1 tahun, baru jika bisnisnya sudah stabil, anda sudah bisa mendelegasikan ke tim anda.
  7. Coba atur keuangan anda, dari pemasukan sampai pengeluaran. Coba bagi pemasukan anda menjadi pos-pos. Sisihkan untuk pendidikan(utk anak, ikut seminar, dll), untuk sehari-hari, untuk amal, untuk senang-senang, untuk pengeluaran tak terduga.
  8. Berdoa menurut kepercayaan kita masing-masing. Berdoa agar rencana kita bisa tercapai, dan jangan lupa selalu mengucap syukur pada saat target/rencana kita tercapai.

Masih banyak tips untuk menjadi orang sukses, tapi secara sekilas mungkin ini yang bisa saya bagikan. Orang yang sukses adalah orang yang pantang menyerah, tidak mengikuti kebanyakan orang, tidak mendengarkan ejeken-ejeken orang lain, dan orang yang sukses adalah orang yang bekerja keras/cerdas untuk mencapai goal/sasarannya.