contoh soal TPA

Tes TPA Online

Tes Potensi Akademik Online

Jumlah Soal : 40 | Waktu : 20 Menit

Tes Verbal Untuk soal No.1-5 carilah padanan hubungannya 1. Manusia : Otak Komputer : A. Memori B. Disket C. Processor D. Windows 98 E. Monitor 2. Gandum : Kue Tart Besi : A. Paku B. Pasak C. Mur D. Lempengan besi E. Gerbang rumah 3. Ilmu tentang bumi : Geologi Ilmu tentang penggambaran bumi : A. Geomorfologi B. Geodhesi C. Geografi D. Demografi E. Geocon 4. Padi : wereng Bayam : A. Kera B. Ulat C. Rumput D. Ular E. Belatung 5. Soekarno Hatta : Indonesia Changi : A. India B. Australia C. Singapura D. Thailand E. China Untuk soal No. 6-10 carilah persamaan kata atau sinonimnya. 6. Kompleks Perumahan Sistem Murni Rumit Sederhana 7. Dungu Lamban Lambat Cerdas  Pintar Bodoh 8. Mutakhir Terlama  Canggih Teknologi Terbaru Tinggi 9. Dholim Adil  Aniaya Jujur Dosa Syirik 10. Gembira Perasaan Cita Suka Suka cita Duka cita  Untuk No.11-15 carilah kata yang berlawanan arti (antonim) 11. Laik Sepatutnya Pantas Tak patut Layak  Tak Cocok 12. Berangasan Lentur Lunak  Kasar Santun Sangar 13. Tertib Rapi Teratur Kacau Acak  Random 14. Profesional Pendahulu Amatir Sesukanya Tidak serius Asal-asalan 15. Temperamental Kasih sayang Cinta Perasaan Kejahatan  Penyabar Untuk No.16-20 carilah kata yang tidak masuk dalam kelompoknya 16. Mana yang tidak masuk dalam kelompoknya ? Matahari Bumi Merkurius  Venus Pluto 17. Mana yang tidak masuk dalam kelompoknya ? Spanyol Portugal Uruguay Perancis Ukraina  18. Mana yang tidak masuk dalam kelompoknya ? Indonesia Malaysia China Timor Leste  Brunei Darussalam 19. Mana yang tidak masuk dalam kelompoknya ? Rubi Intan Kristal Granit Akik  20. Mana yang tidak masuk dalam kelompoknya ? Soeharto Megawati Abdurrahman Wahid Soedharmono  B.J. Habibie

Tes Numerik 21. (√ (100-51)) : 0,5 = A. 3,5 B. 56 C. 7/2 D. 14 E. 35 22. 24 x 0,625 = A. 16 B. 18 C. 21 D. 20 E. 15 23. (0,125 x 64) / 2 A. 0,16 B. 0,4 C. 16 D. 4 E. 24 24. 3/40  adalah berapa persen ? A. 7,5% B. 5% C. 75% D. 7% E. 6% 25. Suatu seri angka : 19 28 37 46 selanjutnya... A. 56 B. 55 C. 57 D. 47 E. 65 26. Seri angka : -30 -5 20 selanjutnya... A. 45 65 B. 40 70 C. 35 65 D. 45 70 E. 30 70 27. Seri huruf A D G J selanjutnya... A. M P B. M O C. M N D. N Q E. N P 28. Seri huruf: e h a j m b selanjutnya... A. p s B. p t C. o q D. o r E. o s 29. Suatu seri huruf : z v r selanjutnya... A. m B. o C. t D. l E. n 30. Seri huruf : z a h i j z a k l m z a selanjutnya... A. n o q B. o p q C. r s t D. n o p E. p o y

