Sabtu, 16 April 2016

#CoretanKecil : Mutiara Yang Hilang





Berharap mentari cerah, tapi mendung menyelemuti langit, Berharap bintang yang jatuh malah hujan yang turun....

Seperti orang bodoh,
Kelihatan sekali seperti mengemis, tapi sebenarnya tidak aku hanya ingin membuktikan kepada dirimu bahwa yang dilakukan itu sebuah ketulusan, harusnya dirimu peka bukan diam saja apalagi menjauh bahkan mengabaikannya.

Aku lebih baik terlihat seakan-akan tidak membutuhkanmu tapi sebenarnya aku sangat membutuhkanmu, dari pada seperti orang lain terlihat seperti sangat membutuhkanmu tapi ternyata hanya ingin mempermainkan dan menipumu....

Dan aku lebih baik terlihat seperti tidak peduli padamu di depan banyak orang, tapi sebenarnya aku berjuang sendiri di belakangmu hanya untuk mendapatkanmu, meraih apa yang aku inginkan, dan menggenggam erat apa yang aku impikan, memang sebenarnya agak berlebihan jika kamu lihat ini dari sekilas waktu, memang butuh waktu, dan kamu akan sadar di waktu yang tepat, tinggal menunggu waktu, ini memang tentang waktu, dan semua akan indah pada waktunya..

Aku sudah bersikap baik, kamu tidak mengerti, memang terkadang yang baik tidak pernah dihargai dan terfikirkan, sedangkan yang buruk selalu di kenang, apakah aku harus berubah menjadi jahat, agar kamu sadar bahwa aku selalu berbuat baik untukmu,

Aku tidak akan lagi memohon agar kamu mempunyai perasaan yang sama untuk ku, karena itu tidak akan bermanfaat dan tidak akan merubahmu, karena yang bisa merubahnya adalah pola fikirmu sendiri, kamu terlalu keliru jika kamu sampai tidak mengerti..

Aku bagaikan berada suatu lingkaran yang dimana aku tidak bisa keluar darinya..

Dan setiap yang aku berikan, apapun yang aku lakukan, pasti akan ada kesalahan yang aku perbuat, namun akan ku jadikan pengalaman agar aku tak mengulanginya lagi, jika aku salah.. jangan pergi, perbaiki saja aku..

Aku tidak butuh pujian dan penghargaan, karena kemenangan yang aku inginkan hanyalah mendapatkanmu, itu saja..

Aku sudah sampai sejauh ini..

Jika kamu bersikap dingin, yang aku takutkan hanya satu, yaitu aku takut ada seseorang yang membuatmu senang dan nyaman, aku tidak ingin hal itu terjadi,




Aku sangat berharap kamu juga bergerak dan berusaha memberikan yang terbaik, tidak hanya aku yang selalu berjuang demi dirimu, aku sangat butuh penyemangat, yaitu dirimu..

Jika kamu berusaha berarti berarti kamu mencintai, dan jika kamu tidak peduli berarti kamu tidak mencintai, aku tidak mengerti apakah kamu tidak ingin mencintai atau tidak ingin dicintai, tapi yang terpenting aku pernah memberikan yang terbaik dan pernah berjuang hebat untukmu....

Semua juga butuh perhatian, tidak perlu yang lebih, kadang hal-hal kecil yang bisa membuat bahagia, semacam perhatian, cukup itu saja..

Berfikirlah..

Dan pada akhirnya semua yang di usahakan berakhir dengan dua hal, sesuai dengan harapan, atau tampak nyata walaupun sebenarnya jauh dari harapan..

     Lain lagi dengan cinta, dalam cinta hanya ada dua kesakitan, menyakiti atau tersakiti..

Cinta bukan sesuatu yang begitu saja akan datang pada kita, jika kamu menginginkannya, kamu harus meraihnya,


Kemenangan terbesar adalah mampu mengalahkan diri sendiri,

Tapi kamu satu-satunya wanita, yang membuatku mau untuk kalah....





Berfikirlah,  banyak makna di dalam ini..

Jumat, 08 April 2016

#CoretanKecil : Catatan Pendek Untuk Cinta Yang Panjang



          Dengan segala hal yang terjadi kita bisa belajar bagaimana cara merelakan sesuatu yang sangat kita sayangi,

Terkadang memang benar, cinta tidak harus memiliki, apalagi memaksa untuk memiliki, cinta tidak bisa dipaksakan...   dan kita akan mengerti, berjuang tidak harus ditampakkan, kita bisa berjuang demi seseorang dari belakang, dan itulah perjuangan sejati..

        Kadang orang yang kita perjuangkan tidak menyadari bahwa sesungguhnya ada yang berjuang di belakang dia, yaitu kita..

              Ada kalanya kita berhenti berjuang, karena yang kita perjuangkan tak pantas lagi untuk diperjuangkan, tapi ini bukanlah perjuangan sejati,^

              Jika memang kamu serius dengan suatu hal, maka janganlah kamu menyerah karena keadaan dan situasi, setiap hal apa saja pasti mengalami sedikit perubahan, tetapi kita bisa merubah sesuatu menjadi lebih baik lagi, jangan lelah....

Jangan menyerah jika engkau benar-benar mencintainya, Cinta yang baik mempunyai konflik yang susah untuk diatasi,

               Buatlah cinta menjadi cinta yang hakiki, setiap manusia memiliki rasa cinta, karena Tuhan memberi masing-masing hati untuk merasakan cinta, dan setiap cinta terselip nafsu, bedakanlah antara keduanya, karena antara keduanya bagaikan kertas yang tipis,^

Dan pada akhirnya.. yang diperjuangkan serta yang diharapkan, akan menjadi buah yang dapat dipetik, ada bunga yang bisa di tuai, dan kebahagiaan yang tercipta, menjadikan hidupmu lebih bermakna..

                Inilah kisahmu, satu kisah untuk cinta yang panjang..

Minggu, 27 Maret 2016

#CoretanKecil : Tidak Ada Hal Yang Pasti



Tidak ada hal yang pasti dalam hidup ini, sesuatu yang menurut kita selalu ada, bisa saja pergi meninggalkan kita, jangan pernah menganggap hati orang lain itu mudah ditebak, setiap hati berbeda-beda, tidak bisa dipaksakan, apa yang mereka rasakan, tidak bisa kita tahan, dan apa yang mereka inginkan, tidak bisa kita hentikan, tapi tidak hanya sebatas itu, tidak seburuk itu, semua yang terjadi saat ini dan yang akan mendatang bukan hanya seperti air yang mengalir, bahkan air yang mengalir pun, daun yang jatuh dari tangkainya, hujan yang tidak terbendung lagi, semuanya sudah diatur dan Tuhan mengetahui, masihkah kau ingin bersedih dan menganggap tidak ada yang bisa membantumu ? jalani saja sebaik mungkin prosesmu, hingga kau akan mengambil hasilnya, mustahil tidak ada timbal balik atas usahamu, tidak ada yang sia-sia, dan jangan lupa berdoa disetiap hembus nafasmu, bukankah Tuhan telah berjanji akan membalas sesuatu apa pun meskipun sekecil biji zarrah, lupakah kamu ? Tuhan tidak akan membebani seseorang melebihi batas kemampuannya
Ingat lagi..

pikirkan lagi..

Rabu, 23 Maret 2016

