Antara Janji dan Doa

Aku gak tahu rasa ini berawal dari kapan, tapi kalau tidak salah rasa itu mulai tiba ketika ku mulai sering bertemu dan berbincang dengannya.
Sebenarnya dan sejujurnya aku sangat menghindari memiliki "rasa" dengan teman 1 KTB, tapi gak tau kenapa kali ini aku menelan perkataanku sendiri.
Aku mulai memiliki perasaan "aneh" semenjak sering makan dikost dan sering berangkat bareng ke pertemuan kepanitiaan. Aku berdoa supaya Tuhan membuang perasaan aneh itu karena itu adalah bagian dari doaku sendiri pada awalnya, tapi tetap saja dia singgah selalu di pikiranku.
Aku bingung dan aku berpikir keras bagaimana caranya untuk menghentikan perasaan aneh ini.
Akhirnya kuputuskan, aku pergi keluar ketika tiba waktu pria ini makan siang atau malam dikost untuk menghindari kedekatan kami, tapi itu tidak berlangsung lama.

Sampai pada akhirnya, aku mencoba untuk mendoakannya. Bertanya pada Tuhan apa maksud dari perasaan aneh ini sedangkan aku sudah pernah berjanji untuk tidak "jatuh hati" pada teman 1 KTB karena takut akan menjadi salah motivasi. Sembari aku mendoakannya, aku juga mulai memperhatikannya dan mengajukan pertanyaan-pertanyaan kecil untuk bisa lebih mengenal dia, dan gak tau kenapa secara otomatis aku jd lebih perhatian sama dia. Terkadang aku menyadarinya dan mencoba tuk menyamarkannya dengan memberikan perhatian juga dengan teman-teman 1 KTB ku yang lain.
Aku tidak tau apa dia juga menyadari hal itu atau justru biasa saja, karena pria memang pada umumnya terbiasa dengan perhatian para kaum hawa.

Sampai hari ini, aku masih memikirkan hal itu...
Ingin rasanya hati ini mengatakan padanya "Apakah belakangan ini kau ada merasakan sedang didoakan oleh seseorang?" (dalam hati : itu aku)
Tapi apa daya....tidak mungkin aku mengatakannya, sedangkan aku juga masih meragukannya walaupun sudah mendoakannya sekian lama.
Aku memang berdoa agar Tuhan semakin mendekatkan kami jika memang dia lah orang yang dipilihNya untukku.
Kami memang semakin dekat, aku pun merasakan ada sedikit perhatian-perhatian kecil darinya yang menurutku tidak biasa.
Tapi aku di cut oleh pikiranku, mungkin dia juga berbuat seperti itu dengan teman wanitanya yang lain atau juga mungkin memang karena aku adalah sahabat KTB nya yang memang wajar untuk diberi perhatian seperti itu. Yahh...yang pasti hanya sekedar perhatian sbg temen atau sahabat, TIDAK LEBIH!!

Apa yang harus kulakukan kalau sudah begini?
Aku mohon Tuhan berikan aku kepekaan akan rasa ini.
Tapi aku tak tau sampai saat ini aku masih mendoakannya memang tapi tetap keraguan itu masih ada.

Hanya bisa Berharap Tuhan memberikan kejelasan dan penerangan akan Doa TH dan keraguanku pada LCG... --------tapi sampai kapan ya?

(Ditulis 1 hari setelah evaluasi KTB di rumah PKK pukul 08.00am)

Crush | David Archuleta

I hung up the phone tonight

Aku menutup telepon malam ini

Something happened for the first time

Sesuatu terjadi untuk pertama kalinya

Deep inside

Jauh di dalam

It was a rush

Itu adalah kekacauan

What a rush

Benar-benar kacau

'Cause the possibility

Karena kemungkinan

That you would ever feel the same way

Bahwa kau akan pernah merasakan hal yang sama

About me

Tentangku

It's just too much

Hanya saja (aku berharap) terlalu banyak

Just too much

(aku berharap) terlalu banyak

Why do I keep running from the truth?

Mengapa aku tetap lari dari kebenaran?

All I ever think about is you

Semua yang aku pikirkan adalah dirimu

You got me hypnotized

Kau membuatku terhipnoti

So mesmerized

Jadi terpesona

And I've just got to know

Dan aku hanya harus tahu 

[Chorus:]

Do you ever think

Apakah kau pernah berpikir

When you're all alone

Saat kau sendirian

All that we could be?

Kita akan bisa jadi apa saja?

Where this thing could go?

Kemana hal ini akan menuju?

Am I crazy or falling in love?

Apakah aku gila atau jatuh cinta?

Is it real or just another crush?

Apakah itu nyata atau hanya sebuah ketertarikan?

Do you catch a breath

Apakah kau bernafas panjang

When I look at you?

Ketika aku melihatmu?

Are you holding back

Apakah kau menahan

Like the way I do?

Seperti yang aku lakukan?

'Cause I'm trying, trying to walk away

Karena aku sedang mencoba, mencoba untuk pergi

But I know this crush ain't going

Tapi aku tahu ketertarikan ini tidak akan hilang

Away

Jauh

Going away

Akan pergi

Has it ever crossed your mind

Pernahkah terlintas dalam pikiranmu

When we're hanging,

Ketika kita bersama,

Spending time, girl, are we just friends?

Menghabiskan waktu, gadis, apakah kita hanya teman? 

Is there more?

Apakah ada lagi?

Is there more? (Is there more)

Apakah ada lagi? (Apakah ada lebih) 

See it's a chance we've gotta take

Lihat, ini adalah kesempatan yang harus kita ambil

'Cause I believe that we can make this

Karena aku percaya bahwa kita dapat membuat ini

Into something that'll last

Menjadi sesuatu yang akan bertahan

Last forever

Berlangsung selamanya

Forever

Selama-lamanya

Do you ever think

Apakah kau pernah berpikir

When you're all alone

Saat kau sendirian

All that we could be?

Kita akan bisa jadi apa saja?

Where this thing could go?

Kemana hal ini akan menuju?

Am I crazy or falling in love?

Apakah aku gila atau jatuh cinta?

Is it real or just another crush?

Apakah itu nyata atau hanya sebuah ketertarikan?

Do you catch a breath

Apakah kau bernafas panjang

When I look at you?

Ketika aku melihatmu?

Are you holding back

Apakah kau menahan

Like the way I do?

Seperti yang aku lakukan?

'Cause I'm trying, trying to walk away

Karena aku sedang mencoba, mencoba untuk pergi

But I know this crush ain't going

Tapi aku tahu ketertarikan ini tidak akan hilang

Away

Jauh

Going away

Akan pergi

Why do I keep running from the truth?

Mengapa aku tetap lari dari kebenaran?

Why do I keep running from the truth?

Mengapa aku tetap lari dari kebenaran?

All I ever think about is you

Semua yang aku pikirkan adalah dirimu

You got me hypnotized

Kau membuatku terhipnoti

So mesmerized

Jadi terpesona

And I've just got to know

Dan aku hanya harus tahu 

Back to [Chorus]

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,,

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

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 (^_^)