Berhasil Mengatasi Kesulitan
di kutip dari buku:Berpikir positif kunci sukses
oleh:Norman Vincent Peale

         
Pemikir positif adalah orang yang memperoleh hasil gemilang karena beberapa sebab. Ia tidak takut berhadapan dengan kesuliatan apa pun. Dan ia juga tidak mau dikalahkan oleh masalah itu. Sebagai orang praktis, yang berpikir positif, ia tahu bahwa dalam setiap masalah megandung jalan keluarnya. Jika tidak ada masalah, tidak aka ada pemecahannya, dan proses kemajuan akan berhenti.Mereka yang berpikir positif menyadari bahwa semua hasil baik berakar dalam tanah subur yang berupa masalah rumit.

            Jika Allah swt ingin memberi anda sesuatu yang berniali,bagaimana cara ia melakukannya? Apakah ia akan membungksnya dalam bingkisan indah dan memberikannya kepada anda? Sama sekali tidak. Ia terlalu cerdik dan piawai untuk melakukan hal itu. Cara yang di pergunakannya jauh lebih lihai sering kali ia menyembunyikan sesuati yang bernilai itu di antara masalah yang besar dan yang sulit. Dan ia akan memperhatikan anda untuk mengetahui apakah anda memiliki kemampuan untuk membongkar masalah tersebut dan menemukan sesuatu yang bernilai itu di dalamnya, anda memang menginginkannya.

            ada seorang wanita datang kepada saya., saya lihat ia berjalan menuju saya, dari wajahnya yang muram dan sendu saya dapat melihat bahwa ia tidak sepenuhnya bahagia sebagai manusia. Boleh dikatakan semangatnya sangatlah merosot. Dengan perasaan simpati, saya bertnya kepadanya ,”Pa kabar, Jhon?” untuk beberapa saat jhon berusaha untuk memberi kesan bahwa keadaannya sangat buruk. Semakin banyak ia berbicar, semakin saya merasakan betapa buruk keadaannya.”apa yang menyebabkan anda begitu lemah dan berkecil hati?” Tanya saya. Pertanyaan ini benar-benar membangkitkan reaksinya.

            “Ah, masalah-masalah ini,” ia menggerutu.” Masalah, masalah, masalah, tidak ada lain kecuali masalah,” dengan ber api-api ia menceritakan masalah pada saya, sampai ia lupa dengan siapa ia berbicara. Kemudian ia mencaci-maki masalah-masalah tersebut dengan perasaan benci. 

                         Sang pejuang hidup

Engkau adalah sang pejuang hidup kami

Setiap hari kau bekerja mencari nafkah semata-mata hanyalah untuk kami saja

Kau adalah sosok seseorang yang patut kami banggakan 

Bagaimana kami tak bangga dengan mu

Mendengar cerita tentang kisahmu awal dulunya

bagaimana kau menggapai semua apa yg kami miliki saat ini

Awalnya  kami nggk tahu itu berawalan  dari Nol.,

Dalam artian dulunya engkau adalah org yg  tak punya apa-apa

Sehingga dengan kamauan mu yang sangat besar untuk mendapatkan apa yg kau inginkan pun terwujud

Dengan segala pengorbanan yag kau lalui

Juga  keinginanmu yg sangat besar

sehingga bisa mengalahkan Rintangan-rintangan yang ada selama ini

Engkau sanggup menyekolahkan kami semua anak-anak mu

Saya Bersyukur pada Allah swt bisa meiliki Ayah seperti mu.,

engkau adalah sosok seorang Ayah yang pantas di banggakan

Sekian dari saya.,

                                                                                                       
By:Dewi Fortuna Ritonga

                                                                               

CeritaTentang Qu

Nama saya Irma Dewi, biasa dipanggil dengan panggilan dewi,Irma  ada uga yg manggil dew/wie az.,saya anak ke II dari enam bersaudara kami semua @ bisa di bilang “One Boy and Five Grils” lh..,,

Saya kuliah di STMIK Budidarma Medan., Awalnya saya ke Medan bukan moe masuk ke Green Kampuz (Budidarma)., tapi saya coba ikuti Tes SNMPTN di USU ngambil Jurusan manajement Akuntansi., saya juga bingung waktu daftar itu masaknya sekolah saya nggk ada terdaftar ketika saya mendaftar..,, yach moe gie mana lg..,, saya pun daftarnya nggk sama ortu atwpn saudara waktu itu., yah  karena nggk ada saudara uga di medan ini., jadi daftarnya ma ortu guru saya waktu di sekolah , itupun katanya bisa dijamin lulus la ya kn, karna pake’ duit uga., gk twnya wktu ujian berlangsung saya tuggu2 gk adanya yg ngasi jawaban. saya heran az ,padahal sblum ujian dah di kasih tw  ma bapak tuch kok nnti jawabnnya ibu itu yg ngasih ama kamu., iya jawab ku., nyatanya ndk demikian

Emm., saya yg masih lugu waktu itu hnya bisa diam az lh.,ndk tw ap2 karena saya belum berani proses saat itu.