#CoretanKecil : Dibalik kesulitan ada kemudahan, Allah sayang kepadamu !


           Ada kala manusia mengalami fase masa-masa sulit, masalah yang bertubi-tubi dan datang silih berganti, memang itulah bagian dari perjalanan hidup, kehidupan tidak mungkin selalu indah dan mulus, karena jika di dalam kehidupan tidak terdapat ujian-ujian dan masalah, maka manusia akan menjadi manusia bodoh dan lemah, karena sejatinya ujian itu menguatkan dan memberi pelajaran,

           Seperti hadist di atas, menurut saya ini adalah hadist yang sangat indah, disusun dengan rangkaian kata-kata yang dapat melegakan jiwa. Dan tidak hanya itu, terdapat makna di dalam setiap baris kata itu.

           Memang benar, takdir tidak dapat dirubah, karena takdir kita masing-masing sudah tertulis dalam lembaran-lembaran. Tapi sebenarnya takdir dapat dirubah dengan satu-satunya cara, yaitu doa, Doa adalah senjata paling ampuh bagi umat muslim, tidak ada takdir yang dapat dirubah kecuali dengan doa, maka dari itu berdoalah semampumu, dan jangan pernah lupakan Tuhan mu. Semoga Allah mengabulkan doamu, baik yang tersampaikan oleh lisan maupun yang tersimpan dalam hati.

            Dalam dalam hidup terkadang butuh proses untuk memahami kehidupan, dan kita tidak pernah sendiri dalam menjalani hidup, jangan pernah menganggap kamu sukses karena hasil jerih payahmu sendiri, dan sebaliknya, disaat kamu sedang terpuruk, jangan menganggap tidak ada yang bisa membantumu, ingatlah selalu ada peran Tuhan di setiap apapun yang kau hadapi.

            Dan jika kamu sedang terpuruk, banyak masalah yang sedang kau hadapi, beban dan tekanan dalam kehidupan, janganlah merasa kamu tidak sanggup menghadapinya, jadilah pribadi sejati, hadapilah satu persatu dengan cara yang menurutmu dapat membuat semuanya menjadi lebih baik. Selalu berusaha dan jangan lupa selalu berdoa.

             Tujuan saya membuat tulisan ini, semata-mata ingin mengungkapkan perasaan saya, meluapkan rasa sedih yang saya hadapi, agar bisa melegakan dan memotivasi diri saya sendiri. Karena saat ini saya sedang mengalami masalah yang sullit dan berat, menjadi beban dihati dan menghancurkan fikiran, tapi kembali lagi dengan hadist di atas, saya percaya dan yakin dengan hadist di atas, dimana kemenangan bersama kesabaran. kelapangan bersama kesempitan, dan di dalam kesulitan ada kemudahan, dan saya menunggu dan menginginkan kemudahan itu, pasti ada pembelajaran di balik kesulitan, dan  pasti ada hikmah di setiap kesulitan.

           Terlebih lagi, kesulitan, perjuangan, pengorbanan yang terkuras, dan ketulusan dan kasih sayang, akan kamu petik di waktu yang tepat, pada saat yang tepat, dan disaat kamu sudah mencapai puncak.

          Jangan pernah lupakan Tuhannmu..







#CoretanKecil

Jumat, 18 Maret 2016

#CoretanKecil : Make your words be a source of inspiration


               Seseorang yang telah membuatmu mati rasa dengan orang lain, yang mampu menghapus air mata dengan kelembutan jemarinya, yang seakan tak akan meninggalkanmu walaupun hanya sesaat, yang tak kan pergi walau hanya sebentar. Yang tak kan pernah ada rasa kecewa jika di dalam hati tertanam kesetiaan, karena sebuah kesetiaan yang mampu menjaga perasaan, yang mampu melawan derasnya angin dan akan bertahan meski kuatnya gelombang. Untuk itu, jangan buang waktumu, jangan biarkan semua hal itu hanya berlalu, buatlah kesan dalam dirimu..

Selamat sore dan selamat beristirahat :)

Rabu, 16 Maret 2016

#CoretanKecil : "Buah Jatuh Tidak Jauh Dari Pohonnya"


                  Banyak orang beranggapan “Buah jatuh tidak akan jauh dari  pohonnya”. Sedikit banyak memang pernyataan itu  yang benar, tapi tidakkah orang berpikir bahwa buah yang jatuh tidak akan jauh dari pohonnya, setidaknya dia sudah berlepas diri dari pohon itu. Artinya, prilaku orangtua tidak akan jauh dari prilaku anaknya. Sebaliknya, sifat seorang anak mencerminkan sifat orangtuanya...

                   Tapi, setidaknya buah itu sudah berlepas diri dari pohon tersebut. Artinya kita bisa membedakan yang benar dan yang salah, kita bisa memilih mana yang baik dan mana yang buruk, memang benar sifat orangtua akan mengalir kedalam jiwa kita meskipun itu baik ataupun buruk. Jika itu baik, kita bisa mengembangkannya menjadi lebih baik lagi. Dan jika itu buruk, kita bisa sedikit demi sedikit menguranginya.

                   Di sisi lain, tak bisa dipungkiri, tak sedikit yang terjadi di dalam kehidupan semisalnya orangtuanya seorang ustad, tapi anaknya berprilaku buruk, tidak mencerminkan kehidupan orangtuanya. Dan ada juga orangtuanya bejat tapi anaknya menjadi seorang ustad.


                   Jadi,  untuk itu jangan merasa kecil hati dan rendah diri jika orangtua kita buruk... karena kita bisa merubah menjadi lebih baik, banyak proses yang akan terjadi yang  akan dilalui, sehingga merubah semuanya menjadi lebih baik....

Selasa, 08 Maret 2016