Tes Logika 31. Sebagian besar pemain basket berbadan tinggi. Dendy seorang pemain basket. Dan kita belum pernah melihat orangnya. a. Dendy pastilah berbadan tinggi b. Dendy kemungkinan besar berbadan tinggi c. Peluangnya sangat kecil Dendy berbadan tinggi d. Dendy pastilah berbadan pendek e. Tak dapat diambil kesimpulan 32. Sebagian pejabat adalah koruptor. Seluruh koruptor tak bisa hidup tenang & bahagia. Rizal seorang pejabat korup. a. Rizal tak dapat hidup tenang & bahagia b. Rizal masih bisa tenang & bahagia dengan kekayaanya c. Rizal mungkin tidak tenang & bahagia d. Rizal tidak menginginkan hidup tenang & bahagia e. Tidak dapat ditarik kesimpulan 33. Seluruh pelaku syirik yang tidak bertobat hingga mati, masuk neraka. Percaya dengan jimat keselamatan & jimat penglarisan adalah syirik. Sampai matinya, Sutopo masih terus memiliki dan mempercayai jimat penglarisan. a. Sutopo masuk Surga b. Kemungkinan Sutopo masuk Neraka c. Sutopo masuk neraka. d. Kemungkinan Sutopo masuk Surga e. Tak bisa disimpulkan 34. Sebagian alumni kampus ternama di Indonesia adalah pejabat yang gemar korupsi. Anton seorang pejabat. Anton adalah alumni kampus ternama di Indonesia. a. Belum tentu Anton gemar korupsi. b. Tentulah Anton gemar korupsi c. Pastilah Anton tidak suka korupsi d. Anton pejabat jujur. e. Tak bisa disimpulkan Untuk soal No.35-40 jawablah : A. Bila benar B. Bila salah pada pernyataan pertama C. Bila salah pada pernyataan kedua D. Bila pernyataan pertama dan kedua salah E. Bila salah pada kesimpulan 35. Setiap hari Jum'at SMP Al-Amin libur Hari ini hari Jum'at Jadi, hari ini pasti SMP Al-Amin libur 36. Semua pejabat Pemda mendapatkan mobil dinas Ibu Astuti adalah mantan pejabat Pemda Jadi, Ibu Astuti tidak lagi mendapatkan mobil dinas 37. Ikan adalah hewan yang bernafas menggunakan insang Lumba-lumba adalah hewan yang bernafas menggunakan insang Jadi, Lumba-lumba adalah ikan 38. Ukuran bunga tidak lebih besar daripada piring makan Rafflessia Arnoldi adalah sejenis bunga Rafflessia Arnoldi ukurannya tidak lebih besar daripada piring makan 39. Segala yang berhubungan dengan laut dapat dipelajari dalam ilmu Oseanologi. Huda tertarik mempelajari salinitas air laut, tingkat keasaman air laut dan kehidupan bawah laut. Huda tertarik mempelajari ilmu Oseanologi 40. Lorenza sangat amat takut dengan serangga Takut dengan serangga sering disebut dengan Insectophobia Jadi, Lorenza adalah seorang Insectophobi

Kunci Jawaban: 1. C 2. E 3. C 4. B 5. C 6. D 7. E 8. D 9. B 10.D 11. C 12. D 13. C 14. B 15. E 16. A 17. C 18. C 19. D 20. D 21. D 22. E 23. D 24. A 25. B 26. D 27. A 28. D 29. E 30. D 31. B 32. A 33. C 34. A 35. A 36. A 37. C 38. B 39. A 40. A

A. Rancangan Form Penjualan

A. Rancangan Form Penjualan

