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
pak, saya mau tanya..
bagaimana mengupload template yang kita buat sendiri ke dalam blog wordpress?
mohon bantuannya pak..
nama : bandara s barus
npm :0911235
kelas : TI-m 0912
Pak,saya sudah posting sebanyak 3 kali
tp, tak bisa
Nama: Ihsan Dedy Boy Marpaung
Npm:0911883
Kelas:TI-P0906
Nama : abdin l simanjuntak
Npm: 0911669
Kelas : TI-P0905
Nama : Indra Irwan Sirait
NPM : 0911622
Kelas : TI – P0905 ( Pagi )
Mengenai hal jawaban soal yang di blog saya sudah selesai pak..!!
nama : abdi sukri
npm : 0911036
kelas :SI-MI0906
Link : http://apdisukri.blogspot.com/
NAMA : IRSYAHDI DALIMUNTE
NPM : 0911549
KLS :SI-M0906
LINK :http://sadidalimunte86.wordpress.com/
Nama : IRSYAHDI DALIMUNTE
[…] Untuk melihat kasus klik disini […]
http://sitibd-siti.blogspot.com/2012/01/quis-online-soal-2.html
[…] Silahkan lihat Soalnya disini Jawaban Soal No 2&3 […]
[…] klik disini untuk melihat […]
link kasus :
[…] https://mesran.wordpress.com/2012/01/26/soal-quiz-online-hari-selasa-2/ […]
Nama : Rudi Hartono
Npm : 0911687
Kelas : TI-M0912
http://cescrudihartono.wordpress.com/2012/01/29/quiz-online-selasarudi-hartono0911687/
pak tugas saya sudah selesai ,tolong di cek ya pak,terima kasih 🙂
[…] Lihat Soal Di sini […]
[…] Silahkan lihat Soalnya disini Jawaban Soal No 2 […]
[…] Lihat Soal No 2 disini Jawaban Soal No 2 […]
pak , udah saya posting di blog saya.tapi saya gak ngerti buat link.
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
hasil gambarnya ada di blog aq pak
[…] Untuk melihat kasus klik disini […]