#Coretan Kecil





            Banyak hal yang terjadi dalam hidupmu, akan banyak pengalaman yang akan kamu lalui, seiring berjalannya usia, pengalaman menjadi proses pendewasaan, apapun yang akan terjadi, jadilah pribadi tangguh yang tak akan kalah dengan keadaan, percayalah Tuhan tidak akan membebani seseorang melebihi batas kemampuannya.
Jika kamu menginginkan sebuah kenyamanan, maka janganlah ingat sesuatu yang membuatmu ragu, jalani apa saja prosesnya, tetaplah menjadi yang terbaik, terlebih jika kamu mencintai seseorang, jangan berharap kepada seseorang itu, karena kamu akan mendapatkan kesedihan dan pengkhianatan, maka berharaplah kepada Tuhanmu, karena Dia akan mencemburui hati yang bukan berharap kepada-Nya.
Terlebih lagi, untuk merasakan kebahagiaan tidak selalu lurus dan mulus karena akan menimbulkan kebosanan, terkadang perlu sedikit ujian untuk menambah rasa kasih sayang , jangan menjadi bodoh karena sedikit ujian yang diberikan, merasa seakan-akan tidak sanggup lagi dengan beban yang ada, merasa tersiksa dengan tekanan dalam keadaan.
           Tetaplah kuat, jangan menyerah, karena kamu adalah yang terbaik, Tuhan tidak akan mempertemukan kecuali terdapat sebuah alasan, hidup terdiri atas pertemuan dan perpisahan, dan diantaranya melibatkan perasaan.
           Lakukan yang terbaik selagi dia masih bersamamu, mungkin dia adalah persinggahan terakhirmu, berikan yang terbaik untuknya, mungkin dia adalah yang terbaik untukmu....




Jumat, 26 Februari 2016

The Power Of Loyalty





Apalah arti sebuah kesetiaan jika tidak ada pengorbanan, kesetiaan bukan di ukur seberapa jauh kamu melangkah, tapi kesetian di ukur dari seberapa lama kamu mampu bertahan
Dan terlebih lagi kesetiaan tidak dapat dilihat di awal pertemuan, tapi ukuran kesetiaan dapat di lihat pada akhir pertemuan, sampai dimana pengorbanan, perjuangan dan penantian sampai pada titik puncak, maka manisnya buah dari kesetiaan baru akan terasa, dan inilah kesetiaan yang sejati
                Dan yang paling terpenting, kesetiaan yang paling utama adalah kesetiaan atas agama, jika kita mampu menjaga agama kita, maka terlebih lagi kita akan mampu menjaga kesetiaan kepada hal-hal yang lain
                Apapun jenis kesetiaan yang akan kau lakukan, akan ada saja ujian yang mengukur sebatas mana kesetiaanmu, inilah titik dimana penyeleksian alam terjadi, siapa yang belum yakin terhadap kesetiaannya maka secara perlahan dia akan mundur, tetapi siapa yang benar-benar setia akan apa yang ia tujukan, maka dia akan mampu melewatinya, dan dia akan memasuki tahap selanjutnya dalam tahapan yang lebih tinggi
                Maka dari itu, teguhkanlah pendirianmu, jadilah pribadi yang berkomitmen tinggi, jangan terlalu mudah menyerah atas ujian yang kau hadapi, hingga kelak akan dapat merasakan kebahagiaan sejati yang kau inginkan....











Romi Riadi
Politeknik Sekayu

Kamis, 18 Februari 2016

Arti Sebuah Harapan


MOTIVATION


