Jawaban Soal No 3 Tagihan PDAM (Dhany Pranata)

Kasus Program Tagihan PDAM

Scrip Form Login :

Public Class Form2

    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click

        If UserNM.Text = "Dhany Pranata" And Password.Text = "simanjuntak" Then

            Menu_Utama.Show()

            Me.Hide()

        Else

            MsgBox("Data Username/Password Anda Salah!!")

            UserNM.Text = ""

            Password.Text = ""

        End If

    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click

        End

    End Sub

End Class

Tampilan Program Login :

 

 

Scrip Menu Utama :

Public Class Menu_Utama

    Private Sub DataPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPDAMToolStripMenuItem.Click

        Form1.Show()

    End Sub

    Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        e.Cancel = True

        If MsgBox("Anda Yakin Ingin Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            Me.Hide()

        End If

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        End

    End Sub

End Class

Tampilan Program Menu Utama :

Scrip Data Pelanggan :

Public Class Form1

  

    Sub ISIKdPelanggan()

        KdPelangan.Items.Add("TOK-MED-")

        KdPelangan.Items.Add("TOK-BEL-001")

        KdPelangan.Items.Add("TOK-TEM-001")

        KdPelangan.Items.Add("TOK-MAR-001")

        KdPelangan.Items.Add("TOK-BIN-001")

        KdPelangan.Items.Add("TOK-PAK-001")

        KdPelangan.Items.Add("RUM-MED-001")

        KdPelangan.Items.Add("RUM-BEL-001")

        KdPelangan.Items.Add("RUM-TEM-001")

        KdPelangan.Items.Add("RUM-MAR-001")

        KdPelangan.Items.Add("RUM-BIN-001")

        KdPelangan.Items.Add("RUM-PAK-001")

        KdPelangan.Items.Add("SWA-MED-001")

        KdPelangan.Items.Add("SWA-BEL-001")

        KdPelangan.Items.Add("SWA-TEM-001")

        KdPelangan.Items.Add("SWA-MAR-001")

        KdPelangan.Items.Add("SWA-BIN-001")

        KdPelangan.Items.Add("SWA-PAK-001")

        KdPelangan.Items.Add("PAB-MED-001")

        KdPelangan.Items.Add("PAB-BEL-001")

        KdPelangan.Items.Add("PAB-TEM-001")

        KdPelangan.Items.Add("PAB-MAR-001")

        KdPelangan.Items.Add("PAB-BIN-001")

        KdPelangan.Items.Add("PAB-PAK-001")

    End Sub

    Sub kodeplgCOMBO()

        Dim A, B, C As String

        A = Microsoft.VisualBasic.Left(KdPelangan.Text, 3)

        B = Microsoft.VisualBasic.Mid(KdPelangan.Text, 5, 3)

        C = Microsoft.VisualBasic.Right(KdPelangan.Text, 3)

        No_urut.Text = C

        If A = "TOK" Then

            TypPlanggan.Text = "Toko"

            Beban.Text = 25000

            HargaM3.Text = 300

        ElseIf A = "RUM" Then

            TypPlanggan.Text = "Rumah"

            Beban.Text = 15000

            HargaM3.Text = 100

        ElseIf A = "SWA" Then

            TypPlanggan.Text = "Swalayan"

            Beban.Text = 10000

            HargaM3.Text = 200

        ElseIf A = "PAB" Then

            TypPlanggan.Text = "Pabrik"

            Beban.Text = 250000

            HargaM3.Text = 500

        End If

        If B = "MED" Then

            NmDaerah.Text = "Medan"

        ElseIf B = "BEL" Then

            NmDaerah.Text = "Belawan"

        ElseIf B = "TEM" Then

            NmDaerah.Text = "Aksara"

        ElseIf B = "MAR" Then

            NmDaerah.Text = "Marendal"

        ElseIf B = "BIN" Then

            NmDaerah.Text = "Binjay"

        ElseIf B = "PAK" Then

            NmDaerah.Text = "Lubuk Pakam"

        End If

    End Sub

    Private Sub Rata_rata_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Rata_rata.KeyPress

        If Asc(e.KeyChar) = 13 Then

            PerBulan.Text = Rata_rata.Text * 30

            Total.Text = PerBulan.Text * HargaM3.Text + Val(Beban.Text)

            Pajak.Text = 0.01 * Total.Text

            Pembayaran.Text = Val(Total.Text) + Val(Pajak.Text)

        End If

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

If Asc(e.KeyChar) = 13 Then

            PerBulan.Text = Rata_rata.Text * 30

            Total.Text = PerBulan.Text * HargaM3.Text + Val(Beban.Text)

            Pajak.Text = 0.01 * Total.Text

            Pembayaran.Text = Val(Total.Text) + Val(Pajak.Text)

        End If

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        e.Cancel = True

        If MsgBox("Anda Yakin Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            Me.Hide()

        End If

    End Sub

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

        ISIKdPelanggan()

    End Sub

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

        kodeplgCOMBO()

    End Sub

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

        KdPelangan.Visible = False

        Cara.Visible = False

    End Sub

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

        KdPelangan.Visible = True

        Cara.Visible = False

    End Sub

    Private Sub Rata_rata_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rata_rata.TextChanged

        If Not IsNumeric(Rata_rata.Text) Then

            Rata_rata.Clear()

        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        Hapus(Me)

        KdPelangan.Focus()

    End Sub

    Sub Hapus(ByVal F As Form)

        Dim x As Object

        For Each x In F.Controls

            If TypeOf x Is TextBox Then x.text = ""

            If TypeOf x Is ComboBox Then x.text = ""

        Next

    End Sub

    Private Sub KdPelangan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdPelangan.SelectedIndexChanged

        kodeplgCOMBO()

    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click

        End

    End Sub

End Class

 

 

Skrip Program Soal No. 2 (Dhany Pranata)

SOAL KASUS : Scrip Program Penjualan Flasdisk :

Public Class Form1

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

        buattable()

        kdBrg.Items.Add("TS001")

        kdBrg.Items.Add("TS002")

        kdBrg.Items.Add("VG001")

        kdBrg.Items.Add("VG002")

    End Sub

    Sub kde()

        If Microsoft.VisualBasic.Left(kdBrg.Text, 2) = "TS" Then

            Merek.Text = "Thosiba"

        ElseIf Microsoft.VisualBasic.Left(kdBrg.Text, 2) = "VG" Then

            Merek.Text = "V-Gen"

        End If

        If Microsoft.VisualBasic.Right(kdBrg.Text, 3) = "001" Then

            NmBrg.Text = "Flashdick 4GB"

        ElseIf Microsoft.VisualBasic.Right(kdBrg.Text, 3) = "002" Then

            NmBrg.Text = "Flashdick 2GB"

        End If

    End Sub

    Sub buattable()

        LV.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Merek", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.FullRowSelect = True

        LV.GridLines = True

    End Sub

    Sub isi()

        Dim Lst As New ListViewItem

        lst.Text = NoPemb.Text

        lst.SubItems.Add(kdBrg.Text)

        lst.SubItems.Add(NmBrg.Text)

        lst.SubItems.Add(Merek.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(JlhBeli.Text)

        lst.SubItems.Add(TtlHarga.Text)

        LV.Items.Add(lst)

    End Sub

    Sub hrg()

        If kdBrg.Text = "TS001" Then

            Harga.Text = 105000

        ElseIf kdBrg.Text = "TS002" Then

            Harga.Text = 75000

        ElseIf kdBrg.Text = "VG001" Then

            Harga.Text = 90000

        ElseIf kdBrg.Text = "VG002" Then

            Harga.Text = 60000

        End If

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdBrg.SelectedIndexChanged

        kde()

        hrg()

    End Sub

    Private Sub Merek_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Merek.TextChanged

    End Sub

    Private Sub Harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Harga.TextChanged

        hrg()

    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JlhBeli.KeyPress

        If Asc(e.KeyChar) = 13 Then

            TtlHarga.Text = JlhBeli.Text * Harga.Text

        End If

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        isi()

        NoPemb.Text = ""

        kdBrg.Text = ""

        NmBrg.Text = ""

        Merek.Text = ""

        Harga.Text = ""

        JlhBeli.Text = ""

        TtlHarga.Text = ""

        NoPemb.Focus()

    End Sub

    Private Sub Hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_semua.Click

        LV.Items.Clear()

    End Sub

    Private Sub Hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_data.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

End Class

Tampilan Menu Pembelian Flesdisk:

Motivasi Dalam Perkuliahan

Motivasi merupakan keadaan dalam pribadi seseorang yang mendorong keinginan untuk melakukan kegiatan-kegiatan tertentu untuk mencapai suatu tujuan yang dia inginkan. Motivasi dapat timbul dari kebutuhan dan keinginan yang ada dalam diri seseorang. Motivasi seperti ini disebut juga motivasi internal. Motivasi dalam perkuliahan juga bisa dibilang peniting, karena dengan motivasi yang benar seorang mahasiswa bisa menikmati perkuliahannya. Sehingga dapat menghindari kebosanan. Sedangkan teori motivasi external menjelaskan tentang kekuatan-kekuatan yang ada didalam individu yang dipengaruhi oleh faktor-faktor internal.

Dalam perkuliahan, setiap mahasiswa mempunyai kebutuhan dan keinginan yang berbeda. Kebutuhan dan keinginan ini akan menyebabkan motivasi dari mahasiswa tersebut. Jika kebutuhan dan keinginan yang dimiliki setiap mahasiswa berbeda maka memiliki motivasi yang berbeda juga. Dalam berkuliah mahasiswa memiliki motivasi jika lulus kuliah akan bekerja. Untuk memenuhi keinginan tersebut ada banyak hal yang harus dilakukan yakni : 

1.   Belajar sungguh-sungguh dalam perkuliahan, jika tidak belajar dengan sungguh-sungguh maka keinginan tersebut mungkin tidak akan terpenuhi.

2. Berdoa, meminta pertolongan kepada-Nya. Karena tanpa pertolongan-Nya semua hal yang dilakukan akan sia-sia.

3. Mengikuti kegiatan lain diluar mata kuliah untuk membantu perkuliahan seperti, kursus, workshop, seminar,dll.

Masih banyak hal lagi yang harus dilakukan tetapi tiga dari contoh diatas merupakan tahap yang dilakukan untuk mewujudkan motivasi setelah lulus kuliah langsung bekerja. Menurut teori Mc Gregor dikenal dengan teori X dan teori Y. Jika dikaitkan dengan motivasi kuliah diatas ada beberapa anggapan-anggapan yang mendasari teori X :

a. Banyak mahasiswa malas belajar.

b. Karena mahasiswa malas belajar, maka dikendalikan, diperlakukan dengan sanksi, dan diarahkan untuk mencapai tujuan.

c. Rata-rata mahasiswa lebih senang dibimbing, berusaha menghindari tanggung jawab, ambisi yang kecil dan lain-lain.

Tetapi dijelaskan bahwa pada kenyataannya teori X tidak dapat menjawab seluruh fakta yang ada dan terjadi. Oleh karena itu diperlukan teori yang lain untuk dapat menjawabnya, yaitu teori Y. Anggapan dari teori Y antara lain sebagai berikut :

a. Usaha fisik dan mental yang dilakukan manusia dalam bekerja adalah kodrat manusia.

b. Rata-rata manusia bersedia belajar, dalam kondisi yang layak tidak hanya menerima tetapi mancari tanggung jawab.

c. Ada kemampuan yang besar dalam kecerdikan, kreativitas dan daya imajinasi.

d. Pengendalian dan hukuman bukam satu-satunya cara untuk mengarahkan sesuatu unutk mencapai tujuan.

Pada tahun 1943 Abraham Maslow mengembangkan teori motivasi. Konsep teorinya menjelaskan suatu hirarki kebutuhan yang menunujukkan lima tingkatan dan kebutuhan manusia, yaitu :

a. Kebutuhan fisioligis sperti lapar, haus, perumahan, dll.

b. Kebutuhan keamanan.

c. Kebutuhan social.

d. Kebutuhan penghargaan.

e. Kebutuhan aktualisasi diri, yaitu kebutuhan pemenuhan diri, untuk mempergunakan potensi diri, pengembangan diri,dll.

Mc Clelland juga mengeluarkan teori motivasi tentang prestasi yaitu motisai prestasi yang didasarkan pada kekuatan yang ada dalam manusia. Teori ini menyatakan bahwa seseorang dianggap mampu mempunyai motivasi prestasi yang tinggi, apabila dia mempunyai keinginan unutk berprestasi lebih banyak daripada yang lain dalam banyak situasi. Mc Clelland memusatkan perhatiannya pada tiga kebutuhan manusia yaitu :

a. Kebutuhan prestasi

b. Kebutuhan afiliasi

c. Kebutuhan kekuasaan.

Dari beberapa teori para ahli diatas kita tahu beberapa hal yang mempengaruhi motivasi. Motivasi dapat dipandang sebagai proses psikologis dasar yang terdiri atas berbagai keinginan, kebutuhan, dorongan dan tujuan.