Inheritante PBO

aplikasi ini awal nya saya buat untuk memenuhi tugas praktikum pemrograman berprientasi objek.
pada bab inheritance ini aplikasi nya sebagai berikut.
pertama analisa class diagram berikut.

kemudian desain form seperti berikut;

• kemudian beri codding pada class identitas

Public NotInheritable Class Identitas

    Private Nama As String

    Private NIM As Single

    Private Jurusan As String

    Public Property xNama() As String

        Get

            Return Nama

        End Get

        Set(ByVal value As String)

            Nama = value

        End Set

    End Property

    Public Property xNIM() As Integer

        Get

            Return NIM

        End Get

        Set(ByVal value As Integer)

            NIM = value

        End Set

    End Property

    Public Property xJurusan() As String

        Get

            Return Jurusan

        End Get

        Set(ByVal value As String)

            Jurusan = value

        End Set

    End Property

End Class

• codding pada  class angkatan

Public MustInherit Class Angkatan

    Private spp As Integer

    Private THangkatan As Integer

    Public Property xSPP(ByVal THangkatan As Integer) As Integer

        Get

            If THangkatan = 2010 Then

                Return 125000

            ElseIf THangkatan = 2011 Then

                Return 140000

            ElseIf THangkatan = 2012 Then

                Return 160000

            End If

        End Get

        Set(ByVal value As Integer)

            spp = value

        End Set

    End Property

    Public Property xTHangkatan() As Integer

        Get

            Return THangkatan

        End Get

        Set(ByVal value As Integer)

            THangkatan = value

        End Set

    End Property

End Class

• codding pada class bayar

Public Class Bayar

    Inherits Angkatan

    Private Bulan As Integer

    Private Jumlah As Integer

    Public Property xBulan() As Integer

        Get

            Return Bulan

        End Get

        Set(ByVal value As Integer)

            Bulan = value

        End Set

    End Property

    Public Property xJumlah() As Integer

        Get

            Return Jumlah

        End Get

        Set(ByVal value As Integer)

            Jumlah = value

        End Set

    End Property

    Public Function JumlahBayar(ByVal xSPP As Integer) As Integer

        Return xSPP * xBulan

    End Function

End Class

setelah membuat ketiga class tersebut kita tinggal memberi code pada button proses, codding nya sebagai berikut;

 Dim zaqi As New Identitas

        With zaqi

            .xNIM = TextBox1.Text

            .xNama = TextBox2.Text

            .xJurusan = ComboBox1.Text

        End With

        Dim zaki As New Bayar

        With zaki

            .xTHangkatan = ComboBox2.Text

            .xBulan = TextBox3.Text

        End With

        With ListBox1

            .Items.Add("NIM : " & zaqi.xNIM)

            .Items.Add("NAMA    : " & zaqi.xNama)

            .Items.Add("JURUSAN : " & zaqi.xJurusan)

            .Items.Add("ANGKATA : " & zaki.xTHangkatan)

            .Items.Add("SPP  : " & zaki.xSPP(zaki.xTHangkatan))

            .Items.Add("JUMLAH BULAN YG DI BAYAR  : " & zaki.xBulan & " BULAN")

            .Items.Add("JUMLAH BAYAR    : " & zaki.JumlahBayar(zaki.xSPP(zaki.xTHangkatan)))

        End With

codding pada button hapus

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ListBox1.Items.Clear()

Read more ...

program pemesanan suatu tour dengan vb.net

aplikasi sederhana sebenarnya hanya saya buat untuk memenuhi tugas PBO, langkah pertama yang harus kalian buat adalah mendisain form terlebih dahulu.
desainlah form sesuka hati kamu.

kemudia kalian buat sebuah class;


