Sabtu, 13 Juli 2013

Hartaku adalah Teman dan Sahabatku

Awal pertama ku menginjak kota Jakarta, terasa sumpek dan sangat tidak betah. 
Masa-masa Sekolah Dasarku tingkat 4 dan 5 masih datar-datar aja, tidak ada yang spesial. Hanya saja aku senang dengan guru-guru disana cukup perhatian samaku, mungkin karna aku pendatang baru dari sumatera kali yah..aku juga bingung sih, tapi yang pasti aku cukup dikenal disekolah khususnya di kelasku karena cuma aku yang suku batak. Hehe.. (bangga donk)

Aku memang anak sekolah pindahan dari Sumatera Utara tepatnya Pematangsiantar. Aku dan keluargaku pindah karena tuntutan pindah tugas dari pekerjaan Ayah.
Teman-teman baruku masih sangat terasa asing bagiku. Apalagi mereka berlogat loe-gue, hhmmm..agak risih mendengarnya. Dan aku rasa mereka pun risih mendengar logatku yang kebatak-batakan.

Setamat dari SD Negeri 03, Jakarta Selatan aku lanjut sekolah di SLTP Negeri 240. Disana juga banyak hal yang kudapat.
Banyak juga teman 1 SD yang melanjut ke Sekolah DomPu, siswa-siswa biasa sebut nama sekolah seperti itu supaya singkat. Teman pertamaku di Sekolah Lanjutan Tingkat Pertamaku adalah Soraya karena dia salah satu teman sekelasku waktu di SD Negeri 03. Soraya, orangnya pendiem banget. Tapi aku senang bisa berkenalan dengan dia karena dia seorang yang tidak fanatik dengan yang berbeda keyakinan dengannya. Kemudian, Desi..aku kenal desi dari soraya yang juga ikut ekstrakulikuler menari. Dari ekstrakulikuler ini aku semakin mendapat banyak teman. Aku suka dan senang ikut dalam ekskul ini karena banyak pengetahuan tentang cara menari tradisional maupun modern. Dari ekskul inilah aku juga semakin banyak memiliki teman. Selain itu aku juga berkenalan dengan teman-temanku yang seiman di Kelas Les Agama Kriste Protestan dan Katholik. Awalnya sih kelasnya di pisah tapi karena guru Agama Kristen Protestan sedang cuti hamil jadi kelas kami disatukan. Di kelas Agama, aku berkenalan dengan Yongki. Aku senang berkenalan dengannya dan pernyataan dia juga senang berkenalan denganku. Katanya, dia suka gayaku bernyanyi dan membawa pembukaan kelas agama. Yongki awalnya beragama khonguchu, aku tidak tahu kenapa tapi dari cerita dia dia terpaksa pindah agama karena khonguchu belum diakui di pemerintahan kita ini. Jadi, dia memilih untuk pindah ke agama muslim. Yongki memang sudah menganut agama muslim tapi dia belum dan tidak mengerti ajaran-ajaran didalamnya sehingga dia pun tidak pernah ikut sholat dan segala bentuk ibadah agama muslim. Dan karena dia tidak bisa melakukan hal itu secara rutin, Yongki memilih untuk pindah agama lagi menjadi Kristen. Hal itu membuatku kaget, karena seakan-akan dia membuat agama itu hanya sebagai formalitas saja sehingga sesuka hati untuk berpindah-pindah agama. Tapi disitu, aku bilang ke dia kalau yang dia lakukan itu adalah salah dan sangat tidak boleh sebenarnya. Sejak menjadi Kristen pun dia hanya sekali-sekali saja pergi ke gereja, katanya kalau lagi pengen yah ke gereja kalau enggak dengerin kotbah di radio aja. Wahh,,bahay nih anak, pikirku. Sejak saat itu , aku mulai rajin untuk mengajak dia ikut kebaktian pra remaja di Gerejaku GKI PAnglima Polim, Jakarta Selatan.
Dia bilang, dia merasa senang ada yang mendukungnya dan rajin mengajaknya ke Gereja. Jadi, sejak itu kami selalu sama pergi ke gereja sampai kami tamat sekolah.

