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