B. Listing Koding Penjualan

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeBrg()
        Buattabel()
        Bersih()
        Nopembelian.Text = 1
    End Sub

    Sub CeKNoFaktur()
        Dim i As String
        i = 1
        If Nopembelian.Text = 1 Then
            Nopembelian.Text = i + 1
        Else
            Nopembelian.Text = Val(i) + Val(Nopembelian.Text)
        End If

    End Sub

    Sub Buattabel()
        With Lv
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
            .Columns.Add("No Faktur", 80)
            .Columns.Add("Kode Brg", 100)
            .Columns.Add("Nama Brg", 160)
            .Columns.Add("Satuan", 100)
            .Columns.Add("Harga", 100)
            .Columns.Add("Jumlah Beli", 100)
            .Columns.Add("Total Harga", 120)
        End With
    End Sub

    Sub KodeBrg()
        Kode.Items.Add("TS001")
        Kode.Items.Add("TS002")
        Kode.Items.Add("VG001")
        Kode.Items.Add("VG002")
    End Sub

    Sub IsiTabel()
        Dim lst As New ListViewItem
        With lst
            .Text = Nopembelian.Text
            .SubItems.Add(Kode.Text)
            .SubItems.Add(Nama.Text)
            .SubItems.Add(Merk.Text)
            .SubItems.Add(Harga.Text)
            .SubItems.Add(Jumlah.Text)
            .SubItems.Add(Total.Text)
        End With
        Lv.Items.Add(lst)
        CekTotal()
    End Sub

    Sub Bersih()
        Kode.Text = ""
        Nama.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Harga.Text = ""
        Total.Text = ""
        Nopembelian.Enabled = False
        Total.Enabled = False : Nama.Enabled = False
        Merk.Enabled = False : Harga.Enabled = False : Totalbayar.Enabled = False
    End Sub

    Sub CekTotal()
        Dim bobot As Long
        Dim I As Integer
        bobot = 0
        For I = 0 To lv.Items.Count - 1
            bobot = bobot + Val(Lv.Items(I).SubItems(6).Text)
        Next
        Totalbayar.Text = "Rp. " & Format(bobot, "###,###,###")
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Dim x, y As String
        x = Strings.Left(Kode.Text, 2)
        y = Strings.Right(Kode.Text, 3)
        Select Case x
            Case "TS"
                Merk.Text = "Toshiba"
                Select Case y
                    Case "001"
                        Nama.Text = "FlashDisk 4GB"
                        Harga.Text = 105000
                    Case "002"
                        Nama.Text = "FlashDisk 2GB"
                        Harga.Text = 75000
                End Select
            Case "VG"
                Merk.Text = "V_Gen"
                Select Case y
                    Case "001"
                        Nama.Text = "FlashDisk 4GB"
                        Harga.Text = 90000
                    Case "002"
                        Nama.Text = "FlashDisk 2GB"
                        Harga.Text = 60000
                End Select
        End Select
        Jumlah.Focus()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        IsiTabel()
        Bersih()
        CeKNoFaktur()
    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then
            e.Handled = True
        End If
    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
        If Jumlah.Text = "" Then
            Exit Sub
        Else
            Total.Text = Harga.Text * Jumlah.Text
        End If
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        Lv.Items.Clear()
        Totalbayar.Text = ""
    End Sub

    Private Sub Batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal.Click
        Bersih()
    End Sub

    Private Sub HapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusData.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
        Dim bobot As Long
        Dim I As Integer
        bobot = 0
        For I = 0 To Lv.Items.Count - 1
            bobot = Val(Lv.Items(I).SubItems(6).Text) - bobot
        Next
        Totalbayar.Text = "Rp. " & Format(bobot, "###,###,###")
    End Sub

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

End Class



C. Tampilan Hasil Penjualan

Program Pemakaian Listrik menggunakan Listview dengan VB Net 2008

senin 18 januari 2016

Program Pemakaian Listrik menggunakan Listview dengan VB Net 2008

Buatlah program untuk menampilkan hasil ke listview untuk Kasus Pemrograman Pemakaian Listrik

Kemudian Masuk kan Listing Program Berikut:

