Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Soal QUIZ Online Hari SELASA

Berikut soalnya :

SOAL 1: NILAI(15)
Pastikan ANDA ABSEN (dengan memberikan Nama, NPM, KELAS, komentar pada Page INI). Dan PASTIKAN ANDA LANGSUNG YANG MENGABSEN BUKAN TEMANNYA.

BATAS ABSEN SAMPAI JAM JUM’AT Pukul 24:00 WIB
Perhatikan hal yang di LARANG DALAM MENGABSEN di sini

SOAL 2: Nilai (30)
Kerjakan latihan pada halaman 33 (di modul vb net) dan silahkan postingkan program serta hasil gambarnya di blog anda.

Batas Waktu MINGGU Pukul 24:00 WIB
Pada postingan di blog anda di buat link untuk mengarahkan link tersebut ke SOAL ini.

SOAL 3: Nilai (55)

Kerjakan latihan berikut Tagihan PDAM, dan program tersebut harus memiliki menu dan login, saat menggunakannya.

Batas Waktu MINGGU Pukul 24:00 WIB
Pada postingan di blog anda di buat link untuk mengarahkan link tersebut ke SOAL ini.

MODEL JAWABAN PADA POSTINGAN ANDA

POSTINGAN 1 :
Jawaban SOAL 2 (Nama Anda)

Kasusnya :  Link kan Kasus nya ke Page ini. (Belajar cara membuat link ke page saya)

Listing Program

……
……

Hasil Program


POSTINGAN 2 :
Jawaban SOAL 3 (Nama Anda)

Kasusnya :  Link kan Kasus nya ke Page Tagihan PDAM tersebut. (Belajar cara membuat link ke page saya)

Listing Program

……
……

Hasil Program

Selamat mengerjakan

Advertisements

Filed under: QUIZ,

190 Responses

  1. mardi iwan says:

    pak, saya mau tanya..
    bagaimana mengupload template yang kita buat sendiri ke dalam blog wordpress?
    mohon bantuannya pak..

  2. bandara says:

    nama : bandara s barus
    npm :0911235
    kelas : TI-m 0912

  3. ihsan says:

    Pak,saya sudah posting sebanyak 3 kali
    tp, tak bisa
    Nama: Ihsan Dedy Boy Marpaung
    Npm:0911883
    Kelas:TI-P0906

  4. Abdin simanjuntak says:

    Nama : abdin l simanjuntak
    Npm: 0911669
    Kelas : TI-P0905

  5. indra says:

    Nama : Indra Irwan Sirait
    NPM : 0911622
    Kelas : TI – P0905 ( Pagi )

  6. abdi sukri says:

    Mengenai hal jawaban soal yang di blog saya sudah selesai pak..!!

    nama : abdi sukri
    npm : 0911036
    kelas :SI-MI0906
    Link : http://apdisukri.blogspot.com/

  7. NAMA : IRSYAHDI DALIMUNTE

    NPM : 0911549

    KLS :SI-M0906

    LINK :http://sadidalimunte86.wordpress.com/

  8. budidharma09 says:

    Nama : IRSYAHDI DALIMUNTE

  9. […] Silahkan lihat Soalnya disini Jawaban Soal No 2&3 […]

  10. […] klik disini untuk melihat […]

  11. tentang visual basic says:

    Nama : Rudi Hartono
    Npm : 0911687
    Kelas : TI-M0912
    http://cescrudihartono.wordpress.com/2012/01/29/quiz-online-selasarudi-hartono0911687/

  12. ardiansyah says:

    pak tugas saya sudah selesai ,tolong di cek ya pak,terima kasih 🙂

  13. […] Lihat Soal No 2 disini Jawaban Soal No 2 […]

  14. eka says:

    pak , udah saya posting di blog saya.tapi saya gak ngerti buat link.

  15. robi says:

    JAWABAN NO.2 pak

    |
    LISTING PROGRAM
    HALAMAN 33

    Public Class uas1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    kode_barang.Items.Add(“TS001”)
    kode_barang.Items.Add(“TS002”)
    kode_barang.Items.Add(“VG001”)
    kode_barang.Items.Add(“VG002”)

    tabel()

    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged
    Dim x As String
    x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
    If kode_barang.Text = (“TS001”) Then
    merk.Text = “TOSHIBA”

    ElseIf kode_barang.Text = (“TS002”) Then
    merk.Text = “TOSHIBA”

    End If

    x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
    If kode_barang.Text = (“VG001”) Then
    merk.Text = “V-GEN”

    ElseIf kode_barang.Text = (“VG002”) Then
    merk.Text = “V-GEN”

    End If

    x = Microsoft.VisualBasic.Mid(kode_barang.Text, 3, 3)
    If kode_barang.Text = (“TS001”) Then
    nama_barang.Text = “FLASHDISK 4GB”
    harga.Text = 105000

    ElseIf kode_barang.Text = (“TS002”) Then
    nama_barang.Text = “FLASHDISK 2GB”
    harga.Text = 75000

    ElseIf kode_barang.Text = (“VG001”) Then
    nama_barang.Text = “FLASHDISK 4GB”
    harga.Text = 90000
    ElseIf kode_barang.Text = (“VG002”) Then
    nama_barang.Text = “FLASHDISK 2GB”
    harga.Text = 60000

    End If

    End Sub

    Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress
    If e.KeyChar = vbCr Then
    total_harga.Focus()

    total_harga.Text = jumlah_beli.Text * harga.Text
    End If

    End Sub

    Sub tabel()
    lv.Columns.Add(“no_pembelian”, 100, HorizontalAlignment.Center)
    lv.Columns.Add(“ko_barang”, 100, HorizontalAlignment.Left)
    lv.Columns.Add(“na_barang”, 100, HorizontalAlignment.Left)
    lv.Columns.Add(“merk”, 110, HorizontalAlignment.Left)
    lv.Columns.Add(“harga”, 110, HorizontalAlignment.Left)
    lv.Columns.Add(“jumlah_beli”, 110, HorizontalAlignment.Left)
    lv.Columns.Add(“total_harga”, 120, HorizontalAlignment.Center)
    lv.View = View.Details
    lv.GridLines = True
    lv.FullRowSelect = True

    End Sub

    Sub isi()
    Dim lst As New ListViewItem
    lst.Text = no_pembeli.Text
    lst.SubItems.Add(kode_barang.Text)
    lst.SubItems.Add(nama_barang.Text)
    lst.SubItems.Add(merk.Text)
    lst.SubItems.Add(harga.Text)
    lst.SubItems.Add(jumlah_beli.Text)
    lst.SubItems.Add(total_harga.Text)
    lv.Items.Add(lst)
    End Sub

    Private Sub btnsimpnlisview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpnlisview.Click
    isi()

    End Sub

    Private Sub btnhpssmuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpssmuadata.Click
    lv.Items.Clear()

    End Sub

    Private Sub btnhapsdatapilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapsdatapilih.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

    HASIL GAMABAR

  16. […] Untuk melihat kasus klik disini […]

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

%d bloggers like this: