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

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

Sponsored

C&C Online Shop

Blog Stats

  • 355,762 sejak 12 Jan 2011

User’s Online


My Music

Enter your email address to follow this blog and receive notifications of new posts by email.

Join 223 other followers

January 2012
M T W T F S S
« Dec   Feb »
 1
2345678
9101112131415
16171819202122
23242526272829
3031  
%d bloggers like this: