Silahkan di pastekan link tugas anda di koment saya ini, untuk kelas Tugas TI-M1213. Jangan lupa untuk membuat link seperti ini Tugas Belajar Bahasa Pemrograman yang mengarah ke postingan saya ini, di postingan tugas anda.
Terima kasih.
Selalu berusaha untuk memberikan yang terbaik
Nama :Doni Gunawan
ReplyDeletekelas:TI-m1213
link tugas :http://donesgoenawan.blogspot.com/2013/10/tugas-pencarian-nilai.html
Nama :doni gunawan
ReplyDeletelink tugas tanggal 23 okt 2013
http://donesgoenawan.blogspot.com/2013/10/contoh-fungsi-leftmid-dan-right.html
Nama :Doni Gunawan
Deletekelas:TI-m1213
Pemograman Kriptografi
Nama : POLINUS LAIA
ReplyDeleteKelas : TI M 1213
NPM : 12110841
link Tugas : http://polinuslaiaa.blogspot.com/2013/10/membuat-program-perhitungan-nilai.html
Nama :Kamorius buulolo
ReplyDeletekelas: TI-M1213
Npm:12111049
http://buulolokamorius.blogspot.com/2013/10/tugas-pencarian-nilai.html
Nama : ARIFIN
ReplyDeleteKelas : TI M 1213
NPM : 12110080
link Tugas : http://arifinbahrum.blogspot.com/2013/10/membuat-program-perhitungan-nilai.html
Nama :ARIFIN
DeleteKelas :Tim1213
NPM :12110080
Pemakaian IF Jamak Menggunakan Visual Basic Net
Written By Mesran on Senin, 14 Oktober 2013 | 10.46
Listing di bawah ini merupakan contoh pemakaian IF Jamak pada visual basic net.
Berikut program pemakaian IF Jamak menggunakan Visual Basic Net.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NIK.Items.Add("K1-001")
NIK.Items.Add("K1-002")
NIK.Items.Add("K2-003")
NIK.Items.Add("K3-004")
NIK.Items.Add("K3-005")
Jabatan.Items.Add("-")
Jabatan.Items.Add("Manager")
Jabatan.Items.Add("Supervisor")
Jabatan.Items.Add("Mandor")
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
If NIK.Text = "K1-001" Then
Nama.Text = "Aldyan"
ElseIf NIK.Text = "K1-002" Then
Nama.Text = "Triarista"
ElseIf NIK.Text = "K2-003" Then
Nama.Text = "Chairunisa"
ElseIf NIK.Text = "K3-004" Then
Nama.Text = "Surya Darma"
ElseIf NIK.Text = "K3-005" Then
Nama.Text = "Susanti"
Else
Nama.Text = "-"
End If
End Sub
Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
If Jabatan.Text = "-" Then
Gaji.Text = 1250000
ElseIf Jabatan.Text = "Manager" Then
Gaji.Text = 4250000
ElseIf Jabatan.Text = "Supervisor" Then
Gaji.Text = 3250000
ElseIf Jabatan.Text = "Mandor" Then
Gaji.Text = 2250000
End If
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
End
End Sub
Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
NIK.Text = ""
Nama.Text = ""
Jabatan.Text = ""
Gaji.Text = ""
NIK.Focus()
End Sub
End Class
Hasil program pemakaian IF Jamak menggunakan Visual Basic Net dapat dilihat di bawah ini :
Program berikut ini latihan penggajian karyawan menggunakan bahasa pemrograman visual basic/vb 6
DeleteProgram ini termasuk memiliki logika yang sedang/sedikit rumit. :) masih sedikit yah :) hehehe
Silahkan design tampilan program seperti dibawah ini :
Berikut listing program penggajian karyawan.
Dim lembur As Double
Private Sub cmdBaru_Click()
NIK.Text = ""
Nama.Text = ""
Status.Text = ""
Jabatan.Text = ""
Pajak.Text = ""
Total.Text = ""
Gaji.Text = ""
TunjIstri.Text = ""
TunjAnak.Text = ""
JAnak.Text = ""
Honor.Text = ""
JLembur.Text = ""
TunjAnak.Text = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdProses_Click()
Total.Text = Val(Gaji.Text) + Val(TunjIstri.Text) + Val(TunjAnak.Text) + Val(Honor.Text) - Val(Pajak.Text)
End Sub
Private Sub Form_Load()
NIK.AddItem "001"
NIK.AddItem "002"
NIK.AddItem "003"
Jabatan.AddItem "Mandor"
Jabatan.AddItem "Kepala Bagian"
Jabatan.AddItem "Staf"
Status.AddItem "Menikah"
Status.AddItem "Tidak Menikah"
For i = 1 To 5
JAnak.AddItem i
Next i
For i = 1 To 15
JLembur.AddItem i
Next i
Call cmdBaru_Click
End Sub
Private Sub Jabatan_Click()
Select Case Jabatan.Text
Case "Mandor":
Gaji.Text = 1750000
lembur = 7500
Case "Kepala Bagian": Gaji.Text = 2500000
lembur = 10000
Case "Staf": Gaji.Text = 1250000
lembur = 5000
End Select
Pajak.Text = 0.015 * Gaji.Text
End Sub
Private Sub JAnak_Click()
If JAnak.Text >= 2 Then
TunjAnak.Text = 0.07 * Gaji.Text
ElseIf JAnak.Text = 1 Then
TunjAnak.Text = 0.03 * Gaji.Text
Else
TunjAnak.Text = 0
End If
End Sub
Private Sub JLembur_Click()
Honor.Text = JLembur.Text * lembur
End Sub
Private Sub NIK_Click()
Select Case NIK.Text
Case "001": Nama.Text = "Oncom"
Case "002": Nama.Text = "Udin"
Case "003": Nama.Text = "Ujang"
End Select
End Sub
Private Sub Status_Click()
Select Case Status.Text
Case "Menikah":
TunjIstri.Text = 0.09 * Gaji.Text
JAnak.Enabled = True
Case "Tidak Menikah":
JAnak.Text = 0
JAnak.Enabled = False
TunjIstri.Text = 0
TunjAnak.Text = 0
End Select
End Sub
Untuk hasilnya silahkan aja lihat tampilan berikut ini :
Selamat belajar bahasa pemrograman yaa
Tag : Program Visual Basic Penggajian Karyawan, bahasa pemrograman vb 6, bahasa pemrograman visual basic
Berikut merupakan topik latihan pada minggu ke 6 untuk Pemrograman Visual Basic dot Net
Silahkan dilihat bentuk form design berikut ini.
Nama : HANAFI
ReplyDeleteKelas : TI M 1213
NPM : 12110244
link Tugas : http://hanafienst.blogspot.com/2013/10/membuat-program-perhitungan-nilai.html
Nama : Fentris Yarif Laoli
ReplyDeleteKelas : TI-M 1213
NPM : 12110616
Link tugas tgl 2 September 2013
http://fentrisyarieflaoli.blogspot.com/2013/11/membuat-program-perhitungan-nilai_1.html
Nama : Fentris Yarif Laoli
ReplyDeleteKelas : TI-M1213
NPM : 12110616
Link Tugas : http://fentrisyarieflaoli.blogspot.com/2013/11/membuat-program-perhitungan-nilai_1.html
Nama : Rudol
ReplyDeleteKelas : TI-M1213
NPM : 12110307
Link Tugas :
http://rudoldoank.blogspot.com/2013/11/program-pencarian-nilai.html
Nama: Andry Saputra Saragih
ReplyDeleteKelas: TI-M1213
Npm : 12110441
Link Tugas:http://andrysaputrasr.blogspot.com/
Nama :KAMORIUS BUULOLO
ReplyDeleteNpm :12111049
kelas :TI-M1213
link tugas :http://buulolokamorius.blogspot.com/2013/10/tugas-pencarian-nilai.html
Nama : Robby Azhari Harahap
ReplyDeleteKelas : TI-M 1213
NPM : 12110714
Link Tugas : http://roazhap.blogspot.com/2013/11/tugas-vb-2008-perhitungan-nilai.html
Nama : Bayu sahrizal
ReplyDeleteKelas : TIM-1213
NPM : 12110767
Nama : Bayu sahrizal
ReplyDeleteKelas : TIM-1213
Npm : 12110767
Nama : Bayu sahrizal
ReplyDeleteKelas : TIM-1213
Npm : 12110767
Nama : Bayu sahrizal
ReplyDeleteKelas : TIM-1213
Npm : 12110767
http://tim-1213/
Nama : Bayu sahrizal
ReplyDeleteKelas : TIM-1213
Npm :12110767
http://bayusahrizal.blogspot.com/2013/11/tugas-visual-basic-tim-1213-normal-0.html
http://bayusahrizal.blogspot.com/2013/11/tugas-visual-basic-tim-1213-normal-0.html
Nama : Bayu sahrizal
ReplyDeleteKelas : TIM-1213
Npm :12110767
http://bayusahrizal.blogspot.com/2013/11/tugas-visual-basic-tim-1213-normal-0.html
NPM : 12110714
ReplyDeleteNama : Robby Azhari Harahap
Kelas : TI-M 1213
LINK Tugas : http://roazhap.blogspot.com/2013/11/tugas-vb-2008-perhitungan-nilai.html
Nama : FENTRIS YARIF LAOLI
ReplyDeleteKelas : TI M 1213
NPM : 12110616
Link Tugas : http://fentrisyarieflaoli.blogspot.com/2013/11/membuat-program-perhitungan-nilai_1.html
Nama : Bayu sahrizal
ReplyDeleteKelas : TIM-1213
Npm : 12110767
http://www.blogger.com/blogger.g?blogID=5445229069670534368
Nama : Bayusahrizal
ReplyDeleteKelas :TIM-1213
Npm : 12110767
http://tugas%20visual%20basic/
Pak ini link tugasnya tgl 23 oktober 2013
ReplyDeletehttp://trisuhairy94.blogspot.com/2013/11/tugas-23-october-2013-vb-net.html
Pak Ini Tugas Gaji Pegawai
ReplyDeleteNama : Robby Azhari Harahap
Kelas : TI-M 1213
Link Tugas : http://roazhap.blogspot.com/2013/11/tugas-vb-menghitung-gaji-pegawai.html
Ini tugas saya tentang "Menghitung Total Gaji"
ReplyDeleteNama : Suhairy Tri Yadhi
NPM : 12110917
TI-M 1213
ini linknya : http://trisuhairy94.blogspot.com/2013/11/tugas-vb-menghitung-total-gaji.html
Nama : KAMORIUS BUULOLO
ReplyDeleteKelas : TI M 1213
NPM : 12111049
link Tugas : http://buulolokamorius
.blogspot.com/2013/10/membuat-program-perhitungan-nilai.html
Nama : Ruswin Mawar Tanjung
ReplyDeleteKelas : TI-M 1213
Link Tugas : http://wiwin1990.blogspot.com/2013/11/perhitungan-nilai-vb-2008.html
Nama : M.Rajani Pane
ReplyDeleteNPM : 12111017
Link Tugas : http://mhdkingni05.blogspot.com/2013/11/menghitung-nilai-vb-2008.html
Nama : Nurfatiah
ReplyDeleteNPM : 12110082
Link Tugas : http://nurfatiah12110082.blogspot.com/2013/11/vb-2008-tugas-kuliah.html
Nama : YULIA DWI SANTIKA
ReplyDeleteKelas : TI.M1213
NPM : 12111033
Link tugas : http://yuliadwisantika.blogspot.com/2013/11/tugas-vb-2008.html
Nama : Ruswin Mawar Tanjung
ReplyDeleteLink Tugas : http://wiwin1990.blogspot.com/2013/11/perhitungan-nilai-vb-2008.html
Nama : Desi Kumala Sari
ReplyDeleteNpm : 12110176
Kelas : TI-M1213
Link Tugas : http://desikumala-sari.blogspot.com/2013/11/public-class-form1-private-sub.html
Nama : Ahmad Fauzi Lingga
ReplyDeleteNPM : 121100407
Link : http://madlingga.blogspot.com/2013/11/vb-2008-menghitung-nilai.html
Nama:Andry Saputra Saragih
ReplyDeletekls:TI-M 1213
Npm:12110441
Link:http://andrysaputrasrgh.blogspot.com/
nama : Hari Yudi Padang
ReplyDeletenpm : 12110074
Link Tugas : http://bloghariyudi.blogspot.com/2013/11/vb-perhitungan-nilai-mahasiswa.html
NAMA : SONI RIVALDI
ReplyDeleteNPM :12110667
LINK TUGAS : http://sonirivaldi.blogspot.com/2013/11/vb-2008-menghitung-nilai.html
nama : Ahmad Juliandi
ReplyDeletenpm : 12110088
LinkTugas : http://ahmadpu3.blogspot.com/2013/11/vb-menghitung-nilai-mahasiswa.html
nama: dedy hermawan
ReplyDeletenpm:12110602
link :http://dedyhermaw.blogspot.com/2013/11/mencari-nilai-mahasiswa.html
NAMA :DEDY HERMAWAN
ReplyDeleteNPM ;12110602
LINK:http://dedyhermaw.blogspot.com/2013/11/menghitung-gaji-pegawai.html
Nama : SISKA VENTRIANI ZEGA
ReplyDeletelink : http://siskaventriani.blogspot.com/2013/11/untuk-kita-malam-ini-si-pembuat-blog.html
Nama : Yafao Giawa
ReplyDeleteKelas : TI-M1213
NPM : 12110099
Link : http://yafaogiawa.blogspot.com/2013/11/vb-2008-perhitungan-nilai.html
Nama : Yafao Giawa
ReplyDeleteKelas : TI-M1213
NPM : 12110099
Link : http://yafaogiawa.blogspot.com/2013/11/vb-2008-perhitungan-nilai.html
Nama : Lukman Wijaya
ReplyDeleteKelas : TI-M1213
NPM : 12110631
Link : http://lukmanwijaya4.blogspot.com/2013/11/mencari-nilai-mahasiswa.html
Nama : Khairul Saleh
ReplyDeleteNPM : 12130765
kelas : TI M 1213
LInk : http://khairulsalehh.blogspot.com/2013/11/program-pencarian-nilai.html
Nama : Anton P. Sitinjak
ReplyDeletekelas : TI 1213
link : http://antonpsitinjak.blogspot.com/2013/12/program-pencarian-nilai.html
Tugas I An. POLINUS LAIA
ReplyDeleteNPM : 12110841
Link : polinuslaiaa.blogspot.com/2013/10/fungsi-mid-left-right.html
Nama : Rudol
ReplyDeleteNPM : 12110307
Kelas : TI-M1213
Link Tugas:
http://rudoldoank.blogspot.com/2014/01/pemogramman-kriptografi.html
Kriptografi
ReplyDeleteNpm : 12110767
Nama : Bayu sahrizal
Link : http://bayusahrizal.blogspot.com/b/post-preview?token=285EjEMBAAA.TC1IX1qXHe86n_PYMpUPUQ.7srhFA55YhZ5fpnMznDrUg&postId=6234360580282786320&type=POST
KRIPTOGRAFI
ReplyDeleteNPM :12110602
NAMA : DEDY HERMAWAN
LINK :http://dedyhermaw.blogspot.com/2014/01/kriptrografi.html
Nama : Yulia Dwi Santika
ReplyDeleteNpm :12111033
Kelas : TI.M.1213
Link : http://yuliadwisantika.blogspot.com/2014/01/tugas-pemograman-kriptografi-caesar_14.html
Npm : 12110765
ReplyDeleteNama : Khairul saleh
Link : http://khairulsalehh.blogspot.com/
Kriptografi
Kriptografi
ReplyDeleteNpm : 12110767
Nama : Bayu sahrizal
Link :http://bayusahrizal.blogspot.com/
Npm : 12110767
ReplyDeleteNama : Khairul saleh
Link : http://khairulsalehh.blogspot.com/
kriptografi
Nama : Desi Kumala Sari
ReplyDeleteNpm :12110176
Kelas :TI.M.1213
Link : http://desikumala-sari.blogspot.com/2014/01/kriptografi.html
kriptografi
ReplyDeleteNama : ARIFIN
Npm : 12110080
Link : http://arifinbahrum.blogspot.com/kriptografi Caesar ,Vernam, Gronsfled,Vigenere
Kriptografi
ReplyDeleteNpm : 12110401
Nama : SHOLEHUDDIN HALIM SIREGAR
Link
https://sholehuddinsiregar966/KRIPTOGRAFI ( Caesar ,Vernam, Gronsfled,Vigenere )
Tugas kriptrografi
ReplyDeleteNama : M.Rajani Pane
NPM : 12111017
http://mhdkingni05.blogspot.com/2KRIPTOGRAFI ( Caesar ,Vernam, Gronsfled,Vigenere )
Tugas Kriptografi
ReplyDeleteNAMA: Andry Saputra Saragih
NPM : 12110441
Link Nya:
http://andrysaputrakriptografi2.blogspot.com/
Assalamualaikum,
ReplyDeletepak ini tugas saya
kriptografi
Nama : Suhairy Tri Yadhi (12110917)
http://trisuhairy94.blogspot.com/2014/01/vb-kriptografi-caesar-vernam-gronsfeld.html
Nama : Pewenri sinaga
ReplyDeleteNPM : 12110588
Link
http://pwnri88.blogspot.com/Kriptografi (Caesar ,Vernam,Gronsfled,Viginere)
Tugas Kriptografi Terakhir
ReplyDeleteNama : Polinus Laia
Npm : 12130841
Link :http://polinuslaiaa.blogspot.com/2014/01/tugas-kriptografi-caesar-vernan.html
Tugas Akhir
ReplyDeleteNama :Yafao Giawa
NPM :12110099
http://yafaogiawa.blogspot.com/2014/01/tugas-pemograman-kriptografi-caesar.html
Nama : Fentris Yarif Laoli
ReplyDeleteNPM : 12110616
Tugas : Kriptografi
Link : http://fentrisyarieflaoli.blogspot.com/2014/01/kriptografi_2066.html
Tugas Kriptografi
ReplyDeleteNAMA: Andry Saputra Saragih
NPM : 12110441
Link:
http://andrysaputrakriptografi2.blogspot.com/
Nama : Ahmad Fauzi Lingga
ReplyDeleteNpm : 12110407
Kelas ; TI-M1213
http://madlingga.blogspot.com/
Tugas Kriptografi...
ReplyDeleteNama : Robby Azhari harahap
NPM : 12110714
Tugas :
http://roazhap.blogspot.com/2014/01/membuat-kriptografi-vernam-dengan.html
http://roazhap.blogspot.com/2014/01/kriptografi-caesar.html
http://roazhap.blogspot.com/2014/01/kriptografi-vigenere.html
http://roazhap.blogspot.com/2014/01/kriptografi-gronsfeld.html
Thanks Pak...
Nama ; Lukman Wijaya
ReplyDeleteKelas : TI-M1213
NPM : 12110631
http://lukmanwijaya4.blogspot.com/2014/01/penggabungan-program-kriptografi-dalam.html
Tugas Kriptografi
ReplyDeleteNama : Lukman Wiijaya
Kelas : TI-M1213
NPM : 12110631
Link : http://lukmanwijaya4.blogspot.com/2014/01/penggabungan-program-kriptografi-dalam.html
Tugas Kriptografi
ReplyDeleteNama:Ruswin Mawar Tanjung
NPM:12110641
http://wiwin1990.blogspot.com/2014/01/kriptografi-caesar-vernam.html