Saya mempunyai pengalaman yang sangat mengesankan dan mendapati pelajaran dari pengalaman tersebut, yaitu saya sangat menyukai seorang wanita, inilah yang mengajarkan saya suatu makna dibalik suatu usaha dan sebuah harapan, jangan menilai karena saya menyukai atau mencintai wanita tersebut, tapi lihatlah dan ambil pelajaran bagaimana proses usaha dan harapan yang kuat akan menghasilkan suatu keberhasilan, dan tidak dipungkiri bahwa peran Tuhan juga akan membantu setiap orang yang berusaha dan berharap sehingga mendapatkan apa yang kita inginkan.
Pada awalnya saya sangat jatuh hati pada seorang wanita yang sangat cantik wajah dan akhlaknya, dari awal melihat matanya saya sudah merasakan bahwa dia berbeda dari yang lainnya, tapi disisi lain saya tidak berani mendekatinya dan mengungkapkan perasaan yang saya miliki, karena saya tidak berani dan takut jika wanita tersebut tidak akan memberikan respon positif kepada saya, maka dari itu saya hanya berfikir sudahlah saya tidak akan mendapatkan dia, biarkan rasa ini saya simpan dan tidak akan semua orang tahu bahkan wanita itu sekalipun.
Tapi lama kemudian saya terpikir, bahwa saya tidak akan tahu apa yang akan terjadi jika saya tidak mencoba mengenalinya terlebih dahulu, maka dari itu saya dengan rasa tidak yakin saya mencoba mendekatinya, pada saat itu saya mencoba berkenalan padanya via bbm, dan apa yang terjadi, apa yang saya pikirkan benar-benar jadi kenyataan bahwa dia tidak akan memberikan respon yang baik, dia begitu cuek dan seakan-akan tidak ingin mengenali saya.
Tapi saya tidak berhenti begitu saja, malah saya benar-benar tertantang dan bahkan rasa ini semakin lama semakin besar, saya tidak berhenti mendoakan kebaikan untuk dia dan berharap agar dia memiliki perasaan yang sama kepada saya, serta berharap kepada Tuhan agar Tuhan memberikan jalan terhadap apa yang saya inginkan.
Kemudian dengan usaha yang besar, tekad yang keras dan harapan yang kuat, saya memberanikan diri lagi dan terus berusaha untuk mendekatinya, tanpa saya fikirkan sebelumnya, semua seakan-akan berjalan dengan sendirinya, begitu selaras dengan apa yang saya harapkan, dan kini kami semakin dekat dan bahkan kami membuat komitmen yang tidak akan kami lupakan, dan sekarang dia sudah membuka hatinya untuk ku, dan saya tidak akan menyia-nyiakan apa yang saya benar-benar harapkan, saya akan menjaganya, karena saya sadar bahwa pengorbanan dan usaha saya terhadap dia tidaklah mudah dan banyak sekali ujian yang saya hadapi, tapi inilah akhir saya rasakan atas usaha dan harapan saya, semua menjadi kenyataan.
Padahal sebelumnya tidak terfikirkan oleh saya, tapi jika seandainya saya takut mencoba dan berusaha, saya tidak akan mendapatkan apa yang saya inginkan, semua ini mengajarkan saya bahwa meskipun semua orang terkadang mengatakan bahwa harapan tidak akan sesuai dengan kenyataan, tapi mereka tidak pernah melihat dari sisi lain bahwa sebuah harapan yang besar, tekad yang kuat, usaha dan doa, apa yang tidak mungkin akan berubah menjadi apa yang diharapkan, dan peran Tuhan akan membantu  terhadap apa yang kita inginkan
Memang terkadang ujian disaat kita berusaha akan selalu datang diatas tekad kita, tapi itulah yang menguji kita apakah kita benar-benar sanggup dan serius atas tujuan yang kita inginkan

Jangan pernah takut mencoba jika kita ingin menggapai sesuatu, karena kegagalan sejati adalah karena kita tidak pernah mencoba. 


Romi Riadi
Polsky

Selasa, 26 Januari 2016

Membuat Kalkulator sederhana dengan menggunakan Visual Basic 2010


Algoritma dan Pemrograman


Berikut saya berikan contoh project membuat kalkulator sederhana dengan menggunakan Visual Basic 2010

Dengan tampilan form seperti gambar di bawah :


'Coding