Ada lagi temanku, namanya Felicia Sihombing. Dia memang suku batak tapi dia kelahiran Jakarta jadi mukanya juga muka orang jawa, gak kelihatan muka bataknya. Aku juga senang bisa berkenalan dengan Felicia, dia sangat ramah dan rendah hati. Selama sekolah, aku sering main ke rumah Felis, begitu juga sebaliknya. Terkadang aku juga mau mengajaknya gereja bareng bertiga dengan Yongki. Tapi itu hanya beberapa kali saja karena dia juga ada ikut muda-mudi di Gerejanya.
Satu lagi temanku, namanya Griselda. Griselda adalah suku ambon. Wauw, keren juga yah punya teman dari berbagai suku. hehe,,
Griselda masuk di bagian kelas Agama Katholik, dia anak dari salah satu guru di sekolah itu. Anaknya rada sombong. Gak tau deh apa yang disombongkan, mungkin karena Bokapnya guru disitu kali yah. Tapi walaupun begitu, aku tetap berusaha ramah sama dia.

Seiring berjalannya proses belajar-mengajar, hal yang paling aku sukai adalah ekskul menari ini. Pernah sekali waktu aku dan beberapa teman sekelas yang juga 1 tim dalam perlombaan menari antar kelas di acara PORSENI (Pekan Olahraga dan Seni), kami janjian bolos berjama'ah. hehe,,demi memenangkan perlombaan ini. Dan memang hasil dari bolos sekolah kami ini juga tidak sia-sia, karena ternyat kamilah pemenang utamanya. Wah, luar biasa senangnya khususnya aku juga sangat senang karena aku salah satu fokus dari penari cheerleaders, aku jadi ujung dari formasi piramid tarian kami. Beruntung juga memang yang berbadan mungil dan ringan ini yah. hehe,,

Aku sangat menikmati segala perjalanan hidupku selama sekolah dan prinsipku pada masa itu carilah teman sebanyak mungkin dan jangan sampai ada 1 pun dari mereka menjadi musuhmu...sampai sekarang aku masih menerapkan hal itu. Dalam hal berteman, aku berusaha untuk selalu menjaga perasaan teman-temanku. Terkadang aku rela, membujuk atau malah meminta maaf duluan kalau ada teman yang kecewa atau sinis sama aku, walaupun jelas-jelas dia lah yang bersalah. Yah,,terkadang memang makan hati sih, tapi ya itulah aku.. Hal itu juga mengajariku untuk menjadi seorang penyabar.


(ceritanya belum selesai, tungguin kelanjutannya ya..soalnya udah ngantuk nih)
hehe,,






Jumat, 12 Juli 2013

Tulisanku 3B "Bahagiaku Bila BersamaMu"


Dikala ku sedih, Kau menghiburku. 
Dikala ku sakit, Kau sembuhkanku. 
Dikala ku terjatuh, Kau menopangku hingga tak sampai tergeletak. 
Dikala ku tidak jeli melihat sesuatu, Kau celikkan mataku hingga ku tersadar kembali. 
Hanya Engkaulah, pribadi yang mengenal hatiku. 
Tiada yang tersembunyi bagiMu. 
Hanya dekat padaMu lah hatiku merasa damai. 
Banyak hal yang kulewati bersamaMu. 
Tawa, bahagia, sedih, nangis ku hadapkan padamu 
dan ku bisa melewatinya hanya karna bersamaMU. 

Disaat ku tak tahu harus berkata2 apa kepada adik kelompokku, 
agar mereka menyadari akan kekeliruan tindakannya selama ini, 
Kau mengirimkan roh pengertian dariMu kepada mereka 
hingga mereka sendiri yang menyadari dan mengakui 
bahwa itu semua memang benar2 salah dan keliru. 

