buble

Minggu, 29 April 2012

Konsep Pemrograman Object Oriented Programming (OOP).


Pemrograman berorientasi objek/object-oriented programming (OOP) merupakan paradigma pemrograman yang berorientasikan kepada objek. Semua data dan fungsi di dalam paradigma ini dibungkus dalam kelas-kelas atau objek-objek. Bandingkan dengan logika pemrograman terstruktur. Setiap objek dapat menerima pesan, memproses data, dan mengirim pesan ke objek lainnya,
Model data berorientasi objek dikatakan dapat memberi fleksibilitas yang lebih, kemudahan mengubah program, dan digunakan luas dalam teknik piranti lunak skala besar. Lebih jauh lagi, pendukung OOP mengklaim bahwa OOP lebih mudah dipelajari bagi pemula dibanding dengan pendekatan sebelumnya, dan pendekatan OOP lebih mudah dikembangkan dan dirawat.
== Konsep dasar dari Pemrograman Berorientasi Objek Pemrograman orientasi-objek menekankan konsep berikut:
  • Kelas — kumpulan atas definisi data dan fungsi-fungsi dalam suatu unit untuk suatu tujuan tertentu. Sebagai contoh 'class of dog' adalah suatu unit yang terdiri atas definisi-definisi data dan fungsi-fungsi yang menunjuk pada berbagai macam perilaku/turunan dari anjing. Sebuah class adalah dasar dari modularitas dan struktur dalam pemrograman berorientasi object. Sebuah class secara tipikal sebaiknya dapat dikenali oleh seorang non-programmer sekalipun terkait dengan domain permasalahan yang ada, dan kode yang terdapat dalam sebuah class sebaiknya (relatif) bersifat mandiri dan independen (sebagaimana kode tersebut digunakan jika tidak menggunakan OOP). Dengan modularitas, struktur dari sebuah program akan terkait dengan aspek-aspek dalam masalah yang akan diselesaikan melalui program tersebut. Cara seperti ini akan menyederhanakan pemetaan dari masalah ke sebuah program ataupun sebaliknya.
  • Abstraksi - Kemampuan sebuah program untuk melewati aspek informasi yang diproses olehnya, yaitu kemampuan untuk memfokus pada inti. Setiap objek dalam sistem melayani sebagai model dari "pelaku" abstrak yang dapat melakukan kerja, laporan dan perubahan keadaannya, dan berkomunikasi dengan objek lainnya dalam sistem, tanpa mengungkapkan bagaimana kelebihan ini diterapkan. Proses, fungsi atau metode dapat juga dibuat abstrak, dan beberapa teknik digunakan untuk mengembangkan sebuah pengabstrakan.
  • Enkapsulasi - Memastikan pengguna sebuah objek tidak dapat mengganti keadaan dalam dari sebuah objek dengan cara yang tidak layak; hanya metode dalam objek tersebut yang diberi izin untuk mengakses keadaannya. Setiap objek mengakses interface yang menyebutkan bagaimana objek lainnya dapat berinteraksi dengannya. Objek lainnya tidak akan mengetahui dan tergantung kepada representasi dalam objek tersebut.
  • Polimorfisme melalui pengiriman pesan. Tidak bergantung kepada pemanggilan subrutin, bahasa orientasi objek dapat mengirim pesan; metode tertentu yang berhubungan dengan sebuah pengiriman pesan tergantung kepada objek tertentu di mana pesa tersebut dikirim. Contohnya, bila sebuah burung menerima pesan "gerak cepat", dia akan menggerakan sayapnya dan terbang. Bila seekor singa menerima pesan yang sama, dia akan menggerakkan kakinya dan berlari. Keduanya menjawab sebuah pesan yang sama, namun yang sesuai dengan kemampuan hewan tersebut. Ini disebut polimorfisme karena sebuah variabel tungal dalam program dapat memegang berbagai jenis objek yang berbeda selagi program berjalan, dan teks program yang sama dapat memanggil beberapa metode yang berbeda di saat yang berbeda dalam pemanggilan yang sama. Hal ini berlawanan dengan bahasa fungsional yang mencapai polimorfisme melalui penggunaan fungsi kelas-pertama.
  • Dengan menggunakan OOP maka dalam melakukan pemecahan suatu masalah kita tidak melihat bagaimana cara menyelesaikan suatu masalah tersebut (terstruktur) tetapi objek-objek apa yang dapat melakukan pemecahan masalah tersebut. Sebagai contoh anggap kita memiliki sebuah departemen yang memiliki manager, sekretaris, petugas administrasi data dan lainnya. Misal manager tersebut ingin memperoleh data dari bag administrasi maka manager tersebut tidak harus mengambilnya langsung tetapi dapat menyuruh petugas bag administrasi untuk mengambilnya. Pada kasus tersebut seorang manager tidak harus mengetahui bagaimana cara mengambil data tersebut tetapi manager bisa mendapatkan data tersebut melalui objek petugas adminiistrasi. Jadi untuk menyelesaikan suatu masalah dengan kolaborasi antar objek-objek yang ada karena setiap objek memiliki deskripsi tugasnya sendiri.