Setelah pengumuman dan akhirnya no/nama saya pn tak ada keluar alias ndk lulus.,

Di situ saya semakin bingung lg..,, jadi moe kul dmn la qu neh., padahal rencana ku waktu itu kalau nggk lulus di usu  ku di kampug az lh kulnya.,

Tapi kata ayah tetap kul di medan az  walaupun swasta.,

Aktivitas Sehari-Hari

Senin =Kuliah

Selasa =Belajar

Rabu =Kuliah

Kamis =Kuliah

Jum’at= Belajar

Sabtu =Kuliah,BPC

 Perhitungan Nilai Mahasiswa

1.Mendesign pada Form seperti gambar di bawah ini

Properties

Objeck	Properti	Setting
Form	Name Caption Width Heigth	FrmLat2 Perhitungan Nilai Mahasiswa 5000 3500
Label1	Caption	NPM
Label2	Caption	Nama Mahasiswa
Label3	Caption	Mata Kuliah
Label4	Caption	Nilai Mid
Label5	Caption	Nilai Semester
Label6	Caption	Nilai Kehadiran
Label7	Caption	Nilai Tugas
Label8	Caption	Total Nilai
Text1	Name	npm
Text2	Name	nama
Text3	Name	mk
Text4	Name	nmid
Text5	Name	ns
Text6	Name	nk
Text7	name	nt
Text8	name	total
Command1	Name Caption	Cmdhitung &Hitung
Command2	Name Caption	Cmdhapus &Hapus
Command3	Name Caption	Cmdselesai &Selesai

Double Click Form anda dan isikan kode program  di bawah ini

Sub hapus()

    npm.Text = ""

    nama.Text = ""

    mk.Text = ""

    nmid.Text = ""

    ns.Text = ""

    nk.Text = ""

    nt.Text = ""

    total.Text = ""

end sub

Private Sub Cmdhapus_Click()

                Hapus

                npm.setFocus

End Sub

Private Sub Cmdhitung_Click()

    total= 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nmid.Text + 0.45 * ns.Text

End Sub

Private Sub Cmdselesai_Click()

    Unload Me

End Sub

Private Sub Form_Load()

    hapus

End Sub

Menjalankan program Tekan F5

   

Menghitung  Volume Kubus dengan Menggunakan Visual basic  6.0

1.Aktifkan VB 6.0 melalui tombol Start→Program→Microsof Visual  Studio 6.0→ Microsof Visual  Basic 6.0  untuk membuka aplikasi Visual Basic 6.0 seperti tampilandi bawah ini

2.Akan muncul Tampilan seperti  beikut:
  Click Open.

3.Maka Akan Tampil gambar seperi di bawah ini

4.Selanjutnya Mendesign Prorgam Seperti gambar berikut

Propertis

Objeck	Properti	Setting
Form	Name Caption	FrmLat1 Menghitung Volume Kubus
Label1	Caption	SISI
Label2	Caption	VOLUME
Text1	Name	sisi
Text2	Name	volume
Command1	Name Caption	Cmdhitung &Hitung
Command2	Name Caption	Cmdhapus &Hapus
Command3	Name Caption	Cmdkeluar &Keluar

Jika anda ingin mewarnai Form atau merubah bentuk tulisan, rubah di propertiesnya

Back  color  →Fungsinya Untuk mewarnai tampilan

Fore color → Fungsinya Untuk mewarnai tulisan

Font → Fungsinya Untuk merubah jenis dan ukuran tulisan

Double Click Form anda  ketikkan program di bawah ini

Sub hapus()

    sisi.Text = ""

    volume.Text = ""

End Sub

Private Sub Cmdhitung_Click()

volume = sisi * sisi * sisi

End Sub

Private Sub Cmdhapus_Click()

    hapus

End Sub

Jalankan programnya tekan  F5

selanjutnya Tambahkan kode program yang di atas seperti berikut

Private Sub Cmdhitung_Click()

    If sisi.Text = "" And volume.Text = "" Then

        MsgBox "sisi dan volume belum di isi..!" (Menampilkan pesan jika “sisi.text And volume.text “belum di isi)

        sisi.SetFocus ( Posisi kursor Anda focus pada” sisi”)

 Exit Sub

        Else

    If volume.Text = "" Then

        MsgBox "volume belum di isi..!" (Menampilkan pesan jika” volume belum di isi”)

        volume.SetFocus

    Exit Sub

    Else

    volume =sisi * sisi * sisi

    End If

    End If

End Sub

Private Sub cmdkeluar_Click()

    Dim pesan As String

    pesan = MsgBox("Anda yakin keluar..?", vbQuestion + vbYesNo)

    If pesan = vbYes Then

     Unload Me

     End If

End Sub

Private Sub Form_Load()

    hapus

end Sub

Private Sub sisi_ KeyPress(KeyAscii As Integer)                               

    If KeyAscii = 13 Then

    volume.SetFocus

    End If

End Sub

Private Sub vol_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    Cmdhitung.SetFocus

    End If

End Sub