Public Class Form1
    Dim bil1, bil2, hasil As Double
    Dim r As String
    Private Sub bTiga_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTiga.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "3"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "3"

        End If
    End Sub

    Private Sub bNol_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNol.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "0"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "0"

        End If
    End Sub

    Private Sub bSatu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSatu.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "1"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "1"

        End If
    End Sub

    Private Sub bDua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bDua.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "2"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "2"

        End If
    End Sub

    Private Sub bEmpat_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bEmpat.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "4"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "4"

        End If
    End Sub


    Private Sub bLima_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLima.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "5"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "5"

        End If
    End Sub

    Private Sub bEnam_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bEnam.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "6"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "6"

        End If
    End Sub

    Private Sub bTujuh_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTujuh.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "7"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "7"

        End If
    End Sub

    Private Sub bDelapan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bDelapan.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "8"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "8"

        End If
    End Sub

    Private Sub bSembilan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSembilan.Click
        If Me.txtTampil.Text = "0" Then
            Me.txtTampil.Text = "9"
        Else : Me.txtTampil.Text = Me.txtTampil.Text & "9"

        End If
    End Sub

    Private Sub bKoma_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bKoma.Click
        If Me.txtTampil.Text = "." Then
            Me.txtTampil.Text = ","
        Else : Me.txtTampil.Text = Me.txtTampil.Text & ","

        End If
    End Sub

    Private Sub bNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNew.Click
        Me.txtTampil.Clear()
    End Sub

    Private Sub bPlus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPlus.Click
        bil1 = Val(Me.txtTampil.Text)
        r = "+"
        txtTampil.Text = ""
    End Sub

    Private Sub bOff_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bOff.Click
        Me.Close()
    End Sub

    Private Sub bMinus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bMinus.Click
        bil1 = Val(Me.txtTampil.Text)
        r = "-"
        txtTampil.Text = ""
    End Sub


    Private Sub bPlusMin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPlusMin.Click
        Me.txtTampil.Text = "-" & Val(Me.txtTampil.Text)
    End Sub

    Private Sub bSamaDengan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSamaDengan.Click
        If r = "+" Then
            hasil = bil1 + Val(txtTampil.Text)
            txtTampil.Text = hasil
        ElseIf r = "-" Then
            hasil = bil1 - Val(txtTampil.Text)
            txtTampil.Text = hasil
        ElseIf r = "*" Then
            hasil = bil1 * Val(txtTampil.Text)
            txtTampil.Text = hasil
        ElseIf r = "/" Then
        hasil = bil1 / Val(txtTampil.Text)
            txtTampil.Text = hasil
        End If
    End Sub

    Private Sub bHapusSebagian_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bHapusSebagian.Click
        If txtTampil.Text.Length <> 0 Then
            txtTampil.Text = txtTampil.Text.Remove(txtTampil.TextLength - 1, 1)
        End If
    End Sub

    Private Sub bBagi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bBagi.Click
        bil1 = Val(Me.txtTampil.Text)
        r = "/"
        txtTampil.Text = ""
    End Sub

    Private Sub bKali_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bKali.Click
        bil1 = Val(Me.txtTampil.Text)
        r = "*"
        txtTampil.Text = ""
    End Sub

    Private Sub bC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bC.Click
        If txtTampil.Text.Length <> 0 Then
            txtTampil.Text = txtTampil.Text.Remove(txtTampil.TextLength - 1, 1)
        End If
    End Sub
End Class


Semoga Bermanfaat

Se

Contoh Program Visual Basic 2010 : Menu Utama

Visual Basic 2010



Nah, sebelumnya saya sudah mempostingkan contoh-contoh program menggunakan Visual Basic 2010, sekarang bagaimana caranya agar dapat mempermudah kita membuka program tanpa harus membukanya satu-satu, yaitu kita buat form menu utama dimana isi dari form ini mencakup keseluruhan dari program-program yang telah kita masukkan.

'Menu Utama

       'Tampilan Form



'Coding