Berikut contoh program sederhana menggunakan konsep OOP


Program ini adalah program untuk mengetahui nilai akhir

Cara penggunakan program ini sangat mudah,hanya tinggal memasukkan nilai
Setelah semua nilai dimasukkan klik tombol Hitung
Jika selesai klik tombol Keluar dan pilih Yes untuk keluar program 
 















Source code

Class :
Public Class CariNilai
    Private bil1_private, bil2_private, bil3_private, bil4_private As Integer
    Public Function NilaiAkhir(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer, ByVal bil4 As Integer) As String
        NilaiAkhir = bil1 * 10 / 100 + bil2 * 15 / 100 + bil3 * 35 / 100 + bil4 * 40 / 100
    End Function
    Public Sub DoPesan()
        Dim a As Integer
        a = MsgBox("Sudah Selesai", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Konfirmasi Dulu")
        If a = vbYes Then
            End
        End If
    End Sub
    Public Property bil1() As String
        Get
            bil1 = bil1_private

        End Get
        Set(ByVal value As String)
            bil1_private = value

        End Set
    End Property
    Public Property bil2() As String
        Get
            bil2 = bil2_private

        End Get
        Set(ByVal value As String)
            bil2_private = value

        End Set
    End Property
    Public Property bil3() As String
        Get
            bil3 = bil3_private

        End Get
        Set(ByVal value As String)
            bil3_private = value

        End Set
    End Property
    Public Property bil4() As String
        Get
            bil4 = bil4_private

        End Get
        Set(ByVal value As String)
            bil4_private = value

        End Set
    End Property
End Class




Form1:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim z As String
        Dim objKelasNilai As CariNilai
        objKelasNilai = New CariNilai
        z = objKelasNilai.NilaiAkhir(Val(TextBox1.Text), Val(TextBox2.Text), Val(TextBox3.Text), Val(TextBox4.Text))
        TextBox5.Text = z
        Label6.Text = z

        Button1.Text = "Hitung"
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        TextBox4.Enabled = True
        TextBox5.Enabled = True
        TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim objKelasNilai As CariNilai
        objKelasNilai = New CariNilai
        objKelasNilai.DoPesan()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Minggu, 01 April 2012

Program menggunakan password form VB

Program ini digunakan dalam hal peminjaman buku
Terdiri dari 3 form 

FORM1


Untuk masuk ke aplikasi kita harus memasukkan username dan password nya






Jika password salah maka akan keluar pesan seperti ini



jika password yang di masukkan benar maka akan keluar form 2


setelah form 2 terbuka maka masukkan data yang di butuhkan




Setelah semua data terisi,klik print


maka akan muncul form ke 3





Minggu, 18 Maret 2012

Aplikasi sederhana menggunakan VB






Aplikasi ini digunakan dalam penjualan Blackberry

cara penggunaannya :

Pertama yaitu dengan cara menginput kode jenis Blackberry yang ingin di beli
lalu klik OK


Selanjutnya jangan lupa memilih tipe BB,jika tipe belum di pilih akan keluar tampilan seperti dibawah ini ;









lalu,utuk mengetahui total biaya dan hasil maka tinggal klik Result seperti tampilan dibawah



Dan yang terakhir jika ingin keluar dari program klik Exit


Source code :

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    
  


    Private Sub buatpil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hasil.Click
        jenis.Enabled = True
        harga.Enabled = True
        tagihan.Enabled = True
        diskon.Enabled = True
        jenis.Enabled = True


        If wifi.Checked = True Then
            jenis.Text = wifi.Text
        ElseIf threeG.Checked = True Then
            jenis.Text = threeG.Text


        Else
            MsgBox("Belum ada pilihan", MsgBoxStyle.Critical, "TAK ADA PILIHAN")
        End If


        Select Case jenis.Text


            Case Is = "wifi"
                harga.Text = 3850000
            Case Is = "ThreeG"
                harga.Text = 4800000


            Case Else


        End Select
        tagihan.Text = harga.Text


        If tagihan.Text >= 3500000 Then
            diskon.Text = tagihan.Text * 0.05
        Else
            diskon.Text = 0
        End If


        total.Text = tagihan.Text - diskon.Text
    End Sub


   


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim y As Integer
        y = MsgBox("Are you sure?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "konfirmasi")
        If y = vbYes Then
            Me.Close()
        End If
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        jenis.Text = ""
        harga.Text = ""
        tagihan.Text = ""
        diskon.Text = ""
        total.Text = ""
        jenis.Focus()
    End Sub
    


    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles jenis.LostFocus
        Dim x As String
        Dim z As Integer
        z = Strings.Mid(TextBox1.Text, 2)
        tagihan.Text = Strings.FormatCurrency(z)
        x = Strings.Left(TextBox1.Text, 1)
        If x = "B" Then
            TextBox1.Text = "Bold"
        ElseIf x = "C" Then
            TextBox1.Text = "Curve"
        ElseIf x = "P" Then
            TextBox1.Text = "Pearl"
        ElseIf x = "T" Then
            TextBox1.Text = "Torch"
        Else
            TextBox1.Text = "Kode Salah"
        End If
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim c As String
        c = InputBox("Masukan Kode BB (Bold,Curve,Pearl,Torch)")
        TextBox1.Text = Strings.UCase(c)
    End Sub
End Class

Jumat, 02 Maret 2012

Program Aplikasi Sederhana Menggunakan Vb.net

Aplikasi untuk Menghitung Perubahan suhu dari Celcius ke Fahrenheit,Rheamur,Kelvin



Deskripsi
aplikasi ini merupakan aplikasi yang digunakan untuk mengetahui konversi suhu dari derajat Celcius ke Fahrenheit,Rheamur,atau Kelvin








Cara menggunakan aplikasi ini
1. Masukan nilai suhu yang ingin di konvert.
   contohnya 10 derajat Celcius




2. Klik tombol Farenheit jika ingin dikonversikan ke derajat Fahrenheit


Dapat dilihat setelah tombol Fahrenheit di klik muncul di kotak hasil nilai konversinya.
Jadi 10 derajat Celcius sama dengan 50 Fahrenheit





Begitu juga dengan mengkonversikan ke Rheamur




Dikotak hasil akan muncul hasil konversinya.
jadi 10 derajat Celcius sama dengan 8 Rheamur







Sama hal nya jika kita mengklik tombol Kelvin




Sama hal nya dengan sebelumnya dapat dilihat di kotak hasil nilai konversinya.
Jadi 10 derajat Celcius sama dengan 37,315 Kelvin





3. Tombol Clear pada aplikasi  ini berfungsi untuk mengosongkan data agar bisa memasukkan data yang baru


Dapat dilihat setelah mengklik tombol Clear data kembali kosong dan dapat dimasukkan data baru yang ingin di konversikan


4. Selanjutnya tombol Exit digunakan untuk keluar dari aplikasi


Setelah mengklik tombol Exit akan keluar kotak konfirmasi yang bertuliskan "Are you sure?",jika ingin keluar klik Yes








Demikianlah salah satu contoh aplikasi sederhana dengan menggunakan Vb.net semoga bermanfaat






aplikasi ini dapat di download disini :


http://www.ziddu.com/download/18756051/WindowsApplication4.exe.html



  • Source Code
Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fahren.Click
        Thasil.Text = (Tsuhu.Text * 18 / 10) + 32
    End Sub

    Private Sub Thasil_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thasil.TextChanged

    End Sub

    Private Sub Rheamur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rheamur.Click
        Thasil.Text = (Tsuhu.Text * 8 / 10)
    End Sub

    Private Sub Kelvin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kelvin.Click
        Thasil.Text = (Tsuhu.Text + 27315 / 1000)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Tsuhu.Text = ""
        Thasil.Text = ""
        Tsuhu.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x As Integer
        x = MsgBox("Are you sure?", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question)
        If x = vbYes Then
            End
        End If
    End Sub
End Class





Selamat mencoba :)


NB: apabila ada kekurangan harap dimaafkan,karena saya baru belajar. jika ada kritik dan saran saya menerima dengan senang hati. TERIMA KASIH :)