Public Class wisata
    'atribut
    Private NamaPemesan As String
    Private Alamat As String
    Private JumlahAnggota As Single
    Private TujuanWisata As String
    Private UangMuka As Single
   
    'property
    Public Property mJumlahAnggota() As Single
        Get
            Return JumlahAnggota
        End Get
        Set(ByVal value As Single)
            JumlahAnggota = value
        End Set
    End Property
    Public Property mTujuanWisata() As String
        Get
            Return TujuanWisata
        End Get
        Set(ByVal value As String)
            TujuanWisata = value
        End Set
    End Property
    Public Property mNamaPemesan() As Single
        Get
            Return NamaPemesan
        End Get
        Set(ByVal value As Single)
            NamaPemesan = value
        End Set
    End Property
    Public Property mAlamat() As String
        Get
            Return Alamat
        End Get
        Set(ByVal value As String)
            Alamat = value
        End Set
    End Property
    Public Property mUangMuka() As Single
        Get
            Return UangMuka
        End Get
        Set(ByVal value As Single)
            UangMuka = value
        End Set
    End Property

    'method
    Public Function BiayaPerPaket(ByVal mTujuanWisata As String) As Long
        If mTujuanWisata = "Jawa Timur" Then
            Return 65000
        ElseIf mTujuanWisata = "Jawa Tengah" Then
            Return 70000
        ElseIf mTujuanWisata = "Jawa Barat" Then
            Return 75000
        ElseIf mTujuanWisata = "Bali" Then
            Return 95000
        ElseIf mTujuanWisata = "Madura" Then
            Return 65000
        ElseIf mTujuanWisata = "Jogjakarta" Then
            Return 80000
        ElseIf mTujuanWisata = "DKI Jakarta" Then
            Return 85000
        End If
    End Function
    Public Function Diskon(ByVal mJumlahAnggota As Single) As Single
        If mJumlahAnggota = 1 Then
            Return 0
        End If
        If mJumlahAnggota > 5 Then
            Return 18000
        Else
            Return 7000
        End If
    End Function
    Public Function Jumlah(ByVal mBiayaPerpaket As Single, ByVal mJumlahAnggota As Single) As Single
        Return mBiayaPerpaket * mJumlahAnggota
    End Function
    Public Function TempatWisata(ByVal mTujuanWisata As String) As Single

    End Function
    Public Function TiketMasuk(ByVal mTujuanWisata As String) As Single
        If mTujuanWisata = "Jawa Timur" Then
            Return 23000
        ElseIf mTujuanWisata = "Jawa Tengah" Then
            Return 27000
        ElseIf mTujuanWisata = "Jawa Barat" Then
            Return 25000
        ElseIf mTujuanWisata = "Bali" Then
            Return 35000
        ElseIf mTujuanWisata = "Madura" Then
            Return 22000
        ElseIf mTujuanWisata = "Jogjakarta" Then
            Return 27000
        ElseIf mTujuanWisata = "DKI Jakarta" Then
            Return 32000
        End If
    End Function
    Public Function BayarTiket(ByVal mTiketMasuk As Single, ByVal mJumlahAnggota As Single) As Single
        Return mJumlahAnggota * mTiketMasuk
    End Function
    Public Function TotalBiaya(ByVal mJumlah As Single, ByVal mDiskon As Single, ByVal mBayarTiket As Single)
        Return mJumlah + mBayarTiket - mDiskon
    End Function
    Public Function SisaPembayaran(ByVal mUangMuka As Single, ByVal mTotalBiaya As Single) As Single
        Return mUangMuka - mTotalBiaya
    End Function 
End Class



kemudian masukkan code pada button hitung


 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objhitung As New wisata

        With objhitung
            .mTujuanWisata = ComboBox1.Text
            .mJumlahAnggota = TextBox1.Text

            Label8.Text = .BiayaPerPaket(.mTujuanWisata)
            Label9.Text = .Diskon(.mJumlahAnggota)
            Label32.Text = .TiketMasuk(.mTujuanWisata)
            Label26.Text = .BayarTiket(.TiketMasuk(.mTujuanWisata), .mJumlahAnggota)
            Label10.Text = .Jumlah(.BiayaPerPaket(.mTujuanWisata), .mJumlahAnggota)
            Label11.Text = .TotalBiaya(.Jumlah(.BiayaPerPaket(.mTujuanWisata), .mJumlahAnggota), .Diskon(.mJumlahAnggota), .BayarTiket(.TiketMasuk(.mTujuanWisata), .mJumlahAnggota))
        End With
    End Sub


cukup di sini tutorial yang saya berikan
selamat mencoba,.

Read more ...

kalkulator dengan vb.net

donwload

Read more ...

desain kaos

desain kaos ultras_armeg_21

• desain 1 

• desan 2

• desain 3

bisa di pilih desain nya untuk memepercepat pembuatan kaos nya....

Read more ...