Disaat ku tak kuasa menahan ejekan dan sindiran dari teman2ku 
karena aku tidak mau memberikan jawaban ujian, 
Engkau hibur dan kuatkanku dengan Kasihmu. 
Sehingga, walaupun mereka sedikit sinis bila masa2 ujian tiba.. 
mereka tetap menjadi teman baikku di luar jam ujian tersebut. 

Begitu juga dikala aku merasakan kegalauan ketika mengerjakan skripsi. 
Banyak hal yang menggodaku untuk bisa lari dari JalurMu. 
Aku tahu Kau takkan membiarkanku melakukannya, 
hingga Kau membukakan Jalan untukku. 

Sungguh senang kala aku mengingat Kasih dan MujizatMu 
yang Kau nyatakan langsung padaku hari demi hari. 
Terimakasih untuk semua teman2 dan sahabat2 yang Kau kirimkan padaku. 
Terimakasih untuk orangtuaku. 
Terimakasih untuk KasihMu. 
Terimakasih untuk AnugrahMu. 
Terimakasih untuk BerkatMU. 
Terimakasih untuk Segala sesuatunya. 

I Love U




Rabu, 10 Juli 2013

Membuat Kalkulator dengan VB



Bagi seorang pemula seperti saya, dapat membuat suatu program kalkulator adalah suatu keharusan, demakin banyak fungsi atau tombol-tombol yang tersedia maka semakin bagus.


Satu program kalkulator yang saya contohkan ini merupakan program kalkulator versi pertama saya, tanpa revisi apapun. Karena yang versi revisinya dah hilang (bareng sama flashdisk). Jadi jujur saja, yang satu ini memang agak kurang sempurna.


Kalkulator adalah sebuah contoh aplikasi matematis yang umum dibuat sebagai bentuk pemrograman tingkat dasar melalui software pembuat program tertentu dan dalam hal ini saya menggunakan software VB, satu hal yang saya bangga yaitu apabila ketika pertama-tama saya buat program kalkulator ini, saya membuatnya tanpa referensi atau contoh kode apapun dari buku ataupun internet.


Baru setelah saya temukan beberapa referensi contoh kode untuk program kalkulator maka saya lakukan beberapa revisi yang kebetulan seperti telah saya jelaskan diatas bahwa file-nya memang sudah hilang.


Untuk sedikit keterangan bahwa fungsi untuk sinus radius dan tangent yang digunakan adalah mode radius serta sesungguhnya ada 3 textbox di program kalkulator ini, namun textbox yang ke-3 tipe visible-nya dibuat false. Sedangkan untuk design form, tampak seperti gambar diatas.


Untuk lebih lengkapnya anda bisa melihat contoh kode-kode yang saya buat.


Dim nilai1, nilai2, hasil As Double

Dim tanda, unik As Integer


Private Sub Command1_Click() ‘Tombol angka 1.

Text1.Text = Text1.Text & "1"

If tanda > 0 Then

Text3.Text = Text3.Text & "1"

End If

End Sub


Private Sub Command10_Click() ‘Tombol angka 0.

Text1.Text = Text1.Text & "0"

If tanda > 0 Then

Text3.Text = Text3.Text & "0"

End If

End Sub


Private Sub Command11_Click() ‘Tombol bentuk positif / negatif

If tanda > 0 Then

Text1.Text = Text1.Text & "-"

unik = 1 'VARIABLE unik 1 UNTUK bentuk negatif

Exit Sub

End If

Text1.Text = Text1.Text * -1

End Sub


Private Sub Command12_Click() 'Tombol bentuk DESIMAL

Text1.Text = Text1.Text & "."

unik = 2 'VARIABLE unik 2 UNTUK DESIMAL

End Sub


Private Sub Command13_Click() 'Tombol TAMBAH