Public Class Form1
    Sub buattable()
        lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)
        lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)
        lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)
        lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)
        lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)
        lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)
        lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)
        lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)
        lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)
        lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)

        Lv.GridLines = True
        Lv.FullRowSelect = True
        Lv.View = View.Details
    End Sub
    Sub isitable()
        Dim x As New ListViewItem
        With x
            .Text = nmr.Text
            .SubItems.Add(daerah.Text)
            .SubItems.Add(tipe.Text)
            .SubItems.Add(Bbeban.Text)
            .SubItems.Add(kwh.Text)
            .SubItems.Add(MMini.Text)
            .SubItems.Add(MMlalu.Text)
            .SubItems.Add(pemakai.Text)
            .SubItems.Add(total.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(bayar.Text)
            lv.Items.Add(x)
        End With

    End Sub

    Sub add_daerah()
        With daerah
            .Items.Add("MEDAN")
            .Items.Add("BELAWAN")
            .Items.Add("AKSARA")
            .Items.Add("MARENDAL")
            .Items.Add("BINJAI")
            .Items.Add("LUBUK PAKAM")
        End With
    End Sub
    Sub add_tipe()
        With tipe
            .Items.Add("TOKO")
            .Items.Add("RUMAH")
            .Items.Add("SWALAYAN")
            .Items.Add("PABRIK")
        End With
    End Sub


    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
        If tipe.Text = "TOKO" Then
            Bbeban.Text = 150000
            kwh.Text = 500
        ElseIf tipe.Text = "RUMAH" Then
            kwh.Text = 200
            Bbeban.Text = 50000
        ElseIf tipe.Text = "SWALAYAN" Then
            kwh.Text = 1500
            Bbeban.Text = 400000
        ElseIf tipe.Text = "PABRIK" Then
            kwh.Text = 1000
            Bbeban.Text = 1000000
        End If

        MMini.Text = ""
        MMlalu.Text = ""
        pemakai.Text = ""
        total.Text = ""
        pajak.Text = ""
        bayar.Text = ""
        nmr.Text = ""
    End Sub
    Sub bersih()
        nmr.Text = ""
        daerah.Text = ""
        tipe.Text = ""
        Bbeban.Text = ""
        kwh.Text = ""
        MMini.Text = ""
        MMlalu.Text = ""
        pemakai.Text = ""
        total.Text = ""
        pajak.Text = ""
        bayar.Text = ""
    End Sub
    Sub add_nmr()
        Dim x, y, z As String
        x = Microsoft.VisualBasic.Left(daerah.Text, 3)
        y = Microsoft.VisualBasic.Left(tipe.Text, 3)
        z = "00" & (tipe.SelectedIndex + 1)
        nmr.Text = x & "-" & y & "-" & z
    End Sub
    Private Sub MMlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MMlalu.KeyPress
        If e.KeyChar = Chr(13) Then
            If MMlalu.Text = "" Or MMini.Text = "" Then
                MsgBox("Isi Dengan Benar")
            Else
                If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then

                    pemakai.Text = MMini.Text - MMlalu.Text
                    total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)
                    pajak.Text = (15 / 100) * total.Text
                    bayar.Text = Val(total.Text) + Val(pajak.Text)
                    Call add_nmr()
                Else
                    MsgBox("isi dengan angka !!!")
                    pemakai.Text = ""
                    total.Text = ""
                    pajak.Text = ""
                    bayar.Text = ""
                    nmr.Text = ""

                End If
            End If
        End If
    End Sub

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

    Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
        Dim i As String
        i = daerah.Text
        bersih()
        daerah.Text = i

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        bersih()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        isitable()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        lv.Items.Clear()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub
End Class


Demikilahlah postingan saya  Nama : (Martua panggabean)  NPM : 14110534)

pembayaran PDAM dengan vb

  

PDAM DENGAN VB

Sebelum kita membuat program, anda harus mengenal dulu apa itu Vb.Net. Vb.Net merupakan aplikasi untuk membuat sebuah program, misal untuk membuat Progam Perusaan, Perkantoran, Sekolah, maupun Kepemerintahan. Jadi kali in saya kan berbagi sedikit yang saya ketahui tentang Vb.Net .

Berikut ini adalah tampilan Program  Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net :

Listing Program :

