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 32 (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 Penggajian Karyawan , 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)
Kasus : 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)
Kasus : Link kan Kasus nya ke Page Penggajian Karyawan. (Belajar cara membuat link ke page saya)
Listing Program
……
……
Hasil Program
Selamat mengerjakan
Mesran 
ne pak update postingan saya
mana tau yang kemaren tu ada salah
klik disini untuk kasus[JAWABAN QUIZ HARI SENIN NO 3]
Penilaian sudah dilakukan nih 🙂
ne pak updet postingan saya
mana tau yang kemaren tu salah
JAWABAN QUIZ HARI SENIN NO 2
klik disini untuk kasus […]
ne pak updet postingan saya
mana tau yang kemaren tu salah
klik disini untuk kasus [JAWABAN QUIZ HARI SENIN NO 2]
maaff pak,.saya terlambat
Nama :Jemmy Sihombing
NPM : 0911300
Kelas:TI A 0910 Malam
NAMA : IVAN KINSKI
NPM : 0911189
KELAS : TI-P0902
maaf pak,absen saya telat,,,
Nama : Meiman Jaya Zega
NPM : 0911576
Kelas : TI-M0911
ne alamat blog sayaPak
http://jayazamohede.blogspot.com
[…] Contoh kasus lihat disini. […]
maaf ya pak tadi blog saya gak bisa dibuka
jadi agak telat pak
[…] Home » Software Gratis » Jawaban No.2 (Legianto)Jawaban No.2 (Legianto)Ini adalah postingan jawaban, soal kasus lihat disini. […]
pak,,,
gimana cara nya menaruh hasil gambar nya, pak ?
ZULKIFLI RUSDI
http://zulbangat.blogspot.com/
KELAS : TI-P0902
NPM : 0911339
http://oswald-purba.blogspot.com/2012/01/listing-program-modul-hal.html
http://josuabexter.blogspot.com/
NAMA:oswald purba
Kelas:TI-P0904
NPM:0911525
[…] lihat kasus […]
nama:vinalia pardede
npm:0911655
kls:TI-P0904
http://vinapardede.wordpress.com
[…] Jawaban No 3 ( Arief Syuhada) […]
[…] Jawaban No 3 ( Arief Syuhada) […]
[…] Jawaban No.3 […]
[…] Untuk Kasus Lihat Disini… […]
NAMA : DENNI M RAJAGUKGUK
NPM : 0911411
KELAS : TI P 0904
[…] mesran-Soal VB.NET” href=”https://mesran.wordpress.com/2012/01/26/soal-quiz-online-hari-senin/“>Kasus</a> […]
[…] Jawaban Soal No.3 ( SITI RETA LESTARI ) […]
[…] Jawaban Soal No.3 (Arief Subrta Chan) […]
NAMA : Makmur L Sihombing
NPM : 0911410
KELAS : TI-P0904
Sdh sy LINK kn pak,,,
pi krn takut sya kasih z langsung Link Jawaban sya,
Ini yg no.2 pak
http://bebehkiky.blogspot.com/2012/01/jawaban-soal-online-no.html
sya lupa mencantum kan identitas saya pak
Nama : Rizkyan Aidy Fitra
NPM : 0911491
Kelas : TI-S0908
http://rantopanjaitan.blogspot.com/p/jawaban-quiz-no3.html
http://lundusianipar.blogspot.com
pak maaf jawaban soal no. 2 punya saya itu salah tempat.
maklum pak, baru belajar blog jd blm ngerti buat link ke page bapak.
besok saya coba lagi pak.
Jawaban Soal No. 2 Shandi ( Soal Quiz On-Line Hari Senin )
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bersih()
RancangTabel()
End Sub
Sub bersih()
NPM.Text = “”
Nama.Text = “”
Jenjang.Text = “”
Jurusan.Text = “”
tahun.Text = “”
nilai_angka.Text = “”
Nilai_Huruf.Text = “”
End Sub
Sub RancangTabel()
With LV
.Columns.Add(“NPM”, 70, HorizontalAlignment.Center)
.Columns.Add(“Nama”, 120, HorizontalAlignment.Left)
.Columns.Add(“Jurusan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jenjang”, 100, HorizontalAlignment.Left)
.Columns.Add(“Tahun Masuk”, 100, HorizontalAlignment.Left)
.Columns.Add(“Nilai Angka”, 90, HorizontalAlignment.Center)
.Columns.Add(“Nilai Huruf”, 90, HorizontalAlignment.Center)
.GridLines = True
.FullRowSelect = True
.View = View.Details
End With
End Sub
Sub IsiTabel()
Dim ist As New ListViewItem
With ist
.Text = npm.Text
.SubItems.Add(nama.Text)
.SubItems.Add(jurusan.Text)
.SubItems.Add(jenjang.Text)
.SubItems.Add(tahun.Text)
.SubItems.Add(nilai_angka.Text)
.SubItems.Add(nilai_huruf.Text)
lv.Items.Add(ist)
End With
End Sub
Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x As String
tahun.Text = “20″ & Microsoft.VisualBasic.Left(npm.Text, 2)
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
If x = “11″ Then
jurusan.Text = “Teknik Informatika”
ElseIf x = “21″ Then
jurusan.Text = “Sistem Informasi”
ElseIf x = “31″ Then
jurusan.Text = “Manajemen Informatika”
End If
x = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)
If x = “1″ Then
jenjang.Text = “Strata I”
ElseIf x = “2″ Then
jenjang.Text = “Diploma III”
ElseIf x = “3″ Then
jenjang.Text = “Diploma I”
End If
End Sub
Private Sub nilai_angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nilai_angka.TextChanged
Select Case nilai_angka.Text
Case Is >= 80
nilai_huruf.Text = “A”
Case 70 To 79
nilai_huruf.Text = “B”
Case 60 To 69
nilai_huruf.Text = “C”
Case 50 To 59
nilai_huruf.Text = “D”
Case Is <= 49
nilai_huruf.Text = "E"
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
IsiTabel()
bersih()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
tahun.Text = ""
nilai_angka.Text = ""
nilai_huruf.Text = ""
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
bersih()
End Sub
Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.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
[…] Jawaban no.2 (Ashari) […]
pak maaf ya pak baru bisa absen soal nya saya sibuk kerja pak
nama: felani
npm :0911472
kelas: TI-P0904
tolong di terima ya pak
mkasih ya pak………
[…] Jawaban N0.2 (Arief Syuhada) […]
pak maaf saya baru absen,soalnya saya salah tempat absennya kmarin.
tolong di terima ya pak.
Nama : Shandi Wirandana
NPM : 1011663
Kelas : TI-M0911
[…] Jawaban Soal No.2 (Arief Subrta Chan) […]
[…] Lihat Kasus […]
[…] Lihat kasus […]
aduh pak. . .
mf ya pak,salah tempat saya smlam ngabsen. .
tolng ya pak. . .
nama : sepdiarina simarmata
npm : 0911213
kelas : TI-P0901
1x lg. .mf y pak. .
mksh pak!
Ini Jawaban Saya pak ,,,
terimakasih …
maaf pak saya baru bisa isi absen sekarang pak …
Nama : Firmansyah
Npm : 0911173
kelas : TI-0902 Pagi
sekali lagi saya minta maaf ya pak …….
Nama : Candra surya pranata
NMP : 0911211
kelas : TI-P0902
nama:IRFANSYAH
NPM:0911531
KELAS:TI-P0904
salah absen malam td aku pak………………
NAMA : ZULKIFLI RUSDI
NPM : 0911339
KELAS : TI-P0902
maaf pab sebelumnya terlambat.
NAMA : FERNANDO TARIGAN
NPM : 0911195
KELAS : TI-P0902
maaf Pak absennya terlambat.