If tanda = 50 Then

Text1.Text = hasil

nilai1 = Text2.Text

tanda = 1

Text1.Text = Text1.Text & "+"

Exit Sub

End If

nilai1 = Text1.Text

tanda = 1

Text1.Text = Text1.Text & "+"

End Sub


Private Sub Command14_Click() 'Tombol KURANG

If tanda = 50 Then

Text1.Text = hasil

nilai1 = Text2.Text

tanda = 2

Text1.Text = Text1.Text & "-"

Exit Sub

End If

nilai1 = Text1.Text

tanda = 2

Text1.Text = Text1.Text & "-"

End Sub


Private Sub Command15_Click() ‘TOMBOL KALI

If tanda = 50 Then

Text1.Text = hasil

nilai1 = Text2.Text

tanda = 3

Text1.Text = Text1.Text & "x"

Exit Sub

End If

nilai1 = Text1.Text

tanda = 3

Text1.Text = Text1.Text & "x"

End Sub


Private Sub Command16_Click() ‘TOMBOL BAGI

If tanda = 50 Then

Text1.Text = hasil

nilai1 = Text2.Text

tanda = 4

text1.Text = Text1.Text & "/"

Exit Sub

End If

nilai1 = Text1.Text

tanda = 4

Text1.Text = Text1.Text & "/"

End Sub


Private Sub Command17_Click() ‘TOMBOL SAMA DENGAN

nilai2 = Text3.Text

If unik = 1 Then

nilai2 = nilai2 * -1

End If


Select Case tanda

Case 1

hasil = (nilai1 - 1) + (nilai2 + 1) ‘PENJUMLAHAN

Case 2

hasil = nilai1 - nilai2 ‘PENGURANGAN

Case 3

hasil = nilai1 * nilai2 ‘PERKALIAN

Case 4

If nilai2 = 0 Then

MsgBox " TERJADI ERROR, PEMBAGIAN DENGAN O ", vbCritical, "Error"

Text1.Text = ""

Exit Sub

End If

hasil = nilai1 / nilai2 ‘PEMBAGIAN

Case 5

hasil = nilai1 * nilai1 ‘KUADRAT

Case 6

hasil = nilai1 ^ nilai2 ‘PANGKAT n

Case 7

hasil = nilai2

Case 8

hasil = Sin(CDbl(nilai2))

Case 9

hasil = Cos(CDbl(nilai2))

Case 10

hasil = Tan(CDbl(nilai2))

Case 11

If nilai2 < 0 Then

MsgBox "TIDAK DAPAT MENGHITUNG NILAI AKAR DARI BILANGAN NEGATIF ", vbInformation, "PEMBERITAHUAN ERROR"

Exit Sub

End If

hasil = Sqr(nilai2)

End Select

If unik = 2 Then

hasil = hasil * 0.1

End If

tanda = 50

Text3.Text = ""

Text2.Text = hasil

End Sub


Private Sub Command18_Click() ‘TOMBOL CLEAR

tanda = 0

Text1.Text = Empty

Text2.Text = Empty

Text3.Text = Empty

End Sub


Private Sub Command19_Click() ‘TOMBOL QUIT

MsgBox "Coded by : Josua Silalahi " & vbCrLf & "Known As : WONDERKID ", vbInformation, “KALKULATOR INI"

End

End Sub


Private Sub Command2_Click() ‘TOMBOL ANGKA 2

Text1.Text = Text1.Text & "2"

If tanda > 0 Then

Text3.Text = Text3.Text & "2"

End If

End Sub


Private Sub Command20_Click() ‘TOMBOL CLEAR ALL

tanda = 0

Text1.Text = Empty

Text2.Text = Empty

Text3.Text = Empty

End Sub


Private Sub Command21_Click() ‘TOMBOL KUADRAT

If tanda = 50 Then

Text1.Text = hasil

nilai1 = Text2.Text

tanda = 5