1. Public Class QuiZ_PdAM
2.     Dim x As Byte
3.  
4.     Sub buattable()
5.         LV.Columns.Add("No", 40, HorizontalAlignment.Left)
6.         LV.Columns.Add("Kode", 90, HorizontalAlignment.Left)
7.         LV.Columns.Add("Tipe", 100, HorizontalAlignment.Left)
8.         LV.Columns.Add("Harga", 100, HorizontalAlignment.Left)
9.         LV.Columns.Add("Jml Pemakaian", 100, HorizontalAlignment.Left)
10.         LV.Columns.Add("Daerah", 100, HorizontalAlignment.Left)
11.         LV.Columns.Add("Biaya Beban", 180, HorizontalAlignment.Left)
12.         LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
13.         LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
14.         LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
15.         LV.View = View.Details
16.         LV.GridLines = True
17.         LV.FullRowSelect = True
18.     End Sub
19.     Sub isitable()
20.         Dim lst As New ListViewItem
21.         lst.Text = x
22.         lst.SubItems.Add(kd_pelanggan.Text)
23.         lst.SubItems.Add(tipe.Text)
24.         lst.SubItems.Add(harga.Text)
25.         lst.SubItems.Add(jml_pemakaian.Text)
26.         lst.SubItems.Add(daerah.Text)
27.         lst.SubItems.Add(biaya_beban.Text)
28.         lst.SubItems.Add(pajak.Text)
29.         lst.SubItems.Add(pembayaran.Text)
30.         lst.SubItems.Add(total_tagihan.Text)
31.         LV.Items.Add(lst)
32.  
33.         x = 1 + x
34.     End Sub
35.     Private Sub Tagihan_PDAM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
36.         buattable()
37.         x = 1
38.         kd_pelanggan.Items.Add("PAB-MED-100")
39.         kd_pelanggan.Items.Add("RUM-MED-101")
40.         kd_pelanggan.Items.Add("TOK-BEL-102")
41.         kd_pelanggan.Items.Add("SWA-MED-103")
42.     End Sub
43.  
44.     Private Sub kd_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles kd_pelanggan.SelectedIndexChanged
45.         Dim x As String
46.         x = Microsoft.VisualBasic.Right(kd_pelanggan.Text, 3)
47.         Select Case x
48.             Case "100" : nama.Text = "UCOK"
49.             Case "101" : nama.Text = "JHAN F"
50.             Case "102" : nama.Text = "ERIN"
51.             Case "103" : nama.Text = "ERIN"
52.         End Select
53.         x = Microsoft.VisualBasic.Left(kd_pelanggan.Text, 3)
54.         Select Case x
55.             Case "TOK"
56.                 harga.Text = 250
57.                 biaya_beban.Text = 15000
58.                 tipe.Text = "TOKO"
59.             Case "RUM"
60.                 harga.Text = 150
61.                 biaya_beban.Text = 10000
62.                 tipe.Text = "RUMAN"
63.             Case "PAB"
64.                 harga.Text = 25000
65.                 biaya_beban.Text = 25000
66.                 tipe.Text = "PABRIK"
67.             Case "SWA"
68.                 harga.Text = 20000
69.                 biaya_beban.Text = 60000
70.                 tipe.Text = "SWALAYAN"
71.         End Select
72.         x = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 5, 3)
73.         Select Case x
74.             Case "MED" : daerah.Text = "Medan"
75.             Case "BEL" : daerah.Text = "Belawan"
76.             Case Else : daerah.Text = "-"
77.         End Select
78.     End Sub
79.  
80.     Private Sub jml_pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles jml_pemakaian.KeyPress
81.         If jml_pemakaian.Text = "" Then
82.             jml_pemakaian.Focus()
83.         ElseIf Asc(e.KeyChar) = 13 Then
84.             total_tagihan.Text = Val(biaya_beban.Text) + (harga.Text * jml_pemakaian.Text)
85.             pajak.Text = 0.01 * total_tagihan.Text
86.             pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
87.         End If
88.     End Sub
89.  
90.     Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtn_hapus.Click
91.         kd_pelanggan.Text = ""
92.         nama.Text = ""
93.         tipe.Text = ""
94.         harga.Text = ""
95.         jml_pemakaian.Text = ""
96.         total_tagihan.Text = ""
97.         pembayaran.Text = ""
98.         daerah.Text = ""
99.         biaya_beban.Text = ""
100.         pajak.Text = ""
101.     End Sub
102.  
103.     Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtn_keluar.Click
104.         Dim k As String
105.         k = MsgBox("Apakah Anda yakin Ingin Keluar", MsgBoxStyle.YesNo)
106.         If k = vbYes Then
107.             Me.Close()
108.         End If
109.     End Sub
110.  
111.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
112.         isitable()
113.     End Sub
114. End Class

Demikianlah isi dari Artikel saya yang berjudul Program  Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net  ,, Semoga bermanfaat bagi anda Semua...