Public Class Utama

    Private Sub bLat4_Click(ByVal sender As ObjectByVal e As System.EventArgsHandles bLat4.Click
        Me.Enabled = False
        Latihan4.Show()
    End Sub

    Private Sub bLat5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat5.Click
        Me.Enabled = False
        Latihan_5.Show()
    End Sub

    Private Sub bLat6_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat6.Click
        Me.Enabled = False
        Latihan_6.Show()
    End Sub

    Private Sub bLat7_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat7.Click
        Me.Enabled = False
        Latihan_7.Show()
    End Sub

    Private Sub bLat8_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat8.Click
        Me.Enabled = False
        Latihan_8.Show()
    End Sub

    Private Sub bLat9_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat9.Click
        Me.Enabled = False
        Latihan_9.Show()
    End Sub

    Private Sub bLat10_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat10.Click
        Me.Enabled = False
        frmLat_10.Show()

    End Sub

    Private Sub bLat11_Click(ByVal sender As ObjectByVal e As System.EventArgsHandles bLat11.Click
        Me.Enabled = False
        frmLat_11.Show()
    End Sub

    Private Sub bLat12_Click(ByVal sender As ObjectByVal e As System.EventArgsHandles bLat12.Click
        Me.Enabled = False
        frmLat_12.Show()
    End Sub

    Private Sub bLat13_Click(ByVal sender As ObjectByVal e As System.EventArgsHandles bLat13.Click
        Me.Enabled = False
        frmLat_13.Show()
    End Sub

    Private Sub bLat14_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat14.Click
        Me.Enabled = False
        frmLat_14.Show()
    End Sub

    Private Sub bLat15_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat15.Clickf
        Me.Enabled = Falseff
        frmlat_15.Show()
    End Sub

    Private Sub bLat16_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat16.Click
        Me.Enabled = False
        frmLat_16.Show()
    End Sub

    Private Sub bLat17_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bLat17.Click
        Me.Enabled = False
        frmLat_17.Show()
    End Sub
End Class



Demikianlah contoh beberapa program menggunakan Visual Basuc 2010 yang dapat saya berikan, semoga dapat menambah ilmu dan wawasan kita mengenai Visual Basic 2010, semoga bermanfaat..
Wassalam




Romi Riadi


Politeknik Sekayu

Contoh Program Visual Basic 2010 : Latihan 17

'Latihan 17 (Program Matriks)


               'Tampilan Form


'Coding

Public Class frmLat_17
    Dim matrixA(20, 20), matrixB(20, 20), barisA, kolomA, barisB, kolomB As Integer
    Dim hasilmatrixA, hasilmatrixB, hasilMatrix As String

    'Proses input matrixA
    Sub input_matrixA()
        Dim b, k As Integer
        barisA = Val(Me.txtBarisA.Text)
        kolomA = Val(Me.txtKolomA.Text)

        For b = 0 To barisA - 1
            For k = 0 To kolomA - 1
                matrixA(b, k) = InputBox("Masukkan nilai Matriks A untuk posisi" & b + 1 & " x " & k & " : ")
            Next
        Next
    End Sub

    'Proses input matriks B
    Sub input_matrixB()
        Dim b, k As Integer
        barisB = Val(Me.txtBarisB.Text)
        kolomB = Val(Me.txtKolomB.Text)

        For b = 0 To barisB - 1
            For k = 0 To kolomB - 1
                matrixB(b, k) = InputBox("Masukkan nilai Matriks B untuk posisi" & b + 1 & " x " & k & " : ")
            Next
        Next
    End Sub

    Sub cetak_matrixA()
        Dim b, k As Integer
        For b = 0 To barisA - 1
            For k = 0 To kolomA - 1
                hasilmatrixA = hasilmatrixA & matrixA(b, k) & " "
            Next
            hasilmatrixA = hasilmatrixA & Chr(13)
        Next
        Me.lbMatriksA.Text = hasilmatrixA.ToString
    End Sub

    Sub cetak_matrixB()
        Dim b, k As Integer
        For b = 0 To barisB - 1
            For k = 0 To kolomB - 1
                hasilmatrixB = hasilmatrixB & matrixB(b, k) & " "
            Next
            hasilmatrixB = hasilmatrixB & Chr(13)
        Next
        Me.lbMatriksB.Text = hasilmatrixB.ToString
    End Sub

    Private Sub frmLat_17_FormClosed(ByVal sender As ObjectByVal e As System.Windows.Forms.FormClosedEventArgsHandles Me.FormClosed
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub frmLat_17_FormClosing(ByVal sender As ObjectByVal e As System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing
        Utama.Enabled = True
        Utama.Show()
        Me.Hide()
    End Sub

    Private Sub bProses_Click(ByVal sender As ObjectByVal e As System.EventArgsHandles bProses.Click
        Call input_matrixA()
        Call input_matrixB()
        Call cetak_matrixA()
        Call cetak_matrixB()
        Call kali_matrixAB()
        'Call cetak_matrix()
    End Sub
    Sub kali_matrixAB()
        Dim bA, kA, bB, kB As Integer
        barisA = Val(Me.txtBarisA.Text)
        kolomA = Val(Me.txtKolomA.Text)
        barisB = Val(Me.txtBarisB.Text)
        kolomB = Val(Me.txtKolomB.Text)

        'Matrix A
        For bA = 0 To barisA - 1
            For kA = 0 To kolomA - 1
                'Matrix B
                For bB = 0 To barisB - 1
                    For kB = 0 To kolomB - 1
                        hasilMatrix = hasilMatrix + matrixA(bA, kA) * matrixB(bB, kB)
                    Next
                Next
                '--
                hasilMatrix = hasilMatrix & "  "
            Next
            hasilMatrix = hasilMatrix & Chr(13)
        Next
        '--
        Me.lbHasilMatriks.Text = hasilMatrix.ToString
    End Sub



End Class