Text1.Text = Text1.Text & "^2"

Exit Sub

End If

nilai1 = Text1.Text

tanda = 5

Text1.Text = Text1.Text & "^2"

End Sub


Private Sub Command22_Click() ‘TOMBOL PANGKAT n

If tanda = 50 Then

Text1.Text = hasil

nilai1 = Text2.Text

tanda = 6

Text1.Text = Text1.Text & "^"

Exit Sub

End If

nilai1 = Text1.Text

tanda = 6

text1.Text = Text1.Text & "^"

End Sub


Private Sub Command23_Click() ‘TOMBOL ABOUT

MsgBox "THIS PROGRAM WAS CREATED BY JOSUA SILALAHI, THIS PROGRAM IS MADE ONLY TO CALCULATE SIMPLE MATHEMATIC OPERATION", vbCritical, "About This Program"

End Sub


Private Sub Command24_Click() ‘TOMBOL PERSEN

Text3.Text = Text3.Text * 0.01

Text1.Text = Text1.Text & "%"

End Sub


Private Sub Command25_Click() 'TOMBOL FAKTORIAL

Text1.Text = hasil

nilai1 = Text1.Text

tanda = 7

Text1.Text = Text1.Text & "!"

For a = nilai1 - 1 To 1 Step -1

nilai1 = nilai1 * a

Next a

Text3.Text = nilai1

End Sub


Private Sub Command26_Click() 'TOMBOL SINUS

Text1.Text = ""

tanda = 8

Text1.Text = Text1.Text & "sin"

End Sub


Private Sub Command27_Click() 'TOMBOL COSINUS

Text1.Text = ""

tanda = 9

Text1.Text = Text1.Text & "cos"

End Sub


Private Sub Command28_Click() 'TOMBOL TANGEN

Text1.Text = ""

tanda = 10

Text1.Text = Text1.Text & "tan"

End Sub


Private Sub Command29_Click() ‘TOMBOL AKAR

tanda = 11

Text1.Text = Text1.Text & "sqr"

End Sub


Private Sub Command3_Click() ‘TOMBOL ANGKA 3

Text1.Text = Text1.Text & "3"

If tanda > 0 Then

Text3.Text = Text3.Text & "3"

End If

End Sub


Private Sub Command30_Click() ‘TOMBOL BACKSPACE

If Text1.Text = "" Then

MsgBox "LAYAR SUDAH KOSONG ", vbInformation, "INFO"

Exit Sub

End If

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

If tanda > 0 Then

tanda = 0

End If

End Sub


Private Sub Command4_Click() ‘TOMBOL ANGKA 4

Text1.Text = Text1.Text & "4"

If tanda > 0 Then

Text3.Text = Text3.Text & "4"

End If

End Sub


Private Sub Command5_Click() ‘TOMBOL ANGKA 5

Text1.Text = Text1.Text & "5"

If tanda > 0 Then

Text3.Text = Text3.Text & "5"

End If

End Sub


Private Sub Command6_Click() ‘TOMBOL ANGKA 6

Text1.Text = Text1.Text & "6"

If tanda > 0 Then

Text3.Text = Text3.Text & "6"

End If

End Sub


Private Sub Command7_Click() ‘TOMBOL ANGKA 7

Text1.Text = Text1.Text & "7"

If tanda > 0 Then

Text3.Text = Text3.Text & "7"

End If

End Sub


Private Sub Command8_Click() ‘TOMBOL ANGKA 8

Text1.Text = Text1.Text & "8"

If tanda > 0 Then

Text3.Text = Text3.Text & "8"

End If

End Sub


Private Sub Command9_Click() ‘TOMBOL ANGKA 9

Text1.Text = Text1.Text & "9"

If tanda > 0 Then

Text3.Text = Text3.Text & "9"

End If

End Sub


Private Sub Form_Load() ‘SAAT FORM LOAD

tanda = 0

End Sub

Share by : Prof. JS (^_^)

My Lovely Father


May 11, 2010 at 4:45pm

Pa,10 mey'03 Hembusan angin pagi membawa kabar tak sedap
Menusuk telingaQ
Mengencangkan denyutan jantungQ,dan
Menggetarkan bibirQ

Ga mampu aq menangis, hanya berdiam
Memaksa diri tuk brpikir "ah...it ga mungkin___td dr rmh sehat bgt koq"
Orang-orang ini hanya ingin ngerjain aku
atau ini hanya mimpi
 
Tak lama kemudian suara ambulance yg menakutkan it terngiang d'telingaQ
aq benar2 berharap,papa akan kluar dr ambulance it dengan langkah yg biasa
senyum tulus yg slalu aq dapatkan
dan perintah untuk mengambilkan segelas teh hangat
 
Setelah diri'mu d'bawa k'dlm rumah dan d'baringkan
aq masih ttp tidak percaya bhw papaQ da tiada
aq masih memaksa diriQ brpikir".....papa hanya tidur,mungkin tadi dy kelelahan"
aq sungguh2 sgt brharap


Lama aq menunggu,berharap papa akan bangun dr tidur'y
tp saat itu tak kunjung tiba
aq mulai resah
banyak pertanyaan yg memenuhi pikiranQ
apa ini benar???
kenapa begitu lama papa tidur???
kenapa smua'y menangis???
benar,papa da ga mau balik lg???

saat itu,saat yg paling hancur yg pernah aku rasakan
sepanjang hidupQ
hidup seakan tdk brmakna lg,dan
ketakutan-ketakutan mulai berdatangan

Pa....da 7 tahun bapa ninggalin aq
tapi apa bapak tw bahwa sedetikpun aq ga pernah melupakan'mu???
setitikpun rasa cintaq tak pernah brkurang untuk'mu???
dan hari2Q slalu merindukan perintah2'mu
merindukan nasehat2'mu
merindukan candaan'mu
merindukan segala'y ttng diri'mu

mngambilkan slimut utk'mu adlh rutinitasQ tiap malam
mencet2 kuku'mu jg adalh tugasQ tiap hari
aq ingat klo bapa nyuruh aq bw kambing k'kandang
aq slalu merengut..lalu bapa bilang smbil nyanyi"ku tw yg Qmau...Qtw yg Qmau..."
maaf ya pa,klo dulu aq sering membantah n merengut
maaf ya papaQ sayang


pa.....diri'mu bener2 teladan yg sempurna bagiQ
aq sungguh sgt bersyukur Tuhan bri kesempatan tuk jd BORU HASIAN'mu
boru siampudan yang slalu bapak manja,tp sering jg bapak marahin

pa....sehebat apapun orang2 d'dunia ini
bapa ttp yang terhebat bagiQ
coz yu're my hero only....yu're my life insfiration
yu're the greatest man i ever know

walau tak lama, tp aku bener2 merasakan betapa bahagianya punya seorang bapa
aq bener2 merasakan masa2 indah bersama'mu
pa.....trimakasih ya da pernah mengisi hidupQ
makasih da m'briQ cinta yg bgt tulus
trimakasih bt smua yg prnh engkau beri utkQ

satupun hal buruk tak prnh aq ingat dr'mu
bapa bener2 sosok yg sempurna utkQ
i love you so much more than anything
kan Qbisikkan nada-nada cintaQ tuk papaQ syng melalui doa

kan Qceritakan ttg kebaikan papaQ syng pada cucu2'mu kelak
sehingga mrk bs m'jadikan oppung'y teladan
mrk bangga punya oppung sprti engkau
seperti ak bangga punya bapa sprt diri'mu

I LOVE YOU PAPAku SAYANG
I MISS YOU PAPAku SAYANG

special 4 my daddy..."Pdt.SM.Pandiangan"


Curhat by : Suryani Pandiangan